From 367370970161a620c60fee5eb13fa3ac7d99ea41 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 2 Jul 2018 00:16:14 -0300
Subject: Attempt to rewrite magic to use more function helpers

---
 npc/magic/zarkor.txt | 46 ++++++----------------------------------------
 1 file changed, 6 insertions(+), 40 deletions(-)

(limited to 'npc/magic')

diff --git a/npc/magic/zarkor.txt b/npc/magic/zarkor.txt
index a52484bf5..20cbb3f12 100644
--- a/npc/magic/zarkor.txt
+++ b/npc/magic/zarkor.txt
@@ -14,57 +14,23 @@ OnNone:
     end;
 
 OnCall:
-    // PRE EXECUTION
-    // Check Skill
-    if (getskilllv(TMW2_ZARKOR) < 1)
-        end;
-
-    // Check cooldown
-    /*
-    if (@skzarkor_cooldown > gettimetick(0)) {
-        dispbottom l("Cannot cast that now.");
-        end;
-    }
-    */
-
-    // Check mana
-    if (readparam(Sp) < 400) {
-        dispbottom l("Insufficient mana.");
-        end;
-    }
-
     // Other requeriments
     if (countitem(ZarkorScroll) < 1) {
         dispbottom l("You need @@ to cast this skill.", getitemlink(ZarkorScroll));
         end;
     }
 
-    // EXECUTION
-    // Apply costs
-    heal 0, -400;
-
-    // Cause effect
-    getmapxy(.@map$,.@x,.@y,0);
-    monster(.@map$, .@x, .@y, "Summoned Monster", CaveMaggot, 1, "sk#zarkor::OnNone", Size_Medium, 1);
-    dispbottom l("All monsters summoned!");
-    /*
-<size> can be:
-	Size_Medium = medium (default)
-	Size_Small = small
-	Size_Large = big
+    // Check cooldown
+    /* TODO */
 
-<ai> can be:
-	0 = none (default)
-	1 = attack/friendly
-	2 = sphere (Alchemist skill)
-	3 = flora (Alchemist skill)
-	4 = zanzou (Kagerou/Oboro skill)
+    // Summon Magic
+    SummonMagic(TMW2_ZARKOR, 400, CaveMaggot, 75, "sk#zarkor::OnNone");
 
-    */
 
-    // POST EXECUTION
+    /*
     // set cooldown
     @skzarkor_cooldown=gettimetick(0)+20;
+    */
     end;
 
 OnInit:
-- 
cgit v1.2.3-60-g2f50