Merge self-fork from mekolat/magic-v3

Magic v3 spells

1 files changed, 0 insertions, 1462 deletions

diff --git a/world/map/conf/magic-level2.sex b/world/map/conf/magic-level2.sex
deleted file mode 100644
index e4bd6908..00000000
--- a/world/map/conf/magic-level2.sex
+++ /dev/null
@@ -1,1462 +0,0 @@
-"--------------------------------------------------------------------------------"
-" Level 2 spells                                                                 "
-"--------------------------------------------------------------------------------"
-(SPELL () make-arrows "#kularzufrill" ()
-    (LET level 2)
-    (LET school TRANSMUTE)
-    (=>
-        (GUARD
-            (MANA 8)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "RawLog"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL create_item "Arrow"
-                (+
-                    (+ 1
-                        (/ spellpower 40))
-                    (/
-                        (random
-                            (max 1
-                                (- 800 spellpower)))
-                        80))
-                "WarpedLog"
-                500)
-            (CALL gain_xp 1 11))))
-
-(SPELL () make-shirt "#patmuploo" ()
-    (LET level 2)
-    (LET school TRANSMUTE)
-    (=>
-        (GUARD
-            (MANA 25)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS
-                (5 "CottonCloth")))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL create_item "CottonShirt" 1 "CottonCloth" 425)
-            (CALL gain_xp 2 12))))
-
-(SPELL () make-tanktop "#patloree" ()
-    (LET level 2)
-    (LET school TRANSMUTE)
-    (=>
-        (GUARD
-            (MANA 25)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS
-                (4 "CottonCloth")))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL create_item "TankTop" 1 "CottonCloth" 350)
-            (CALL gain_xp 2 13))))
-
-(SPELL () make-short-tanktop "#patviloree" ()
-    (LET level 2)
-    (LET school TRANSMUTE)
-    (=>
-        (GUARD
-            (MANA 25)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS
-                (3 "CottonCloth")))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL create_item "ShortTankTop" 1 "CottonCloth" 250)
-            (CALL gain_xp 2 14))))
-
-(SPELL () make-iron-powder "#zukminbirf" ()
-    (LET level 2)
-    (LET school TRANSMUTE)
-    (=>
-        (GUARD
-            (MANA 8)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "IronOre"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL create_item "IronPowder"
-                (+
-                    (+ 1
-                        (/ spellpower 140))
-                    (/
-                        (random
-                            (max 1
-                                (- 900 spellpower)))
-                        220))
-                "IronOre"
-                700)
-            (CALL gain_xp 3 15))))
-
-(SPELL () make-concentration-potion "#loshira" ()
-    (LET level 2)
-    (LET school TRANSMUTE)
-    (=>
-        (GUARD
-            (MANA 8)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "BottleOfWater"
-                (2 "CobaltHerb")
-                (2 "PinkPetal")))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL create_item
-                (if_then_else
-                    (<
-                        (random
-                            (+ 2000 experience))
-                        experience)
-                    "ConcentrationPotion"
-                    "DarkConcentrationPotion")
-                1
-                (if_then_else
-                    (random 2)
-                    "DilutedConcentrationPot"
-                    "DarkConcentrationPotion")
-                2000)
-            (IF success
-                (CALL set_var MAGIC_FLAGS 1 MFLAG_MADE_CONC_POTION_SHIFT 1))
-            (CALL gain_xp 4 16))))
-
-(SPELL () merge-concentration-potions "#skrimp" ()
-    (LET level 2)
-    (LET school TRANSMUTE)
-    (=>
-        (GUARD
-            (MANA 8)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "DarkConcentrationPotion" "DilutedConcentrationPot"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL create_item "ConcentrationPotion" 1 "DilutedConcentrationPot" 1000)
-            (message caster
-                (+ "success = " success))
-            (IF success
-                (CALL set_var MAGIC_FLAGS 1 MFLAG_MADE_CONC_POTION_SHIFT 1))
-            (CALL gain_xp 4 17))))
-
-(SPELL () lay-on-hands "#inma" (STRING target)
-    (LET level 2)
-    (LET school LIFE)
-    (=>
-        (GUARD
-            (MANA 10)
-            (CASTTIME 500)
-            (REQUIRE
-                (>
-                    (hp caster)
-                    (/
-                        (max_hp caster)
-                        20)))
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (REQUIRE
-                (if_then_else
-                    (failed
-                        (pc target))
-                    1
-                    (&&
-                        (&&
-                            (&&
-                                (!=
-                                    (pc target)
-                                    caster)
-                                (<
-                                    (rdistance
-                                        (location caster)
-                                        (location
-                                            (pc target)))
-                                    (+ 2
-                                        (/
-                                            (+
-                                                (* 12
-                                                    (sqrt spellpower))
-                                                spellpower)
-                                            100))))
-                            (not
-                                (running_status_update
-                                    (pc target)
-                                    SC_HALT_REGENERATE)))
-                        (not
-                            (is_equipped
-                                (pc target)
-                                "MagicGMTopHat"))))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (IF (not target)
-                (ABORT))
-            (IF (failed
-                    (pc target))
-                (BLOCK
-                    (IF (&&
-                            (||
-                                (== target "mouboo")
-                                (== target "Mouboo"))
-                            (<
-                                (rdistance
-                                    (location caster)
-                                    (location
-                                        (npc "Mouboo")))
-                                (+ 2
-                                    (/ spellpower 100))))
-                        (BLOCK
-                            (SET needed 1000)
-                            (SCRIPT "{
-                                set @spell, 1;
-                                callfunc \"QuestMoubooHeal\";
-                            }"))
-                        (ABORT)))
-                (BLOCK
-                    (SET target
-                        (pc target))
-                    (SET needed
-                        (-
-                            (max_hp target)
-                            (hp target)))))
-            (SET pay_fraction
-                (max 80
-                    (- 200
-                        (+
-                            (vit caster)
-                            (/ spellpower 10))))) "Pay at least 40%"
-            (SET payment
-                (/
-                    (* needed pay_fraction)
-                    200))
-            (SET available
-                (-
-                    (hp caster)
-                    (/
-                        (max_hp caster)
-                        20)))
-            (IF (< payment available)
-                (SET power needed)
-                (BLOCK
-                    (SET payment available)
-                    (SET power
-                        (/
-                            (* available 200)
-                            pay_fraction))))
-            (CALL gain_heal_xp power 1 1 3)
-            (CALL quickheal target power)
-            (SET t 5000) "with dark magic skill you pay 1/20 of max hp but the regenerate cooldown is cut in half"
-            (SET school DARK)
-            (SET h
-                (*
-                    (/
-                        (max_hp caster)
-                        20)
-                    -1))
-            (IF (>=
-                    (skill caster school)
-                    level)
-                (itemheal caster h 0))
-            (IF (>=
-                    (skill caster school)
-                    level)
-                (SET t 10000))
-            (status_change caster SC_HALT_REGENERATE 0 0 0 0 t)
-            (CALL gain_xp
-                (min 4
-                    (/ payment 100))
-                18))))
-
-(SPELL () lightning-strike "#ingrav" ()
-    (LET level 2)
-    (LET school WAR)
-    (=>
-        (GUARD
-            (MANA 20)
-            (CASTTIME 1000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>=
-                            (skill caster school) "The spell is free at magic lv 4"
-                            4))
-                    (COMPONENTS "IronPowder"))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (SET damage spellpower)
-            (SET damage_bonus
-                (+ 1
-                    (/ spellpower 2)))
-            (CALL install_attack_spell
-                (+ 1
-                    (/ spellpower 90))
-                3000
-                8
-                31)
-            (CALL gain_xp 2 19)
-            (ATTRIGGER
-                (CALL attack_check target)
-                (SET in_rain 0)
-                (SET area
-                    (location caster))
-                (FOREACH SPELL s (rbox
-                        (location caster)
-                        (+ MAX_RAIN_SPELL_RADIUS 1)) (IF (==
-                            (name_of s)
-                            "rain")
-                        (BLOCK
-                            (IF (is_in
-                                    (location caster)
-                                    (. s area))
-                                (BLOCK
-                                    (SET in_rain
-                                        (| in_rain 1))
-                                    (SET area
-                                        (+ area
-                                            (. s area)))))
-                            (IF (is_in
-                                    (location target)
-                                    (. s area))
-                                (SET in_rain
-                                    (| in_rain 2))))))
-                (IF (& in_rain 1)
-                    (BLOCK "caster standing in the rain?  This is going to be fun."
-                        (SET used 0)
-                        (FOREACH TARGET t area
-                            (IF (>
-                                    (+
-                                        (random 200)
-                                        (luk caster))
-                                    175)
-                                (BLOCK
-                                    (SET used
-                                        (+ used 1))
-                                    (CALL elt_damage t
-                                        (/ damage 6)
-                                        (+ 1
-                                            (/ damage_bonus 3))
-                                        ELT_EARTH
-                                        ELT_WIND
-                                        (+ 17
-                                            (random 3))))))
-                        (IF (||
-                                (not used)
-                                (<
-                                    (+
-                                        (random 200)
-                                        (luk caster))
-                                    150))
-                            (BLOCK
-                                (sfx caster
-                                    (+ 17
-                                        (random 3))
-                                    0)
-                                (itemheal caster
-                                    (-
-                                        (- 0 damage)
-                                        (random damage_bonus))
-                                    0))))
-                    (CALL elt_damage target damage damage_bonus ELT_EARTH ELT_WIND
-                        (+ 17
-                            (random 3))))))))
-
-(SPELL (LOCAL) arrow-hail "#frillyar" ()
-    (LET level 2)
-    (LET school WAR)
-    (=>
-        (GUARD
-            (MANA 25)
-            (CASTTIME 5000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (REQUIRE
-                (is_exterior
-                    (location caster)))
-            (GUARD
-                (OR
-                    (COMPONENTS
-                        (20 "Arrow"))
-                    (COMPONENTS
-                        (20 "IronArrow"))))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>
-                            (skill caster school)
-                            3))
-                    (COMPONENTS "SulphurPowder"))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL abort_on_area_shield
-                (location caster))
-            (SET range 7)
-            (SET area
-                (rbox
-                    (awayfrom
-                        (location caster)
-                        (dir caster)
-                        (+ 1 range))
-                    range))
-            (FOREACH SPELL s (rbox
-                    (awayfrom
-                        (location caster)
-                        (dir caster)
-                        (+ 1 range))
-                    (* range 2)) (IF (&&
-                        (!= s self_invocation)
-                        (==
-                            (name_of s)
-                            "arrow-hail"))
-                    (BLOCK
-                        (message caster "A nearby arrow hail spell absorbs your magic!")
-                        (ABORT))))
-            (SET damage 125)
-            (SET damage_bonus
-                (/ spellpower 5))
-            (CALL gain_xp 2 20)
-            (FOR i 0
-                (/ spellpower 8)
-                (BLOCK
-                    (IF (not (pc caster))
-                        (ABORT))
-                    (FOR j 0 2
-                        (BLOCK
-                            (IF (not (pc caster))
-                                (ABORT))
-                            (SET location
-                                (random_location area))
-                            (sfx location SFX_ARROW_HAIL 0)
-                            (SET done 0)
-                            (FOREACH TARGET target
-                                (rbox location 0)
-                                (BLOCK
-                                    (injure caster target
-                                        (+
-                                            (+ damage
-                                                (random damage_bonus))
-                                            (random damage_bonus))
-                                        0)
-                                    (SET done 1)
-                                    (BREAK)))
-                            (IF (&&
-                                    (==
-                                        (location caster)
-                                        location)
-                                    (not done))
-                                (BLOCK
-                                    (itemheal caster
-                                        (- 0
-                                            (+
-                                                (+ damage
-                                                    (random damage_bonus))
-                                                (random damage_bonus)))
-                                        0)
-                                    (sfx caster SFX_HIT 0)))))
-                    (WAIT
-                        (+
-                            (+ 250
-                                (random 50))
-                            (random 50))))))))
-
-(SPELL () magic-knuckles "#upmarmu" ()
-    (LET level 2)
-    (LET school WAR)
-    (=>
-        (GUARD
-            (MANA 20)
-            (CASTTIME 500)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>
-                            (skill caster school)
-                            3))
-                    (COMPONENTS "Beer"))))
-        (EFFECT
-            (CALL adjust_spellpower WAR)
-            (SET str
-                (str caster))
-            (CALL install_melee_spell
-                (+ 10
-                    (/ spellpower 10))
-                1300
-                34)
-            (ATTRIGGER
-                (CALL melee_damage target 30
-                    (+ 5
-                        (* str 2)))))))
-
-(SPELL (LOCAL) summon-snakes "#halhiss" ()
-    (LET level 2)
-    (LET school DARK)
-    (=>
-        (GUARD
-            (MANA 40)
-            (CASTTIME 15000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (REQUIRE
-                (>
-                    (script_int caster "OrumQuest")
-                    40))
-            (COMPONENTS "DarkCrystal" "SnakeEgg"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL gain_xp 3 31)
-            (CALL summon_spell 1010
-                (+ 1
-                    (/ spellpower 300))
-                (- 4000
-                    (* spellpower 9))
-                (* spellpower 80)
-                2
-                school))))
-
-(SPELL () toxic-dart "#phlex" ()
-    (LET level 2)
-    (LET school DARK)
-    (=>
-        (GUARD
-            (MANA 15)
-            (CASTTIME 500)
-            (REQUIRE
-                (>
-                    (script_int caster "OrumQuest")
-                    37))
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>=
-                            (skill caster school)
-                            3))
-                    (COMPONENTS
-                        (2 "Root")))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (SET damage
-                (* 5
-                    (sqrt spellpower)))
-            (SET damage_bonus
-                (+ 5
-                    (/
-                        (level caster)
-                        3)))
-            (CALL install_attack_spell
-                (+ 3
-                    (/ spellpower 75))
-                1200
-                4
-                31)
-            (CALL gain_xp 3 35)
-            (ATTRIGGER
-                (CALL attack_check target)
-                (CALL elt_damage target damage damage_bonus ELT_NEUTRAL ELT_POISON 15)
-                (IF (&&
-                        (is_pc target)
-                        (!= caster target))
-                    (status_change target SC_POISON
-                        (+ 5
-                            (max 15
-                                (/ spellpower 15)))
-                        0
-                        0
-                        0
-                        (+ 5000
-                            (* spellpower 1200))))))))
-
-(SPELL (LOCAL) summon-wickedmushroom "#helorp" ()
-    (LET level 2)
-    (LET school DARK)
-    (=>
-        (GUARD
-            (MANA 35)
-            (CASTTIME 15000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>
-                    (script_int caster "OrumQuest")
-                    36))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "SmallMushroom" "DarkCrystal"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL gain_xp 3 36)
-            (CALL summon_spell 1106
-                (+ 1
-                    (/ spellpower 250))
-                (- 4000
-                    (* spellpower 9))
-                (* spellpower 80)
-                2
-                school))))
-
-(SPELL () flying-backpack "#plugh" (PC target)
-    (LET level 2)
-    (LET school NATURE)
-    (=>
-        (GUARD
-            (MANA 12)
-            (CASTTIME 1000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>
-                            (skill caster school)
-                            3))
-                    (COMPONENTS "SilkCocoon")))
-            (REQUIRE
-                (<
-                    (rdistance
-                        (location target)
-                        (location caster))
-                    (+ 2
-                        (/ spellpower 30)))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (IF (!= caster target)
-                (sfx caster 2 0))
-            (status_change target SC_FLYING_BACKPACK 0 0 0 0
-                (+ 5000
-                    (* spellpower 500)))
-            (message target "Your backpack is lifted by a mystical force; you no longer feel it pressing on your back.")
-            (CALL gain_xp 1 21)
-            (ATEND
-                (message target "Your backpack is no longer levitating.")
-                (sfx target 2 0)))))
-
-(SPELL () protect "#betsanc" (PC target)
-    (LET level 2)
-    (LET school NATURE)
-    (=>
-        (GUARD
-            (MANA 14)
-            (CASTTIME 1500)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (REQUIRE
-                (not
-                    (is_equipped
-                        (pc target)
-                        "MagicGMTopHat")))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>=
-                            (skill caster school)
-                            4))
-                    (COMPONENTS "HardSpike")))
-            (REQUIRE
-                (<
-                    (rdistance
-                        (location target)
-                        (location caster))
-                    (+ 2
-                        (/ spellpower 30)))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (sfx target 11 0)
-            (IF (!= caster target)
-                (CALL default_effect))
-            (status_change target SC_PHYS_SHIELD
-                (+ 5
-                    (max 15
-                        (/ spellpower 20)))
-                0
-                0
-                0
-                (+ 5000
-                    (* spellpower 1000)))
-            (message target "You feel more protected.")
-            (CALL gain_xp 2 22)
-            (ATEND
-                (message target "You feel less protected.")
-                (sfx target 111 0)))))
-
-(SPELL () happy-curse "#joyplim" (PC target)
-    (LET level 2)
-    (LET school NATURE)
-    (=>
-        (GUARD
-            (MANA 13)
-            (CASTTIME 1000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>
-                            (skill caster school)
-                            3))
-                    (COMPONENTS "GingerBreadMan")))
-            (REQUIRE
-                (<
-                    (rdistance
-                        (location target)
-                        (location caster))
-                    (+ 1
-                        (/ spellpower 100)))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (IF (>
-                    (skill caster DARK)
-                    1)
-                (FOR i 0
-                    (/ spellpower 10)
-                    (BLOCK
-                        (emote target 5)
-                        (WAIT 500)))
-                (FOR i 0
-                    (/ spellpower 10)
-                    (BLOCK
-                        (emote target 3)
-                        (WAIT 500))))
-            (CALL gain_xp 1 23))))
-
-(SPELL (LOCAL) rain "#kaflosh" ()
-    (LET level 2)
-    (LET school NATURE)
-    (=>
-        (GUARD
-            (MANA 17)
-            (CASTTIME 3000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (REQUIRE
-                (is_exterior
-                    (location caster)))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>=
-                            (skill caster school)
-                            4))
-                    (COMPONENTS "BottleOfWater"))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL abort_on_area_shield
-                (location caster))
-            (FOREACH SPELL s (rbox
-                    (location caster)
-                    (+ MAX_RAIN_SPELL_RADIUS 1)) (IF (&&
-                        (!= s self_invocation)
-                        (==
-                            (name_of s)
-                            "rain"))
-                    (BLOCK
-                        (message caster "A nearby raincloud absorbs your magic.")
-                        (ABORT))))
-            (CALL gain_xp 1 24)
-            (SET range
-                (min MAX_RAIN_SPELL_RADIUS
-                    (+ 3
-                        (/
-                            (min spellpower 200)
-                            30))))
-            (SET area
-                (rbox
-                    (location caster)
-                    range))
-            (IF (||
-                    (is_in
-                        (location
-                            (npc "#DruidTree0#_M"))
-                        area)
-                    (is_in
-                        (location
-                            (npc "#DruidTree1#_M"))
-                        area))
-                (SCRIPT "{
-                    set @flag, 1;
-                    callfunc \"QuestTreeTrigger\";
-                    close;
-                }"))
-            (IF (is_in
-                    (location caster)
-                    (@+
-                        (@ "011-1" 94 38)
-                        9
-                        7))
-                (SCRIPT "{
-                    callfunc \"HalloweenQuestWaterPumpkins\";
-                }")) "Halloween quest"
-            (FOR i 0
-                (/ spellpower 3)
-                (BLOCK
-                    (IF (not (pc caster))
-                        (ABORT))
-                    (FOR j 0
-                        (/
-                            (min
-                                (/ spellpower 2)
-                                200)
-                            100)
-                        (BLOCK
-                            (IF (not (pc caster))
-                                (ABORT))
-                            (SET location
-                                (random_location area))
-                            (sfx location SFX_RAIN 0)
-                            (FOREACH TARGET target
-                                (rbox location 1)
-                                (IF (==
-                                        (element target)
-                                        ELT_FIRE)
-                                    (injure caster target
-                                        (+ 2
-                                            (random
-                                                (+ 5
-                                                    (/ spellpower 15))))
-                                        0)))))
-                    (WAIT
-                        (+ 400
-                            (random 100))))))))
-
-(PROCEDURE shear-drop (target target2 item prob)
-    (IF (||
-            (== target name)
-            (== target2 name))
-        (BLOCK
-            (IF (< score prob)
-                (drop_item_for place item 1 60000 caster 5000)))))
-
-(PROCEDURE shear-drop2 (target target2 item prob item2 prob2)
-    (IF (||
-            (== target name)
-            (== target2 name))
-        (BLOCK
-            (IF (< score prob)
-                (drop_item_for place item 1 60000 caster 5000)
-                (CALL shear-drop target target2 item2
-                    (+ prob2 prob))))))
-
-(PROCEDURE shear-drop3 (target target2 item prob item2 prob2 item3 prob3)
-    (IF (||
-            (== target name)
-            (== target2 name))
-        (BLOCK
-            (IF (< score prob)
-                (drop_item_for place item 1 60000 caster 5000)
-                (CALL shear-drop2 target target2 item2
-                    (+ prob2 prob)
-                    item3
-                    (+ prob3 prob))))))
-
-(SPELL () shear "#chipchip" ()
-    (LET level 2)
-    (LET school NATURE)
-    (=>
-        (GUARD
-            (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))
-                    (BLOCK
-                        (SET score
-                            (random
-                                (- 1000
-                                    (random spellpower)))) "lower score -> more valuable item"
-                        (SET name
-                            (name_of target))
-                        (SET place
-                            (random_location
-                                (rbox
-                                    (location target)
-                                    1)))
-                        (IF (running_status_update target SC_SHEARED)
-                            (ABORT))
-                        (status_change target SC_SHEARED 0 0 0 0 600000) "10 minutes"
-                        (CALL shear-drop "Fluffy" "Fluffy" "WhiteFur" 300)
-                        (CALL shear-drop "EasterFluffy" "Easter Fluffy" "WhiteFur" 300)
-                        (CALL shear-drop "SpikyMushroom" "Spiky Mushroom" "HardSpike" 250)
-                        (CALL shear-drop "Mouboo" "Mouboo" "CottonCloth" 175)
-                        (CALL shear-drop "Cobalt" "CobaltPlant" "CobaltHerb" 700)
-                        (CALL shear-drop "Alizarin" "AlizarinPlant" "AlizarinHerb" 700)
-                        (CALL shear-drop "Gamboge" "GambogePlant" "GambogeHerb" 700)
-                        (CALL shear-drop "Mauve" "MauvePlant" "MauveHerb" 700)
-                        (CALL shear-drop "SilkWorm" "Silkworm" "SilkCocoon" 300)
-                        (CALL shear-drop "Pinkie" "Pinkie" "PinkAntenna" 180)
-                        (IF (&&
-                                (||
-                                    (||
-                                        (== name "Fluffy")
-                                        (== name "Mouboo"))
-                                    (== name "Pinkie"))
-                                (random 2))
-                            (SCRIPT "{
-                                set @value, 1;
-                                callfunc \"QuestSagathaHappy\";
-                            }"))))))))
-
-(SPELL () barrier "#asorm" (PC target)
-    (LET level 2)
-    (LET school ASTRAL)
-    (=>
-        (GUARD
-            (MANA 16)
-            (CASTTIME 1000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (REQUIRE
-                (not
-                    (is_equipped
-                        (pc target)
-                        "MagicGMTopHat")))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>
-                            (skill caster school)
-                            3))
-                    (COMPONENTS "SmallMushroom")))
-            (REQUIRE
-                (<
-                    (rdistance
-                        (location target)
-                        (location caster))
-                    (+ 2
-                        (/ spellpower 30)))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (sfx target SFX_BARRIER 0)
-            (IF (!= caster target)
-                (CALL default_effect))
-            (status_change target SC_MBARRIER
-                (+ 20
-                    (max 30
-                        (/ spellpower 8)))
-                0
-                0
-                0
-                (+ 2000
-                    (* spellpower 200)))
-            (message target "You are surrounded by a magical barrier.")
-            (CALL gain_xp 3 25)
-            (ATEND
-                (message target "Your magical barrier dissipates.")
-                (sfx target SFX_UNBARRIER 0)))))
-
-(SPELL (LOCAL) summon-spiky-mushrooms "#kalrenk" ()
-    (LET level 2)
-    (LET school ASTRAL)
-    (=>
-        (GUARD
-            (MANA 33)
-            (CASTTIME 20000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "HardSpike" "Root"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL gain_xp 1 26)
-            (CALL summon_spell 1019
-                (+ 1
-                    (/ spellpower 120))
-                (- 5000
-                    (* spellpower 9))
-                (* spellpower 400)
-                2
-                school))))
-
-(SPELL (LOCAL) summon-fluffies "#kalakarenk" ()
-    (LET level 2)
-    (LET school ASTRAL)
-    (=>
-        (GUARD
-            (MANA 39)
-            (CASTTIME 20000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "WhiteFur" "Root"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL gain_xp 1 27)
-            (CALL summon_spell 1020
-                (+
-                    (+ 1
-                        (/ spellpower 170))
-                    (/ spellpower 430))
-                (- 5000
-                    (* spellpower 8))
-                (* spellpower 350)
-                2
-                school))))
-
-(SPELL (LOCAL) summon-mouboo "#kalboo" ()
-    (LET level 2)
-    (LET school ASTRAL)
-    (=>
-        (GUARD
-            (MANA 35)
-            (CASTTIME 20000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "MoubooFigurine" "Root"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL gain_xp 2 37)
-            (CALL summon_spell 1028
-                (+ 1
-                    (/ spellpower 270))
-                (- 4000
-                    (* spellpower 9))
-                (* spellpower 100)
-                2
-                school))))
-
-(SPELL (LOCAL) summon-pinkie "#kalgina" ()
-    (LET level 2)
-    (LET school ASTRAL)
-    (=>
-        (GUARD
-            (MANA 35)
-            (CASTTIME 20000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (COMPONENTS "PinkAntenna" "Root"))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (CALL gain_xp 2 38)
-            (CALL summon_spell 1018
-                (+ 1
-                    (/ spellpower 120))
-                (- 5000
-                    (* spellpower 9))
-                (* spellpower 150)
-                2
-                school))))
-
-(SPELL () detect-players "#inwilt" ()
-    (LET level 2)
-    (LET school MAGIC)
-    (=>
-        (GUARD
-            (MANA 7)
-            (CASTTIME 300)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level)))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (SET message "")
-            (FOREACH PC target
-                (rbox
-                    (location caster)
-                    (/ spellpower 2))
-                (IF (&&
-                        (&&
-                            (!= target caster)
-                            (not
-                                (running_status_update
-                                    (pc target)
-                                    SC_HIDE)))
-                        (not
-                            (status_option target SO_GMINVISIBLE)))
-                    (BLOCK
-                        (IF (!= message "")
-                            (SET message
-                                (+ message ", ")))
-                        (SET message
-                            (+ message
-                                (name_of target)))
-                        (IF (> spellpower 99)
-                            (SET message
-                                (+
-                                    (+
-                                        (+ message "(")
-                                        (level target))
-                                    ")"))))))
-            (IF (== message "")
-                (message caster "You sense no-one else nearby.")
-                (message caster
-                    (+ "You sense the following: " message))))))
-
-(SPELL () enchant-lifestone "#manpahil" ()
-    (LET level 2)
-    (LET school MAGIC)
-    (=>
-        (GUARD
-            (MANA 15)
-            (CASTTIME 4000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (GUARD
-                (OR
-                    (OR
-                        (COMPONENTS "BugLeg")
-                        (COMPONENTS "MaggotSlime"))
-                    (COMPONENTS "MauveHerb" "AlizarinHerb" "CobaltHerb" "GambogeHerb"))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (create_item caster "Lifestone" 1)
-            (CALL gain_xp 1 28))))
-
-(SPELL () sense-spouse "#inzuwilt" ()
-    (LET level 2)
-    (LET school MAGIC)
-    (=>
-        (GUARD
-            (MANA 7)
-            (CASTTIME 400)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (REQUIRE
-                (is_married caster))
-            (REQUIRE
-                (is_equipped caster "WeddingRing")))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (CALL default_effect)
-            (IF (||
-                    (failed
-                        (partner caster))
-                    (not
-                        (is_equipped
-                            (partner caster)
-                            "WeddingRing")))
-                (BLOCK
-                    (message caster "You cannot sense your partner.")
-                    (ABORT)))
-            (SET partner
-                (partner caster))
-            (SET name
-                (name_of partner))
-            (IF (||
-                    (is_dead partner)
-                    (!=
-                        (map_nr
-                            (location partner))
-                        (map_nr
-                            (location caster))))
-                (BLOCK
-                    (message caster
-                        (+
-                            (+ "You cannot sense " name)
-                            " nearby."))
-                    (ABORT)))
-            (IF (&&
-                    (>
-                        (map_level
-                            (location partner))
-                        2)
-                    (<
-                        (map_level
-                            (location caster))
-                        (map_level
-                            (location partner))))
-                (BLOCK
-                    (message caster
-                        (+
-                            (+ "You sense " name)
-                            " somewhere below."))
-                    (ABORT)))
-            (IF (&&
-                    (>
-                        (map_level
-                            (location caster))
-                        2)
-                    (<
-                        (map_level
-                            (location partner))
-                        (map_level
-                            (location caster))))
-                (BLOCK
-                    (message caster
-                        (+
-                            (+ "You sense " name)
-                            " somewhere above."))
-                    (ABORT)))
-            (IF (!=
-                    (map_level
-                        (location caster))
-                    (map_level
-                        (location partner)))
-                (message caster
-                    (+
-                        (+ "You sense " name)
-                        " somewhere in the vincinity."))
-                (BLOCK
-                    (SET distance
-                        (rdistance
-                            (location caster)
-                            (location partner)))
-                    (SET dir
-                        (dir_towards
-                            (location caster)
-                            (location partner)
-                            1))
-                    (IF (< distance 3)
-                        (message caster
-                            (+
-                                (+ "You sense " name)
-                                " right next to you."))
-                        (IF (< distance 30)
-                            (message caster
-                                (+
-                                    (+
-                                        (+
-                                            (+ "You sense " name)
-                                            " close by, towards the ")
-                                        dir)
-                                    "."))
-                            (IF (< distance 200)
-                                (message caster
-                                    (+
-                                        (+
-                                            (+
-                                                (+ "You sense " name)
-                                                " nearby, towards the ")
-                                            dir)
-                                        "."))
-                                (message caster
-                                    (+
-                                        (+
-                                            (+
-                                                (+ "You sense " name)
-                                                " in the ")
-                                            dir)
-                                        "."))))))))))
-
-(SPELL () hide "#anwiltyp" (PC target)
-    (LET level 2)
-    (LET school ASTRAL)
-    (=>
-        (GUARD
-            (MANA 11)
-            (CASTTIME 1000)
-            (REQUIRE
-                (>=
-                    (skill caster MAGIC)
-                    level))
-            (REQUIRE
-                (>=
-                    (skill caster school)
-                    level))
-            (GUARD
-                (OR
-                    (REQUIRE
-                        (>
-                            (skill caster school)
-                            3))
-                    (COMPONENTS "CottonCloth")))
-            (REQUIRE
-                (<
-                    (rdistance
-                        (location target)
-                        (location caster))
-                    (+ 2
-                        (/ spellpower 30)))))
-        (EFFECT
-            (CALL adjust_spellpower school)
-            (sfx target SFX_DEFAULT 0)
-            (IF (!= caster target)
-                (CALL default_effect))
-            (status_change target SC_HIDE 0 0 0 0
-                (+ 5000
-                    (* spellpower 2500)))
-            (CALL gain_xp 2 29)
-            (message target "You are hidden!")
-            (IF (!= caster target)
-                (message caster "You hid someone!"))
-            (ATEND
-                (message target "You are no longer hidden.")))))