summaryrefslogtreecommitdiff
path: root/npc/magic/halhiss.txt
diff options
context:
space:
mode:
authorJesusaves <cpntb1@ymail.com>2019-05-06 21:34:57 -0300
committerJesusaves <cpntb1@ymail.com>2019-05-06 21:34:57 -0300
commite5f06227b45c0e929a0c99667adf00190f19aa21 (patch)
tree41c2d0ae1e27bf6c23554773ee92bcbedae06922 /npc/magic/halhiss.txt
parent33376f72effad5c0e905961e096d8409dfd862c7 (diff)
downloadserverdata-e5f06227b45c0e929a0c99667adf00190f19aa21.tar.gz
serverdata-e5f06227b45c0e929a0c99667adf00190f19aa21.tar.bz2
serverdata-e5f06227b45c0e929a0c99667adf00190f19aa21.tar.xz
serverdata-e5f06227b45c0e929a0c99667adf00190f19aa21.zip
New magic skill: Halhiss (summons snakes)
Diffstat (limited to 'npc/magic/halhiss.txt')
-rw-r--r--npc/magic/halhiss.txt65
1 files changed, 65 insertions, 0 deletions
diff --git a/npc/magic/halhiss.txt b/npc/magic/halhiss.txt
new file mode 100644
index 000000000..b86840cb8
--- /dev/null
+++ b/npc/magic/halhiss.txt
@@ -0,0 +1,65 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_HALHISS
+//
+// Summons snakes (mountain snakes if GHQ was completed and enough skill)
+
+- script sk#halhiss 32767,{
+ end;
+
+OnCall:
+ // Other requeriments: 20x Maggot Slime
+ if (countitem(SnakeEgg) < 1) {
+ dispbottom l("You need 1x @@ to cast this skill.", getitemlink(SnakeEgg));
+ end;
+ }
+
+ // Check cooldown
+ if (@halhiss_at > gettimetick(2)) {
+ dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@halhiss_at));
+ end;
+ }
+
+ // Setup
+ @sk=TMW2_HALHISS;
+ @mp=350;
+ @amp=60;
+
+ // Check if you have mana to cast
+ // MagicCheck(SkillID, Mana{, MP per level})
+ if (!MagicCheck(@sk, @mp, @amp))
+ end;
+
+ // Destroy reagents
+ delitem SnakeEgg, 1;
+
+ // set cooldown
+ @halhiss_at=gettimetick(2);
+ @halhiss_at=@halhiss_at+44;
+
+ // As usual, magic profeciency affects success ratio
+ if (rand(1,4) < abizit()+1) {
+ .@mobId=Snake;
+ if (abizit() > 3 &&
+ GHMEMO[GHQ_GetQuestIDByMonsterID(MountainSnake)] >= 10000 &&
+ rand(1,3) == 2)
+ {
+ .@mobId=MountainSnake;
+ }
+ // 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-halhiss", "sk#halhiss::OnCall", 0, 100, 0;
+ end;
+}