summaryrefslogtreecommitdiff
path: root/world/map/npc/033-1/kimarr.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/033-1/kimarr.txt')
-rw-r--r--world/map/npc/033-1/kimarr.txt577
1 files changed, 0 insertions, 577 deletions
diff --git a/world/map/npc/033-1/kimarr.txt b/world/map/npc/033-1/kimarr.txt
deleted file mode 100644
index 8a16ab93..00000000
--- a/world/map/npc/033-1/kimarr.txt
+++ /dev/null
@@ -1,577 +0,0 @@
-// Fluffy hunting quest
-// initially by Jenalya
-// more by alastrim
-// broken by o11c, then fixed
-
-// Variables:
-// global $@Fluffy_Hunting - state of the quest
-// 0: nobody is hunting
-// 1-2: 2 timer iterations to give time for the warp to finish.
-// 3: somebody is hunting. The script checks every second if there is food on the ground.
-// global $@Fluffy_Time - the number of seconds since you entered the area
-// global $@Fluffy_Spawn - how many fluffies have been spawned
-// global $@Fluffy_Kills - how many fluffies you have killed so far
-// global $@Fluffy_Min - how many fluffies you have to kill to get a reward
-// global $@Fluffy_Alive - how many fluffies are currently alive
-// global $@Fluffy_PC_Deaths - used to keep track of whether the fluffies kill you
-// global $@Fluffy_Fighter$ - name of the person hunting fluffies (only used for ornamentation)
-// global $@Fluffy_FighterID - ID of the person hunting fluffies
-// nibble 0 of QUEST_Barbarians - state for this and adjacent NPCs
-// 0: haven't talked about it
-// 1: heard about it
-// 2: finished quest
-// 3: got reward
-
-// Note: if you're going to reenable the "drop multiple times" feature
-// 1: please do it every second, not just once you've killed everything - Done
-// 2: you should change $@Fluffy_Spawn to $@Fluffy_Alive and decrement it on kills
-// Kept $@Fluffy_Spawn and added $@Fluffy_Alive. The script spawns the amount related to what you drop at each specific time.
-// 3: add a variable to spawn more fluffies if you drop more than 100 apples, as you kill them
-
-// Also, the $@Fluffy_Extra behaviour should be reconsidered (hardly anything spawns ...)
-// that's the only reason I didn't make that one a local variable like it really is
-
-
-033-1,74,32,0|script|Kimarr|218
-{
- set @halloween_npc_id, $@halloween_npc_kimarr;
- callfunc "TrickOrTreat";
-
- if ($@Fluffy_FighterID == getcharid(3))
- goto L_Attention;
-
- set @state, ((QUEST_Barbarians & $@Q_Barbarians_MASK) >> $@Q_Barbarians_SHIFT);
-
- if (@state >= 3) goto L_Again;
- if (@state == 2) goto L_Reward;
- if (@state == 1) goto L_Ask;
-
- mes "[Barbarian]";
- mes "\"Greetings, little person.\"";
- next;
- mes "\"I am Kimarr, hunter and warrior of the Mangarr.\"";
- next;
- mes "\"You are very small and must be careful in these snowy mountains. It is cold, and dangerous monsters are here.\"";
- menu
- "Hello, my name is " + strcharinfo(0) + " and I'm not small. I'm a great warrior!",L_Next,
- "I'm " + strcharinfo(0) + ", don't underestimate me. I'm an experienced adventurer!",L_Next,
- "I'm the legendary " + strcharinfo(0) + ", I've fought countless battles.",L_Next;
-
-L_Next:
- mes "Kimarr seems to be amused.";
- mes "[Kimarr]";
- mes "\"Really? Do you want to prove it?\"";
- menu
- "Sure! What shall I do?",L_Continue,
- "No, I don't need to prove anything.",L_Close;
-
-L_Continue:
- mes "\"Every young member of our tribe proves his or her worth by hunting monsters.\"";
- 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;
- set @state, 1;
- callsub S_Update_Mask;
- goto L_ExplainGame;
-
-L_ExplainGame:
- mes "[Kimarr]";
- mes "\"In that cave there are living Fluffies. They like to eat apples.\"";
- next;
- mes "\"I also saw one of them getting excited about one of those sweet things you call 'cake'.\"";
- next;
- mes "\"Go to the cave entrance and throw food on the floor to make them come out.\"";
- next;
- mes "\"You should be careful, other monsters living here might like the food as well.\"";
- next;
- mes "\"Hunt as many Fluffies as you can until I tell you to stop.\"";
- next;
- mes "\"Drop more food when no Fluffies are left.\"";
- next;
- goto L_Ask;
-
-// dialog starts here if you've asked about it but not done it (@state == 1)
-L_Ask:
- if ($@KIMARR_EVENT)
- goto L_WithEvent;
- goto L_WithoutEvent;
-
-L_WithEvent:
- mes "[Kimarr]";
- mes "\"So, are you going to try?\"";
- menu
- "Yeah, let's start!",L_Game,
- "Could you explain again?",L_ExplainGame,
- "Can you tell me who were the most successful Fluffy hunters?",L_ShowRecord,
- "On the event, who were the most successful Fluffy hunters?",L_CRC_ShowRecord,
- "Maybe later.",L_Close;
-
-L_WithoutEvent:
- mes "[Kimarr]";
- mes "\"So, are you going to try?\"";
- menu
- "Yeah, let's start!",L_Game,
- "Could you explain again?",L_ExplainGame,
- "Can you tell me who were the most successful Fluffy hunters?",L_ShowRecord,
- "Maybe later.",L_Close;
-
-L_AlreadyGotReward:
- npctalk strnpcinfo(0), strcharinfo(0) + " killed " + $@Fluffy_Kills + " Fluffies and has once again proven to be a good hunter.";
- message strcharinfo(0), "Kimarr: Once again you prove your worth as a hunter! You killed " + $@Fluffy_Kills + " Fluffies.";
- callsub S_Clean;
- goto L_Close;
-
-L_Reward1:
- set @state, ((QUEST_Barbarians & $@Q_Barbarians_MASK) >> $@Q_Barbarians_SHIFT);
-
- if (@state >= 2)
- goto L_AlreadyGotReward;
-
- npctalk strnpcinfo(0), "Hooray! " + strcharinfo(0) + " killed " + $@Fluffy_Kills + " Fluffies and is now a worthy hunter.";
-
- // as far as I can tell, this fails because it won't resume from the "next"
- // when the script is executed via the "OnFluffyDeath" callback
- // (I haven't tried via the 301st call of OnTimer1000)
- message strcharinfo(0), "Kimarr: Hooray! You hunted " + $@Fluffy_Kills + " Fluffies. Talk to me for your reward.";
-
- set @state, 2;
- callsub S_Update_Mask;
- callsub S_Clean;
- 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:
- 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;
- set @inventorylist_count, 0;
-
- 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;
- goto L_Close;
-
-L_Full_Inv:
- 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:
- if ($@KIMARR_EVENT)
- goto L_AgainWithEvent;
- goto L_AgainWithoutEvent;
-
-L_AgainWithEvent:
- 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 successful Fluffy hunters?",L_ShowRecord,
- "On the event, who were the most successful Fluffy hunters?",L_CRC_ShowRecord,
- "Not now.",L_Close;
-
-L_AgainWithoutEvent:
- 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 successful Fluffy hunters?",L_ShowRecord,
- "Not now.",L_Close;
-
-L_Game:
- 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, 180;
- set $@Fluffy_Min, 1 + (BaseLevel*7)/10;
-
- warp "033-1", 79, 34;
- initnpctimer;
- goto L_Close;
-
-L_Someone_Else:
- mes "[Kimarr]";
- mes "\"Someone else is hunting right now. Let's wait until that hunt has ended.\"";
- goto L_Close;
-
-L_Attention:
- message strcharinfo(0), "Kimarr: You should be focused on hunting Fluffies, not talking.";
- end;
-
-OnTimer1000:
-// Give 3 seconds, so the server can warp and the player can get ready
- if ($@Fluffy_Hunting == 3)
- goto L_Action;
- set $@Fluffy_Hunting, $@Fluffy_Hunting + 1;
- goto L_ContinueTimer;
-L_Action:
-// Checking if player is logged
- if (attachrid($@Fluffy_FighterID) == 0)
- goto L_GotOut;
-// Checking if player is still in the map or used a towel or spell to get out
- if (getareausers("033-1", 79, 28, 88, 42) == 0)
- goto L_GotOut;
- if (PC_DIE_COUNTER > $@Fluffy_PC_Deaths)
- goto L_Died;
-// Checking if there is more than 1 player in the fight area
- if (getareausers("033-1", 79, 28, 88, 42) > 1)
- areatimer 0, "033-1", 79, 28, 88, 42, 10, "Kimarr::OnTooMany";
-
- if ($@Fluffy_Time == 180)
- npctalk strnpcinfo(0), strcharinfo(0) + ", you have 3 minutes.";
- if ($@Fluffy_Time == 120)
- npctalk strnpcinfo(0), "You have 2 minutes left.";
- if ($@Fluffy_Time == 60)
- npctalk strnpcinfo(0), "You have 1 minute left.";
- if ($@Fluffy_Time == 30)
- npctalk strnpcinfo(0), "You have 30 seconds left.";
- if ($@Fluffy_Time == 15)
- npctalk strnpcinfo(0), "You have 15 seconds left.";
- if ($@Fluffy_Time == 10)
- npctalk strnpcinfo(0), "You have 10 seconds left.";
- if ($@Fluffy_Time == 5)
- npctalk strnpcinfo(0), "You have 5 seconds left.";
- set $@Fluffy_Time, $@Fluffy_Time - 1;
- if ($@Fluffy_Time < 0)
- goto L_TimeOver;
- goto L_CheckDrops;
-
-L_ContinueTimer:
- setnpctimer 0;
- end;
-
-L_GotOut:
- npctalk strnpcinfo(0), "What a strange thing... " + $@Fluffy_Fighter$ + " just disappeared!";
- callsub S_Clean;
- end;
-
-OnTooMany:
- if (getcharid(3) == $@Fluffy_FighterID)
- end;
- npctalk strnpcinfo(0), "Hey " + strcharinfo(0) + "! What are you doing there? This hunt is for " + $@Fluffy_Fighter$ + " alone!";
- warp "033-1", 77, 34;
- end;
-
-L_Died:
- warp "033-1", 77, 34;
- message strcharinfo(0), "You are dead.";
- npctalk strnpcinfo(0), "Oh no! " + $@Fluffy_Fighter$ + " got overwhelmed!";
- callsub S_Clean;
- end;
-
-L_TimeOver:
- message strcharinfo(0), "Your time is over.";
- goto L_MaybeRecordScore;
-
-L_CheckDrops:
- set @Fluffy_RedApple, getareadropitem("033-1", 79, 29, 88, 42, "RedApple", 1);
- set @Fluffy_XmasCake, getareadropitem("033-1", 79, 29, 88, 42, "XmasCake", 1);
- set @Fluffy_Cake, getareadropitem("033-1", 79, 29, 88, 42, "Cake", 1);
- set @Fluffy_GreenApple, getareadropitem("033-1", 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 + $@Fluffy_Alive) <= 100)
- goto L_SpawnFluffies;
- message strcharinfo(0), "Wow, calm down, there are already too many Fluffies around here.";
- set $@Fluffy_Spawn, 100 - $@Fluffy_Alive;
- if ($@Fluffy_Spawn <= 0)
- goto L_ContinueTimer;
- goto L_SpawnFluffies;
-
-L_SpawnFluffies:
- areamonster "033-1", 79, 29, 88, 42, "", 1089, $@Fluffy_Spawn, "Kimarr::OnFluffyDeath";
-
- set $@Fluffy_Extra, 5 * @Fluffy_XmasCake + 3 * @Fluffy_Cake + 12 * ($@Fluffy_Alive + $@Fluffy_Spawn) + 7 * BaseLevel;
- if ((BaseLevel > 40) && (rand($@Fluffy_Extra) > 500)) // Ice Goblin
- areamonster "033-1", 79, 29, 88, 42, "", 1058, 1, "Kimarr::OnIceGoblinDeath";
- if ((BaseLevel > 60) && (rand($@Fluffy_Extra) > 550)) // Wolvern
- areamonster "033-1", 79, 29, 88, 42, "", 1090, 1, "Kimarr::OnWolvernDeath";
- if ((BaseLevel > 70) && (rand($@Fluffy_Extra) > 600)) // Yeti
- areamonster "033-1", 79, 29, 88, 42, "", 1072, 1, "Kimarr::OnYetiDeath";
-
- set $@Fluffy_Extra, 0;
- set @Fluffy_RedApple, 0;
- set @Fluffy_XmasCake, 0;
- set @Fluffy_Cake, 0;
- set @Fluffy_GreenApple, 0;
- set $@Fluffy_Alive, $@Fluffy_Alive + $@Fluffy_Spawn;
- goto L_ContinueTimer;
-
-OnIceGoblinDeath:
- set @MobID, 1058;
- if (getcharid(3) != $@Fluffy_FighterID)
- goto L_Punish;
- set @MobID, 0;
- end;
-
-OnWolvernDeath:
- set @MobID, 1090;
- if (getcharid(3) != $@Fluffy_FighterID)
- goto L_Punish;
- set @MobID, 0;
- end;
-
-OnYetiDeath:
- set @MobID, 1072;
- if (getcharid(3) != $@Fluffy_FighterID)
- goto L_Punish;
- set @MobID, 0;
- end;
-
-OnFluffyDeath:
- set @MobID, 1089;
- if ($@Fluffy_Hunting == 0)
- end;
- if (getcharid(3) != $@Fluffy_FighterID)
- goto L_Punish;
- set @MobID, 0;
- set $@Fluffy_Kills, $@Fluffy_Kills + 1;
- set $@Fluffy_Alive, $@Fluffy_Alive - 1;
- if ($@Fluffy_Alive != 0)
- end;
- if (attachrid($@Fluffy_FighterID) == 1)
- goto L_Killedall;
- goto L_GotOut;
-
-L_Punish:
- if (@MobID == 1089)
- areamonster "033-1", 79, 29, 88, 42, "", 1089, 1, "Kimarr::OnFluffyDeath";
- if (@MobID == 1058)
- areamonster "033-1", 79, 29, 88, 42, "", 1058, 1, "Kimarr::OnIceGoblinDeath";
- if (@MobID == 1090)
- areamonster "033-1", 79, 29, 88, 42, "", 1090, 1, "Kimarr::OnWolvernDeath";
- if (@MobID == 1072)
- areamonster "033-1", 79, 29, 88, 42, "", 1072, 1, "Kimarr::OnYetiDeath";
-
- npctalk strnpcinfo(0), strcharinfo(0) + "! This hunt is for " + $@Fluffy_Fighter$ + " alone!";
- heal -Hp, 0;
- set @MobID, 0;
- end;
-
-L_Killedall:
- message strcharinfo(0), "Good job, but you still have time to throw more food on the ground.";
- end;
-
-S_Clean:
- stopnpctimer;
- 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;
- set $@Fluffy_Alive, 0;
- killmonster "033-1", "Kimarr::OnIceGoblinDeath";
- killmonster "033-1", "Kimarr::OnWolvernDeath";
- killmonster "033-1", "Kimarr::OnYetiDeath";
- killmonster "033-1", "Kimarr::OnFluffyDeath";
- set @state, 0;
- return;
-
-L_MaybeRecordScore:
- warp "033-1", 77, 34;
- set @loop, 0;
- set @rank, 0;
- if ($@KIMARR_EVENT)
- goto L_CRC_MaybeInsertNext;
- // No event, keep as usual
- if ($@Fluffy_Kills < $@Fluffy_Min)
- goto L_NotGoodEnough;
- goto L_MaybeInsertNext;
-
-L_MaybeInsertNext:
- if ($@Fluffy_Kills > $Record_Fluffy_Kills[@rank])
- goto L_InsertScore;
- // you already had a better score
- if (strcharinfo(0) == $Record_Fluffy_Name$[@rank])
- goto L_Reward1;
- set @rank, @rank + 1;
- if (@rank == MAX_HIGH_SCORES)
- goto L_Reward1;
- goto L_MaybeInsertNext;
-
-L_InsertScore:
- set @loop, @rank;
- goto L_FindLastScore;
-
-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;
-
- set @loop, @loop + 1;
- 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;
-
-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$, "";
- goto L_Reward1;
-
-L_NotGoodEnough:
- npctalk strnpcinfo(0), "What a disappointment, " + strcharinfo(0) + " hunted only " + $@Fluffy_Kills + " Fluffies.";
- message strcharinfo(0), "Kimarr: What a disappointment, you hunted only " + $@Fluffy_Kills + " Fluffies.";
- callsub S_Clean;
- end;
-
-L_ShowRecord:
- set @rank, 0;
- set @loop, 0;
- goto L_ShowNextRecord;
-
-L_ShowNextRecord:
- if ($Record_Fluffy_Kills[@loop] == 0)
- goto L_Close;
- mes (@loop + 1) + " - " + $Record_Fluffy_Name$[@loop] + " - " + $Record_Fluffy_Kills[@loop] + " Fluffies killed at " + $Record_Fluffy_Date$[@loop];
- set @loop, @loop + 1;
- if (MAX_HIGH_SCORES > 4 && (@loop % 5) == 0 && $Record_Fluffy_Kills[@loop] > 0)
- goto L_NextShowNextRecord;
- goto L_ShowNextRecord;
-
-L_NextShowNextRecord:
- next;
- goto L_ShowNextRecord;
-
-L_CRC_MaybeRecordScore:
- if ($@Fluffy_Kills < $@Fluffy_Min)
- goto L_NotGoodEnough;
- set @rank, 0;
- set @loop, 0;
- goto L_MaybeInsertNext;
-
-L_CRC_MaybeInsertNext:
- if ($@Fluffy_Kills > $Record_CRC_Fluffy_Kills[@rank])
- goto L_CRC_InsertScore;
- // you already had a better score
- if (strcharinfo(0) == $Record_CRC_Fluffy_Name$[@rank])
- goto L_CRC_MaybeRecordScore;
- set @rank, @rank + 1;
- if (@rank == MAX_HIGH_SCORES)
- goto L_CRC_MaybeRecordScore;
- goto L_CRC_MaybeInsertNext;
-
-L_CRC_InsertScore:
- set @loop, @rank;
- goto L_CRC_FindLastScore;
-
-L_CRC_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_CRC_Fluffy_Name$[@loop])
- goto L_CRC_MoveStuff;
-
- set @loop, @loop + 1;
- if (@loop == MAX_HIGH_SCORES)
- goto L_CRC_MoveStuff;
- goto L_CRC_FindLastScore;
-
-L_CRC_MoveStuff:
- if (@loop == @rank)
- goto L_CRC_FinallyInsertMe;
- set $Record_CRC_Fluffy_Kills[@loop], $Record_CRC_Fluffy_Kills[@loop - 1];
- set $Record_CRC_Fluffy_Name$[@loop], $Record_CRC_Fluffy_Name$[@loop - 1];
- set $Record_CRC_Fluffy_Date$[@loop], $Record_CRC_Fluffy_Date$[@loop - 1];
- set @loop, @loop - 1;
- goto L_CRC_MoveStuff;
-
-L_CRC_FinallyInsertMe:
- set $Record_CRC_Fluffy_Kills[@rank], $@Fluffy_Kills;
- set $Record_CRC_Fluffy_Name$[@rank], strcharinfo(0);
- callfunc "time_stamp";
- set $Record_CRC_Fluffy_Date$[@rank], @ts_date$ + " " + @ts_time$;
- set @ts_date$, "";
- set @ts_time$, "";
- goto L_CRC_MaybeRecordScore;
-
-L_CRC_ShowRecord:
- set @rank, 0;
- set @loop, 0;
- goto L_CRC_ShowNextRecord;
-
-L_CRC_ShowNextRecord:
- if ($Record_CRC_Fluffy_Kills[@loop] == 0)
- goto L_Close;
- mes (@loop + 1) + " - " + $Record_CRC_Fluffy_Name$[@loop] + " - " + $Record_CRC_Fluffy_Kills[@loop] + " Fluffies killed at " + $Record_CRC_Fluffy_Date$[@loop];
- set @loop, @loop + 1;
- if (MAX_HIGH_SCORES > 4 && (@loop % 5) == 0 && $Record_CRC_Fluffy_Kills[@loop] > 0)
- goto L_CRC_NextShowNextRecord;
- goto L_CRC_ShowNextRecord;
-
-L_CRC_NextShowNextRecord:
- next;
- goto L_CRC_ShowNextRecord;
-
-L_Close:
- // clear all temporary player variables that are not otherwise cleared
-
- // it is not feasible to otherwise clear @loop
- // but, not all jumpers to L_Close have necessarily used it ...
- // still, I think it's a good precent to ALWAYS exit via L_Close
- set @loop, 0;
-
- // if you unset @state, it might break the script
- // If only we had the concept of "local constants" ...
- close;
-
-S_Update_Mask:
- set QUEST_Barbarians,
- (QUEST_Barbarians & ~($@Q_Barbarians_MASK)) | (@state << $@Q_Barbarians_SHIFT);
- return;
-}
-
-function|script|FluffyDebug
-{
- mes "[Numa]";
- mes "Please select an action.";
- menu
- "Enable/Disable Event Scoreboards", L_Enable,
- "Reset event scoreboards", L_Reset;
-
-L_Enable:
- set $@KIMARR_EVENT, !$@KIMARR_EVENT;
- return;
-
-L_Reset:
- if (GM < G_EVENT) goto L_Decline;
- cleararray $Record_CRC_Fluffy_Kills, 0, MAX_HIGH_SCORES;
- cleararray $Record_CRC_Fluffy_Name$, "", MAX_HIGH_SCORES;
- cleararray $Record_CRC_Fluffy_Date$, "", MAX_HIGH_SCORES;
- gmlog strcharinfo(0) + " wiped Fluffy Hunt Event Scoreboards.";
- return;
-
-L_Decline:
- mes "[Numa]";
- mes "I'm sorry, but your GM level does not authorizes you to perform this operation.";
- return;
-}