General fixes on Piou Isles.

spaces2tabs + force 2space indents in comment section to keep it neat
Me, jes, test all agree that tabs>spaces :3

Arkim-ize Glim daily

Rename new Piou island quests LilitQuest->PiouQuest and shift IDs

Trim unused quest vars, shift ID up

3 files changed, 84 insertions, 66 deletions

diff --git a/npc/006-2-1/glim.txt b/npc/006-2-1/glim.txt
index a9d620d5c..0ffcfd41e 100644
--- a/npc/006-2-1/glim.txt
+++ b/npc/006-2-1/glim.txt
@@ -1,71 +1,90 @@
 // TMW2 scripts.
 // Authors:
-//    Jesusalva
-//	  +seeds
+//   Jesusalva
+//   +seeds
 // Description:
-//    Daily quest to exchange Tolchi Arrow Boxes for a small amount of gp and exp
+//   Daily quest to exchange Tolchi Arrow Boxes for a small amount of gp and exp
 // Variables:
-//    $GLIM_ST
-//      How many Tolchi Arrow Boxes were given
-//    q1
-//      Controls your own progress helping Glim - Items today
-//    q2
-//      Controls your own progress helping Glim - Your timer
+//   $GLIM_ST
+//     How many Tolchi Arrow Boxes were given
+//   q2
+//     Controls your own progress helping Glim - Items today
+//   q3
+//     Controls your own progress helping Glim - Your timer
 
 006-2-1,82,28,0	script	Glim	NPC_PIOU_VIKING,{
+	function handle_donation;
 
 L_Loop:
-    .@q1=getq(LilitQuest_Glim);
-    .@q2=getq2(LilitQuest_Glim);
-    mesn;
-    mesq l("Argh, I've run out o' arrows! Say, ye don't have any I could use, do ye? I only got %s...", fnum($GLIM_ST));
-    next;
-    if (.@q2 < $@GLIM_QTIMER) {
-        setq1 LilitQuest_Glim, 0;
-        setq2 LilitQuest_Glim, $@GLIM_QTIMER;
-    }
+	.@q3 = getq3(PiouQuest_Glim);
+	mesn;
+	mesq l("Argh, I've run out o' arrows! Say, ye don't have any I could use, do ye? I only got %s...", fnum($GLIM_ST));
+	next;
+	if (.@q3 < $@GLIM_QTIMER) {
+		setq2 PiouQuest_Glim, 0;
+		setq3 PiouQuest_Glim, $@GLIM_QTIMER;
+	}
 
-    // Daily limit reached
-    .@q1=getq1(LilitQuest_Glim);
-    if (.@q1 >= (BaseLevel-17)/3) goto L_Timer;
-    select
-        rif(countitem(TolchiAmmoBox), l("Give Glim a %s"), getitemname(TolchiAmmoBox)),
-        l("Maybe later.");
-    mes "";
+	// Daily limit reached
+	.@q2 = getq2(PiouQuest_Glim);
+	.@donations_limit = (BaseLevel-17)/3 - .@q2;
+	.@tabox_limit = min(countitem(TolchiAmmoBox), .@donations_limit);
 
-    switch (@menu) {
-    case 1:
-        delitem TolchiAmmoBox, 1;
-        getexp 64, 0;
-        Zeny+=150;
-        break;
-    case 2:
-        close;
-        break;
-    }
-    $GLIM_ST+=1;
-    setq1 LilitQuest_Glim, .@q1+1;
-    goto L_Loop;
+	if (.@donations_limit <= 0)
+		goto L_Timer;
+
+	select
+		rif(.@tabox_limit > 0, l("Give Glim a %s", getitemname(TolchiAmmoBox))),
+		l("Maybe later.");
+	mes "";
+
+	switch (@menu) {
+	case 1:
+		handle_donation(TolchiAmmoBox, 1, 150, 64);
+		break;
+	case 2:
+		close;
+		break;
+	}
+	goto L_Loop;
 
 L_Timer:
-    if (BaseLevel < 10) {
-        mesq l("Wait a minute! I ain't trustin' a weakling like ye fer good arrows!");
-        mesn;
-        mesq l("Come back when ye've grown sum muscles.");
-        close;
-    }
-    mesn;
-    mesq l("I'm all stocked up now, thanks to ye. Come back in @@ and ye might be able to help me again.", FuzzyTime($@GLIM_TIMER+(60*60*24),2,2));
-    close;
+	if (BaseLevel < 10) {
+		mesq l("Wait a minute! I ain't trustin' a weakling like ye fer good arrows!");
+		mesn;
+		mesq l("Come back when ye've grown sum muscles.");
+		close;
+	}
+	mesn;
+	mesq l("I'm all stocked up now, thanks to ye. Come back in @@ and ye might be able to help me again.", FuzzyTime($@GLIM_TIMER+(60*60*24),2,2));
+	close;
+
+function handle_donation { // (partID, Amount, Zeny, bEXP)
+	.@partID = getarg(0);
+	.@amount = getarg(1);
+	.@zeny   = getarg(2);
+	.@bEXP   = getarg(3);
+
+	delitem .@partID, .@amount;
+	getexp (.@amount * .@bEXP), 0;
+	Zeny += (.@amount * .@zeny);
+	$GLIM_ST += .@amount;
+	setq2 PiouQuest_Glim, (getq2(PiouQuest_Glim) + .@amount);
+}
 
 OnInit:
-    .sex=G_OTHER;
-    .distance=5;
-    // No end; on purpose
+	.sex = G_OTHER;
+	.distance = 5;
 
-OnHour00:
-    $@GLIM_QTIMER=gettimeparam(GETTIME_DAYOFMONTH);
-    $@GLIM_QTIMER=gettimetick(2);
-    end;
+	$@GLIM_QTIMER = gettimeparam(GETTIME_DAYOFMONTH);
+	$@GLIM_TIMER  = gettimetick(2);
+	$@GLIM_TIMER -= gettime(1);
+	$@GLIM_TIMER -= gettime(2)*60;
+	$@GLIM_TIMER -= gettime(3)*3600;
+	end;
 
+OnHour00:
+	$@GLIM_QTIMER = gettimeparam(GETTIME_DAYOFMONTH);
+	$@GLIM_TIMER  = gettimetick(2);
+	end;
 }
