summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
Diffstat (limited to 'npc')
-rw-r--r--npc/config/magic.txt47
-rw-r--r--npc/magic/parum.txt69
-rw-r--r--npc/magic/zarkor.txt5
-rw-r--r--npc/scripts.conf1
4 files changed, 110 insertions, 12 deletions
diff --git a/npc/config/magic.txt b/npc/config/magic.txt
index 1617bfeff..587b2f081 100644
--- a/npc/config/magic.txt
+++ b/npc/config/magic.txt
@@ -5,24 +5,30 @@
//
// Used for our pseudo-magic.
// These are only helpers, you can add more restrictions and effects freely.
+// Important Variables: MAGIC_EXP, LAST_SKILL
-// SkillID, Mana, MobID{, MP per level, MobPerSkillLevel=2}
-function script SummonMagic {
+// SkillID, EXP Points
+function script GetManaExp {
.@sk=getarg(0);
- .@mp=getarg(1);
- .@id=getarg(2);
- .@adj=getarg(4,2);
-
- if (.@adj < 1) {
- debugmes "\033[31mInvalid MobPerSkillLevel for SummonMagic (.@adj): "+.@adj+"\033[0m";
- dispbottom l("Invalid parameter specified, blame saulc.");
+ .@pt=getarg(1);
+ if (LAST_SKILL == .@sk)
end;
- }
+ LAST_SKILL=.@sk;
+ MAGIC_EXP=MAGIC_EXP+.@pt;
+ end;
+}
+// SkillID, Mana{, MP per level}
+function script MagicCheck {
// PRE EXECUTION
+ // Load Variables
+ .@sk=getarg(0);
+ .@mp=getarg(1);
+ .@amp=getarg(2,0);
+
// Check Skill
if (getskilllv(.@sk) < 1)
- end;
+ return 0;
// Load mana cost
.@amp=getarg(3,0);
@@ -31,9 +37,28 @@ function script SummonMagic {
// Check mana
if (readparam(Sp) < .@mp) {
dispbottom l("Insufficient mana: @@/@@.", readparam(Sp), .@mp);
+ return 0;
+ }
+ return 1;
+}
+
+// SkillID, Mana, MobID{, MP per level, MobPerSkillLevel=2}
+function script SummonMagic {
+ .@sk=getarg(0);
+ .@mp=getarg(1);
+ .@id=getarg(2);
+ .@adj=getarg(4,2);
+
+ if (.@adj < 1) {
+ debugmes "\033[31mInvalid MobPerSkillLevel for SummonMagic (.@adj): "+.@adj+"\033[0m";
+ dispbottom l("Invalid parameter specified, blame saulc.");
end;
}
+ // PRE EXECUTION
+ if (!MagicCheck(.@sk, .@mp, .@amp))
+ end;
+
// EXECUTION
// Apply costs
diff --git a/npc/magic/parum.txt b/npc/magic/parum.txt
new file mode 100644
index 000000000..951a71699
--- /dev/null
+++ b/npc/magic/parum.txt
@@ -0,0 +1,69 @@
+// TMW2 script
+// Author: Jesusalva <admin@tmw2.org>
+//
+// Magic Script: TMW2_PARUM
+//
+// Attempts to transmutate Raw Logs.
+// May create arrows, Mouboo Figurines, Warped Logs.
+// With enough ManaExp may create WoodenLog.
+// Is not powerful enough to create overly complex stuff like Wooden Sword, Wooden Shield or Wooden Bow
+// Final item is random
+
+- script sk#parum 32767,{
+ end;
+
+/*
+OnFriendlyDeath:
+ emote 4;
+ end;
+*/
+
+OnCall:
+ // Other requeriments
+ if (countitem(RawLog) < 1) {
+ dispbottom l("You need @@ to cast this skill.", getitemlink(RawLog));
+ end;
+ }
+
+ // Check cooldown
+ /* TODO */
+ // This will only vanish upon logout =/
+ if (@parum_at > gettimetick(2)) {
+ dispbottom l("Skill is in cooldown.");
+ end;
+ }
+
+ // Check requisites
+ if (!MagicCheck(TMW2_PARUM, 50))
+ end;
+
+ // Create the stuff based on MAGIC_EXP
+ .@r=rand(1,41);
+ if (.@r < 42-(MAGIC_EXP/2)) {
+ getitem WarpedLog, 1;
+ } else {
+ if (.@r > 30)
+ getitem MoubooFigurine, 1;
+ else if (.@r > 20 && MAGIC_EXP > 82)
+ getitem WoodenLog, 1;
+ else
+ getitem Arrow, .@r;
+ }
+ // I know, the code is not very sane. A number from 0 to 40 is cast.
+ // You will get lots of useless Warped Logs until you have 82 MExp.
+ // If you do not get a Warped Log, you have 25% chances of getting the
+ // Mouboo figurine. The other will be arrows, unless you hit the 82 MExp value
+ // which will add 25% chances to get a Wooden Log too. These values are estimate.
+
+
+ // Get a few mana experience points (this is NOT used by Soul Menhir)
+ GetManaExp(TMW2_PARUM, rand(1,3));
+
+ // set cooldown
+ @parum_at=gettimetick(2)+4;
+ end;
+
+OnInit:
+ bindatcmd "sk-parum", "sk#parum::OnCall", 0, 100, 0;
+ end;
+}
diff --git a/npc/magic/zarkor.txt b/npc/magic/zarkor.txt
index b1da8ec6e..18718c811 100644
--- a/npc/magic/zarkor.txt
+++ b/npc/magic/zarkor.txt
@@ -34,9 +34,12 @@ OnCall:
// Summon Magic
SummonMagic(TMW2_ZARKOR, 400, CaveMaggot, 75, 2);
+ // Get a single mana experience point (this is NOT used by Soul Menhir)
+ GetManaExp(TMW2_ZARKOR, 1);
+
/*
// set cooldown
- @skzarkor_cooldown=gettimetick(0)+20;
+ @skzarkor_cooldown=gettimetick(2)+20;
*/
@zark_caveat=1;
end;
diff --git a/npc/scripts.conf b/npc/scripts.conf
index 02d71e1dd..0af3f5237 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -83,6 +83,7 @@
// Magic Commands
"npc/magic/zarkor.txt",
+"npc/magic/parum.txt",
// Maps specific scripts
@include "npc/_import.txt"