Make warp towels fail in bot check area

As reported by Kandiman, it was possible to escape the bot check area
using the Hitchhiker's towels. Attempting this will now message the
character that 'You must be warped by a GM to leave the bot check area.'

1 files changed, 30 insertions, 0 deletions

diff --git a/npc/items/warpTowels.txt b/npc/items/warpTowels.txt
index 192ce838..1c39b98b 100644
--- a/npc/items/warpTowels.txt
+++ b/npc/items/warpTowels.txt
@@ -1,99 +1,129 @@
 function	script	useWhiteWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "020-1.gat",66,91; // Nivalis
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "WhiteWarpTowel", 1;
 	end;
 }
 function	script	useRedWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "009-1.gat",51,40; // Hurnscald
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "RedWarpTowel", 1;
 	end;	end;
 }
 function	script	useGreenWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "003-1.gat",35,25;
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "GreenWarpTowel", 1;
 	end;	end;
 }
 function	script	useBlueWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "003-1.gat",35,25;
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "BlueWarpTowel", 1;
 	end;	end;
 }
 function	script	useYellowWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "001-1.gat",40,71; // Tulimshar
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "YellowWarpTowel", 1;
 	end;	end;
 }
 function	script	usePurpleWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "003-1.gat",35,25;
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "PurpleWarpTowel", 1;
 	end;	end;
 }
 function	script	useOrangeWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "027-1.gat",70,100; // Graveyard
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "OrangeWarpTowel", 1;
 	end;	end;
 }
 function	script	usePinkWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "012-3.gat",448,66; // Terranite Cave
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "PinkWarpTowel", 1;
 	end;	end;
 }
 function	script	useTealWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "003-1.gat",35,25;
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "TealWarpTowel", 1;
 	end;	end;
 }
 function	script	useLimeWarpTowel	{
+	if (isin("botcheck.gat",8,11,32,29)) goto L_Botcheck;
 	warp "003-1.gat",35,25;
 	if (rand(15))
 		goto L_Keep;
 	getitem "GreyWarpTowel", 1;
 	end;
+L_Botcheck:
+	message strcharinfo(0), "You must be warped by a GM to leave the bot check area.";
 L_Keep:
 	getitem "LimeWarpTowel", 1;
 	end;	end;