diff --git a/npc/006-2-1/miltaco.txt b/npc/006-2-1/miltaco.txt
index 427b9a47a..385376bfe 100644
--- a/npc/006-2-1/miltaco.txt
+++ b/npc/006-2-1/miltaco.txt
@@ -24,7 +24,7 @@
         switch (@menu)
         {
             case 1:
-                BarberSayStyle 2;
+                BarberSayStyle 3;
                 break;
             case 2:
                 BarberChangeStyle;
diff --git a/npc/006-2-1/server.txt b/npc/006-2-1/server.txt
index 8f0d04c62..886c2277e 100644
--- a/npc/006-2-1/server.txt
+++ b/npc/006-2-1/server.txt
@@ -20,23 +20,22 @@ OnInit:
     .distance = 5;
 
     tradertype(NST_MARKET);
-    sellitem Piberries, 20, 20;
-    sellitem Aquada, 120, 5;
-    sellitem LettuceLeaf, 30, 15;
-    sellitem Bread, 46, 10;
-    sellitem Cheese, 55, 15;
-
+    sellitem Piberries, -1, 20;
+    sellitem Aquada, -1, 5;
+    sellitem LettuceLeaf, -1, 15;
+    sellitem Bread, -1, 10;
+    sellitem Cheese, -1, 15;
     end;
 
 OnClock0556:
 OnClock1201:
 OnClock1759:
 OnClock0003:
-    restoreshopitem Piberries, 20, 20;
-    restoreshopitem Aquada, 120, 5;
-    restoreshopitem LettuceLeaf, 30, 15;
-    restoreshopitem Bread, 46, 10;
-    restoreshopitem Cheese, 55, 15;
+    restoreshopitem Piberries, -1, 20;
+    restoreshopitem Aquada, -1, 5;
+    restoreshopitem LettuceLeaf, -1, 15;
+    restoreshopitem Bread, -1, 10;
+    restoreshopitem Cheese, -1, 15;
     end;