summaryrefslogtreecommitdiff
path: root/npc/016-1
diff options
context:
space:
mode:
Diffstat (limited to 'npc/016-1')
-rw-r--r--npc/016-1/laranja.txt92
1 files changed, 64 insertions, 28 deletions
diff --git a/npc/016-1/laranja.txt b/npc/016-1/laranja.txt
index 35e3b6373..d7de07224 100644
--- a/npc/016-1/laranja.txt
+++ b/npc/016-1/laranja.txt
@@ -1,38 +1,85 @@
// TMW2 Script
// Author:
// Saulc
+// Povo
// Description:
// Laranja, orange in portuges is a orange dye seller in ship
-016-1,25,24,0 script Laranja NPC_F_SHOPKEEPER,{
+016-1,25,24,0 script Laranja NPC_FEMALE,{
mesn;
mesq l("I'm Laranja.");
next;
mesn;
- mesq l("My father lead a dye fabric, I'm in charge to sell @@ around the world.", getitemlink(OrangeDye));
+ mesq l("My father runs a dye business, I'm in charge of selling %s around the world.", getitemlink(OrangeDye));
next;
mesn;
- mesq l("Would you like to buy some?");
+ mesq l("How can I help you?");
mes "";
menu
- l("Yeah sure let's Trade."), -,
- l("Sorry another day maybe."), L_Close;
+ l("Orange Dye? How much does it cost?"), -,
+ l("Nothing. Take care!"), L_Quit;
- // Restock shop if needed (ULTRA EXPERIMENTAL)
- // It won't work if instance_id() is 0, but that should be Nard@Candor.
- if (instance_id()) {
- if ('day != gettime(5)) {
- 'day=gettime(5);
- restoreshopitem OrangeDye, -1, 3;
- }
+L_Dye:
+ mesn;
+ mesq l("Thanks to pirate activity, dye has become more difficult to obtain lately.");
+ mesq l("In fact, %s is considered by most to be rare these days.", getitemlink(OrangeDye));
+ next;
+ if (BaseLevel < 45) {
+ mesn;
+ mesq l("Since supplies are limited, I currently prioritize orders placed by higher level players.");
+ mesq l("Come back when you are stronger and we can trade.");
+ next;
+ goto L_Quit;
+ }
+
+ mesn;
+ mesq l("I can trade some with you. Just bring me the following cash payment and supplies:");
+ mes "";
+ mesq l("%s/%s GP",fnum(Zeny), fnum(3000));
+ mesq l("%d/%d %s",countitem(BottleOfTonoriWater), 1, getitemlink(BottleOfTonoriWater));
+ mesq l("%d/%d %s",countitem(GambogeHerb), 60, getitemlink(GambogeHerb));
+ mesq l("%d/%d %s",countitem(AlizarinHerb), 70, getitemlink(AlizarinHerb));
+ mesq l("%d/%d %s",countitem(Piberries), 5, getitemlink(Piberries));
+ mesq l("%d/%d %s",countitem(PileOfAsh), 5, getitemlink(PileOfAsh));
+ compareandsetq TulimsharQuest_Laranja, 0, 1;
+ next;
+ select
+ l("Yeah, I need one."),
+ l("No thank you.");
+ mes "";
+ if (@menu == 2)
+ goto L_Quit;
+ if (countitem(BottleOfTonoriWater) >= 1 &&
+ countitem(GambogeHerb) >= 60 &&
+ countitem(AlizarinHerb) >= 75 &&
+ countitem(Piberries) >= 5 &&
+ countitem(PileOfAsh) >= 5 && Zeny >= 1500) {
+ inventoryplace OrangeDye, 1, EmptyBottle, 1;
+ delitem BottleOfTonoriWater, 1;
+ delitem GambogeHerb,60;
+ delitem AlizarinHerb, 70;
+ delitem Piberries, 5;
+ delitem PileOfAsh, 5;
+ Zeny=Zeny-1500;
+ getitem OrangeDye, 1;
+ getitem EmptyBottle, 1;
+ if (getq(TulimsharQuest_Laranja) == 1) {
+ setq TulimsharQuest_Laranja, 2;
+ getexp 9000, 0;
+ }
+
+ mesn;
+ mesq l("Pleasure doing business with you! Do you want any more?");
+ next;
+ goto L_Dye;
+ } else {
+ mesn;
+ mesq l("Looks like you are a bit short on supplies. Come back when you have everything I need.");
}
-
- closedialog;
- shop instance_npcname(.name$);
close;
-L_Close:
+L_Quit:
closedialog;
goodbye;
close;
@@ -48,11 +95,8 @@ OnInit:
.sex = G_FEMALE;
.distance = 4;
- tradertype(NST_MARKET);
-
- sellitem OrangeDye, -1, 3;
end;
-
+
OnInstanceInit:
.@npcId = getnpcid(instance_npcname(.name$));
setunitdata(.@npcId, UDT_HEADTOP, NPCEyes);
@@ -61,14 +105,6 @@ OnInstanceInit:
setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins); // Boots
setunitdata(.@npcId, UDT_HAIRSTYLE, 10);
setunitdata(.@npcId, UDT_HAIRCOLOR, 9);
- tradertype(NST_MARKET);
- sellitem OrangeDye, -1, 3;
- 'day=gettime(5);
end;
-
-OnClock2000:
- restoreshopitem OrangeDye, -1, 3;
- end;
-
}