Alige should be finished.

2 files changed, 65 insertions, 4 deletions

diff --git a/npc/002-1/alige.txt b/npc/002-1/alige.txt
index 1ad7f9d02..49860510f 100644
--- a/npc/002-1/alige.txt
+++ b/npc/002-1/alige.txt
@@ -16,6 +16,7 @@
 002-1,45,26,0	script	Alige	NPC_ALIGE,{
     .@q=getq(ShipQuests_Alige);
     if (.@q == 1) goto L_Return;
+    if (.@q == 2) goto L_End;
     mesn;
     mesq lg("Hey, dude! The guards are after me. I need your help, and I can reward you.");
     next;
@@ -26,12 +27,14 @@
         l("Did you said reward?!"),                         L_GoGo;
 
 L_Revolt:
+    mes "";
     message strcharinfo(0), l("Guaaaards! Sailors! Help! We have a stowaway!");
     mesn;
     mesq l("No, please don't! I have 3 kids to feed. They are looking for me for contraband. Please, let me go!");
     close;
 
 L_GoGo:
+    mes "";
     mesn;
     mesq l("Yes, I need to get out of here the earliest possible.");
     next;
@@ -57,12 +60,13 @@ L_GoGo:
     next;
     // Temporary item. This four leaf amulet can be evolved: Bromenal < Iron < Golden < Crozenite
     mesn;
-    mesq l("In exchange for your help, I'll give you a @@!", getitemlink(BromenalFourLeafAmulet));
+    mesq l("In exchange for your help, I'll give you a @@!", getitemlink(CrozeniteFourLeafAmulet));
     menu
         l("Of course I'll help you!"), L_Accept,
         l("Have you got mad? That's too much, it's like you are trying to be perfect! No way I'll help you!"), L_Close;
 
 L_Accept:
+    mes "";
     mesn;
     mesq l("\"Many thanks! I'll be waiting for you, hiding on the ship's hold!\"");
     next;
@@ -111,10 +115,67 @@ L_Remember:
     next;
     // Temporary item. This four leaf amulet can be evolved: Bromenal < Iron < Golden < Crozenite
     mesn;
-    mesq l("In exchange for your help, I'll give you a @@!", getitemlink(BromenalFourLeafAmulet));
+    mesq l("In exchange for your help, I'll give you a @@!", getitemlink(CrozeniteFourLeafAmulet));
     close;
 
 L_Check:
+    if (countitem(CactusPotion) < 30 ||
+        countitem(Bread) < 12 ||
+        countitem(Cheese) < 12 ||
+        countitem(CherryCake) < 12 ||
+        countitem(BottleOfTonoriWater) < 8 ||
+        countitem(HastePotion) < 6 ||
+        countitem(StrengthPotion) < 6 ||
+        countitem(YellowCottonDye) < 2 ||
+        countitem(BlueCottonDye) < 2)
+            goto L_Missing;
+    if (Zeny < 7500) goto L_Poor;
+
+    inventoryplace CrozeniteFourLeafAmulet, 1;
+    delitem CactusPotion, 30;
+    delitem Bread, 12;
+    delitem Cheese, 12;
+    delitem CherryCake, 12;
+    delitem BottleOfTonoriWater, 8;
+    delitem HastePotion, 6;
+    delitem StrengthPotion, 6;
+    delitem YellowCottonDye, 2;
+    delitem BlueCottonDye, 2;
+    Zeny = Zeny - 7500;
+    getitem CrozeniteFourLeafAmulet, 1;
+    getexp 2200, 50;
+    setq ShipQuests_Alige, 2;
+    mes "";
+    mesn;
+    mesq l("Good job... Here is your reward...");
+    next;
+    mesn;
+    mesq l("I have to get going now. Thanks for the help!");
+    close;
+
+L_Poor:
+    mes "";
+    mesn;
+    mes l("There's not everything I've asked for...");
+    next;
+    goto L_Remember;
+
+L_Missing:
+    mes "";
+    mesn;
+    mes l("There's not everything I've asked for...");
+    next;
+    goto L_Remember;
+
+L_End:
+    mesn;
+    mes l("I am still here, but I already did amends for my acts and don't need to flee anymore...");
+    next;
+    mesn strcharinfo(0);
+    mes l("Why am I having a hard time to believe on you...");
+    close;
+
+L_Bug;
     mesn;
     mesq l("Wait. Don't give me anything yet. I lost my charm!");
     mesq l("Wait until I get back!");
diff --git a/npc/009-1/charles.txt b/npc/009-1/charles.txt
index 9f0f348a3..7396442e0 100644
--- a/npc/009-1/charles.txt
+++ b/npc/009-1/charles.txt
@@ -113,7 +113,7 @@ L_Return:
 L_Wait:
     mes "";
     mesn;
-    mesq l("\"I'll be waiting for you! And trading some items of questionable origins...\"");
+    mesq l("I'll be waiting for you! And trading some items of questionable origins...");
     close;
 
 L_Finish:
@@ -138,7 +138,7 @@ L_Finish:
     mes l(":D \"Excellent! You've kept your end on the bargain!\"");
     next;
     mesn;
-    mesq l("\"I always keep my end on the bargain, so here you go.\"");
+    mesq l("I always keep my end on the bargain, so here you go.");
     next;
     mesn;
     mes l(":) \"A pleasure to trade if you. Don't get caught if you're doing something wrong!\"");