From a023cf16f0ec841620c975862cb5a96de99c577f Mon Sep 17 00:00:00 2001 From: The Kandiman Date: Mon, 5 Sep 2011 00:59:06 -0400 Subject: Tab conversion project. Maps 007-1 to 010-2 complete. --- world/map/npc/009-4/torches.txt | 564 +++++++++++++++++++++------------------- 1 file changed, 301 insertions(+), 263 deletions(-) (limited to 'world/map/npc/009-4/torches.txt') diff --git a/world/map/npc/009-4/torches.txt b/world/map/npc/009-4/torches.txt index f4d2cede..a1f1bbf9 100644 --- a/world/map/npc/009-4/torches.txt +++ b/world/map/npc/009-4/torches.txt @@ -1,365 +1,403 @@ //# see detailed description at orum.txt -function script GetTorchColor { - if (@Torch < 0 || @Torch > 2) goto L_Error; +function|script|GetTorchColor|{ + if (@Torch < 0 || @Torch > 2) goto L_Error; - set @Mask, 15; - set @Shift, 4 * @Torch; - set @TorchColor, (OrumQuestTorch >> @Shift) & @Mask; - return; + set @Mask, 15; + set @Shift, 4 * @Torch; + set @TorchColor, (OrumQuestTorch >> @Shift) & @Mask; + return; L_Error: - mes "Torch number is out of range."; - close; + 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; +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; + set @Mask, (15 << (4 * @Torch)); + set OrumQuestTorch, (OrumQuestTorch & (~(@Mask))) | @Color << (4 * @Torch); + return; L_Error: - mes "Torch number is out of range."; - close; + mes "Torch number is out of range."; + close; L_Error2: - mes "Torch color is out of range."; - close; + mes "Torch color is out of range."; + close; } -function script GetTorchIntensity { - if (@Torch < 0 || @Torch > 2) goto L_Error; +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; + set @Mask, 15; + set @Shift, 4 * (@Torch + 3); + set @TorchIntensity, (OrumQuestTorch >> @Shift) & @Mask; + return; L_Error: - mes "Torch number is out of range."; - close; + 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; +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; + 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; + mes "Torch number is out of range."; + close; L_Error2: - mes "Torch intensity is out of range."; - close; + mes "Torch intensity is out of range."; + close; } -function script DoneWithTorches { - if (OrumQuest < 11 && OrumQuest >= 8) - return; +function|script|DoneWithTorches|{ + if (OrumQuest < 11 && OrumQuest >= 8) + return; - if (OrumQuest < 7) goto L_Different; + 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 >= 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; + 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; + 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|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|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; +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"; +009-4.gat,68,21,0|script|Torch|127,{ + callfunc "InRangeTorch1"; + callfunc "DoneWithTorches"; - set @Torch, 0; - callfunc("GetTorchColor"); - callfunc("GetTorchIntensity"); + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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"; +009-4.gat,67,42,0|script|Torch|127,{ + callfunc "InRangeTorch2"; + callfunc "DoneWithTorches"; - set @Torch, 1; - callfunc("GetTorchColor"); - callfunc("GetTorchIntensity"); + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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"; +009-4.gat,33,86,0|script|Torch|127,{ + callfunc "InRangeTorch3"; + callfunc "DoneWithTorches"; - set @Torch, 2; - callfunc("GetTorchColor"); - callfunc("GetTorchIntensity"); + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; } -- cgit v1.2.3-60-g2f50