Move to a subdirectory

6 files changed, 214 insertions, 0 deletions

diff --git a/world/map/npc/items/purification_potion.txt b/world/map/npc/items/purification_potion.txt
new file mode 100644
index 00000000..09a854bd
--- /dev/null
+++ b/world/map/npc/items/purification_potion.txt
@@ -0,0 +1,28 @@
+// This is the function to use the PurificationPotion
+
+function	script	usePurificationPotion	{
+	if (isat("011-1.gat", 88,67))
+		goto L_Wyara_Pond;
+
+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/restricted_item.txt b/world/map/npc/items/restricted_item.txt
new file mode 100644
index 00000000..7d8e96ab
--- /dev/null
+++ b/world/map/npc/items/restricted_item.txt
@@ -0,0 +1,18 @@
+// ------------------------------------------------------------
+// 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(0) >= @minLvl) 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.";
+	unequipbyid @slotId;
+	if (getgmlevel(0)) return;
+	gmcommand "@wgm Restricted item '" + @itemId + "' used by character '" + strcharinfo(0) + "'.";
+	gmcommand "@l Restricted item '" + @itemId + "' used by character '" + strcharinfo(0) + "'.";
+	end;
+}
diff --git a/world/map/npc/items/scissors.txt b/world/map/npc/items/scissors.txt
new file mode 100644
index 00000000..0e10453c
--- /dev/null
+++ b/world/map/npc/items/scissors.txt
@@ -0,0 +1,13 @@
+function	script	useScissors	{
+        if (rand(3))
+                goto L_Change;
+        message strcharinfo(0), "Whoops!";
+        itemheal -20 - rand(Hp >> 1), 0;
+        getitem "Scissors", 1;
+        end;
+
+L_Change:
+        setlook 1, rand(19);
+        getitem "Scissors", 1;
+        end;
+}
diff --git a/world/map/npc/items/shock_sweet.txt b/world/map/npc/items/shock_sweet.txt
new file mode 100644
index 00000000..3fc6d8e0
--- /dev/null
+++ b/world/map/npc/items/shock_sweet.txt
@@ -0,0 +1,14 @@
+function	script	useShockSweet	{
+        if (rand(5))
+                goto L_Change;
+        message strcharinfo(0), "Yuck, this tastes like earwax!";
+        itemheal -20 - (Hp >> 2), 0;
+        end;
+
+L_Change:
+        setlook 6, 127;
+        message strcharinfo(0), "Gah! That was some strong stuff!";
+        sc_start sc_poison, 1, 20;
+        misceffect 15, strcharinfo(0);
+        end;
+}
diff --git a/world/map/npc/items/unreleased_item.txt b/world/map/npc/items/unreleased_item.txt
new file mode 100644
index 00000000..72d24b70
--- /dev/null
+++ b/world/map/npc/items/unreleased_item.txt
@@ -0,0 +1,11 @@
+// ------------------------------------------------------------
+// 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 (debug || getgmlevel(0)) end; // If the server allows equipping unreleased items or if the active character is staff, do nothing.
+	message strcharinfo(0), "You have difficulties equipping this item, as if it is not yet fully in this world.";
+	unequipbyid @slotId;
+	end;
+}
diff --git a/world/map/npc/items/warpTowels.txt b/world/map/npc/items/warpTowels.txt
new file mode 100644
index 00000000..1c39b98b
--- /dev/null
+++ b/world/map/npc/items/warpTowels.txt
@@ -0,0 +1,130 @@
+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;
+}