Remove all Legacy files

21 files changed, 0 insertions, 610 deletions

diff --git a/world/map/npc/items/brawling_item.txt b/world/map/npc/items/brawling_item.txt
deleted file mode 100644
index 097de378..00000000
--- a/world/map/npc/items/brawling_item.txt
+++ /dev/null
@@ -1,23 +0,0 @@
-// Items which can only be used while unarmed
-// Variables passed to this script:
-//  @slotId The slot in which the item would have been equipped in. This is passed automagically when called in an equip script.
-
-function|script|BrawlingItem
-{
-    if (getequipid(equip_hand1) == -1)
-        goto L_Return;
-
-    message strcharinfo(0), "This item's curse does not allow it to be used with weapons equipped.";
-
-    // This is for debug
-    if (getgmlevel() >= 60)
-        bonus bAgi, -7;
-    if (getgmlevel() >= 60)
-        goto L_Return;
-
-    callfunc "UnequipLater";
-    goto L_Return;
-
-L_Return:
-    return;
-}
diff --git a/world/map/npc/items/check_wand.txt b/world/map/npc/items/check_wand.txt
deleted file mode 100644
index 93993c53..00000000
--- a/world/map/npc/items/check_wand.txt
+++ /dev/null
@@ -1,2 +0,0 @@
-// Wands
-// Author: Wushin
diff --git a/world/map/npc/items/drugs.txt b/world/map/npc/items/drugs.txt
deleted file mode 100644
index 9c724872..00000000
--- a/world/map/npc/items/drugs.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-// ------------------------------------------------------------
-// Added as a joke but could be used seriously.
-// ------------------------------------------------------------
-
-function|script|DrugItem
-{
-    if (strcharinfo(0) == "kytty") goto L_kytty;
-    //message strcharinfo(0), "TMW does not endorse nor condone with the use of this item in real life, nor with its implications.";
-    goto L_Return;
-
-L_kytty:
-    message strcharinfo(0), "Stop smoking, kytty! %%e";
-    goto L_Return;
-
-L_Return:
-    return;
-}
diff --git a/world/map/npc/items/launcher_ammo.txt b/world/map/npc/items/launcher_ammo.txt
deleted file mode 100644
index 1582f8a4..00000000
--- a/world/map/npc/items/launcher_ammo.txt
+++ /dev/null
@@ -1,33 +0,0 @@
-// ------------------------------------------------------------
-// Ammo Needs to know Launcher and vice versa.
-//
-// Behavior:
-//  - If only one is equipped, do nothing
-//  - If incompatible launcher and ammo are equipped, unequip the ammo
-//
-// Variables passed to these scripts:
-//
-// @LauncherType, @AmmoType
-//
-// ------------------------------------------------------------
-
-function|script|CheckLauncher
-{
-    if (getequipid(equip_arrow) == -1)
-        set @LauncherType, 0;
-    return;
-}
-
-function|script|CheckAmmo
-{
-    if ((@LauncherType == @AmmoType) || (!@LauncherType))
-        goto L_Return;
-
-    callfunc "UnequipLater";
-    goto L_Return;
-
-L_Return:
-    set @LauncherType, 0;
-    set @AmmoType, 0;
-    return;
-}
diff --git a/world/map/npc/items/love_potion.txt b/world/map/npc/items/love_potion.txt
deleted file mode 100644
index a0ecc150..00000000
--- a/world/map/npc/items/love_potion.txt
+++ /dev/null
@@ -1,49 +0,0 @@
-function|script|LovePotion
-{
-    goto L_CalcHair;
-
-L_CalcHair:
-    if (rand(80) < 40) goto L_DyeHair;
-    goto L_CalcSwap;
-
-L_CalcSwap:
-    if (rand(80) < 20) goto L_GenderSwap;
-    goto L_CalcPinkies;
-
-L_CalcPinkies:
-    if (rand(80) < 60) goto L_PinkieSwarm;
-    goto L_CalcCupid;
-
-L_CalcCupid:
-    if (rand(80) < 35) goto L_CupidStomp;
-    goto L_Finish;
-
-L_Finish:
-    message strcharinfo(0), "You suddenly feel a urge to stare at kytty. Weird potion.";
-    return;
-
-////
-L_DyeHair:
-    // 2 = Dark Red; 7 = Light Red; 11 = Pink
-    setlook LOOK_HAIR_COLOR, (11 + (15 * (Class - 1)));
-    message strcharinfo(0), "The power of love is so strong that your hair just got a lot more pink!";
-    goto L_CalcSwap;
-
-L_GenderSwap:
-    set Sex, if_then_else(Sex == 3, rand(0, 1), if_then_else(rand(0,1), 3, !Sex));
-    message strcharinfo(0), "Uh? I'm not feeling so well... Maybe I wasn't cute enough?";
-    goto L_CalcPinkies;
-
-L_PinkieSwarm:
-    areamonster getmap(), getx()-10, gety()-10, getx()+10, gety()+10, "", 1018, 12;
-    message strcharinfo(0), "Ooooh, pinkies, so lovely!";
-    goto L_CalcCupid;
-
-L_CupidStomp:
-    set @python[0], BL_ID;
-    misceffect 69, @python[0];
-    addtimer 380, "python-foot::OnKill";
-    message strcharinfo(0), "You are smelling so strongly like love, that Cupid decided to see what was wrong...";
-    goto L_Finish;
-
-}
diff --git a/world/map/npc/items/manapearl_item.txt b/world/map/npc/items/manapearl_item.txt
deleted file mode 100644
index 9c1f1c04..00000000
--- a/world/map/npc/items/manapearl_item.txt
+++ /dev/null
@@ -1,29 +0,0 @@
-// The Mana Pearl can only be used when player has a natural mana flow:
-// "Magic flows naturally from you, readily and with ease. Your understanding of what you can currently control at present is flawless, far beyond your requirements to cast magic at this level.";
-// Variables passed to this script:
-//  @slotId The slot in which the item would have been equipped in. This is passed automagically when called in an equip script.
-
-function|script|ManaPearlItem
-{
-
-    set @debug_mask, 65535;
-    set @debug_shift, 0;
-    set @mexp, ((MAGIC_EXPERIENCE & @debug_mask) >> @debug_shift);
-
-    set @manapearl_mexp_needed, 5404;
-
-    if ( @mexp >= @manapearl_mexp_needed )
-        goto L_Return;
-
-    message strcharinfo(0), "You are not expirienced enough to keep up the mana flow that is needed to stay in resonance with the Mana Pearl.";
-
-    // This is for debug
-    if (debug)
-        goto L_Return;
-
-    callfunc "UnequipLater";
-    goto L_Return;
-
-L_Return:
-    return;
-}
diff --git a/world/map/npc/items/max_stat.txt b/world/map/npc/items/max_stat.txt
deleted file mode 100644
index a8c72190..00000000
--- a/world/map/npc/items/max_stat.txt
+++ /dev/null
@@ -1,23 +0,0 @@
-// ------------------------------------------------------------
-// Variables passed to this script:
-//  @slotId   The slot in which the item would have been equipped in.
-//            This is passed automagically when called in an equip script.
-//  @bStat    The stat to check against.
-//            Usually one of: bStr, bAgi, bVit, bInt, bDex, bLuk;
-//            but can be anything that works with .
-//  @maxbStatVal The minimum stat value to accept this item.
-// ------------------------------------------------------------
-
-function|script|RequireMaxStat
-{
-    set @bStatVal, @bStat;
-    // If the requirement isn't met, we set an unequip trigger.
-    // The item is now removed.
-    if (@bStat > @maxbStatVal)
-        goto L_Unequip;
-    return;
-
-L_Unequip:
-    callfunc "UnequipLater";
-    return;
-}
diff --git a/world/map/npc/items/mirror.txt b/world/map/npc/items/mirror.txt
deleted file mode 100644
index c5dc5525..00000000
--- a/world/map/npc/items/mirror.txt
+++ /dev/null
@@ -1,19 +0,0 @@
-function|script|useMirror
-{
-    callfunc "getHeadStyles";
-    goto L_Rand;
-
-L_Rand:
-    set @mirror_rnd, @mirror_rnd + 1;
-    set @style, rand(1,getarraysize(@HairStyles$));
-    set @color, rand((15 * (Class - 1)),((15 * (Class - 1)) + (getarraysize(@HairColors$) - 1)));
-    if(((getlook(LOOK_HAIR_STYLE) == @style) || (getlook(LOOK_HAIR_COLOR) == @color)) && @mirror_rnd < 15)
-        goto L_Rand;
-    if(@fixedMirror)
-        setlook LOOK_HAIR_STYLE, @style;
-    setlook LOOK_HAIR_COLOR, @color;
-    //if(!@fixedMirror) getitem "SilverMirror", 1; <== this can be used in the future to have a portable hair color changer (like scissors but for the color)
-    set @fixedMirror, 0;
-    set @mirror_rnd, 0;
-    return;
-}
diff --git a/world/map/npc/items/nobow_item.txt b/world/map/npc/items/nobow_item.txt
deleted file mode 100644
index a518fdf4..00000000
--- a/world/map/npc/items/nobow_item.txt
+++ /dev/null
@@ -1,29 +0,0 @@
-// Cannot have a (power) bow in inventory to equip
-// Variables passed to this script:
-//  @slotId The slot in which the item would have been equipped in. This is passed automagically when called in an equip script.
-
-function|script|NoBowItem
-{
-    // Developers are always allowed to use this item
-    if (getgmlevel() >= G_DEV)
-        goto L_Return;
-
-    // Bows which are not allowed
-    if (countitem("BansheeBow") > 0)
-        goto L_Abort;
-    if (countitem("DesertBow") > 0)
-        goto L_Abort;
-    if (countitem("ForestBow") > 0)
-        goto L_Abort;
-    // Don't care with Bow/ShortBow/slings and darts
-
-    goto L_Return;
-
-L_Abort:
-    message strcharinfo(0), "This item is too cumbersome to use and could potentially break your valuable bow by accident. So you give up.";
-    callfunc "UnequipLater";
-    goto L_Return;
-
-L_Return:
-    return;
-}
diff --git a/world/map/npc/items/pickled_beets.txt b/world/map/npc/items/pickled_beets.txt
deleted file mode 100644
index f05b73ca..00000000
--- a/world/map/npc/items/pickled_beets.txt
+++ /dev/null
@@ -1,13 +0,0 @@
-function|script|usePickledBeets
-{
-    heal 50, 0, 1;
-    if   (Class == 1)
-        setlook LOOK_HAIR_COLOR, HC_PURPLE;
-    elif (Class == 2)
-        setlook LOOK_HAIR_COLOR, 18;
-    // add more here for races that have purple
-
-    if ($DOOMSDAY == 3)
-        addtimer 10, "#TMWFinalExam::OnPickledBeets";
-    return;
-}
diff --git a/world/map/npc/items/purification_potion.txt b/world/map/npc/items/purification_potion.txt
deleted file mode 100644
index 67e8321b..00000000
--- a/world/map/npc/items/purification_potion.txt
+++ /dev/null
@@ -1,28 +0,0 @@
-// This is the function to use the PurificationPotion
-
-function|script|usePurificationPotion
-{
-    if (isat("011-1", 88,67))
-        goto L_Wyara_Pond;
-    goto L_NoUse;
-
-L_NoUse:
-    message strcharinfo(0), "You don't know what to do with this.";
-    getitem "PurificationPotion", 1;
-    return;
-
-L_Wyara_Pond:
-    set @Q_MASK, NIBBLE_2_MASK;
-    set @Q_SHIFT, NIBBLE_2_SHIFT;
-    set @Q_status, (QUEST_MAGIC2 & @Q_MASK) >> @Q_SHIFT;
-
-    if (@Q_status < 1)
-        goto L_NoUse;
-    if (@Q_status <= 2)
-        set @Q_status, @Q_status + 1;
-
-    message strcharinfo(0), "You pour the potion into the pond.";
-
-    set QUEST_MAGIC2, (QUEST_MAGIC2 & ~(@Q_MASK) | (@Q_status << @Q_SHIFT));
-    return;
-}
diff --git a/world/map/npc/items/require_stat.txt b/world/map/npc/items/require_stat.txt
deleted file mode 100644
index 87ecf22a..00000000
--- a/world/map/npc/items/require_stat.txt
+++ /dev/null
@@ -1,23 +0,0 @@
-// ------------------------------------------------------------
-// Variables passed to this script:
-//  @slotId   The slot in which the item would have been equipped in.
-//            This is passed automagically when called in an equip script.
-//  @bStat    The stat to check against.
-//            Usually one of: bStr, bAgi, bVit, bInt, bDex, bLuk;
-//            but can be anything that works with .
-//  @minbStatVal The minimum stat value to accept this item.
-// ------------------------------------------------------------
-
-function|script|RequireStat
-{
-    set @bStatVal, @bStat;
-    // If the requirement isn't met, we set an unequip trigger.
-    // The item is now removed.
-    if (@bStat < @minbStatVal)
-        goto L_Unequip;
-    return;
-
-L_Unequip:
-    callfunc "UnequipLater";
-    return;
-}
diff --git a/world/map/npc/items/restricted_item.txt b/world/map/npc/items/restricted_item.txt
deleted file mode 100644
index 9bd1c3d5..00000000
--- a/world/map/npc/items/restricted_item.txt
+++ /dev/null
@@ -1,22 +0,0 @@
-// ------------------------------------------------------------
-// Identical to unreleased_item except for the message.
-// Variables passed to this script:
-//  @slotId The slot in which the item would have been equipped in. This is passed automagically when called in an equip script.
-//  @itemId The ID of the item currently being equipped. This is passed automagically when called in an equip script.
-//  @minLvl The minimum required GM level to equip this item. When not set or set to 0, it is set to 60 as a default.
-// ------------------------------------------------------------
-
-function|script|RestrictedItem
-{
-    if (!@minLvl) set @minLvl, 60;
-    if (debug || getgmlevel() >= @minLvl) goto L_Return; // If the active character is staff, do nothing.
-    message strcharinfo(0), "This item repells you with extreme force. It does not seem to be meant for you.";
-    callfunc "UnequipLater";
-    if (getgmlevel()) goto L_Return;
-    wgm "Restricted item '" + @itemId + "' used by character '" + strcharinfo(0) + "'.";
-    gmlog "Restricted item '" + @itemId + "' used by character '" + strcharinfo(0) + "'.";
-    goto L_Return;
-
-L_Return:
-    return;
-}
diff --git a/world/map/npc/items/rubber_bat.txt b/world/map/npc/items/rubber_bat.txt
deleted file mode 100644
index 9eb3725d..00000000
--- a/world/map/npc/items/rubber_bat.txt
+++ /dev/null
@@ -1,14 +0,0 @@
-function|script|rubberBat
-{
-    if (gettimetick(2) - @lastbat < 2) goto L_Return;
-    misceffect 403;
-    set @lastbat, gettimetick(2);
-    goto L_Return;
-
-L_Return:
-    getitem "RubberBat", 1;
-    debugmes "Check";
-    if ($DOOMSDAY == 3)
-        addtimer 10, "#TMWFinalExam::OnRubberBat";
-    return;
-}
diff --git a/world/map/npc/items/scentedcandle.txt b/world/map/npc/items/scentedcandle.txt
deleted file mode 100644
index ba29f3cf..00000000
--- a/world/map/npc/items/scentedcandle.txt
+++ /dev/null
@@ -1,31 +0,0 @@
--|script|ScentedCandle|32767
-{
-    end;
-
-OnEquip:
-    if (@scented_candle == 1) end;
-    goto L_Check;
-
-OnCheck:
-    if (getequipid(equip_head) != 5229) goto L_Removed;
-    goto L_Check;
-
-L_Check:
-    set @scented_candle, 1;
-    foreach 2, getmap(), (POS_X - 12), (POS_Y - 12), (POS_X + 12), (POS_Y + 12), strnpcinfo(0) + "::OnMob";
-    addtimer rand(2000), strnpcinfo(0) + "::OnCheck";
-    end;
-
-OnMob:
-    if (target(BL_ID, @target_id, 0x20) != 0x20) end; // line of sight
-    if (get(Class, @target_id) != 1131 && // mana bug
-        get(Class, @target_id) != 1055 && // butterfly
-        get(Class, @target_id) != 1049 && // bee
-        get(Class, @target_id) != 1088) end; // hyvern
-    aggravate @target_id;
-    end;
-
-L_Removed:
-    set @scented_candle, 0;
-    end;
-}
diff --git a/world/map/npc/items/scissors.txt b/world/map/npc/items/scissors.txt
deleted file mode 100644
index fbf3b344..00000000
--- a/world/map/npc/items/scissors.txt
+++ /dev/null
@@ -1,14 +0,0 @@
-function|script|useScissors
-{
-    getitem "Scissors", 1;
-    if (rand(3))
-        goto L_Change;
-    message strcharinfo(0), "Whoops!";
-    heal -20 - rand(Hp >> 1), 0;
-    return;
-
-L_Change:
-    callfunc "getHeadStyles";
-    setlook LOOK_HAIR_STYLE, rand(1,getarraysize(@HairStyles$));
-    return;
-}
diff --git a/world/map/npc/items/shock_sweet.txt b/world/map/npc/items/shock_sweet.txt
deleted file mode 100644
index dc61790d..00000000
--- a/world/map/npc/items/shock_sweet.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-function|script|useShockSweet
-{
-    if (getmap() == "099-5")
-        addtimer 0, "Xakelbael the Dark#0::OnAdjustSweet";
-    if (rand(5))
-        goto L_Change;
-    message strcharinfo(0), "Yuck, this tastes like earwax!";
-    heal -20 - (Hp >> 2), 0;
-    return;
-
-L_Change:
-    setlook LOOK_HAIR_COLOR, (HC_WHITE - Class) + 1;
-    message strcharinfo(0), "Gah! That was some strong stuff!";
-    sc_start sc_poison, 1, 20;
-    misceffect 15, strcharinfo(0);
-    return;
-}
diff --git a/world/map/npc/items/tmwgift.txt b/world/map/npc/items/tmwgift.txt
deleted file mode 100644
index ebc3f7b6..00000000
--- a/world/map/npc/items/tmwgift.txt
+++ /dev/null
@@ -1,32 +0,0 @@
-function|script|MaybeAnnounceBirthday
-{
-    if (gettime(7) == 2019 && gettime(6) == 4 && gettime(5) == 11)
-        goto L_B15;
-    return;
-
-L_B15:
-    announce "It is TMW's 15th Anniversary! Log out and log back in to [@@https://themanaworld.org/15|receive your present@@]", 0;
-    return;
-}
-
-function|script|MaybeGiveBirthday
-{
-    if ((gettime(7) == 2019) && (gettime(6) == 4) &&
-        ((gettime(5) == 11) || (gettime(5) == 12) || (gettime(5) == 13)) &&
-        #TMW15 == 0)
-        goto L_Give;
-    return;
-
-L_Give:
-    set #TMW15, gettimetick(2);
-    getitem "TMWBirthdayGift", 1;
-    message strcharinfo(0), "Server : ##BIt's TMW's 15th Anniversary! You have [@@https://themanaworld.org/15|received a present@@]!";
-    return;
-}
-
-function|script|TMWBirthdayGift
-{
-    setarray .@gifts$, "RedPresentHat", "GreenPresentHat", "BluePresentHat", "YellowPresentHat";
-    getitem .@gifts$[rand(4)], 1;
-    return;
-}
diff --git a/world/map/npc/items/unequipcb.txt b/world/map/npc/items/unequipcb.txt
deleted file mode 100644
index 649b2912..00000000
--- a/world/map/npc/items/unequipcb.txt
+++ /dev/null
@@ -1,27 +0,0 @@
-// Note: the client (I think) has a display bug if this is called
-// during the intial connection's equip hook
--|script|UnequipCB|32767
-{
-    end;
-
-OnUnequip:
-    unequipbyid (@unequip_slot - 1);
-    set @unequip_slot, 0;
-    end;
-}
-
-// Paired with unequipcb
-function|script|UnequipLater
-{
-    // if there are multiple items that want to be removed,
-    // only schedule one timer - scripts will be called again
-    if (@unequip_slot)
-        goto L_Return;
-
-    set @unequip_slot, (@slotId + 1);
-    addtimer 0, "UnequipCB::OnUnequip";
-    goto L_Return;
-
-L_Return:
-    return;
-}
diff --git a/world/map/npc/items/unreleased_item.txt b/world/map/npc/items/unreleased_item.txt
deleted file mode 100644
index d8bb9e07..00000000
--- a/world/map/npc/items/unreleased_item.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-// ------------------------------------------------------------
-// Variables passed to this script:
-//  @slotId The slot in which the item would have been equipped in. This is passed automagically when called in an equip script.
-// ------------------------------------------------------------
-
-function|script|UnreleasedItem
-{
-    // If the server allows equipping unreleased items or if the active character is staff, do nothing.
-    if (debug || getgmlevel())
-        goto L_Return;
-    message strcharinfo(0), "You have difficulties equipping this item, as if it is not yet fully in this world.";
-    callfunc "UnequipLater";
-    goto L_Return;
-
-L_Return:
-    return;
-}
diff --git a/world/map/npc/items/warpTowels.txt b/world/map/npc/items/warpTowels.txt
deleted file mode 100644
index b6faaec3..00000000
--- a/world/map/npc/items/warpTowels.txt
+++ /dev/null
@@ -1,148 +0,0 @@
-// See #TravelConfig
-function|script|WarpTowel
-{
-    set @seconds, TowelLastUsed - (gettimetick(2) - 1200);
-    if (@seconds > 0 && GM < 1)
-        goto L_DontPanic;
-    if (isin("botcheck",25,27,51,47))
-        goto L_Prison;
-    if (getmapflag(getmap(), MF_NOSAVE) || getmapflag(getmap(), MF_NOTELEPORT) || getmapflag(getmap(), MF_NOWARP) || isin("009-7",$@fightclub_x1,$@fightclub_y1,$@fightclub_x2,$@fightclub_y2))
-        goto L_Forbid;
-
-    if (@warpTowelName$ == "HitchhikersTowel")
-        goto L_Save;
-    if(@warpTowelName$ == "WhiteHitchhikersTowel")
-        goto L_White;
-    if(@warpTowelName$ == "RedHitchhikersTowel")
-        goto L_Red;
-    if(@warpTowelName$ == "GreenHitchhikersTowel")
-        goto L_Green;
-    if(@warpTowelName$ == "BlueHitchhikersTowel")
-        goto L_Blue;
-    if(@warpTowelName$ == "YellowHitchhikersTowel")
-        goto L_Yellow;
-    if(@warpTowelName$ == "PurpleHitchhikersTowel")
-        goto L_Purple;
-    if(@warpTowelName$ == "OrangeHitchhikersTowel")
-        goto L_Orange;
-    if(@warpTowelName$ == "PinkHitchhikersTowel")
-        goto L_Pink;
-    if(@warpTowelName$ == "TealHitchhikersTowel")
-        goto L_Teal;
-    if(@warpTowelName$ == "LimeHitchhikersTowel")
-        goto L_Lime;
-    goto L_Save;
-
-L_White:
-    // Koga
-    set @NextLocationMap$, "035-2";
-    set @NextLocationX, 20;
-    set @NextLocationY, 21;
-    goto L_WarpPlayer;
-
-L_Red:
-    // Barbarians
-    set @NextLocationMap$, "033-1";
-    set @NextLocationX, 66;
-    set @NextLocationY, 33;
-    goto L_WarpPlayer;
-
-L_Green:
-    // Candor
-    set @NextLocationMap$, "029-1";
-    set @NextLocationX, 69;
-    set @NextLocationY, 69;
-    goto L_WarpPlayer;
-
-L_Blue:
-    // Blue Sages
-    set @NextLocationMap$, "048-2";
-    set @NextLocationX, 26;
-    set @NextLocationY, 47;
-    goto L_WarpPlayer;
-
-L_Yellow:
-    // Tulimshar Mines
-    set @NextLocationMap$, "002-1";
-    set @NextLocationX, 113;
-    set @NextLocationY, 117;
-    goto L_WarpPlayer;
-
-L_Purple:
-    // Dimonds Inn
-    set @NextLocationMap$, "010-1";
-    set @NextLocationX, 27;
-    set @NextLocationY, 97;
-    goto L_WarpPlayer;
-
-L_Orange:
-    // Graveyard
-    set @NextLocationMap$, "027-1";
-    set @NextLocationX, 70;
-    set @NextLocationY, 100;
-    goto L_WarpPlayer;
-
-L_Pink:
-    // Terranite Cave
-    set @NextLocationMap$, "012-3";
-    set @NextLocationX, 448;
-    set @NextLocationY, 66;
-    goto L_WarpPlayer;
-
-L_Teal:
-    // Mana Seed
-    set @NextLocationMap$, "012-3";
-    set @NextLocationX, 64;
-    set @NextLocationY, 130;
-    goto L_WarpPlayer;
-
-L_Lime:
-    // Pachua
-    set @NextLocationMap$, "006-1";
-    set @NextLocationX, 28;
-    set @NextLocationY, 97;
-    callfunc "MiriamCheat";
-    goto L_WarpPlayer;
-
-L_Save:
-    // Soul Menhir
-    set @NextLocationMap$, getsavepoint(0);
-    set @NextLocationX, getsavepoint(1);
-    set @NextLocationY, getsavepoint(2);
-    goto L_WarpPlayer;
-
-L_WarpPlayer:
-    set TowelLastUsed, gettimetick(2);
-    warp @NextLocationMap$,@NextLocationX,@NextLocationY;
-    goto L_BreakChance;
-
-L_BreakChance:
-    if (rand(15))
-        goto L_Keep;
-    getitem "HitchhikersTowel", 1;
-    goto L_End;
-
-L_Forbid:
-    message strcharinfo(0), "Towel : This area is protected by a force that doesn't tolerate the power of the Towel.";
-    goto L_Keep;
-
-L_Prison:
-    message strcharinfo(0), "Towel : You must be warped by a GM to leave the botcheck area.";
-    goto L_Keep;
-
-L_DontPanic:
-    callfunc "HumanTime";
-    message strcharinfo(0), "Towel : Your towel is still too low on power to jump again. Try again in ##B"+ @time$ + "##b.";
-    goto L_Keep;
-
-L_Keep:
-    getitem @warpTowelName$, 1;
-    goto L_End;
-
-L_End:
-    set @NextLocationMap$, "";
-    set @NextLocationX, 0;
-    set @NextLocationY, 0;
-    set @warpTowelName$, "";
-    return;
-}