// Evol scripts.
// Authors:
// Hal9000
// Reid
// Description:
// Elmo's twin
// Charged of an important quest from Nard, he asks you to help other sailors to keep their box to the ship.
// Variable:
// 0 ShipQuests_Couwan
// 1 ShipQuests_Nard
// 2 ShipQuests_Gugli
// Values:
// 00 Never talked with Couwan.
// 01 Spoke, and received the quest scam.
// 02 Done quest scam.
// 10 Introduction of the box and Nard. This is displayed when the player never spoke to Nard or his box.
// 11 Nard spoke and gave access to the outdoor of the ship.
// 12 Completed the quest.
// 13 Opened the chest and finished the introduction.
// 20 Never talked with Gugli.
// 21 Gugli gives you the task.
// 22 Gave all of the box to Gugli.
000-1.gat,85,108,0,1 script Gugli 313,2,1;2,{
mesn;
set @n, getq(ShipQuests_Nard);
set @g, getq(ShipQuests_Gugli);
if (@n > 1 | @g == 2) goto l_End;
if (@g == 1) goto l_TaskGiven;
if (@g > 1) goto l_TaskCompleted;
mesq l("Hi @@, I have heard captain sent you down here, uh?", strcharinfo(0));
next;
mesq l("An unexpected help is always welcome.")
next;
mesq l("As you may know we are long-distance traveller, and our crew need to stock enough food to survive. You don't know how dangerous sea life can be.")
next;
menu
l("Actually I have an in-depth knowledge of this life."), -;
mes "";
mesn;
mesq l("Well have been rescued by us doesn't make you an expert sailor, am I right?")
next;
setq ShipQuests_Gugli, 1;
close;
l_End:
mesq l("Hello you done the quest.");
close;
l_TaskGiven:
mesq l("Great to see you! What can I do for you today?");
next;
menu
rif(getq(ShipQuests_Couwan) == 1, l("Couwan gave me this box, it is for you.")), l_Couwan,
l("Nothing."), -;
close;
l_Couwan:
mes "";
mesn;
mesq l("What? This tritan is the worse shirker I ever met.");
next;
mesq l("Well, thanks for the box. But... he was supposed to bring it back to me himself. I never asked him to give it to you!");
next;
mesq l("Take these coins in exchange and be careful.");
next;
mesq l("Not everybody has a kind mind. Scammers can be anywhere, even among us!");
next;
mesq l("May this be a lesson for you.");
setq ShipQuests_Couwan, 2;
set zeny, zeny+50;
if (countitem("FishBox") > 0) delitem "FishBox", 1;
message strcharinfo(0), l("You receive 50GP!");
close;
l_TaskDone:
mesq l("Hello you just done the quest.");
setq ShipQuests_Gugli, 2;
close;
l_TaskCompleted:
mesq l("Hello the quest is over.");
close;
}