diff options
Diffstat (limited to 'world/map/conf/magic-base.sex')
| -rw-r--r-- | world/map/conf/magic-base.sex | 272 |
1 files changed, 38 insertions, 234 deletions
diff --git a/world/map/conf/magic-base.sex b/world/map/conf/magic-base.sex index 8f3b9978..25c05f1e 100644 --- a/world/map/conf/magic-base.sex +++ b/world/map/conf/magic-base.sex @@ -407,6 +407,44 @@ "--------------------------------------------------------------------------------" "Level 0 spells" "--------------------------------------------------------------------------------" +(SPELL () wand "#confringo" () + (LET school MAGIC) + (=> + (GUARD + (CASTTIME 500)) + (EFFECT + (SCRIPT "{callfunc \"CheckWand\";}") + (IF (== + (script_int caster "@Wand") + 0) + (ABORT)) + (CALL adjust_spellpower school) + (CALL default_effect) + (SET damage + (* (script_int caster "@Wand") + (/ spellpower + 3))) + (SET damage_bonus + (* (script_int caster "@Wand") + (/ spellpower + 3))) + (CALL install_attack_spell + (+ (script_int caster "@Wand") + (/ spellpower 10)) + 1200 + 3 + 33) + (CALL gain_xp 1 3) + (ATTRIGGER + (CALL attack_check target) + (SCRIPT "{callfunc \"WandMana\";}") + (IF (== + (script_int caster "@WandAttack") + 0) + (ABORT)) + (CALL elt_damage target damage damage_bonus ELT_NEUTRAL ELT_NEUTRAL 5)) +))) + (SPELL () ask-magic-exp "#abizit" () (LET level 0) (LET school MAGIC) @@ -3126,240 +3164,6 @@ 30) (message p "You notice a strange smell all around you."))))) -(SPELL (NONMAGIC SILENT) world-shift "#alonzialonzo" () - (=> - (GUARD - (REQUIRE - (&& - (== - (& - (>> - (script_int caster "Easter_2010_QuestState") - 16) - 1) - 1) - (== - (& - (>> - (script_int caster "Easter_2010_QuestState") - 7) - 3) - 2))) "Travel only works when you have both helped the doctor at least thrice and have defeated the invader - top level requirement." ) - (| - (=> - (GUARD - (REQUIRE - (&& - (&& - (count_item caster "DarkPetal") - (!= - (map_nr - (location caster)) - 52)) - (!= - (map_nr - (location caster)) - 5698))) "Allow unlimited travel with the petal, 52 Do not allow if player is in Illia island, 5698 Do not allow if player is in botcheck area" ) - (| - (=> - (GUARD - (REQUIRE - (< - (rdistance - (location caster) - (@ "028-1.gat" 69 70)) - 5))) - (EFFECT - (sfx - (location caster) - SFX_TELEPORT - 200) - (WAIT 8000) - (SCRIPT "{ - savepoint \"009-1\", 52, 39; - }") - (warp caster - (@ "009-1.gat" 55 37)) - (sfx - (location caster) - SFX_TELEPORT - 200))) - (=> - (GUARD - (REQUIRE - (!= - (map_nr - (location caster)) - 28))) - (EFFECT - (SET inithp - (hp caster)) "Store this value." - (sfx - (location caster) - SFX_TELEPORT - 200) - (IF (|| - (|| - (|| - (== - (map_nr - (location caster)) - 9) - (== - (map_nr - (location caster)) - 1)) - (== - (map_nr - (location caster)) - 21)) - (== - (map_nr - (location caster)) - 20)) - (WAIT 8000) - (WAIT 20000)) - (IF (< - (hp caster) - inithp) - (ABORT)) "Cancel teleport if the player took damage during channel time (hacky, but for most purposes should work.)" - (SCRIPT "{ - savepoint \"028-1\", 69, 71; - }") - (warp caster - (@ "028-1.gat" 69 70)) - (sfx - (location caster) - SFX_TELEPORT - 200))))) - (| - (=> - (REQUIRE - (< - (rdistance - (location caster) - (@ "028-1.gat" 69 70)) - 5)) - (EFFECT - (set_script_variable caster "Easter_2010_QuestState" - (| - (script_int caster "Easter_2010_QuestState") - (<< 1 17))) - (sfx - (location caster) - SFX_TELEPORT - 200) - (WAIT 8000) - (SCRIPT "{ - savepoint \"009-1\", 52, 39; - }") - (warp caster - (@ "009-1.gat" 55 37)) - (sfx - (location caster) - SFX_TELEPORT - 200))) - (=> - (GUARD - (REQUIRE - (&& - (!= - (map_nr - (location caster)) - 28) - (== - (& - (>> - (script_int caster "Easter_2010_QuestState") - 17) - 1) - 0))) "Allow for one free warp home without the petal" ) - (EFFECT - (SET inithp - (hp caster)) "Store this value." - (sfx - (location caster) - SFX_TELEPORT - 200) - (IF (|| - (|| - (|| - (== - (map_nr - (location caster)) - 9) - (== - (map_nr - (location caster)) - 1)) - (== - (map_nr - (location caster)) - 21)) - (== - (map_nr - (location caster)) - 20)) - (WAIT 8000) - (WAIT 20000)) - (IF (< - (hp caster) - inithp) - (ABORT)) "Cancel teleport if the player took damage during channel time (hacky, but for most purposes should work.)" - (set_script_variable caster "Easter_2010_QuestState" - (| - (script_int caster "Easter_2010_QuestState") - (<< 1 17))) - (SCRIPT "{ - savepoint \"028-1\", 69, 70; - }") - (warp caster - (@ "028-1.gat" 69 70)) - (sfx - (location caster) - SFX_TELEPORT - 200))))))) - -(SPELL (NONMAGIC SILENT) easter-get-debug "#e" (PC p) - (=> - (GUARD - (REQUIRE - (|| - (== - (name_of caster) - "Freeyorp") - (== - (name_of caster) - "Xakelbael the Dark")))) - (EFFECT - (SCRIPT "{ - message strcharinfo(0), \"Global state egg1: \"+ $Easter_2010_Egg_Loc_State1; - message strcharinfo(0), \"Global state egg2: \"+ $Easter_2010_Egg_Loc_State2; - message strcharinfo(0), \"Global state egg3: \"+ $Easter_2010_Egg_Loc_State3; - message strcharinfo(0), \"Global state egg4: \"+ $Easter_2010_Egg_Loc_State4; - message strcharinfo(0), \"Global state egg5: \"+ $Easter_2010_Egg_Loc_State5; - message strcharinfo(0), \"Global npc state1: \"+ $Easter_2010_Npc_State1; - message strcharinfo(0), \"Global npc state2: \"+ $Easter_2010_Npc_State2; - }") - (message caster - (+ "Local state egg1: " - (script_int p "Easter_2010_EggState1"))) - (message caster - (+ "Local state egg2: " - (script_int p "Easter_2010_EggState2"))) - (message caster - (+ "Local state egg3: " - (script_int p "Easter_2010_EggState3"))) - (message caster - (+ "Local state egg4: " - (script_int p "Easter_2010_EggState4"))) - (message caster - (+ "Local state egg5: " - (script_int p "Easter_2010_EggState5"))) - (message caster - (+ "Local state quest: " - (script_int p "Easter_2010_QuestState")))))) - (PROCEDURE hug_tree (target) (IF (|| (|| |