diff options
Diffstat (limited to 'npc/001-1/salem.txt')
| -rw-r--r-- | npc/001-1/salem.txt | 219 |
1 files changed, 219 insertions, 0 deletions
diff --git a/npc/001-1/salem.txt b/npc/001-1/salem.txt new file mode 100644 index 00000000..913db476 --- /dev/null +++ b/npc/001-1/salem.txt @@ -0,0 +1,219 @@ +// Evol scripts. +// Author: +// Travolta +// Description: +// Trader on the market. One of his pious escaped and +// flies around the town. +// Variables: +// ArtisQuests_CatchPiou -- quest variable +// Quest states: +// 0 -- not started +// 1 -- trader asked to catch piou +// 2 -- quest finished +// Note: this script is ugly like hell + +001-1,57,118,0 script Salem#001-1 NPC_SALEM,{ + + function BuyPiou { + .@price = getarg(0); + mesq l("The piou costs @@ E.", .@price); + next; + select + l("Alright, I'll take one."), + l("I changed my mind."); + + mes ""; + mesn; + if (@menu == 2) + return 4; + if (Zeny < .@price) + { + mesq l("Don't you try to cheat an old merchant! You don't have enough money, you need @@ E.", .@price); + next; + + return 1; + } + if (!checkweight(PiouEgg, 1)) + { + mesq l("You can't carry another @@? What a shame.", PiouEgg); + next; + + return 2; + } + getinventorylist; + if (.@inventorylist_count >= 100) + { + mesq l("You don't have enough room in your backpack for a @@. Go stow some of your junk and come back.", PiouEgg); + next; + + return 3; + } + Zeny -= .@price; + getitem PiouEgg, 1; + ArtisQuests_PiousBought += 1; + mesq l("You take good care of your piou. Remember to feed it every day."); + + return 0; + } + +// if (2 == select("[debug]continue quest:[debug] start over")) +// { +// debugmes "Starting quest CatchPiou over"; +// setq ArtisQuests_CatchPiou, 0; +// } + + .@q = getq(ArtisQuests_CatchPiou); + @ArtisQuests_PiouPrice = 30000; + + if (.@q == 1) + { + if (.PiouCaught) + { + speech + l("Look who is back..."), + l("And with my piou. That's wonderful. I can only imagine how hard that little bugger was to catch!"), + l("Great, and as I promised, I give you a 90% discount on the @@ of your choice.", getitemlink(PiouEgg)); + next; + + @ArtisQuests_PiouPrice = 3000; + ArtisQuests_PiouDiscount = 1; + donpcevent strnpcinfo(3) + "::OnPiouFlee"; + setq ArtisQuests_CatchPiou, 2; + .@q = getq(ArtisQuests_CatchPiou); + + .LastPiouHunter$ = ""; + ArtisQuests_CatchPiou_Difficulcy = 0; + .@BoughtPiou = BuyPiou(@ArtisQuests_PiouPrice); + if (.@BoughtPiou == 0) + ArtisQuests_PiouDiscount = 0; + else if (.@BoughtPiou == 4) + speech S_FIRST_BLANK_LINE, l("See you next time!"); + + close; + } + else + { + speech + l("Look who is back..."), + l("So, where is my piou? You should not keep an old man waiting. Go and catch it like you said you would."); + next; + goto L_SalemMenuShop; + } + } + + speech S_LAST_NEXT, + l("Good day, my friend, come closer, come closer!"); + l("Just look at my goods for sale! Fresh fruits and vegetables were shipped only this morning. And for reasonable price, of course."); + +L_SalemMenuShop: + .@fexil = getq(ArtisQuests_Fexil); + + select + l("What about those pious? They look so cute."), + l("Let's trade."), + rif(.@q != 0, l("I'd like to buy a piou.")), + rif(.@fexil == 1, l("I'm looking for somebody named Fexil.")), + menuaction(l("Quit")); + + switch (@menu) + { + case 1: + goto L_AboutPious; + break; + case 2: + closeclientdialog; + shop "Store#General001-1"; + close; + case 3: + if (.@q == 2 && ArtisQuests_PiouDiscount) + { + speech S_FIRST_BLANK_LINE | S_LAST_NEXT, + l("You still have a 90% discount on one piou."); + @ArtisQuests_PiouPrice = 3000; + } + if (!BuyPiou(@ArtisQuests_PiouPrice)) + ArtisQuests_PiouDiscount = 0; + break; + case 4: + speech S_FIRST_BLANK_LINE | S_LAST_NEXT, + l("I think that I've seen this weakling wandering around the beach south from here this morning."); + break; + } + + closeclientdialog; + goodbye; + close; + +L_AboutPious: + speech S_FIRST_BLANK_LINE | S_LAST_NEXT, + l("Ah, the locals like keeping them as pets."), + l("With proper training, a piou can become a good friend and faithful companion in your adventures."); + + if (getq(ArtisQuests_CatchPiou) >= 2) + { + goto L_SalemMenuShop; + } + + mesq l("Their price is usually high, but you know what? I have a bargain offer for you."); + next; + mesq l("These little pious here can't fly. At least that's what I thought."); + next; + mesq l("One of these little boogers started flying early, and escaped from me."); + next; + mesq l("It's still too young to fly too far away, so it just circles nearby."); + next; + mesq l("But I can't leave to catch it, so I'm asking you."); + next; + mesq l("If you catch the escaped piou and bring it back, I will give you a 90% discount on a piou."); + next; + + select + rif(.@q == 0, l("Sounds like a good deal to me. I'll do it.")), + rif(.@q == 1, l("I'm on my way! I will bring it back to you.")), + l("I don't really have time to go chasing pious, let me just buy one at the regular price (30000 E)."), + l("I don't want to buy a piou right now."); + + mes ""; + mesn; + + switch (@menu) + { + case 1: + goto L_QuestInfo; + case 3: + BuyPiou @ArtisQuests_PiouPrice; + } + closeclientdialog; + goodbye; + close; + +L_QuestInfo: + mesq l("The little piou is flying nearby, all you need is to catch it and bring back to me."); + next; + setq ArtisQuests_CatchPiou, 1; + ArtisQuests_CatchPiou_Difficulcy = 2; + mesq l("Good luck!"); + close; + +OnPiouFlee: + sleep 120000; + if (!.PiouCaught) + end; + .PiouCaught = 0; + .@piou$ = "#FlyingPiou1"; + if (getstrlen(.LastPiouHunter$) > 0) + { + message .LastPiouHunter$, .PiouEscapedMessage$; + .LastPiouHunter$ = ""; + } + // debugmes "The piou escaped from " + .LastPiouHunter$; + sleep 60000; + enablenpc .@piou$; + movenpc .@piou$, 53, 117; + donpcevent .@piou$ + "::OnInit"; + end; + +OnInit: + .distance = 5; + end; +} |