daily hunting quest

//======Name========================================
// Daily Monster Hunt
//======Version=====================================
// 1.2
//======Author(s)===================================
// Sandbox
//======Comments====================================
// This NPC allows your player to hunt a random amount
// of a random monster, within a random time
// *randomception!*
// If the player successfully hunts the monster
// within the time limit, he'll receive a reward!
//======Credits=====================================
// KeyWorld, nanakiwurtz, NeoMind, Kido
// Thanks for helping me out guize!
//==================================================

prontera,141,171,3	script	Daily Hunting	869,{

mes "[Daily Hunting]";
	if(Hunter) {
	mes "You have killed ^880000"+HuntCount+"^000000/^0000FF"+Amt+"^000000 "+getmonsterinfo(Hunt,0)+"s, keep it up!";
	mes "         ";
	//mes "Pay ^FF000050.000 Zeny^000000 to ^0000FFReset Quest^000000";
	mes "Pay ^FF0000300.000 Zeny^000000 to ^0000FFComplete Quest^000000";

	menu //"Reset Quest 50.000Z",Lreset,
		 "Complete Quest ^FF0000300.000Z^000000",LComplete;

	}
	if(gettimetick(2) < HuntDelay) {
		mes "You can only do this quest once a day!";
		mes "         ";
		mes "Pay ^FF000050.000 Zeny^000000 to ^0000FFReset Quest^000000";

		menu "Reset Quest ^FF000050.000Z^000000",Lreset;
	}

mes "Hello, do you want to take on the Monster Daily Hunting?","I will give you Challenge to kill amount of a monster, and you'll receive a reward!";
next;
mes "Requirement ^FF0000Level 50^000000.";
mes "Mission kill ^FF000040 Zombie Prisoners^000000.";
if(select("Take a Mission!:Leave it?")==2) {
	mes "[Daily Hunting]";
	mes "Fine!";
	close;
}
next;
if (BaseLevel <= 50) goto noob;
mes "[Daily Hunting]";
	Hunt = .Mob_List[rand(getarraysize(.Mob_List))];
	Time = 86400000; //Timer
	Amt = rand (40,40); //Amount of mob to hunt
	Hunter++;

mes "You have to hunt ^0000FF"+Amt+" "+getmonsterinfo(Hunt,0)+"^000000!";
mes "Go go go!";
close2;
	//showdigit Time,3;
	HuntDelay = gettimetick(2)+86400; //Once a day only.
	HuntStart = gettimetick(2)+Time;
	setquest 80001;
//sleep2 1000*Time;
	//if(Hunter) dispbottom strnpcinfo(1)+": I'm sorry, you didn't make it!";
	//HuntStart = 0; //Reset all variables
	//Hunt = 0;
	//Hunter = 0;
	//HuntCount = 0;
	//Time = 0;
	//Amt = 0;
end;

Lreset:
	if (Zeny <= 50000) goto S_NoZeny;
	mes "Reset";
		HuntDelay = 0;
		erasequest 80001;
		set Zeny,Zeny-50000;
		dispbottom strnpcinfo(1)+": Congratulations! Your Daily has been reset!";
	close;

LComplete:
	if (Zeny <= 300000) goto S_NoZeny;
	mes "Complete";
		dispbottom strnpcinfo(1)+": Congratulations! Your Daily has been Complete!";
		getitem .Reward,.RewAmt;
		completequest 80001;
		HuntStart = 0;
		Hunt = 0;
		Hunter = 0;
		HuntCount = 0;
		Time = 0;
		Amt = 0;
		showdigit 1,3;
		set Zeny,Zeny-300000;
	close;

S_NoZeny:
	mes "You need more zeny";
	close;

noob:
	mes "Need more level";
	close;
//----------Config----------

OnInit:
	.Npc_Name$ = "[^0000FF NPC ^000000]";
	setarray .Mob_List[0],1197; //Mobs to hunt. Default: Poring, Fabre, Lunatic
	.Reward = 51013;	//Reward ID
	.RewAmt = 1; //Reward Amount
	end;

OnNPCKillEvent:
	if(Hunter >= 0) {
		if(gettimetick(2) < HuntStart) {
			if(killedrid == Hunt) {
				HuntCount++;
				dispbottom "You have killed "+HuntCount+"/"+Amt+" "+getmonsterinfo(Hunt,0)+"s, keep it up!";
				if(HuntCount >= Amt) {
					dispbottom strnpcinfo(1)+": Congratulations! You did it!";
					getitem .Reward,.RewAmt;
					HuntStart = 0;
					Hunt = 0;
					Hunter = 0;
					HuntCount = 0;
					Time = 0;
					Amt = 0;
					showdigit 1,3;
				}
			}
		}
	}
end;
}