summaryrefslogtreecommitdiff
path: root/world
diff options
context:
space:
mode:
authorBen Longbons <b.r.longbons@gmail.com>2011-08-26 00:21:12 -0700
committerBen Longbons <b.r.longbons@gmail.com>2011-08-26 00:23:31 -0700
commit25a859ad47937f730fac15f82d1eeafe28fedb23 (patch)
tree86db7eb50f1774662e93946193a92393d0cbb6e9 /world
parent8d2fe139a61ed2ad3cc89fdc569ce22daf41ba96 (diff)
downloadserverdata-25a859ad47937f730fac15f82d1eeafe28fedb23.tar.gz
serverdata-25a859ad47937f730fac15f82d1eeafe28fedb23.tar.bz2
serverdata-25a859ad47937f730fac15f82d1eeafe28fedb23.tar.xz
serverdata-25a859ad47937f730fac15f82d1eeafe28fedb23.zip
Refactor and format the fluffy hunt code
Diffstat (limited to 'world')
-rw-r--r--world/map/db/const.txt3
-rw-r--r--world/map/npc/033-1/debug.txt29
-rw-r--r--world/map/npc/033-1/kimarr.txt438
3 files changed, 229 insertions, 241 deletions
diff --git a/world/map/db/const.txt b/world/map/db/const.txt
index 50084b5b..d4a441fa 100644
--- a/world/map/db/const.txt
+++ b/world/map/db/const.txt
@@ -387,3 +387,6 @@ E10_MIDREWARD_ID 1247 // Valentine's Glasses (as described)
// Storage Options
OPT_STORAGE_CLOSE 1
OPT_BANK_CLOSE 2
+
+// currently used by the fluffy hunt (033-1)
+MAX_HIGHSCORES 10
diff --git a/world/map/npc/033-1/debug.txt b/world/map/npc/033-1/debug.txt
new file mode 100644
index 00000000..7db90195
--- /dev/null
+++ b/world/map/npc/033-1/debug.txt
@@ -0,0 +1,29 @@
+// A debug NPC for barbarian quest
+
+033-1.gat,70,32,0|script|Kimarr Debug|218,{
+
+ menu
+ "Reset all records", -,
+ "Reset quest",L_Reset,
+ "Close", L_Close;
+
+ cleararray $Record_Fluffy_Kills, 0, MAX_HIGH_SCORES;
+ cleararray $Record_Fluffy_Name$, "", MAX_HIGH_SCORES;
+ cleararray $Record_Fluffy_Date$, "", MAX_HIGH_SCORES;
+
+L_Reset:
+ set @Q_Barbarians_MASK, NIBBLE_0_MASK;
+ set @Q_Barbarians_SHIFT, NIBBLE_0_SHIFT;
+ set @state, 0;
+ callsub S_Update_Mask;
+ close;
+
+S_Update_Mask:
+ set QUEST_Barbarians,
+ (QUEST_Barbarians & ~(@Q_Barbarians_MASK))
+ | (@state << @Q_Barbarians_SHIFT);
+ return;
+
+L_Close:
+ close;
+}
diff --git a/world/map/npc/033-1/kimarr.txt b/world/map/npc/033-1/kimarr.txt
index 9eca2a24..7594ed5c 100644
--- a/world/map/npc/033-1/kimarr.txt
+++ b/world/map/npc/033-1/kimarr.txt
@@ -1,11 +1,23 @@
-033-1.gat,74,32,0 script Kimarr 218,{
+// Fluffy hunting quest
+
+// Variables:
+// global $@Fluffy_Hunting - state of the quest
+// 0: nobody is hunting
+// 1: somebody is in there but hasn't dropped anything OR (buggily?) all monster have been killed
+// 2: somebody is in there and has dropped something
+// 3: monsters have been spawned
+// global $@Fluffy_Time - the number of seconds since you entered the area
+// global
+
+033-1.gat,74,32,0|script|Kimarr|218,{
+ if ($@Fluffy_FighterID == getcharid(3))
+ goto L_Attention;
set @Q_Barbarians_MASK, NIBBLE_0_MASK;
set @Q_Barbarians_SHIFT, NIBBLE_0_SHIFT;
set @state, ((QUEST_Barbarians & @Q_Barbarians_MASK) >> @Q_Barbarians_SHIFT);
- if ($@FLUFFY_HUNTING > 0 && $@FLUFFY_FIGHTER$ == strcharinfo(0)) goto L_Attention;
if (@state >= 3) goto L_Again;
if (@state == 2) goto L_Reward;
if (@state == 1) goto L_Ask;
@@ -25,8 +37,8 @@
mes "[Kimarr]";
mes "\"Really? Do you want to prove it?\"";
menu
- "Sure! What shall I do?", L_Explain,
- "No, I don't need to prove anything.",L_Close;
+ "Sure! What shall I do?", -,
+ "No, I don't need to prove anything.", L_Close;
L_Explain:
mes "[Kimarr]";
@@ -34,22 +46,10 @@ L_Explain:
next;
mes "\"The first monsters to hunt are fluffies. Fluffies give a good meal for a young person and the fur can be used to make clothes and blankets.\"";
next;
- callsub S_Explain_Game;
-
set @state, 1;
callsub S_Update_Mask;
-L_Ask:
- mes "[Kimarr]";
- mes "\"So, are you going to try?\"";
- menu
- "Yeah, let's start!",L_Game,
- "Could you explain again?",-,
- "Maybe later.",L_Close;
- callsub S_Explain_Game;
- goto L_Ask;
-
-S_Explain_Game:
+L_Explain_Game:
mes "[Kimarr]";
mes "\"In that cave there are living fluffies. They like to eat apples.\"";
next;
@@ -62,276 +62,235 @@ S_Explain_Game:
mes "\"Then hunt as many fluffies as you can until I tell you to stop.\"";
next;
mes "\"Drop more food when no fluffies are left.\"";
- return;
+ next;
+
+// dialog starts here if you've asked about it but not done it (@state == 1)
+L_Ask:
+ mes "[Kimarr]";
+ mes "\"So, are you going to try?\"";
+ menu
+ "Yeah, let's start!", L_Game,
+ "Could you explain again?", L_Explain_Game,
+ "Maybe later.", -;
+ goto L_Close;
+// this label is reached on completion of the quest, or, if you inventory was
+// full at the time, when you next initiate dialog (with @state == 2)
L_Reward:
- message strcharinfo(0), "Kimarr: That was very impressive - now you can call yourself a hunter " + strcharinfo(0) + ".";
+ mes "[Kimarr]"
+ mes "That was very impressive - now you can call yourself a hunter, " + strcharinfo(0) + ".";
+ next;
+
getinventorylist;
- if (@inventorylist_count == 100) goto L_Full_Inv;
- message strcharinfo(0), "Kimarr: Take this as a symbol of your strength. You're a member of our tribe now.";
+ if (@inventorylist_count == 100)
+ goto L_Full_Inv;
+ mes "[Kimarr]";
+ mes "Take this as a symbol of your strength. You're a member of our tribe now.";
getitem "YetiSkinShirt", 1;
set @state, 3;
callsub S_Update_Mask;
- callsub S_Clean;
- end;
+ goto L_Close;
+
+L_Full_Inv:
+ mes "[Kimarr]";
+ mes "You can't carry the reward I want to give you.";
+ goto L_Close;
+
+// dialog starts here after you've completed this quest
L_Again:
mes "[Kimarr]";
mes "\"Does the hunter " + strcharinfo(0) + " want to hunt some fluffies again?\"";
menu
- "Yeah!",L_Game,
- "Can you tell me who were the most successfull fluffy hunters?",-,
- "Not now.",L_Close;
- set @loop, 0;
- close2;
- goto L_ShowRecord;
-
-L_Full_Inv:
- message strcharinfo(0), "Kimarr: You can't carry the reward I want to give you.";
- close;
-
-L_Close:
- close;
+ "Yeah!", L_Game,
+ "Can you tell me who were the most successful fluffy hunters?", L_ShowRecord,
+ "Not now.", L_Close;
L_Game:
- if ($@FLUFFY_HUNTING > 0) goto L_Someone_Else;
- set $@FLUFFY_HUNTING, 1;
- set $@FLUFFY_COUNTER, 0;
- set $@FLUFFY_DEATHS, PC_DIE_COUNTER;
- set $@FLUFFY_FIGHTER$, strcharinfo(0);
- set $@FLUFFY_TIME, 0;
- set $@FLUFFY_LVL, baselevel;
+ if ($@Fluffy_Hunting)
+ goto L_Someone_Else;
+ set $@Fluffy_Hunting, 1;
+ set $@Fluffy_Kills, 0;
+ set $@Fluffy_PC_Deaths, PC_DIE_COUNTER;
+ set $@Fluffy_Fighter$, strcharinfo(0);
+ set $@Fluffy_FighterID, getcharid(3);
+ set $@Fluffy_Time, 0;
+
//TODO: set minimum number of killed fluffies (maybe based on level?)
- set $@FLUFFY_MIN, 1;
+ set $@Fluffy_Min, 1;
warp "033-1.gat", 79, 34;
- set @place, 0;
- set @position, 0;
- set @currentposition, 0;
- startnpctimer;
+ initnpctimer;
goto L_Close;
L_Someone_Else:
mes "[Kimarr]";
mes "\"At the moment someone else is hunting. Let's wait until that hunting has ended.\"";
- close;
+ goto L_Close;
L_Attention:
- mes "[Kimarr]";
- mes "\"You should be focused on hunting fluffies, not talking.\"";
- close;
-
-OnTimer1000:
- if (isloggedin(getcharid(3,$@FLUFFY_FIGHTER$)) == 0) goto L_GotOut;
- attachrid(getcharid(3,$@FLUFFY_FIGHTER$));
- if (getareausers("033-1.gat", 79, 28, 88, 42) == 0) goto L_WarpedOut;
- if (PC_DIE_COUNTER > $@FLUFFY_DEATHS) goto L_Died;
- set $@FLUFFY_TIME, $@FLUFFY_TIME + 1;
- if ($@FLUFFY_TIME > 300) goto L_TooSlow;
- if ($@FLUFFY_HUNTING == 1) set $@DROP_TIME, $@DROP_TIME + 1;
- if ($@FLUFFY_HUNTING == 1) goto L_CheckDrops;
- if ($@FLUFFY_HUNTING == 2) goto L_Hunting;
- setnpctimer 0;
- end;
-
-L_CheckDrops:
- set $@FLUFFY_REDAPPLES, getareadropitem("033-1.gat", 79, 29, 88, 42, 535, 1);
- set $@FLUFFY_XMASCAKE, getareadropitem("033-1.gat", 79, 29, 88, 42, 508, 1);
- set $@FLUFFY_CAKE, getareadropitem("033-1.gat", 79, 29, 88, 42, 513, 1);
- set $@FLUFFY_GREENAPPLE, getareadropitem("033-1.gat", 79, 29, 88, 42, 719, 1);
- if ($@FLUFFY_REDAPPLES != 0 || $@FLUFFY_XMASCAKE != 0 || $@FLUFFY_CAKE != 0 || $@FLUFFY_GREENAPPLE != 0) set $@FLUFFY_HUNTING, 2;
- if ($@DROP_TIME > 15) goto L_DidntDrop;
- setnpctimer 0;
+ message strcharinfo(0), "Kimarr: You should be focused on hunting fluffies, not talking.";
end;
-L_Hunting:
- // TODO: limit the number of monsters that can be spawned, to prevent people creating lag with massive amount of monsters
- set $@DROP_TIME, 0;
- set $@FLUFFY_SPAWN, $@FLUFFY_REDAPPLES + 5 * $@FLUFFY_XMASCAKE + 3 * $@FLUFFY_CAKE + $@FLUFFY_GREENAPPLE;
- if ($@FLUFFY_SPAWN > 100)
- set $@FLUFFY_SPAWN, 100;
- areamonster "033-1.gat", 79, 29, 88, 42, "", 1020, $@FLUFFY_SPAWN, "Kimarr::onFluffyDeath";
- if (($@FLUFFY_SPAWN > 0) && ($@FLUFFY_LVL > 40) && (rand(5 * $@FLUFFY_XMASCAKE + 3 * $@FLUFFY_CAKE + 10 * $@FLUFFY_LVL) > 500)) // Ice Goblin
- areamonster "033-1.gat", 79, 29, 88, 42, "", 1058, 1, "Kimarr::onPetDeath";
- if (($@FLUFFY_SPAWN > 0) && ($@FLUFFY_LVL > 60) && (rand(5 * $@FLUFFY_XMASCAKE + 3 * $@FLUFFY_CAKE + 10 * $@FLUFFY_LVL) > 550)) // Santa Slime
- areamonster "033-1.gat", 79, 29, 88, 42, "", 1015, 1, "Kimarr::onPetDeath";
- // TODO: add the wolvern as well when it has been added
- if (($@FLUFFY_SPAWN > 0) && ($@FLUFFY_LVL > 70) && (rand(5 * $@FLUFFY_XMASCAKE + 3 * $@FLUFFY_CAKE + 10 * $@FLUFFY_LVL) > 600)) // Yeti
- areamonster "033-1.gat", 79, 29, 88, 42, "", 1072, 1, "Kimarr::onPetDeath";
- set $@FLUFFY_REDAPPLES, 0;
- set $@FLUFFY_XMASCAKE , 0;
- set $@FLUFFY_CAKE, 0;
- set $@FLUFFY_GREENAPPLE, 0;
- set $@FLUFFY_HUNTING, 3;
+OnTimer1000:
+ if (!attachrid($@Fluffy_FighterID))
+ goto L_GotOut;
+ if (PC_DIE_COUNTER > $@Fluffy_PC_Deaths)
+ goto L_Died;
+ if (!getareausers("033-1.gat", 79, 28, 88, 42))
+ goto L_GotOut;
+
+ set $@Fluffy_Time, $@Fluffy_Time + 1;
+ if ($@Fluffy_Time > 300)
+ goto L_TimeOver;
+ if ($@Fluffy_Hunting == 1)
+ goto L_CheckDrops;
+
+L_ContinueTimer:
setnpctimer 0;
end;
-onFluffyDeath:
- set $@FLUFFY_COUNTER, $@FLUFFY_COUNTER + 1;
- //TODO: remove announce after debugging
- //mapannounce "033-1.gat", "fluffies killed: " + $@FLUFFY_COUNTER, 0;
- if ($@FLUFFY_COUNTER >= $@FLUFFY_SPAWN) set $@FLUFFY_HUNTING, 1;
- end;
-
-L_DidntDrop:
- warp "033-1.gat", 77, 34;
- message strcharinfo(0), "Kimarr: You waited too much to trow the food on the ground... Now the fluffies know you are planning something.";
- goto L_CheckRecord;
-
L_GotOut:
- npctalk "What a strange thing... " + $@FLUFFY_FIGHTER$ + " just disappeared!";
+ // TODO: this is the only use of $@Fluffy_Fighter$, can we remove it?
+ npctalk "What a strange thing... " + $@Fluffy_Fighter$ + " just disappeared!";
callsub S_Clean;
end;
-L_WarpedOut:
- npctalk "What a strange thing... " + $@FLUFFY_FIGHTER$ + " just disappeared!";
- goto L_CheckRecord;
- end;
-
L_Died:
warp "033-1.gat", 77, 34;
message strcharinfo(0), "You are dead.";
- goto L_CheckRecord;
+ callsub S_Clean;
+ end;
-L_TooSlow:
+L_TimeOver:
warp "033-1.gat", 77, 34;
message strcharinfo(0), "Your time is over.";
- goto L_CheckRecord;
+ goto L_MaybeRecordScore;
-S_Clean:
- killmonster "033-1.gat", "Kimarr::onPetDeath";
- killmonster "033-1.gat", "Kimarr::onFluffyDeath";
- set $@FLUFFY_HUNTING, 0;
- set $@FLUFFY_TIME, 0;
- set $@DROP_TIME, 0;
- set $@FLUFFY_DEATHS, 0;
- set $@FLUFFY_FIGHTER$, "";
- set $@FLUFFY_COUNTER, 0;
- set $@FLUFFY_REDAPPLES, 0;
- set $@FLUFFY_XMASCAKE , 0;
- set $@FLUFFY_CAKE, 0;
- set $@FLUFFY_GREENAPPLE, 0;
- set $@FLUFFY_SPAWN, 0;
- stopnpctimer;
- setnpctimer 0;
- return;
+L_CheckDrops:
+ if ($@Fluffy_Time > 15)
+ goto L_DidntDrop;
+ set @Fluffy_RedApple, getareadropitem("033-1.gat", 79, 29, 88, 42, "RedApple", 1);
+ set @Fluffy_XmasCake, getareadropitem("033-1.gat", 79, 29, 88, 42, "XmasCake", 1);
+ set @Fluffy_Cake, getareadropitem("033-1.gat", 79, 29, 88, 42, "Cake", 1);
+ set @Fluffy_GreenApple, getareadropitem("033-1.gat", 79, 29, 88, 42, "GreenApple", 1);
+ if (@Fluffy_RedApple || @Fluffy_XmasCake || @Fluffy_Cake || @Fluffy_GreenApple)
+ goto L_BeginHunting;
+ goto L_ContinueTimer;
+
+L_BeginHunting:
+ set $@Fluffy_Spawn, $@Fluffy_RedApple + 5 * $@Fluffy_XmasCake + 3 * $@Fluffy_Cake + $@Fluffy_GreenApple;
+ // limit the number of monsters that can be spawned, to prevent people creating lag with massive amount of monsters
+ if ($@Fluffy_Spawn > 100)
+ set $@Fluffy_Spawn, 100;
+ if ($@Fluffy_Spawn < $@Fluffy_Min)
+ // TODO: should we instead say "You didn't put enough food"
+ set $@Fluffy_Spawn, $@Fluffy_Min;
+
+ areamonster "033-1.gat", 79, 29, 88, 42, "", 1020, $@Fluffy_Spawn, "Kimarr::OnFluffyDeath";
+
+ // other monsters don't generate a real event
+ set @Fluffy_Extra, 5 * @Fluffy_XmasCake + 3 * @Fluffy_Cake + 10 * BaseLevel;
+ if ((BaseLevel > 40) && (rand(@Fluffy_Extra) > 500)) // Ice Goblin
+ areamonster "033-1.gat", 79, 29, 88, 42, "", 1058, 1, "Kimarr::OnOtherDeath";
+ if ((BaseLevel > 60) && (rand(@Fluffy_Extra) > 550)) // Santa Slime
+ areamonster "033-1.gat", 79, 29, 88, 42, "", 1015, 1, "Kimarr::OnOtherDeath";
+ // TODO: add the wolvern as well when it has been added
+ if ((BaseLevel > 70) && (rand(@Fluffy_Extra) > 600)) // Yeti
+ areamonster "033-1.gat", 79, 29, 88, 42, "", 1072, 1, "Kimarr::OnOtherDeath";
-L_CheckRecord:
- if ($@FLUFFY_COUNTER < $@FLUFFY_MIN) goto L_End;
- set @loop, 0;
- callsub S_FINDPLACE;
- set @loop, 11;
- set @place, 0;
- callsub S_CHECKPOS;
- if (@place == 0) goto L_End;
- set @position, 11 - @place;
- if (@currentposition == 0) goto L_RegisterName;
- if (@currentposition < @position) goto L_End;
- if (@currentposition > @position) goto L_HandleDuplicated;
- if (@currentposition == @position) goto L_Oldscore;
- goto L_End;
-
-S_FINDPLACE:
- set @loop, @loop + 1;
- if ($FLUFFYGAME_NAME$[@loop] == strcharinfo(0)) set @currentposition, @loop;
- if (@loop < 11) goto S_FINDPLACE;
- return;
+ set @Fluffy_Extra, 0;
+ set @Fluffy_RedApple, 0;
+ set @Fluffy_XmasCake, 0;
+ set @Fluffy_Cake, 0;
+ set @Fluffy_GreenApple, 0;
+ set $@Fluffy_Hunting, 3;
-S_CHECKPOS:
- set @loop, @loop - 1;
- if (@loop == 0 || $@FLUFFY_COUNTER <= $FLUFFYGAME_PTS[@loop]) return;
- set @place, @place + 1;
- goto S_CHECKPOS;
-
-L_RegisterName:
- callsub S_MOVE_NAME;
- if (@state > 1) goto L_End;
- set @state, 2;
- callsub S_Update_Mask;
- goto L_Reward;
-
-L_HandleDuplicated:
- set $FLUFFYGAME_PTS[@currentposition], 0;
- set $FLUFFYGAME_NAME$[@currentposition], "";
- set $FLUFFYGAME_DATE$[@currentposition], "";
- goto L_RegisterName;
-
-L_Oldscore:
- set $FLUFFYGAME_PTS[@currentposition], $@FLUFFY_COUNTER;
- set $FLUFFYGAME_DATE$[@currentposition], gettimestr("%d/%m/%Y-%H:%M:%S",21);
- goto L_End;
-
-S_MOVE_NAME:
- set @i,10;
-
-MOVE_NAME_L1:
- set @i, @i-1;
- set $FLUFFYGAME_PTS[@i+1], $FLUFFYGAME_PTS[@i];
- set $FLUFFYGAME_NAME$[@i+1], $FLUFFYGAME_NAME$[@i];
- set $FLUFFYGAME_DATE$[@i+1], $FLUFFYGAME_DATE$[@i];
- if (@i == @position) goto MOVE_NAME_L2;
- goto MOVE_NAME_L1;
-
-MOVE_NAME_L2:
- set $FLUFFYGAME_PTS[@position], $@FLUFFY_COUNTER;
- set $FLUFFYGAME_NAME$[@position], $@FLUFFY_FIGHTER$;
- set $FLUFFYGAME_DATE$[@position], gettimestr("%d/%m/%Y-%H:%M:%S",21);
- return;
+ goto L_ContinueTimer;
-S_Update_Mask:
- set QUEST_Barbarians,
- (QUEST_Barbarians & ~(@Q_Barbarians_MASK))
- | (@state << @Q_Barbarians_SHIFT);
+OnFluffyDeath:
+ set $@Fluffy_Kills, $@Fluffy_Kills + 1;
+ //TODO: remove announce after debugging
+ //mapannounce "033-1.gat", "fluffies killed: " + $@Fluffy_Kills, 0;
+ if ($@Fluffy_Kills >= $@Fluffy_Spawn)
+ goto L_MaybeRecordScore;
+ end;
+
+L_DidntDrop:
+ warp "033-1.gat", 77, 34;
+ mes "[Kimarr]"
+ mes "You waited too much to throw the food on the ground... Now the fluffies know you are planning something.";
+ callsub S_Clean;
+ goto L_Close;
+
+S_Clean:
+ killmonster "033-1.gat", "Kimarr::OnOtherDeath";
+ killmonster "033-1.gat", "Kimarr::OnFluffyDeath";
+ set $@Fluffy_Hunting, 0;
+ set $@Fluffy_Time, 0;
+ set $@Fluffy_PC_Deaths, 0;
+ set $@Fluffy_Fighter$, "";
+ set $@Fluffy_FighterID, 0;
+ set $@Fluffy_Kills, 0;
+ set $@Fluffy_Spawn, 0;
+ stopnpctimer;
return;
-L_End:
+L_MaybeRecordScore:
callsub S_Clean;
- set @loop, 0;
+ if ($@Fluffy_Kills < $@Fluffy_Min)
+ goto L_ShowRecord;
+ set @rank, 0;
+L_MaybeInsertNext:
+ if ($@Fluffy_Kills > $Record_Fluffy_Kills[@rank])
+ goto L_InsertScore;
+ set @rank, @rank + 1;
+ if (@rank == MAX_HIGH_SCORES)
+ goto L_ShowRecord;
+ goto L_MaybeInsertNext;
+
+L_InsertScore:
+ set @loop, @rank;
+L_FindLastScore:
+ // comment this out to allow the player to be in the list more than once
+ // though actually, it might be better just to assume the list is full
+ if (strcharinfo(0) == $Record_Fluffy_Name[@loop])
+ goto L_MoveStuff;
-L_ShowRecord:
set @loop, @loop + 1;
- if ($FLUFFYGAME_PTS[@loop] != 0) message strcharinfo(0), "Position: " + @loop + " - " + $FLUFFYGAME_NAME$[@loop] + " - " + $FLUFFYGAME_PTS[@loop] + " fluffies killed in " + $FLUFFYGAME_DATE$[@loop];
- if (@loop > 10) end;
- goto L_ShowRecord;
- end;
-
-}
+ if (@loop == MAX_HIGH_SCORES)
+ goto L_MoveStuff;
+ goto L_FindLastScore;
+
+L_MoveStuff:
+ if (@loop == @rank)
+ goto L_FinallyInsertMe;
+ set $Record_Fluffy_Kills[@loop], $Record_Fluffy_Kills[@loop - 1];
+ set $Record_Fluffy_Name$[@loop], $Record_Fluffy_Name$[@loop - 1];
+ set $Record_Fluffy_Date$[@loop], $Record_Fluffy_Date$[@loop - 1];
+ set @loop, @loop - 1;
+ goto L_MoveStuff;
-033-1.gat,70,32,0 script Kimarr Debug 218,{
+L_FinallyInsertMe:
+ set $Record_Fluffy_Kills[@rank], $@Fluffy_Kills;
+ set $Record_Fluffy_Name$[@rank], strcharinfo(0);
+ callfunc "time_stamp";
+ set $Record_Fluffy_Date$[@rank], @ts_date$ + " " + @ts_time$;
+ set @ts_date$, "";
+ set @ts_time$, "";
- menu
- "Reset records", -,
- "Reset quest",L_Reset,
- "Close", L_Close;
-
- set $FLUFFYGAME_PTS[0], 0;
- set $FLUFFYGAME_NAME$[0], "";
- set $FLUFFYGAME_PTS[1], 0;
- set $FLUFFYGAME_NAME$[1], "";
- set $FLUFFYGAME_PTS[2], 0;
- set $FLUFFYGAME_NAME$[2], "";
- set $FLUFFYGAME_PTS[3], 0;
- set $FLUFFYGAME_NAME$[3], "";
- set $FLUFFYGAME_PTS[4], 0;
- set $FLUFFYGAME_NAME$[4], "";
- set $FLUFFYGAME_PTS[5], 0;
- set $FLUFFYGAME_NAME$[5], "";
- set $FLUFFYGAME_PTS[6], 0;
- set $FLUFFYGAME_NAME$[6], "";
- set $FLUFFYGAME_PTS[7], 0;
- set $FLUFFYGAME_NAME$[7], "";
- set $FLUFFYGAME_PTS[8], 0;
- set $FLUFFYGAME_NAME$[8], "";
- set $FLUFFYGAME_PTS[9], 0;
- set $FLUFFYGAME_NAME$[9], "";
- set $FLUFFYGAME_PTS[10], 0;
- set $FLUFFYGAME_NAME$[10], "";
-
-L_Reset:
+L_ShowRecord:
+ set @rank, 0;
+ set @loop, 0;
+L_ShowNextRecord:
+ if (! $Record_Fluffy_Kills[@loop])
+ goto L_Close;
+ mes (@loop + 1) + " - " + $Record_Fluffy_Name$[@loop] + " - " + $Record_Fluffy_Kills[@loop] + " fluffies killed in " + $Record_Fluffy_Date$[@loop];
+ set @loop, @loop + 1;
+ goto L_ShowNextRecord;
- set @Q_Barbarians_MASK, NIBBLE_0_MASK;
- set @Q_Barbarians_SHIFT, NIBBLE_0_SHIFT;
- set @state, 0;
- callsub S_Update_Mask;
+L_Close:
+ // TODO: clear all temporary player variables that are not otherwise cleared
+ set @loop, 0;
close;
S_Update_Mask:
@@ -339,7 +298,4 @@ S_Update_Mask:
(QUEST_Barbarians & ~(@Q_Barbarians_MASK))
| (@state << @Q_Barbarians_SHIFT);
return;
-
-L_Close:
- close;
}