Move to a subdirectory

1 files changed, 365 insertions, 0 deletions

diff --git a/world/map/npc/009-4/torches.txt b/world/map/npc/009-4/torches.txt
new file mode 100644
index 00000000..f4d2cede
--- /dev/null
+++ b/world/map/npc/009-4/torches.txt
@@ -0,0 +1,365 @@
+//# see detailed description at orum.txt
+function	script	GetTorchColor	{
+	if (@Torch < 0 || @Torch > 2) goto L_Error;
+
+	set @Mask, 15;
+	set @Shift, 4 * @Torch;
+	set @TorchColor, (OrumQuestTorch >> @Shift) & @Mask;
+	return;
+
+L_Error:
+	mes "Torch number is out of range.";
+	close;
+}
+
+function	script	SetTorchColor	{
+	if (@Torch < 0 || @Torch > 2) goto L_Error;
+	if (@Color < 1 || @Color > 12) goto L_Error2;
+
+	set @Mask, (15 << (4 * @Torch));
+	set OrumQuestTorch, (OrumQuestTorch & (~(@Mask))) | @Color << (4 * @Torch);
+	return;
+
+L_Error:
+	mes "Torch number is out of range.";
+	close;
+
+L_Error2:
+	mes "Torch color is out of range.";
+	close;
+}
+
+function	script	GetTorchIntensity	{
+	if (@Torch < 0 || @Torch > 2) goto L_Error;
+
+	set @Mask, 15;
+	set @Shift, 4 * (@Torch + 3);
+	set @TorchIntensity, (OrumQuestTorch >> @Shift) & @Mask;
+	return;
+
+L_Error:
+	mes "Torch number is out of range.";
+	close;
+}
+
+function	script	SetTorchIntensity	{
+	if (@Torch < 0 || @Torch > 2) goto L_Error;
+	if (@Intensity < 0 || @Intensity > 2) goto L_Error2;
+
+	set @Mask, (15 << (4 * (@Torch + 3)));
+	set OrumQuestTorch, (OrumQuestTorch & (~(@Mask))) | @Intensity << (4 * (@Torch + 3));
+	return;
+
+L_Error:
+	mes "Torch number is out of range.";
+	close;
+
+L_Error2:
+	mes "Torch intensity is out of range.";
+	close;
+}
+
+function	script	DoneWithTorches	{
+	if (OrumQuest < 11 && OrumQuest >= 8)
+		return;
+
+	if (OrumQuest < 7) goto L_Different;
+
+	if (OrumQuest >= 11)
+		mes "The flame on the torch looks ordinary.. Lowering the final barrier seems to have drained them of their magic.";
+
+	if (OrumQuest < 8)
+		mes "Without that powder the note mentions there isn't much you can do with this torch..";
+
+	close;
+
+L_Different:
+	mes "The flame on this torch looks different than the rest.. You better tell Orum about it before doing anything.";
+	set OrumQuest, 6;
+	close;
+}
+
+// To make sure in range of torches
+function	script	InRangeTorch1	{
+	if (isin("009-4.gat",67,20,69,25))
+		return;
+
+	mes "You're too far away to do anything with that torch.";
+	close;
+}
+function	script	InRangeTorch2	{
+	if (isin("009-4.gat",65,41,69,46))
+		return;
+
+	mes "You're too far away to do anything with that torch.";
+	close;
+}
+function	script	InRangeTorch3	{
+	if (isin("009-4.gat",33,84,37,88))
+		return;
+
+	mes "You're too far away to do anything with that torch.";
+	close;
+}
+
+// First Torch
+009-4.gat,68,21,0	script	Torch	127,{
+	callfunc "InRangeTorch1";
+	callfunc "DoneWithTorches";
+
+	set @Torch, 0;
+	callfunc("GetTorchColor");
+	callfunc("GetTorchIntensity");
+
+	set @lastColor, @TorchColor;
+	setarray @colors$,"transparent","red","dark orange","orange","light orange","yellow","light green","green","dark green","blue","dark purple","purple","light purple";
+	setarray @intensities$,"calm","bright","blinding";
+	mes "Looking closely you notice that this torch is not like the others.. This one has a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + " tint to it.";
+	goto L_Color_Loop;
+
+L_Color_Loop:
+	callfunc("GetTorchColor");
+	menu
+		"Add Red Powder", L_Use_Red,
+		"Add Yellow Powder", L_Use_Yellow,
+		"Add Blue Powder", L_Use_Blue,
+		"Leave it alone.", -;
+
+	mes "The flame flickers as if it's laughing at you..";
+	close;
+
+L_Use_Red:
+	if (countitem("RedPowder") < 1) goto L_No_Powder;
+	if (@TorchColor > 6 && @TorchColor < 12) set @Color, @TorchColor + 1;
+	if (@TorchColor < 6 && @TorchColor > 1) set @Color, @TorchColor - 1;
+	if (@TorchColor == 12) set @Color, 1;
+       if (@TorchColor == 0) set @Color, 1;
+	callfunc("SetTorchColor");
+	delitem "RedPowder", 1;
+	goto L_Show_Color;
+
+L_Use_Yellow:
+	if (countitem("YellowPowder") < 1) goto L_No_Powder;
+	if (@TorchColor < 10 && @TorchColor > 5) set @Color, @TorchColor - 1;
+	if (@TorchColor >= 1 && @TorchColor < 5) set @Color, @TorchColor + 1;
+       if (@TorchColor == 0) set @Color, 5;
+	callfunc("SetTorchColor");
+	delitem "YellowPowder", 1;
+	goto L_Show_Color;
+
+L_Use_Blue:
+	if (countitem("BluePowder") < 1) goto L_No_Powder;
+	if (@TorchColor > 4 && @TorchColor < 9) set @Color, @TorchColor + 1;
+	if (@TorchColor <= 12 && @TorchColor > 9) set @Color, @TorchColor - 1;
+	if (@TorchColor == 1) set @Color, 12;
+       if (@TorchColor == 0) set @Color, 9;
+	callfunc("SetTorchColor");
+	delitem "BluePowder", 1;
+	goto L_Show_Color;
+
+L_No_Powder:
+	mes "You notice you're all out of that color of powder.. Perhaps Orum can make you some more.";
+	close;
+
+L_Show_Color:
+	callfunc("GetTorchColor");
+	callfunc("GetTorchIntensity");
+	if (@TorchColor == @lastColor) goto L_Wrong_Color;
+	misceffect 5;
+	set @lastColor, @TorchColor;
+	mes "As your pour the powder into the flame you can see its tint transform to a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + "..";
+	goto L_Color_Loop;
+
+L_Wrong_Color:
+	set @Intensity, @TorchIntensity + 1;
+	if (@Intensity > 2) goto L_Failed;
+	callfunc("SetTorchIntensity");
+	callfunc("GetTorchIntensity");
+	misceffect 5;
+	mes "As you pour the powder into the flame it flares violently for a moment and then turns into a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + "..";
+	goto L_Color_Loop;
+
+L_Failed:
+	mes "As you pour the powder into the flame it flares violently before bursting into your face!";
+	misceffect 5;
+	misceffect 16;
+	set @Intensity, 0;
+	callfunc("SetTorchIntensity");
+	heal -Hp, 0;
+	close;
+}
+
+// Second Torch
+009-4.gat,67,42,0	script	Torch	127,{
+	callfunc "InRangeTorch2";
+	callfunc "DoneWithTorches";
+
+	set @Torch, 1;
+	callfunc("GetTorchColor");
+	callfunc("GetTorchIntensity");
+
+	set @lastColor, @TorchColor;
+	setarray @colors$,"transparent","red","dark orange","orange","light orange","yellow","light green","green","dark green","blue","dark purple","purple","light purple";
+	mes "Looking closely you notice that this torch is not like the others.. This one has a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + " tint to it.";
+	goto L_Color_Loop;
+
+L_Color_Loop:
+	callfunc("GetTorchColor");
+	menu
+		"Add Red Powder", L_Use_Red,
+		"Add Yellow Powder", L_Use_Yellow,
+		"Add Blue Powder", L_Use_Blue,
+		"Leave it alone.", -;
+
+	mes "The flame flickers as if it's laughing at you..";
+	close;
+
+L_Use_Red:
+	if (countitem("RedPowder") < 1) goto L_No_Powder;
+	if (@TorchColor > 6 && @TorchColor < 12) set @Color, @TorchColor + 1;
+	if (@TorchColor < 6 && @TorchColor > 1) set @Color, @TorchColor - 1;
+	if (@TorchColor == 12) set @Color, 1;
+       if (@TorchColor == 0) set @Color, 1;
+	callfunc("SetTorchColor");
+	delitem "RedPowder", 1;
+	goto L_Show_Color;
+
+L_Use_Yellow:
+	if (countitem("YellowPowder") < 1) goto L_No_Powder;
+	if (@TorchColor < 10 && @TorchColor > 5) set @Color, @TorchColor - 1;
+	if (@TorchColor >= 1 && @TorchColor < 5) set @Color, @TorchColor + 1;
+       if (@TorchColor == 0) set @Color, 5;
+	callfunc("SetTorchColor");
+	delitem "YellowPowder", 1;
+	goto L_Show_Color;
+
+L_Use_Blue:
+	if (countitem("BluePowder") < 1) goto L_No_Powder;
+	if (@TorchColor > 4 && @TorchColor < 9) set @Color, @TorchColor + 1;
+	if (@TorchColor <= 12 && @TorchColor > 9) set @Color, @TorchColor - 1;
+	if (@TorchColor == 1) set @Color, 12;
+       if (@TorchColor == 0) set @Color, 9;
+	callfunc("SetTorchColor");
+	delitem "BluePowder", 1;
+	goto L_Show_Color;
+
+L_No_Powder:
+	mes "You notice you're all out of that color powder.. Perhaps Orum can make you some more.";
+	close;
+
+L_Show_Color:
+	callfunc("GetTorchColor");
+	callfunc("GetTorchIntensity");
+	if (@TorchColor == @lastColor) goto L_Wrong_Color;
+	misceffect 5;
+	set @lastColor, @TorchColor;
+	mes "As your pour the powder into the flame you can see its tint transform to a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + "..";
+	goto L_Color_Loop;
+
+L_Wrong_Color:
+	set @Intensity, @TorchIntensity + 1;
+	if (@Intensity > 2) goto L_Failed;
+	callfunc("SetTorchIntensity");
+	callfunc("GetTorchIntensity");
+	misceffect 5;
+	mes "As you pour the powder into the flame it flares violently for a moment and then turns into a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + "..";
+	goto L_Color_Loop;
+
+L_Failed:
+	mes "As you pour the powder into the flame it flares violently before bursting into your face!";
+	misceffect 5;
+	misceffect 16;
+	set @Intensity, 0;
+	callfunc("SetTorchIntensity");
+	heal -Hp, 0;
+	close;
+}
+
+
+// Third Torch
+009-4.gat,33,86,0	script	Torch	127,{
+	callfunc "InRangeTorch3";
+	callfunc "DoneWithTorches";
+
+	set @Torch, 2;
+	callfunc("GetTorchColor");
+	callfunc("GetTorchIntensity");
+
+	set @lastColor, @TorchColor;
+	setarray @colors$,"transparent","red","dark orange","orange","light orange","yellow","light green","green","dark green","blue","dark purple","purple","light purple";
+	setarray @intensities$,"calm","bright","blinding";
+	mes "Looking closely you notice that this torch is not like the others.. This one has a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + " tint to it.";
+	goto L_Color_Loop;
+
+L_Too_Far:
+	mes "You're too far away to do anything with that torch.";
+	close;
+
+L_Color_Loop:
+	callfunc("GetTorchColor");
+	menu
+		"Add Red Powder", L_Use_Red,
+		"Add Yellow Powder", L_Use_Yellow,
+		"Add Blue Powder", L_Use_Blue,
+		"Leave it alone.", -;
+
+	mes "The flame flickers as if it's laughing at you..";
+	close;
+
+L_Use_Red:
+	if (countitem("RedPowder") < 1) goto L_No_Powder;
+	if (@TorchColor > 6 && @TorchColor < 12) set @Color, @TorchColor + 1;
+	if (@TorchColor < 6 && @TorchColor > 1) set @Color, @TorchColor - 1;
+	if (@TorchColor == 12) set @Color, 1;
+	callfunc("SetTorchColor");
+	delitem "RedPowder", 1;
+	goto L_Show_Color;
+
+L_Use_Yellow:
+	if (countitem("YellowPowder") < 1) goto L_No_Powder;
+	if (@TorchColor < 10 && @TorchColor > 5) set @Color, @TorchColor - 1;
+	if (@TorchColor >= 1 && @TorchColor < 5) set @Color, @TorchColor + 1;
+	callfunc("SetTorchColor");
+	delitem "YellowPowder", 1;
+	goto L_Show_Color;
+
+L_Use_Blue:
+	if (countitem("BluePowder") < 1) goto L_No_Powder;
+	if (@TorchColor > 4 && @TorchColor < 9) set @Color, @TorchColor + 1;
+	if (@TorchColor <= 12 && @TorchColor > 9) set @Color, @TorchColor - 1;
+	if (@TorchColor == 1) set @Color, 12;
+	callfunc("SetTorchColor");
+	delitem "BluePowder", 1;
+	goto L_Show_Color;
+
+L_No_Powder:
+	mes "You notice you're all out of that color powder.. Perhaps Orum can make you some more.";
+	close;
+
+L_Show_Color:
+	callfunc("GetTorchColor");
+	callfunc("GetTorchIntensity");
+	if (@TorchColor == @lastColor) goto L_Wrong_Color;
+	misceffect 5;
+	set @lastColor, @TorchColor;
+	mes "As your pour the powder into the flame you can see its tint transform to a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + "..";
+	goto L_Color_Loop;
+
+L_Wrong_Color:
+	set @Intensity, @TorchIntensity + 1;
+	if (@Intensity > 2) goto L_Failed;
+	callfunc("SetTorchIntensity");
+	callfunc("GetTorchIntensity");
+	misceffect 5;
+	mes "As you pour the powder into the flame it flares violently for a moment and then turns into a " + @intensities$[@TorchIntensity] + " " + @colors$[@TorchColor] + "..";
+	goto L_Color_Loop;
+
+L_Failed:
+	mes "As you pour the powder into the flame it flares violently before bursting into your face!";
+	misceffect 5;
+	misceffect 16;
+	set @Intensity, 0;
+	callfunc("SetTorchIntensity");
+	heal -Hp, 0;
+	close;
+}