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/config/magic.txt | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 npc/config/magic.txt

(limited to 'npc/config')

diff --git a/npc/config/magic.txt b/npc/config/magic.txt
new file mode 100644
index 000000000..0ec8dd99b
--- /dev/null
+++ b/npc/config/magic.txt
@@ -0,0 +1,48 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script Core Functions
+// 
+// Used for our pseudo-magic.
+// These are only helpers, you can add more restrictions and effects freely.
+
+// SkillID, Mana, MobID{, MP per level, Script}
+function	script	SummonMagic	{
+    .@sk=getarg(0);
+    .@mp=getarg(1);
+    .@id=getarg(2);
+    .@scr$=getarg(4,"Cassia::OnSkip");
+
+    // PRE EXECUTION
+    // Check Skill
+    if (getskilllv(.@sk) < 1)
+        end;
+
+    // Load mana cost
+    .@amp=getarg(3,0);
+    .@mp=.@mp+getskilllv(.@sk)*.@amp-.@amp;
+
+    // Check mana
+    if (readparam(Sp) < .@mp) {
+        dispbottom l("Insufficient mana: @@/@@.", readparam(Sp), .@mp);
+        end;
+    }
+
+
+    // EXECUTION
+    // Apply costs
+    heal 0, 0-.@mp;
+
+    // Cause effect
+    getmapxy(.@map$,.@x,.@y,0);
+    monster(.@map$, .@x, .@y, "Summoned Monster", .@id, getskilllv(.@sk), .@scr, Size_Medium, 1);
+    dispbottom l("All monsters summoned!");
+    /* AI Options
+	0 = none (default)
+	1 = attack/friendly
+	2 = sphere (Alchemist skill)
+	3 = flora (Alchemist skill)
+	4 = zanzou (Kagerou/Oboro skill)
+    */
+
+}
-- 
cgit v1.2.3-70-g09d2