From f62781f96cbb2e61250124e3340d5d545cd469e8 Mon Sep 17 00:00:00 2001 From: Saulc Date: Sat, 13 Jan 2018 22:20:11 +0100 Subject: add bat for crazy --- npc/001-1/karim.txt | 136 +++++++++++++++++++++++++++++++++------------------- 1 file changed, 86 insertions(+), 50 deletions(-) (limited to 'npc/001-1/karim.txt') diff --git a/npc/001-1/karim.txt b/npc/001-1/karim.txt index f20c1bad5..743fdbc09 100644 --- a/npc/001-1/karim.txt +++ b/npc/001-1/karim.txt @@ -14,93 +14,129 @@ 001-1,87,114,0 script karim NPC_PLAYER,{ - function give_small_quest { + .Item1 = RightCraftyWing; + .Item2 = LeftCraftyWing; + .ItemReward = FlightTalisman; + + function quest_beggining{ speech S_FIRST_BLANK_LINE | S_LAST_NEXT, - l("Her sword... I'm having some trouble finishing it."), - l("You see, Enora asked me to do a black iron sword, unfortunately I ran out of the material needed, and..."), - l("Only Don and the Merchant Guild have that kind of material in stock. It's called black iron."), - l("It's better to deal with the Merchant Guild than the old man, Don has this ability to hammer down your enthusiasm in sparkling fury!"), - l("If Enora wants her sword now, I need to ask for your help."); + l("my name is karim can you help me?."); + + setq Karim_Quest, 1; + return; + } - switch (select(l("Let's not keep her waiting."), - l("Not now."))) + function quest_left { + if (countitem(.Item2) > 0) { - case 1: - break; - case 2: - speech S_FIRST_BLANK_LINE | S_LAST_NEXT, - lg("I'll be here, come back when you'll be ready."); - + delitem .Item2, 1; + if (rand(10) == 1) + { + mesq l("Yay, it worked! You get a good wing."); + getitem .ItemReward, 1; + setq Karim_Quest, 2; + close; + } + else + { + mesq l("This one is useless! Give me another @@.", getitemlink(.Item2)); return; + } } + else + { + mesq l("You don't have any @@, are you mocking me?", getitemlink(.Item2)); + return ; + } + } - speech S_FIRST_BLANK_LINE | S_LAST_NEXT, - l("Thank you very much!"), - l("Talk with Lloyd the Banker in the Merchant Guild, it's a big building in the northern side of Artis, at the top of the small hill."); - - setq ArtisQuests_Enora, 2; - - return; + function quest_right { + if (countitem(.Item1) > 0) + { + delitem .Item1, 1; + if (rand(5) == 1) + { + mesq l("Yay, it worked! You get a good wing."); + getitem .ItemReward, 1; + setq Karim_Quest, 2; + close; + } + else + { + mesq l("This one is useless! Give me another @@.", getitemlink(.Item1)); + next; + return; + } + } + else + { + mesq l("You don't have any @@, are you mocking me?", getitemlink(.Item1)); + return ; + } } - function more_info { + function quest_started { speech S_FIRST_BLANK_LINE | S_LAST_NEXT, - l("It's the big building in northern Artis, at the top of a small hill."), - l("Take the east road that goes to the north and follow it until you are on top of the cliff."), - l("That part of the town is called the Gilded Hill, it's also where the Merchant Guild has its headquarters."), //rich hill - l("Lloyd still owes me, but beware of those money-grabbers, or they might sell your own teeth to you!"); + l("Can you give me a @@ or a @@", getitemlink(.Item1), getitemlink(.Item2)); + do + { + select + l("a Right Crafty Wing"), + l("a Left Crafty Wing"), + menuaction(l("Quit")); + + switch (@menu) + { + case 1: + quest_right; + break; + case 2: + quest_left; + break; + } + } while (@menu != 3); return; } function quest_completed { speech S_FIRST_BLANK_LINE | S_LAST_NEXT, - l("Oh... Awesome!"), - l("You were gone so I thought you let me down."), - l("Don gave me some black iron... after I asked him nearly ten times."), - l("But thank you anyway! I can refund him now!"), - l("Take the sword, and say hi to Enora for me!"); - - setq ArtisQuests_Enora, 4; - + l("Quest completed."); return; } - function blacksmith_house{ + function quest_restart { speech S_FIRST_BLANK_LINE | S_LAST_NEXT, - l("Behind me? It's the Blacksmith House, the most renowned throughout Aemil."), - l("There are two shops inside, they are independent from the Merchant Guild of Artis."), - l("Now that I think about it, they are the only shops that are independent in Artis..."), - l("...it might be because of Don... he is the master blacksmith of this place and a model to me!"); - + l("Quest restart."); + setq Karim_Quest, 0; return; } - speech S_LAST_NEXT, l("Can I be of any help?"); + speech S_LAST_NEXT, l("Can you help me?"); do { - .@enora = getq(ArtisQuests_Enora); + .@karim = getq(Karim_Quest); select - rif(.@enora == 1, lg("I came to retrieve a package for Enora.")), - rif(.@enora == 3, l("I have your black iron.")), - rif(.@enora >= 2, l("Where is the Merchant Guild?")), - l("What is this building?"), + rif(.@karim == 2, lg("quest completed.")), + rif(.@karim == 1, l("Hello again can you give you give me some tentacles.")), + rif(.@karim == 0, l("Hello")), + l("Debug"), menuaction(l("Quit")); switch (@menu) { case 1: - give_small_quest; + quest_completed; break; case 2: - quest_completed; + quest_started; break; case 3: - more_info; + quest_beggining; break; case 4: - blacksmith_house; + quest_restart; break; } } while (@menu != 5); -- cgit v1.2.3-60-g2f50