033-1.gat,74,32,0	script	Kimarr	218, {

	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 (@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, better be careful in this 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!",-,
		"I'm " + strcharinfo(0) + ", don't underestimate me. I'm an experienced adventurer!" ,-,
		"I'm the legendary " + strcharinfo(0) + ", I've fought countless battles.",-;

	mes "Kimarr seems to be amused.";
	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;

L_Explain:
	mes "[Kimarr]";
	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;
	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:
	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 that sweet things you call 'cake'.\"";
	next;
	mes "\"You should be careful, other monsters living here might like the food as well\"";
	next;
	mes "\"Go to the cave entrance and throw food on the floor to make them come out.\"";
	next;
	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;

L_Reward:
	mes "[Kimarr]";
	mes "\"That was very impressing - now you can call yourself hunter " + strcharinfo(0) +".\"";
	next;
	getinventorylist;
	if (@inventorylist_count == 100) goto L_Full_Inv;
	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;
	close;

L_Again:
	mes "[Kimarr]";
	mes "\"Does 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;
	//TODO: give list of best hunters
	close;

L_Full_Inv:
	mes "[Kimarr]";
	mes "\"You are carrying a lot of things. I will give something to you when you have room for it.\"";
	close;

L_Close:
	close;

L_Game:
//REMOVE
goto L_Reward;
	if ($@FLUFFY_HUNTING) goto L_Someone_Else;
	set $@FLUFFY_HUNTING, 1;
	set $@FLUFFY_COUNTER, 0;
	set $@FLUFFY_TIME, 0;
	set $@FLUFFY_LVL, baselevel;
//TODO: set minimum  number of killed fluffies (maybe based on level?)
	set $@FLUFFY_MIN, 10;
	warp "033-1.gat", 79, 34;
	startnpctimer;
	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;

OnTimer1000:
	setnpctimer 0;
	if ($@FLUFFY_HUNTING != 0) goto L_Hunting;

L_Hunting:
	set $@FLUFFY_TIME, $@FLUFFY_TIME + 1;
	if ($@FLUFFY_TIME > 300) goto L_CleanUp;
	//TODO: monsterID angry fluffy
	if (getareausers("033-1.gat", 79, 29, 88, 42) == 0) goto L_CleanUp;

	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);

//TODO: balance the spawns and maybe add the new monster
	set $@FLUFFY_SPAWN, $@FLUFFY_REDAPPLES + 5 * $@FLUFFY_XMASCAKE + 3 * $@FLUFFY_CAKE + $@FLUFFY_GREENAPPLE;

//TODO: remove debug messages
	if ($@FLUFFY_TIME % 10 == 0)
		mapannounce "033-1.gat", "$@FLUFFY_TIME " + $@FLUFFY_TIME, 0;
	if ($@FLUFFY_TIME % 10 == 0)
		mapannounce "033-1.gat", "$@FLUFFY_COUNTER " + $@FLUFFY_COUNTER, 0;
	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";
	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;
	end;
//onInit:
//	initnpctimer;
//	stopnpctimer;

onFluffyDeath:
	set $@FLUFFY_COUNTER, $@FLUFFY_COUNTER + 1;
	mapannounce "033-1.gat", "fluffies killed: " + $@FLUFFY_COUNTER, 0;
	end;

L_CleanUp:
	areatimer "033-1.gat", 79, 29, 88, 42, 10, "Kimarr::onReward";
	set $@FLUFFY_HUNTING, 0;
	mapannounce "033-1.gat", "You killed " + $@FLUFFY_COUNTER + "Fluffies", 0;
	set $@FLUFFY_COUNTER, 0;
	//TODO: save amount of killed fluffies in playervariable (hunting redoable, npc tells the best result)
	set $@FLUFFY_TIME, 0;
//TODO: check if that command really only kills the event monsters
	killmonster "033-1.gat", "All";
	stopnpctimer;
	setnpctimer 0;
	mapannounce "033-1.gat", "clean up", 0;
	end;

onReward:
	//TODO: add check for new record
	warp "033-1.gat", 77, 34;
	set @place, -1;
//TODO: prevent that one player can be in that list more than once
	if ($FLUFFYGAME_PTS[8] < $@FLUFFY_COUNTER) set @place,8;
	if ($FLUFFYGAME_PTS[7] < $@FLUFFY_COUNTER) set @place,7;
	if ($FLUFFYGAME_PTS[6] < $@FLUFFY_COUNTER) set @place,6;
	if ($FLUFFYGAME_PTS[5] < $@FLUFFY_COUNTER) set @place,5;
	if ($FLUFFYGAME_PTS[4] < $@FLUFFY_COUNTER) set @place,4;
	if ($FLUFFYGAME_PTS[3] < $@FLUFFY_COUNTER) set @place,3;
	if ($FLUFFYGAME_PTS[2] < $@FLUFFY_COUNTER) set @place,2;
	if ($FLUFFYGAME_PTS[1] < $@FLUFFY_COUNTER) set @place,1;
	if ($FLUFFYGAME_PTS[0] < $@FLUFFY_COUNTER) set @place,0;
	if (@place != -1) callsub MOVE_NAME;

	if (@state > 1) goto L_Skip;
	if ($@FLUFFY_COUNTER < $@FLUFFY_MIN) goto L_Skip;
	set @state, 2;
	callsub S_Update_Mask;
L_Skip:
	end;
//////

S_MOVE_NAME:
    set @i,9;

MOVE_NAME_L1:
    set @i, @i-1;
    set $FLUFFYGAME_PTS[@i+1], $FLUFFYGAME_PTS[@i];
    set $FLUFFYGAME_PTS[@i+1], $FLUFFYGAME_PTS[@i];
    if (@i == @place) goto MOVE_NAME_L2;
    goto MOVE_NAME_L1;

MOVE_NAME_L2:
    set $FLUFFYGAME_PTS[@place], $@FLUFFY_COUNTER;
    set $FLUFFYGAME_NAME[@place], strcharinfo(0);
    return;

S_Update_Mask:
        set QUEST_Barbarians,
        	(QUEST_Barbarians & ~(@Q_Barbarians_MASK))
                | (@state << @Q_Barbarians_SHIFT);
        return;
}