Split magic files

1 files changed, 337 insertions, 0 deletions

diff --git a/world/map/conf/magic-procedures.sex b/world/map/conf/magic-procedures.sex
new file mode 100644
index 00000000..2a8258cb
--- /dev/null
+++ b/world/map/conf/magic-procedures.sex
@@ -0,0 +1,337 @@
+"Default sfx on caster"
+(PROCEDURE default_effect ()
+    (sfx caster
+        (+
+            (- school MAGIC)
+            2)
+        0))
+
+(PROCEDURE sfx_generic (target)
+    (sfx target SFX_DEFAULT 0))
+
+(PROCEDURE sfx_lightning (target)
+    (sfx target SFX_LIGHTNING 0))
+
+(PROCEDURE set_var (name mask shift value)
+    (set_script_variable caster name
+        (|
+            (&
+                (script_int caster name)
+                (neg
+                    (<< mask shift)))
+            (<<
+                (& value mask)
+                shift))))
+
+"value is How many HP we healed"
+"gain is how many life magic experience points we can potentially gain"
+"heal_xp_value_divisor is 1 for instaheal, 2 for slow heal"
+"base_exp_factor is the factor for how many base experience points (max) the player should be allowed to gain"
+(PROCEDURE gain_heal_xp (value gain heal_xp_value_divisor base_exp_factor)
+    (SET last_heal_xp
+        (&
+            (>>
+                (script_int caster SCRIPT_XP)
+                SCRIPT_HEALSPELL_SHIFT)
+            SCRIPT_HEALSPELL_MASK))
+    (IF (&&
+            (!= target caster)
+            (>
+                (/ value heal_xp_value_divisor)
+                (+
+                    (+
+                        (+ 10 last_heal_xp)
+                        (random
+                            (+ last_heal_xp 1)))
+                    (random
+                        (+ last_heal_xp 1)))))
+        (BLOCK
+            (SET heal_xp
+                (+ last_heal_xp gain))
+            (IF (> heal_xp SCRIPT_HEALSPELL_MASK)
+                (SET heal_xp SCRIPT_HEALSPELL_MASK))
+            (CALL set_var SCRIPT_XP SCRIPT_HEALSPELL_MASK SCRIPT_HEALSPELL_SHIFT heal_xp)))
+    (IF (!= target caster)
+        (gain_experience caster
+            (* base_exp_factor
+                (extract_healer_experience target value))
+            0
+            1)))
+
+(PROCEDURE gain_xp (gain index)
+    "Level 4 and 5 magic users don't gain anything from spell levels 0 resp. 0+1"
+    (IF (>
+            (+ level 3)
+            (skill caster MAGIC))
+        (BLOCK
+            (SET last_index
+                (&
+                    (>>
+                        (script_int caster SCRIPT_XP)
+                        SCRIPT_LASTSPELL_SHIFT)
+                    SCRIPT_LASTSPELL_MASK))
+            (SET last_xp
+                (&
+                    (>>
+                        (script_int caster SCRIPT_XP)
+                        SCRIPT_XP_SHIFT)
+                    SCRIPT_XP_MASK))
+            (IF (!= index last_index)
+                (BLOCK "Some variation observed"
+                    (SET xp
+                        (+ last_xp gain))
+                    (IF (> xp SCRIPT_XP_MASK)
+                        (SET xp SCRIPT_XP_MASK))
+                    (CALL set_var SCRIPT_XP SCRIPT_XP_MASK SCRIPT_XP_SHIFT xp)
+                    (CALL set_var SCRIPT_XP SCRIPT_LASTSPELL_MASK SCRIPT_LASTSPELL_SHIFT index)
+                    (IF DEBUG
+                        (message caster
+                            (+ "Spell xp = " xp))))
+                (IF DEBUG
+                    (message caster
+                        (+ "Re-cast same spell, xp remain at " last_xp)))))))
+
+(PROCEDURE create_item (good_item count bad_item difficulty)
+    (SET success 1)
+    (SET score
+        (+ experience
+            (random
+                (min spellpower
+                    (+
+                        (/ experience 3)
+                        1)))))
+    (IF (>= score difficulty)
+        (create_item caster good_item count)
+        (BLOCK
+            (SET success 0)
+            (SET score
+                (+
+                    (+ score
+                        (random
+                            (luk caster)))
+                    (random
+                        (luk caster))))
+            (IF (< score
+                    (/ difficulty 3))
+                (BLOCK
+                    (message caster "Your spell backfires!")
+                    (IF (<
+                            (random 110)
+                            (luk caster))
+                        (itemheal caster
+                            (- 0
+                                (*
+                                    (*
+                                        (+ level 1)
+                                        (+ level 2))
+                                    (+ 3
+                                        (random 28))))
+                            0)
+                        (itemheal caster
+                            (- 0
+                                (+ level 1))
+                            0)))
+                (IF (< score
+                        (/
+                            (* difficulty 2)
+                            3))
+                    (BLOCK
+                        (IF (==
+                                (random 5)
+                                0)
+                            (BLOCK
+                                (message caster "Your spell solidifies into the shape of a mysterious object!")
+                                (create_item caster "Iten" 1))
+                            (message caster "Your spell escapes!")))
+                    (BLOCK
+                        (message caster "Your spell takes on a mind of its own!")
+                        (IF (==
+                                (random 3)
+                                0)
+                            (create_item caster bad_item 1))))))))
+
+"Increase spellpower by school and general magic skill"
+(PROCEDURE adjust_spellpower (school)
+    (SET experience
+        (&
+            (>>
+                (script_int caster SCRIPT_XP)
+                SCRIPT_XP_SHIFT)
+            SCRIPT_XP_MASK))
+    (SET spellpower
+        (+ spellpower
+            (*
+                (+
+                    (skill caster MAGIC)
+                    (skill caster school))
+                10)))
+    "Below, we adjust by special items"
+    (IF (&&
+            (not
+                (failed target))
+            (||
+                (== school LIFE)
+                (== school NATURE)))
+        (IF target
+            (IF (==
+                    (pc target)
+                    (partner caster))
+                (BLOCK
+                    (SET spellpower
+                        (+ spellpower 200))
+                    (IF (is_equipped caster "WeddingRing")
+                        (SET spellpower
+                            (+ spellpower 50)))
+                    (IF (is_equipped
+                            (pc target)
+                            "WeddingRing")
+                        (SET spellpower
+                            (+ spellpower 50))))))))
+
+(PROCEDURE heal (target max_heal)
+    (CALL default_effect)
+    (IF (!= caster target)
+        (sfx target SFX_HEAL 0))
+    (SET power
+        (+ spellpower
+            (vit caster)))
+    (SET power
+        (min max_heal
+            (/
+                (* max_heal power)
+                250)))
+    (itemheal target power 0))
+
+"Goes through instaheal instead of itemheal"
+(PROCEDURE quickheal (target power)
+    (CALL default_effect)
+    (IF (!= caster target)
+        (sfx target SFX_HEAL 0))
+    (instaheal target power 0))
+
+"Can attack the target? Imports attack_range from dynamic environment"
+(PROCEDURE attack_check (target)
+    (IF (not
+            (line_of_sight
+                (location caster)
+                (location target)))
+        (ABORT))
+    (IF (not
+            (<=
+                (rdistance
+                    (location caster)
+                    (location target))
+                attack_range))
+        (ABORT)))
+
+"Cause elemental damage.  bonus_elt grants an attack bonus, malus_elt reduces the attack. `effect' is the sfx ID."
+(PROCEDURE elt_damage (target damage dmgplus bonus_elt malus_elt effect)
+    (SET d
+        (+ damage
+            (random dmgplus)))
+    (IF (==
+            (element target)
+            malus_elt)
+        (SET d
+            (/ d 3)))
+    (IF (==
+            (element target)
+            bonus_elt)
+        (SET d
+            (/
+                (* d
+                    (+ 4
+                        (element_level target)))
+                4)))
+    (sfx target effect 0)
+    (injure caster target d 0))
+
+(PROCEDURE melee_damage (target damage dmgplus)
+    (CALL attack_check target)
+    (SET d
+        (+ damage
+            (random dmgplus)))
+    (SET evade
+        (+
+            (level target)
+            (mdef target)))
+    (IF (<
+            (- spellpower
+                (random 100))
+            evade)
+        (SET d 0))
+    (injure caster target d 0))
+
+(PROCEDURE install_attack_spell (charges base_delay range attack_animation)
+    (CALL default_effect)
+    (SET attack_range range)
+    (override_attack caster charges
+        (/
+            (*
+                (- 200
+                    (agi caster))
+                base_delay)
+            200)
+        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))
+
+(PROCEDURE summon_spell (mob_id count delay lifetime control_level)
+    (CALL default_effect)
+    (sfx location SFX_SUMMON_START 0)
+    (WAIT delay)
+    (sfx location SFX_SUMMON_FIRE 0)
+    (spawn
+        (rbox location 2)
+        caster
+        mob_id
+        (if_then_else
+            (>=
+                (skill caster ASTRAL)
+                control_level)
+            2
+            1)
+        count
+        lifetime)) "pets when level is high enough"
+
+(PROCEDURE summon_dark_spell (mob_id count delay lifetime control_level)
+    (CALL default_effect)
+    (sfx location SFX_SUMMON_START 0)
+    (WAIT delay)
+    (sfx location SFX_SUMMON_FIRE 0)
+    (spawn
+        (rbox location 2)
+        caster
+        mob_id
+        (if_then_else
+            (>=
+                (skill caster DARK)
+                control_level)
+            2
+            1)
+        count
+        lifetime)) "pets when level is high enough"
+
+(PROCEDURE abort_on_area_shield (pos)
+    (IF (&&
+            (==
+                (is_exterior pos)
+                1)
+            (||
+                (||
+                    (==
+                        (map_nr pos)
+                        1)
+                    (==
+                        (map_nr pos)
+                        9))
+                (==
+                    (map_nr pos)
+                    20)))
+        (BLOCK "1 is Tulimshar, 9 is Hurnscald and 20 is Nivalis"
+            (message caster "A powerful magic drains your spell just as it is beginning to take shape!")
+            (ABORT))))