summaryrefslogtreecommitdiff
path: root/npc/001-1/salem.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/001-1/salem.txt')
-rw-r--r--npc/001-1/salem.txt220
1 files changed, 0 insertions, 220 deletions
diff --git a/npc/001-1/salem.txt b/npc/001-1/salem.txt
deleted file mode 100644
index b80cb76e4..000000000
--- a/npc/001-1/salem.txt
+++ /dev/null
@@ -1,220 +0,0 @@
-// 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 = 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:
- closedialog;
- 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;
- }
-
- closedialog;
- 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;
- }
- closedialog;
- 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:
- .sex = G_MALE;
- .distance = 5;
- end;
-}