diff options
Diffstat (limited to 'npc/001-1/tinris.txt')
| -rwxr-xr-x | npc/001-1/tinris.txt | 186 |
1 files changed, 186 insertions, 0 deletions
diff --git a/npc/001-1/tinris.txt b/npc/001-1/tinris.txt new file mode 100755 index 00000000..2f5fcc0f --- /dev/null +++ b/npc/001-1/tinris.txt @@ -0,0 +1,186 @@ +001-1,69,29,0 script Tinris NPC160,{ + @cake_exp = 50; + @sweater_exp = 400; + + @slime_amount1 = 6; + @slime_amount2 = 4; + @bugleg_amount1 = 4; + @bugleg_amount2 = 5; + @stinger_amount1 = 3; + @stinger_amount2 = 2; + @ash_amount1 = 1; + @ash_amount2 = 2; + @cactusp_amount = 1; + + if (.@q >= 12) goto L_Done; + if (.@q == 11) goto L_GiveGift; + if (.@q == 9) goto L_FertilizerDone; + if (.@q >= 7) goto L_Eomie; + if (.@q == 6) goto L_SecondTry; + if (.@q >= 4) goto L_FirstTryDone; + if (.@q == 3) goto L_FirstTry; + if (.@q == 2) goto L_Annual; + + mesn; + mes "\"This is a magic school. I'm a student here and focus on ways to magically enhance growth of plants."; + mes "That topic is very important in a desert area.\""; + if (.@q != 1) + goto L_Close; + menu + "The farmer Anwar sent me to ask for exactly that! Can you give me something for his field?",L_Next; + +L_Next: + mesn; + mes "\"Well... in principle yes. I can try to prepare something for him. But...\""; + next; + mes "\"The thing is, my girlfriend and I have our anniversary today. And the teachers won't let me leave the campus to get something for her!"; + mes "Please go to the bakery and buy a Chocolate Cake for me. She loves Chocolate Cakes.\""; + next; + mes "\"When I have a present for her I can focus on creating some magic fertilizer.\""; + .@q = 2; + goto L_Close; + +L_Annual: // .@q == 2 + mesn; + mes "\"Hello, did you get the Chocolate Cake for my girlfriend? After that I can focus on creating some magic fertilizer for you.\""; + menu + "Fresh from the bakery!",L_FreshFrom, + "I didn't get it yet.",L_Close; + +L_FreshFrom: + if (countitem("ChocolateCake") < 1) + goto L_NoItem; + delitem "ChocolateCake", 1; + getexp @cake_exp, 0; + .@q = 3; + mesn; + mes "\"Oh, thank you! You saved me!"; + mes "All right, now we can start with the magic fertilizer.\""; + next; + goto L_FirstTry; + +L_FirstTry: + // .@q == 3 + mesn; + mes "\"You need to bring me some ingredients."; + mes "The ingredients are " + @slime_amount1 + " Maggot Slimes, " + @bugleg_amount1 + " Bug Legs, " + @stinger_amount1 + " Scorpion Stingers and " + @ash_amount1 + " Piles of Ash.\""; + menu + "I have it.",L_Continue, + "Ok, I'll go and get it.",L_Close; + +L_Continue: + if ((countitem("MaggotSlime") < @slime_amount1) || (countitem("BugLeg") < @bugleg_amount1) || (countitem("ScorpionStinger") < @stinger_amount1) || (countitem("PileOfAsh") < @ash_amount1)) + goto L_NoItem; + delitem "MaggotSlime", @slime_amount1; + delitem "BugLeg", @bugleg_amount1; + delitem "ScorpionStinger", @stinger_amount1; + delitem "PileOfAsh", @ash_amount1; + .@q = 4; + mes "Tinris takes the things and starts to mix them together while mumbling some invocations."; + misceffect sfx_magic_nature; + next; + mesn; + mes "\"Ok. This should do it. But I'm not sure. I'm still researching this topic."; + mes "Here, bring this to Anwar.\""; + mes "He gives you a bottle with the magic fertilizer. You put it away in a separate pocket, so it doesn't get mixed with your inventory."; + goto L_Close; + +L_FirstTryDone: // .@q >= 4 but below 6 + mesn; + mes "\"Bring the fertilizer to Anwar and let me know if it worked.\""; + if (.@q != 5) + goto L_Close; + menu + "I did, the plants went brown and shriveled.",L_More; + +L_More: + .@q = 6; + goto L_SecondTry; + +L_SecondTry: + // .@q == 6 + mesn; + mes "\"Oh no! All right, we need to do another try."; + mes "Bring me " + @slime_amount2 + " Maggot Slimes, " + @bugleg_amount2 + " Bug Legs, " + @stinger_amount2 + " Scorpion Stingers, " + @ash_amount2 + " Piles of Ash and " + @cactusp_amount + " Cactus Potion.\""; + menu + "Here it is.",L_HereItIs, + "Ok, I'll go and get it.",L_Close; + +L_HereItIs: + if ((countitem("MaggotSlime") < @slime_amount2) || (countitem("BugLeg") < @bugleg_amount2) || (countitem("ScorpionStinger") < @stinger_amount2) || (countitem("PileOfAsh") < @ash_amount2) || (countitem("CactusPotion") < @cactusp_amount)) + goto L_NoItem; + delitem "MaggotSlime", @slime_amount2; + delitem "BugLeg", @bugleg_amount2; + delitem "ScorpionStinger", @stinger_amount2; + delitem "PileOfAsh", @ash_amount2; + delitem "CactusPotion", @cactusp_amount; + .@q = 7; + mes "Tinris takes the things and starts to mix and mumble again."; + misceffect sfx_magic_nature; + next; + mes "It takes quite a while."; + next; + mes "He looks rather stressed while working on the mixture."; + next; + mes "He sighs."; + mesn; + mes "\"Mh, I think the mixture itself is good. But I can't get the spells right. Maybe you should ask Professor Eomie to cast it; she's a genius with nature magic.\""; + mes "He gives you the bottle with the magic fertilizer."; + goto L_Close; + +L_Eomie: + // .@q >= 7 but below 9 + mesn; + mes "\"I did the best I could, but it seems I'm not experienced enough to cast the spells correctly. Better ask Professor Eomie for help.\""; + goto L_Close; + +L_FertilizerDone: + // .@q == 9 + mesn; + mes "\"I heard Eomie cast the spell? I really hope it'll work this time. Bring the magic fertilizer to Anwar now.\""; + goto L_Close; + +L_GiveGift: + // .@q == 11 + mesn; + mes "\"Ah, did Anwar try the new fertilizer?\""; + menu + "Yes, it works great and he asked me to give you this Green V-Neck Sweater he made.",L_ItWorksGreat, + "Not yet.",L_Close; + +L_ItWorksGreat: + if (countitem("GreenVNeckSweater") < 1) + goto L_NoItem; + delitem "GreenVNeckSweater", 1; + getexp @sweater_exp, 0; + .@q = 12; + mesn; + mes "\"Hey, that's really nice. Tell him my thanks.\""; + goto L_Close; + +L_Done: + // .@q >= 12 + mesn; + mes "\"My girlfriend was delighted with the Chocolate Cake and Professor Eomie was happy with my work on the magic fertilizer.\""; + mes "He twinkles."; + mesn; + mes "\"We're a good team.\""; + goto L_Close; + +L_NoItem: + mesn; + mes "\"You don't have it!\""; + goto L_Close; + +L_Close: + @slime_amount1 = 0; + @slime_amount2 = 0; + @bugleg_amount1 = 0; + @bugleg_amount2 = 0; + @stinger_amount1 = 0; + @stinger_amount2 = 0; + @ash_amount1 = 0; + @ash_amount2 = 0; + @cactusp_amount = 0; + close; +} |