From 109665091fedf7b91b4286d4b7235ba8b279a3b0 Mon Sep 17 00:00:00 2001 From: Fate Date: Sat, 31 Jan 2009 13:04:36 -0700 Subject: Added "shear" spell-- not part of any quest yet, though --- conf/magic.conf.template | 51 ++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 49 insertions(+), 2 deletions(-) (limited to 'conf') diff --git a/conf/magic.conf.template b/conf/magic.conf.template index b15defc9..e35c126c 100644 --- a/conf/magic.conf.template +++ b/conf/magic.conf.template @@ -23,6 +23,7 @@ CONST ELT_GHOST = 8 CONST ELT_UNDEAD = 9 # Schools of magic +CONST SC_SHEARED = 194 # This is the same as SC_HIDE, since mobs can't hide and shearing is only used for mobs. Feel free to fix! CONST SC_HIDE = 194 CONST SC_HALT_REGENERATE = 195 CONST SC_FLYING_BACKPACK = 196 @@ -53,7 +54,8 @@ CONST SCRIPT_HEALSPELL_MASK = 0xff CONST SCRIPT_HEALSPELL_SHIFT = 24 CONST DEBUG = 0 -CONST ATTACK_ICON_GENERIC = 2000 +CONST ATTACK_ICON_GENERIC = 2000 +CONST ATTACK_ICON_SHEARING = 2001 # Default sfx on caster PROCEDURE default_effect() = @@ -183,7 +185,7 @@ PROCEDURE install_attack_spell(charges, base_delay, range, attack_animation) = CALL default_effect(); attack_range = range; override_attack(caster, charges, ((200 - agi(caster)) * base_delay) / 200, - range, ATTACK_ICON_GENERIC, attack_animation); + range, ATTACK_ICON_GENERIC, attack_animation, 0); PROCEDURE install_melee_spell(charges, base_delay, attack_animation) = CALL install_attack_spell(charges, base_delay, 1, attack_animation); @@ -636,6 +638,51 @@ LOCAL SPELL rain : "#N13" = WAIT 300 - min(spellpower, 200) + random(100); ); +PROCEDURE shear-drop(target, item, prob) = + IF (target = name) + THEN (IF (score < prob) + THEN drop_item_for(place, item, 1, 60000, caster, 5000);) + +PROCEDURE shear-drop2(target, item, prob, item2, prob2) = + IF (target = name) + THEN (IF (score < prob) + THEN drop_item_for(place, item, 1, 60000, caster, 5000); + ELSE CALL shear-drop(target, item2, prob2 + prob);) + +PROCEDURE shear-drop3(target, item, prob, item2, prob2, item3, prob3) = + IF (target = name) + THEN (IF (score < prob) + THEN drop_item_for(place, item, 1, 60000, caster, 5000); + ELSE CALL shear-drop2(target, item2, prob2 + prob, item3, prob3 + prob);) + + +SPELL shear : "#N14" = + LET level = 1 + school = NATURE + IN (MANA 23, CASTTIME 1000, + REQUIRE skill(caster, MAGIC) > level, + REQUIRE skill(caster, school) > level) + => EFFECT CALL adjust_spellpower(school); + CALL default_effect(); + override_attack (caster, 1, 2000, 1, ATTACK_ICON_SHEARING, 30, 0); + ATTRIGGER IF not(is_pc(target)) + THEN (score = random (1000 - (random (spellpower))); # lower score -> more valuable item + name = name_of(target); + place = random_location(rbox(location(target), 1)); + IF running_status_update(target, SC_SHEARED) + THEN ABORT; + status_change(target, SC_SHEARED, 1, 1, 1, 1, 600000); # 10 minutes + CALL shear-drop("Fluffy", "WhiteFur", 200); + CALL shear-drop("SpikyMushroom", "HardSpike", 150); + CALL shear-drop("Mouboo", "CottonCloth", 100); + CALL shear-drop("Cobalt Plant", "CobaltHerb", 700); + CALL shear-drop("Alizarin Plant", "AlizarinHerb", 700); + CALL shear-drop("Gamboge Plant", "GambogeHerb", 700); + CALL shear-drop("Mauve Plant", "MauveHerb", 700); + ) + + + SPELL barrier (target : PC) : "#A10" = LET level = 1 school = ASTRAL -- cgit v1.2.3-70-g09d2