Added teleport spell

1 files changed, 33 insertions, 4 deletions

diff --git a/conf/magic.conf b/conf/magic.conf
index a46055b5..b56fc1d1 100644
--- a/conf/magic.conf
+++ b/conf/magic.conf
@@ -733,7 +733,7 @@ SPELL hide (target : PC) : "#A13" =
 # Level 2 spells
 #--------------------------------------------------------------------------------
 
-SPELL fire-ball : "#pof" =
+SPELL fire-ball : "#W22" =
       LET level = 2
           school = WAR
       IN (MANA 30, CASTTIME 1000,
@@ -758,7 +758,7 @@ SPELL fire-ball : "#pof" =
                                   CALL elt_damage (target, (damage * 3) / divisor, (damage_bonus * 3) / divisor, ELT_WATER, ELT_FIRE, 15);
                             )
 
-SPELL summon-partner : "#aid" = 
+SPELL summon-partner : "#A23" = 
       LET level = 2
           school = ASTRAL
       IN (MANA 30, CASTTIME 2000,
@@ -790,15 +790,29 @@ SPELL summon-partner : "#aid" =
 # Level 4 spells
 #--------------------------------------------------------------------------------
 
-SPELL shroud : "#aw" = 
+SPELL shroud : "#N40" = 
       LET level = 4
-          school = ASTRAL
+          school = NATURE
       IN (MANA 40, CASTTIME 400,
           REQUIRE skill(caster, MAGIC) > level,
           REQUIRE skill(caster, school) > level)
 	=> EFFECT CALL default_effect();
                   shroud(caster, 0x04);
 
+SPELL teleport (destination : STRING) : "#A40" = 
+      LET level = 4
+          school = ASTRAL
+      IN (MANA 80, CASTTIME 400,
+          # COMPONENT ["EtherEssence"],
+          # CATALYST ["TeleportCrystal"],
+          REQUIRE skill(caster, MAGIC) > level,
+          REQUIRE skill(caster, school) > level)
+	=> EFFECT CALL default_effect();
+                  WAIT (100000 / (spellpower + 10));
+                  sfx(location(caster), SFX_TELEPORT, 1);
+                  warp(caster, random_location(anchor(destination)));
+                  sfx(location(caster), SFX_TELEPORT, 100);
+
 #--------------------------------------------------------------------------------
 # Special-purpose quasispells
 #--------------------------------------------------------------------------------
@@ -949,3 +963,18 @@ NONMAGIC SPELL hug4 (target : STRING) : "*hugs*" = REQUIRE ((rdistance(location(
 NONMAGIC SPELL hug5 (target : STRING) : "*hugs" = REQUIRE ((rdistance(location(caster), location(npc("#DruidTree0#_M"))) <= 1
                                                          || rdistance(location(caster), location(npc("#DruidTree1#_M"))) <= 1))
                                                 => EFFECT CALL hug_tree(target);
+
+
+#--------------------------------------------------------------------------------
+# Teleport anchors
+#--------------------------------------------------------------------------------
+
+TELEPORT-ANCHOR tulimshar : "tulimshar" = @("001-1.gat", 43, 66) @+ (3, 3);
+TELEPORT-ANCHOR hurnscald : "hurnscald" = @("009-1.gat", 55, 37) @+ (3, 3);
+TELEPORT-ANCHOR nivalis : "nivalis" = @("020-1.gat", 75, 63) @+ (19, 12);
+TELEPORT-ANCHOR wizardhut : "##0" = @("013-1.gat", 41, 92) @+ (3, 3);
+TELEPORT-ANCHOR pachua : "##1" = @("006-1.gat", 22, 101) @+ (3, 3);
+TELEPORT-ANCHOR desert : "##2" = @("005-1.gat", 160, 64) @+ (5, 5);
+TELEPORT-ANCHOR forest : "##3" = @("015-1.gat", 35, 35) @+ (40, 40);
+TELEPORT-ANCHOR snakecave : "##4" = @("011-4.gat", 50, 75) @+ (3, 3);
+TELEPORT-ANCHOR dimondscove : "##5" = @("010-2.gat", 23, 79) @+ (3, 3);