summaryrefslogtreecommitdiff
path: root/npc/magic/kalwulf.txt
diff options
context:
space:
mode:
authorJesusaves <cpntb1@ymail.com>2019-05-08 15:32:13 -0300
committerJesusaves <cpntb1@ymail.com>2019-05-08 15:32:13 -0300
commit12074d6e1b28f72b9132762a79366e75092237ec (patch)
tree4d22df10c62c82fd74fe4d6ee68815cc03b464f8 /npc/magic/kalwulf.txt
parent914e570edb9dd57516df3cafd573edfc8b96b404 (diff)
downloadserverdata-12074d6e1b28f72b9132762a79366e75092237ec.tar.gz
serverdata-12074d6e1b28f72b9132762a79366e75092237ec.tar.bz2
serverdata-12074d6e1b28f72b9132762a79366e75092237ec.tar.xz
serverdata-12074d6e1b28f72b9132762a79366e75092237ec.zip
Kalwulf - Wolvern summoning skill
Diffstat (limited to 'npc/magic/kalwulf.txt')
-rw-r--r--npc/magic/kalwulf.txt59
1 files changed, 59 insertions, 0 deletions
diff --git a/npc/magic/kalwulf.txt b/npc/magic/kalwulf.txt
new file mode 100644
index 000000000..22b27d2d5
--- /dev/null
+++ b/npc/magic/kalwulf.txt
@@ -0,0 +1,59 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_KALWURF
+//
+// Summons snakes (mountain snakes if GHQ was completed and enough skill)
+
+- script sk#kalwurf 32767,{
+ end;
+
+OnCall:
+ // Other requeriments: 5x White Fur
+ if (countitem(WhiteFur) < 5) {
+ dispbottom l("You need 5x @@ to cast this skill.", getitemlink(WhiteFur));
+ end;
+ }
+
+ // Check cooldown
+ if (@kalwurf_at > gettimetick(2)) {
+ dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@kalwurf_at));
+ end;
+ }
+
+ // Setup
+ @sk=TMW2_KALWURF;
+ @mp=450;
+ @amp=45;
+
+ // Check if you have mana to cast
+ // MagicCheck(SkillID, Mana{, MP per level})
+ if (!MagicCheck(@sk, @mp, @amp))
+ end;
+
+ // Destroy reagents
+ delitem WhiteFur, 5;
+
+ // set cooldown
+ @kalwurf_at=gettimetick(2);
+ @kalwurf_at=@kalwurf_at+47-abizit();
+
+ // As usual, magic profeciency affects success ratio
+ if (rand(1,6) < abizit()+1) {
+ .@mobId=Wolvern;
+ // Summon Magic
+ // SummonMagic(SkillID, MobID{, SkillLevelPerMob=2{, Level Override}})
+ SummonMagic(@sk, .@mobId, 4, MAGIC_LVL+getskilllv(@sk)-1);
+ } else {
+ dispbottom l("The spell fails!");
+ }
+
+ // Get 3~4 mana experience point (this is NOT used by Mana Stone)
+ GetManaExp(@sk, rand(3,4));
+
+ end;
+
+OnInit:
+ bindatcmd "sk-kalwurf", "sk#kalwurf::OnCall", 0, 100, 0;
+ end;
+}