diff options
Diffstat (limited to 'world/map/npc/003-1/stranger.txt')
| -rw-r--r-- | world/map/npc/003-1/stranger.txt | 914 |
1 files changed, 461 insertions, 453 deletions
diff --git a/world/map/npc/003-1/stranger.txt b/world/map/npc/003-1/stranger.txt index 37ecc4ab..09c81f36 100644 --- a/world/map/npc/003-1/stranger.txt +++ b/world/map/npc/003-1/stranger.txt @@ -1,520 +1,528 @@ -003-1.gat,35,25,0 script Stranger 192, { - - set @month, 5; - set @start_day, 18; - set @end_day, 25; - set @IRONINGOT, 5; - set @PINKANTENNA, 21; - set @EXP, 20000; - - if (FLAGS & FLAG_TOWEL_COMPLETED) goto L_Event_Done; - if (gettime(6) != @month) goto L_No_Event; - if (gettime(5) < @start_day) goto L_No_Event; - if (gettime(5) > @end_day) goto L_No_Event; - if ((gettimetick(2)-TUT_var < 6*7*86400) || (baselevel < 42 )) //player must be created at least 6 weeks ago and at least level 42 - goto L_No_Event; - if (FLAGS & FLAG_TOWEL_HELPED) goto L_Towel; - - mes "[Stranger]"; - mes "\"Hello, hello! It's great to see you. Maybe you can help me with a little problem I have.\""; - next; - mes "\"I need some materials to repair my spacesh- ahm, it's not important why I need it.\""; - next; - mes "\"Anyway, I'd be really happy if you can give me " + @IRONINGOT + " Iron Ingots and " + @PINKANTENNA + " Pink Antennas.\""; - next; - mes "\"Do you have that for me?\""; - menu - "Yeah, sure.",L_Items, - "No.",L_Close; - close; +003-1.gat,35,25,0|script|Stranger|192, { + + set @month, 5; + set @start_day, 18; + set @end_day, 25; + set @IRONINGOT, 5; + set @PINKANTENNA, 21; + set @EXP, 20000; + + if (FLAGS & FLAG_TOWEL_COMPLETED) goto L_Event_Done; + if (gettime(6) != @month) goto L_No_Event; + if (gettime(5) < @start_day) goto L_No_Event; + if (gettime(5) > @end_day) goto L_No_Event; + if ((gettimetick(2)-TUT_var < 6*7*86400) || (baselevel < 42 )) //player must be created at least 6 weeks ago and at least level 42 + goto L_No_Event; + if (FLAGS & FLAG_TOWEL_HELPED) goto L_Towel; + + mes "[Stranger]"; + mes "\"Hello, hello! It's great to see you. Maybe you can help me with a little problem I have.\""; + next; + mes "\"I need some materials to repair my spacesh- ahm, it's not important why I need it.\""; + next; + mes "\"Anyway, I'd be really happy if you can give me " + @IRONINGOT + " Iron Ingots and " + @PINKANTENNA + " Pink Antennas.\""; + next; + mes "\"Do you have that for me?\""; + menu + "Yeah, sure.",L_Items, + "No.",L_Close; + close; L_Items: - if (countitem("IngotIron") < @IRONINGOT) goto L_No_Item; - if (countitem("PinkAntenna") < @PINKANTENNA) goto L_No_Item; - delitem "IngotIron", @IRONINGOT; - delitem "PinkAntenna", @PINKANTENNA; - getexp @EXP, 0; - set FLAGS, FLAGS | FLAG_TOWEL_HELPED; - - mes "[Stranger]"; - mes "\"Great! Thank you!\""; - next; - mes "\"I have a lot of work to do now. But before you leave...\""; - next; + if (countitem("IngotIron") < @IRONINGOT) goto L_No_Item; + if (countitem("PinkAntenna") < @PINKANTENNA) goto L_No_Item; + delitem "IngotIron", @IRONINGOT; + delitem "PinkAntenna", @PINKANTENNA; + getexp @EXP, 0; + set FLAGS, FLAGS | FLAG_TOWEL_HELPED; + + mes "[Stranger]"; + mes "\"Great! Thank you!\""; + next; + mes "\"I have a lot of work to do now. But before you leave...\""; + next; L_Towel: - getinventorylist; - if (@inventorylist_count == 100) goto L_Full_Inv; - mes "[Stranger]"; - mes "\"On May 25th it is a very special day - Towel Day.\""; - next; - mes "\"To celebrate this I'll ask you some questions about my favourite book, The Hitchhiker's Guide to the Galaxy. If you can answer them, I'll give you something very useful.\""; - next; - mes ""; - mes "[Server]"; - mes "The answers might need to have whitespaces."; - mes "If you're using a client which confirms your answer when pressing space, change this setting before continuing."; - mes ""; - next; - mes "[Stranger]"; - mes "\"The first one is easy.\""; - next; - - setarray @easy_questions$, - "What two words are written in big friendly letters on the back cover?", - "What's the name of the paranoid robot?", - "What is the answer to life, the universe and everything?", - "What is the first name of the author of the hitchhikers guide?", - "What is the last name of the author of the hitchhikers guide?", - "Who is the male human protagonist?", - "Who is the female human protagonist?", - "According to the Guide, space is ____?", - "What is the name of the spaceship which was stolen by the president of the universe?", - "How many heads does Zaphod Beeblebrox have?"; - - setarray @easy_answers_amount,2,2,2,2,2,4,4,2,4,2; - - set @random, rand(10); - mes "\"" + @easy_questions$[@random] + "\""; - input @answer$; - - if (@easy_answers_amount[@random] < 4) - goto L_Easy_Skip4; - set @quizparam$, "towelanswer0" + @random + "d"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Easy; + getinventorylist; + if (@inventorylist_count == 100) goto L_Full_Inv; + mes "[Stranger]"; + mes "\"On May 25th it is a very special day - Towel Day.\""; + next; + mes "\"To celebrate this I'll ask you some questions about my favourite book, The Hitchhiker's Guide to the Galaxy. If you can answer them, I'll give you something very useful.\""; + next; + mes ""; + mes "[Server]"; + mes "The answers might need to have whitespaces."; + mes "If you're using a client which confirms your answer when pressing space, change this setting before continuing."; + mes ""; + next; + mes "[Stranger]"; + mes "\"The first one is easy.\""; + next; + + setarray @easy_questions$, + "What two words are written in big friendly letters on the back cover?", + "What's the name of the paranoid robot?", + "What is the answer to life, the universe and everything?", + "What is the first name of the author of the hitchhikers guide?", + "What is the last name of the author of the hitchhikers guide?", + "Who is the male human protagonist?", + "Who is the female human protagonist?", + "According to the Guide, space is ____?", + "What is the name of the spaceship which was stolen by the president of the universe?", + "How many heads does Zaphod Beeblebrox have?"; + + setarray @easy_answers_amount,2,2,2,2,2,4,4,2,4,2; + + set @random, rand(10); + mes "\"" + @easy_questions$[@random] + "\""; + input @answer$; + + if (@easy_answers_amount[@random] < 4) + goto L_Easy_Skip4; + set @quizparam$, "towelanswer0" + @random + "d"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Easy; + L_Easy_Skip4: - if (@easy_answers_amount[@random] < 3) - goto L_Easy_Skip3; - set @quizparam$, "towelanswer0" + @random + "c"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Easy; + if (@easy_answers_amount[@random] < 3) + goto L_Easy_Skip3; + set @quizparam$, "towelanswer0" + @random + "c"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Easy; + L_Easy_Skip3: - set @quizparam$, "towelanswer0" + @random + "b"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Easy; + set @quizparam$, "towelanswer0" + @random + "b"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Easy; - set @quizparam$, "towelanswer0" + @random + "a"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Easy; + set @quizparam$, "towelanswer0" + @random + "a"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Easy; - goto L_Wrong_Answer; + goto L_Wrong_Answer; L_Right_Answer_Easy: - mes "[Stranger]"; - mes "\"You're absolutely right. The next one will be more tricky.\""; - next; - - setarray @medium_questions$, - "What is the name of the rock group claiming to be the loudest band in the universe?", - "What star is near Ford's home planet?", - "Which country does the human protagonist come from?", - "What is the name of the computer on The Heart of Gold?", - "What color is a Babel Fish?", - "What did the bowl of petunias think?", - "What body orifice should a babel fish be inserted in to work properly?", - "What is the name of the super computer?", - "What were the second most intelligent creatures on Earth?", - "What race creates the worst poetry in universe?", - "What is the name of the Vogon home planet?", - "What is the name of the Restaurant at the End of the Universe?"; - - setarray @medium_answers_amount,2,2,2,2,2,3,2,2,4,4,2,2; - - set @random, rand(12); - mes "\"" + @medium_questions$[@random] + "\""; - input @answer$; - - if (@medium_answers_amount[@random] < 4) - goto L_Medium_Skip4; - - set @quizparam$, "towelanswer1" + @random + "d"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Medium; + mes "[Stranger]"; + mes "\"You're absolutely right. The next one will be more tricky.\""; + next; + + setarray @medium_questions$, + "What is the name of the rock group claiming to be the loudest band in the universe?", + "What star is near Ford's home planet?", + "Which country does the human protagonist come from?", + "What is the name of the computer on The Heart of Gold?", + "What color is a Babel Fish?", + "What did the bowl of petunias think?", + "What body orifice should a babel fish be inserted in to work properly?", + "What is the name of the super computer?", + "What were the second most intelligent creatures on Earth?", + "What race creates the worst poetry in universe?", + "What is the name of the Vogon home planet?", + "What is the name of the Restaurant at the End of the Universe?"; + + setarray @medium_answers_amount,2,2,2,2,2,3,2,2,4,4,2,2; + + set @random, rand(12); + mes "\"" + @medium_questions$[@random] + "\""; + input @answer$; + + if (@medium_answers_amount[@random] < 4) + goto L_Medium_Skip4; + + set @quizparam$, "towelanswer1" + @random + "d"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Medium; + L_Medium_Skip4: - if (@medium_answers_amount[@random] < 3) - goto L_Medium_Skip3; - set @quizparam$, "towelanswer1" + @random + "c"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Medium; + if (@medium_answers_amount[@random] < 3) + goto L_Medium_Skip3; + set @quizparam$, "towelanswer1" + @random + "c"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Medium; + L_Medium_Skip3: - set @quizparam$, "towelanswer1" + @random + "b"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Medium; + set @quizparam$, "towelanswer1" + @random + "b"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Medium; - set @quizparam$, "towelanswer1" + @random + "a"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Medium; + set @quizparam$, "towelanswer1" + @random + "a"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Medium; - goto L_Wrong_Answer; + goto L_Wrong_Answer; L_Right_Answer_Medium: - mes "[Stranger]"; - mes "\"Not bad, not bad. Let's see if you can answer an even more difficult one.\""; - next; - - setarray @hard_questions$, - "Drinking what drink is like having your brain smashed out by a slice of lemon wrapped round a large gold brick?", - "How many beers should you drink before hitchhiking?", - "What initials are carved into Zaphod Beeblebrox's brain?", - "What is Ford Prefect's nickname?", - "Who is responsible for the fjords of Norway?", - "What game is played on earth as a relict of memories to an ancient war?", - "What is the name of the triple-breasted whore from Eroticon VI?", - "Who will insult every living being in the universe, because he is immortal and getting bored?", - "What is the name of the piteous creature that is continually reincarnated and subsequently killed, each time unknowingly, by Arthur Dent?"; - - setarray @hard_answers_amount,4,2,2,2,2,2,2,4,2; - - set @random, rand(9); - mes "\"" + @hard_questions$[@random] + "\""; - input @answer$; - - if (@hard_answers_amount[@random] < 4) - goto L_Hard_Skip4; - set @quizparam$, "towelanswer2" + @random + "d"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Hard; + mes "[Stranger]"; + mes "\"Not bad, not bad. Let's see if you can answer an even more difficult one.\""; + next; + + setarray @hard_questions$, + "Drinking what drink is like having your brain smashed out by a slice of lemon wrapped round a large gold brick?", + "How many beers should you drink before hitchhiking?", + "What initials are carved into Zaphod Beeblebrox's brain?", + "What is Ford Prefect's nickname?", + "Who is responsible for the fjords of Norway?", + "What game is played on earth as a relict of memories to an ancient war?", + "What is the name of the triple-breasted whore from Eroticon VI?", + "Who will insult every living being in the universe, because he is immortal and getting bored?", + "What is the name of the piteous creature that is continually reincarnated and subsequently killed, each time unknowingly, by Arthur Dent?"; + + setarray @hard_answers_amount,4,2,2,2,2,2,2,4,2; + + set @random, rand(9); + mes "\"" + @hard_questions$[@random] + "\""; + input @answer$; + + if (@hard_answers_amount[@random] < 4) + goto L_Hard_Skip4; + set @quizparam$, "towelanswer2" + @random + "d"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Hard; + L_Hard_Skip4: - if (@hard_answers_amount[@random] < 3) - goto L_Hard_Skip3; - set @quizparam$, "towelanswer2" + @random + "c"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Hard; + if (@hard_answers_amount[@random] < 3) + goto L_Hard_Skip3; + set @quizparam$, "towelanswer2" + @random + "c"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Hard; + L_Hard_Skip3: - set @quizparam$, "towelanswer2" + @random + "b"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Hard; + set @quizparam$, "towelanswer2" + @random + "b"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Hard; - set @quizparam$, "towelanswer2" + @random + "a"; - callfunc "StrangerQuiz"; - if (("###" + @answer$ == @quizanswer$)) - goto L_Right_Answer_Hard; + set @quizparam$, "towelanswer2" + @random + "a"; + callfunc "StrangerQuiz"; + if (("###" + @answer$ == @quizanswer$)) + goto L_Right_Answer_Hard; - goto L_Wrong_Answer; + goto L_Wrong_Answer; L_Right_Answer_Hard: - mes "[Stranger]"; - mes "\"Unbelievable! You're really a wise person.\""; - next; - mes "\"One last question, but this shouldn't be a problem for you.\""; - next; - mes "\"What is the most important item for every hitchhiker to have?\""; - input @answer$; - if (@answer$ != "Towel" && @answer != "towel") - goto L_Wrong_Answer; - - mes "[Stranger]"; - mes "\"There you are! A towel is really the most important item for a hitchhiker to have.\""; - next; - mes "\"Please take this.\""; // no full inventory check, this is done before the game - getitem "GreyWarpTowel", 1; - set FLAGS, FLAGS | FLAG_TOWEL_COMPLETED; - next; + mes "[Stranger]"; + mes "\"Unbelievable! You're really a wise person.\""; + next; + mes "\"One last question, but this shouldn't be a problem for you.\""; + next; + mes "\"What is the most important item for every hitchhiker to have?\""; + input @answer$; + if (@answer$ != "Towel" && @answer != "towel") + goto L_Wrong_Answer; + + mes "[Stranger]"; + mes "\"There you are! A towel is really the most important item for a hitchhiker to have.\""; + next; + mes "\"Please take this.\""; // no full inventory check, this is done before the game + getitem "GreyWarpTowel", 1; + set FLAGS, FLAGS | FLAG_TOWEL_COMPLETED; + next; + L_Explain: - mes "[Stranger]"; - mes "\"This towel is even more useful than usual towels are. If you change its color, it uses a special techno-, ahm, let's say, it can help you to get to other places.\""; - next; - mes "\"Bring me some powder made from gemstones and a bottle of water, and I can prepare it for you.\""; - next; - mes "\"Depending on the color it will bring you to different places. It might wear out after a while and it'll loose its color, but I can prepare it for you again.\""; - next; - mes "\"Since I'm not familar with this plane-, ahm, with this area, I can't tell which places you will end up in.\""; - close; + mes "[Stranger]"; + mes "\"This towel is even more useful than usual towels are. If you change its color, it uses a special techno-, ahm, let's say, it can help you to get to other places.\""; + next; + mes "\"Bring me some powder made from gemstones and a bottle of water, and I can prepare it for you.\""; + next; + mes "\"Depending on the color it will bring you to different places. It might wear out after a while and it'll loose its color, but I can prepare it for you again.\""; + next; + mes "\"Since I'm not familar with this plane-, ahm, with this area, I can't tell which places you will end up in.\""; + close; L_No_Event: - mes "[Stranger]"; - mes "\"Hello. Isn't this a beautiful place?\""; - next; - mes "\"And it really comes in handy that I have my towel with me. A towel is about the most massively useful thing an inte- ahm, a person can have.\""; - next; - mes "\"You can read more about that in my favourite book, 'The Hitchhiker's Guide to the Galaxy'.\""; - if (countitem("GreyWarpTowel") > 0) - menu - "Thanks for the advice.",-, - "I have my towel with me too.",L_Dye; - close; + mes "[Stranger]"; + mes "\"Hello. Isn't this a beautiful place?\""; + next; + mes "\"And it really comes in handy that I have my towel with me. A towel is about the most massively useful thing an inte- ahm, a person can have.\""; + next; + mes "\"You can read more about that in my favourite book, 'The Hitchhiker's Guide to the Galaxy'.\""; + if (countitem("GreyWarpTowel") > 0) + menu + "Thanks for the advice.",-, + "I have my towel with me too.",L_Dye; + close; L_Dye: - mes "[Stranger]"; - mes "\"Wonderful! Let me have a look.\""; - mes "He's taking a very interested look at your towel."; - next; - mes "[Stranger]"; - mes "\"I'm impressed. This is not an usual towel.\""; - next; - menu - "Oh? Can you explain about it?",L_Explain, - "I know. Could you dye it for me?",L_Dye_Towel, - "It's great, isn't it? I have to go now.",-; - close; + mes "[Stranger]"; + mes "\"Wonderful! Let me have a look.\""; + mes "He's taking a very interested look at your towel."; + next; + mes "[Stranger]"; + mes "\"I'm impressed. This is not an usual towel.\""; + next; + menu + "Oh? Can you explain about it?",L_Explain, + "I know. Could you dye it for me?",L_Dye_Towel, + "It's great, isn't it? I have to go now.",-; + close; L_No_Item: - mes "[Stranger]"; - mes "\"Hu? It seems you haven't.\""; - close; + mes "[Stranger]"; + mes "\"Hu? It seems you haven't.\""; + close; L_Wrong_Answer: - mes "[Stranger]"; - mes "\"Nah, that's wrong. Come back if you want to try again.\""; - close; + mes "[Stranger]"; + mes "\"Nah, that's wrong. Come back if you want to try again.\""; + close; L_Event_Done: - mes "[Stranger]"; - mes "\"Ah, welcome back. Thanks again for your help.\""; - next; - mes "\"Shall I dye your towel?\""; - menu - "That would be great!",-, - "No, thanks.", L_Close; + mes "[Stranger]"; + mes "\"Ah, welcome back. Thanks again for your help.\""; + next; + mes "\"Shall I dye your towel?\""; + menu + "That would be great!",-, + "No, thanks.", L_Close; + L_Dye_Towel: - mes "[Stranger]"; - mes "\"Alright, which color do you want?\""; + mes "[Stranger]"; + mes "\"Alright, which color do you want?\""; // the other colors should be added when more places are released - menu - "Red",L_Red, - "Yellow",L_Yellow, - "White",L_White, -// "Blue",L_Blue, -// "Green",L_Green, -// "Purple",L_Purple, - "Orange",L_Orange, - "Pink",L_Pink, -// "Lime",L_Lime, -// "Teal",L_Teal, - "I changed my mind.", L_Close; - close; + menu + "Red",L_Red, + "Yellow",L_Yellow, + "White",L_White, +// "Blue",L_Blue, +// "Green",L_Green, +// "Purple",L_Purple, + "Orange",L_Orange, + "Pink",L_Pink, +// "Lime",L_Lime, +// "Teal",L_Teal, + "I changed my mind.", L_Close; + close; L_Red: - mes "[Stranger]"; - mes "\"Ok, I'll need two bags of Ruby Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderRed") < 2) goto L_No_Powder; - delitem "GemPowderRed", 2; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "RedWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need two bags of Ruby Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderRed") < 2) goto L_No_Powder; + delitem "GemPowderRed", 2; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "RedWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Yellow: - mes "[Stranger]"; - mes "\"Ok, I'll need two bags of Topaz Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderYellow") < 2) goto L_No_Powder; - delitem "GemPowderYellow", 2; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "YellowWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need two bags of Topaz Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderYellow") < 2) goto L_No_Powder; + delitem "GemPowderYellow", 2; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "YellowWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_White: - mes "[Stranger]"; - mes "\"Ok, I'll need two bags of Diamond Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderWhite") < 2) goto L_No_Powder; - delitem "GemPowderWhite", 2; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "WhiteWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need two bags of Diamond Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderWhite") < 2) goto L_No_Powder; + delitem "GemPowderWhite", 2; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "WhiteWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Blue: - mes "[Stranger]"; - mes "\"Ok, I'll need two bags of Sapphire Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderBlue") < 2) goto L_No_Powder; - delitem "GemPowderBlue", 2; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "BlueWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need two bags of Sapphire Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderBlue") < 2) goto L_No_Powder; + delitem "GemPowderBlue", 2; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "BlueWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Green: - mes "[Stranger]"; - mes "\"Ok, I'll need two bags of Emerald Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderGreen") < 2) goto L_No_Powder; - delitem "GemPowderGreen", 2; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "GreenWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need two bags of Emerald Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderGreen") < 2) goto L_No_Powder; + delitem "GemPowderGreen", 2; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "GreenWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Purple: - mes "[Stranger]"; - mes "\"Ok, I'll need two bags of Amethyst Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderPurple") < 2) goto L_No_Powder; - delitem "GemPowderPurple", 2; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "PurpleWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need two bags of Amethyst Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderPurple") < 2) goto L_No_Powder; + delitem "GemPowderPurple", 2; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "PurpleWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Orange: - mes "[Stranger]"; - mes "\"Ok, I'll need one bag of Ruby Powder, one bag of Topaz Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderRed") < 1) goto L_No_Powder; - if (countitem("GemPowderYellow") < 1) goto L_No_Powder; - delitem "GemPowderRed", 1; - delitem "GemPowderYellow", 1; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "OrangeWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need one bag of Ruby Powder, one bag of Topaz Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderRed") < 1) goto L_No_Powder; + if (countitem("GemPowderYellow") < 1) goto L_No_Powder; + delitem "GemPowderRed", 1; + delitem "GemPowderYellow", 1; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "OrangeWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Pink: - mes "[Stranger]"; - mes "\"Ok, I'll need one bag of Ruby Powder, one bag of Diamond Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderRed") < 1) goto L_No_Powder; - if (countitem("GemPowderWhite") < 1) goto L_No_Powder; - delitem "GemPowderRed", 1; - delitem "GemPowderWhite", 1; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "PinkWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need one bag of Ruby Powder, one bag of Diamond Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderRed") < 1) goto L_No_Powder; + if (countitem("GemPowderWhite") < 1) goto L_No_Powder; + delitem "GemPowderRed", 1; + delitem "GemPowderWhite", 1; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "PinkWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Lime: - mes "[Stranger]"; - mes "\"Ok, I'll need one bag of Emerald Powder, one bag of Topaz Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderGreen") < 1) goto L_No_Powder; - if (countitem("GemPowderYellow") < 1) goto L_No_Powder; - delitem "GemPowderGreen", 1; - delitem "GemPowderYellow", 1; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "LimeWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need one bag of Emerald Powder, one bag of Topaz Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderGreen") < 1) goto L_No_Powder; + if (countitem("GemPowderYellow") < 1) goto L_No_Powder; + delitem "GemPowderGreen", 1; + delitem "GemPowderYellow", 1; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "LimeWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_Teal: - mes "[Stranger]"; - mes "\"Ok, I'll need one bag of Emerald Powder, one bag of Sapphire Powder and a bottle of water for that.\""; - next; - if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; - getinventorylist; - if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - if (countitem("GemPowderGreen") < 1) goto L_No_Powder; - if (countitem("GemPowderBlue") < 1) goto L_No_Powder; - delitem "GemPowderGreen", 1; - delitem "GemPowderBlue", 1; - delitem "GreyWarpTowel", 1; - delitem "BottleOfWater", 1; - getitem "TealWarpTowel", 1; - mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; - next; - mes "[Stranger]"; - mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; - close; + mes "[Stranger]"; + mes "\"Ok, I'll need one bag of Emerald Powder, one bag of Sapphire Powder and a bottle of water for that.\""; + next; + if (countitem("GreyWarpTowel") < 1) goto L_No_Towel; + getinventorylist; + if ((countitem("GreyWarpTowel") > 1) && (@inventorylist_count == 100)) goto L_Full_Inv; + if (countitem("BottleOfWater") < 1) goto L_No_Water; + if (countitem("GemPowderGreen") < 1) goto L_No_Powder; + if (countitem("GemPowderBlue") < 1) goto L_No_Powder; + delitem "GemPowderGreen", 1; + delitem "GemPowderBlue", 1; + delitem "GreyWarpTowel", 1; + delitem "BottleOfWater", 1; + getitem "TealWarpTowel", 1; + mes "He takes your towel, the water and the gem powder, then he turns away and does something you can't see. After a few minutes, he turns to you again."; + next; + mes "[Stranger]"; + mes "\"Done! It'll use its color after being used, but just come back and I can dye it again for you.\""; + close; L_No_Water: - mes "[Stranger]"; - mes "\"You don't have water.\""; - close; + mes "[Stranger]"; + mes "\"You don't have water.\""; + close; L_No_Powder: - mes "[Stranger]"; - mes "\"You need to bring me enough gem powder in that color. Maybe someone used to mining can help you with that.\""; - close; + mes "[Stranger]"; + mes "\"You need to bring me enough gem powder in that color. Maybe someone used to mining can help you with that.\""; + close; L_No_Towel: - mes "[Stranger]"; - mes "\"Where's your towel? It is really useful, you should always keep it with you.\""; - close; + mes "[Stranger]"; + mes "\"Where's your towel? It is really useful, you should always keep it with you.\""; + close; L_Full_Inv: - mes "[Stranger]"; - mes "\"You carry a lot of stuff with you, don't you? Maybe you should get rid of something.\""; - close; + mes "[Stranger]"; + mes "\"You carry a lot of stuff with you, don't you? Maybe you should get rid of something.\""; + close; L_Close: - close; + close; } |