From 2901ba177dea5867cbd52eb2b02a0ef8e1816e15 Mon Sep 17 00:00:00 2001 From: wushin Date: Wed, 7 Jan 2015 21:00:16 -0600 Subject: Moving Tutorial from Tulimshar to Candor --- world/map/npc/003-1/_import.txt | 7 - world/map/npc/003-1/_mobs.txt | 40 ---- world/map/npc/003-1/_warps.txt | 8 - world/map/npc/003-1/mapflags.txt | 1 - world/map/npc/003-1/stranger.txt | 464 --------------------------------------- 5 files changed, 520 deletions(-) delete mode 100644 world/map/npc/003-1/_import.txt delete mode 100644 world/map/npc/003-1/_mobs.txt delete mode 100644 world/map/npc/003-1/_warps.txt delete mode 100644 world/map/npc/003-1/mapflags.txt delete mode 100644 world/map/npc/003-1/stranger.txt (limited to 'world/map/npc/003-1') diff --git a/world/map/npc/003-1/_import.txt b/world/map/npc/003-1/_import.txt deleted file mode 100644 index 4ab3384f..00000000 --- a/world/map/npc/003-1/_import.txt +++ /dev/null @@ -1,7 +0,0 @@ -// Map 003-1: Beach -// This file is generated automatically. All manually changes will be removed when running the Converter. -map: 003-1.gat -npc: npc/003-1/_mobs.txt -npc: npc/003-1/_warps.txt -npc: npc/003-1/mapflags.txt -npc: npc/003-1/stranger.txt diff --git a/world/map/npc/003-1/_mobs.txt b/world/map/npc/003-1/_mobs.txt deleted file mode 100644 index a2ea4b4c..00000000 --- a/world/map/npc/003-1/_mobs.txt +++ /dev/null @@ -1,40 +0,0 @@ -// This file is generated automatically. All manually changes will be removed when running the Converter. -// Beach mobs - -003-1.gat,158,68,28,96|monster|GiantMaggot|1006,10,100000ms,30000ms,Mob003-1::On1006 -003-1.gat,0,0,0,0|monster|SeaSlime|1033,15,100000ms,30000ms,Mob003-1::On1033 -003-1.gat,120,31,22,22|monster|SeaSlime|1033,5,100000ms,30000ms,Mob003-1::On1033 -003-1.gat,119,68,105,101|monster|GreenSlime|1005,35,100000ms,30000ms,Mob003-1::On1005 -003-1.gat,134,69,76,71|monster|RedScorpion|1004,20,100000ms,30000ms,Mob003-1::On1004 -003-1.gat,35,25,10,3|monster|MountainSnake|1026,1,700000ms,600000ms,Mob003-1::On1026 - - -003-1.gat,0,0,0|script|Mob003-1|-1 -{ - end; - -On1004: - set @mobID, 1004; - callfunc "MobPoints"; - end; - -On1005: - set @mobID, 1005; - callfunc "MobPoints"; - end; - -On1006: - set @mobID, 1006; - callfunc "MobPoints"; - end; - -On1026: - set @mobID, 1026; - callfunc "MobPoints"; - end; - -On1033: - set @mobID, 1033; - callfunc "MobPoints"; - end; -} diff --git a/world/map/npc/003-1/_warps.txt b/world/map/npc/003-1/_warps.txt deleted file mode 100644 index 0d99d333..00000000 --- a/world/map/npc/003-1/_warps.txt +++ /dev/null @@ -1,8 +0,0 @@ -// This file is generated automatically. All manually changes will be removed when running the Converter. -// Beach warps - -003-1.gat,172,77|warp|To Sandstorm Desert|-1,3,002-1.gat,13,66 -003-1.gat,141,19|warp|To Beach|1,-1,004-1.gat,37,110 -003-1.gat,48,36|warp|To Beach House|-1,-1,003-2.gat,22,28 -003-1.gat,59,29|warp|To Beach Storage|-1,-1,003-2.gat,56,28 -003-1.gat,114,117|warp|To Beach|2,-1,043-1.gat,44,20 diff --git a/world/map/npc/003-1/mapflags.txt b/world/map/npc/003-1/mapflags.txt deleted file mode 100644 index 682c6a82..00000000 --- a/world/map/npc/003-1/mapflags.txt +++ /dev/null @@ -1 +0,0 @@ -003-1.gat|mapflag|resave|001-1,57,71 diff --git a/world/map/npc/003-1/stranger.txt b/world/map/npc/003-1/stranger.txt deleted file mode 100644 index 65f7abd9..00000000 --- a/world/map/npc/003-1/stranger.txt +++ /dev/null @@ -1,464 +0,0 @@ -003-1.gat,35,25,0|script|Stranger|192 -{ - set @IRONINGOT, 5; - set @PINKANTENNA, 21; - set @Exp, 20000; - setarray @towelReq$, "WhiteHitchhikersTowel","RedHitchhikersTowel","GreenHitchhikersTowel","BlueHitchhikersTowel","YellowHitchhikersTowel","PurpleHitchhikersTowel","OrangeHitchhikersTowel","PinkHitchhikersTowel","TealHitchhikersTowel","LimeHitchhikersTowel","HitchhikersTowel"; - - if (FLAGS & FLAG_TOWEL_COMPLETED) goto L_Event_Done; - 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; - -L_Items: - if (countitem("IronIngot") < @IRONINGOT) goto L_No_Item; - if (countitem("PinkAntenna") < @PINKANTENNA) goto L_No_Item; - delitem "IronIngot", @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; - goto L_Towel; - -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; - goto L_Easy_Skip4; - -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; - goto L_Easy_Skip3; - -L_Easy_Skip3: - 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; - - 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; - goto L_Medium_Skip4; - -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; - goto L_Medium_Skip3; - -L_Medium_Skip3: - 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; - - 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 pints of 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; - goto L_Hard_Skip4; - -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; - goto L_Hard_Skip3; - -L_Hard_Skip3: - 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; - - 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 - set FLAGS, FLAGS | FLAG_TOWEL_COMPLETED; - next; - goto L_Explain; - -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.\""; - goto L_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 (FLAGS & FLAG_TOWEL_COMPLETED) - menu - "Thanks for the advice.",L_Close, - "I have my towel with me too.",L_Dye; - goto L_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_StartDyeTowel, - "It's great, isn't it? I have to go now.",L_Close; - -L_No_Item: - mes "[Stranger]"; - mes "\"Hu? It seems you haven't.\""; - goto L_Close; - -L_Wrong_Answer: - mes "[Stranger]"; - mes "\"Nah, that's wrong. Come back if you want to try again.\""; - goto L_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!", L_StartDyeTowel, - "No, thanks.", L_Close; - -L_StartDyeTowel: - 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; - -L_White: - // Koga - set @warpTowelName$, "WhiteHitchhikersTowel"; - setarray @towelPowder$, "DiamondPowder"; - setarray @towelPowderCnt, 2; - goto L_DyeChecks; - -L_Red: - // Barbarians - set @warpTowelName$, "RedHitchhikersTowel"; - setarray @towelPowder$, "RubyPowder"; - setarray @towelPowderCnt, 2; - goto L_DyeChecks; - -L_Green: - // Candor - set @warpTowelName$, "GreenHitchhikersTowel"; - setarray @towelPowder$, "EmeraldPowder"; - setarray @towelPowderCnt, 2; - goto L_DyeChecks; - -L_Blue: - // Blue Sages - set @warpTowelName$, "BlueHitchhikersTowel"; - setarray @towelPowder$, "SapphirePowder"; - setarray @towelPowderCnt, 2; - goto L_DyeChecks; - -L_Yellow: - // Tulimshar Mines - set @warpTowelName$, "YellowHitchhikersTowel"; - setarray @towelPowder$, "TopazPowder"; - setarray @towelPowderCnt, 2; - goto L_DyeChecks; - -L_Purple: - // Dimonds Inn - set @warpTowelName$, "PurpleHitchhikersTowel"; - setarray @towelPowder$, "AmethystPowder"; - setarray @towelPowderCnt, 2; - goto L_DyeChecks; - -L_Orange: - // Graveyard - set @warpTowelName$, "OrangeHitchhikersTowel"; - setarray @towelPowder$, "RubyPowder", "TopazPowder"; - setarray @towelPowderCnt, 1, 1; - goto L_DyeChecks; - -L_Pink: - // Terranite Cave - set @warpTowelName$, "PinkHitchhikersTowel"; - setarray @towelPowder$, "RubyPowder", "DiamondPowder"; - setarray @towelPowderCnt, 1, 1; - goto L_DyeChecks; - -L_Teal: - // Mana Seed - set @warpTowelName$, "TealHitchhikersTowel"; - setarray @towelPowder$, "EmeraldPowder", "SapphirePowder"; - setarray @towelPowderCnt, 1, 1; - goto L_DyeChecks; - -L_Lime: - // Panchua - set @warpTowelName$, "LimeHitchhikersTowel"; - setarray @towelPowder$, "EmeraldPowder", "TopazPowder"; - setarray @towelPowderCnt, 1, 1; - goto L_DyeChecks; - -L_DyeChecks: - mes "[Stranger]"; - mes "\"Ok, I'll need a bottle of water first.\""; - next; - getinventorylist; - if (@inventorylist_count == 100) goto L_Full_Inv; - if (countitem("BottleOfWater") < 1) goto L_No_Water; - set @powderCheckCount, 0; - goto L_PowderChecks; - -L_PowderCheckAgain: - mes "[Stranger]"; - mes "\"Now I need " + @towelPowderCnt[@powderCheckCount] + " " + @towelPowder$[@powderCheckCount] + ".\""; - next; - if((@powderCheckCount + 1) == getarraysize(@towelPowder$)) - goto L_TowelChecks; - set @powderCheckCount, (@powderCheckCount + 1); - goto L_PowderChecks; - -L_PowderChecks: - if (countitem(@towelPowder$[@powderCheckCount]) < @towelPowderCnt[@powderCheckCount]) - goto L_No_Powder; - goto L_PowderCheckAgain; - -L_TowelCheckAgain: - set @towelCheckCount, (@towelCheckCount + 1); - if(@towelCheckCount >= getarraysize(@towelReq$)) - goto L_No_Towel; - goto L_TowelChecks; - -L_TowelChecks: - if (countitem(@towelReq$[@towelCheckCount]) > 0) - goto L_DeletePowder; - goto L_TowelCheckAgain; - -L_DeleteAgain: - set @powderCheckCount, (@powderCheckCount - 1); - goto L_DeletePowder; - -L_DeletePowder: - delitem @towelPowder$[@powderCheckCount], @towelPowderCnt[@powderCheckCount]; - if (@powderCheckCount) - goto L_DeleteAgain; - goto L_DyeTowel; - -L_DyeTowel: - delitem @towelReq$[@towelCheckCount], 1; - callfunc "MultiWarpTowel"; - delitem "BottleOfWater", 1; - getitem @warpTowelName$, 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.\""; - goto L_Close; - -L_No_Water: - mes "[Stranger]"; - mes "\"You don't have water.\""; - goto L_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.\""; - goto L_Close; - -L_No_Towel: - mes "[Stranger]"; - mes "\"Where's your towel? It is really useful, you should always keep it with you.\""; - goto L_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.\""; - goto L_Close; - -L_Close: - set @IRONINGOT, 0; - set @PINKANTENNA, 0; - set @Exp, 0; - set @random, 0; - set @quizparam$, ""; - set @warpTowelName$, ""; - set @powderCheckCount, 0; - set @towelCheckCount, 0; - cleararray @towelPowder$, "", getarraysize(@towelPowder$); - cleararray @towelPowderCnt, "", getarraysize(@towelPowderCnt); - close; -} -- cgit v1.2.3-70-g09d2