//Author : goddameit(DeathFire)
//Assist : .g(NihilityFire)
//Test : .g(ShuraFire)
//Web : http://www.okay.hk/?fromuser=goddameit
//Version : 3
prontera,150,180,4	script	dps	990,{
	function	reward {
		set Zeny,Zeny+rand(1,10)*1000+rand(0,999);
		return;
	}
	function	se	;
	function	de	;
	function	sd	{
		set @dsp_t2,0;
		set @dsp_t3,0;
		set @dsp_t7,0;
		set @dsp_t1,compare(getarg(0),"a1");

		while(!compare(getarg(0),"a"+@dsp_t1+"b"+@dsp_t2))
		{
			set @dsp_t2,@dsp_t2+1;
			if(@dsp_t2%23==0)sleep2(1);
		}
		
		while(!compare(getarg(0),"d"+@dsp_t3+"e"))
		{
			set @dsp_t3,@dsp_t3+1;
			if(@dsp_t3%53==0)sleep2(1);
		}
		
		if(!compare(getarg(0),"c"+gettime(7)))
			set @dsp_t3,1;
		
		if(@dsp_t3==1)
			set @dsp_t1,0;
		
		if(compare(getarg(0),"a1"))
		{
			if(!sqrt(pow(@dsp_t3-gettime(8),2)))
				set @dsp_t1,1;
			else
				set @dsp_t1,0;
		}
		
		if(sqrt(pow(@dsp_t3-gettime(8),2))>1)
			set @dsp_t3,1;
			
		if(@dsp_t3!=1)
			set @dsp_t3,0;
			
		while(!compare(getarg(0),"e"+@dsp_t7+"f"))
		{
			set @dsp_t7,@dsp_t7+1;
			if(@dsp_t7%53==0)sleep2(1);
		}
			
	}
	mes "Welcome to 'Daily sign'";
	mes "1.This board is opening";
	mes "2.Sign can get ^6600991000~100000^000000z";
	mes "3.1 account can sign one time.";
	mes "4.It will auto clean messages at 1am.";
	if(#dsp$=="")
		set #dsp$,"a0b0c"+gettime(7)+"d"+gettime(8)+"e0f";
	sd(#dsp$);
	mes "[You ^FF0000"+(@dsp_t1?"already":"not yet")+"^000000 sign]";
	if(@dsp_t2)
		mes "[Keep "+@dsp_t2+" days]";
	switch(select("Watch","Sign",(getgmlevel()==99?"[Clean]":"")))
	{
		case 1:
			se();
		case 2:
			de();
		case 3:
			close2;
			goto OnClen;
	}
	function	de	{
		close2;
		if(@dsp_t1)
		{
			mes "You already sign it.";
			close;
		}
		mes "type what you want to talk.";
		mes "if don't, type'(null)'";
		input .@temp$;
		for(set .@i,0;;set .@i,.@i+1)
		{
			if(.@i%37==0)sleep2(1);
			if(getd("$dps_username_"+.@i+"$")=="")
				break;
		}
		set @dsp_t2,@dsp_t2+1;
		set @dsp_t7,@dsp_t7+1;
		if(@dsp_t3==1)
			set @dsp_t2,1;
		setd "$dps_username_"+.@i+"$",strcharinfo(0);
		setd "$dps_usertalk_"+.@i+"$",(.@temp$=="(null)"?"":.@temp$);
		setd "$dps_usertime_"+.@i+"$",gettime(3)+"h"+gettime(2)+"m"+gettime(1)+"s";
		setd "$dps_usertims_"+.@i+"$",@dsp_t2;		
		setd "$dps_usertotl_"+.@i+"$",@dsp_t7;
		set #dsp$,"a1b"+@dsp_t2+"c"+gettime(7)+"d"+gettime(8)+"e"+@dsp_t7+"f";
		mes "complete";
		reward();
		close;
	}
	function	se	{
		function	ti	{
			if(getarg(0)<10)
				return "000"+getarg(0);
			if(getarg(0)<100)
				return "00"+getarg(0);
			if(getarg(0)<1000)
				return "0"+getarg(0);
			return getarg(0);
		}
		close2;
		while(getd("$dps_username_"+.@i+"$")!="")
		{
			if(getd("$dps_usertalk_"+.@i+"$")=="")
			{
				set .@i,.@i+1;
				continue;
			}
			mes "[No."+ti(.@i+1)+"]";
			mes "^FF0000"+getd("$dps_usertime_"+.@i+"$")+" sign in.";
			mes "^8B7500'"+getd("$dps_username_"+.@i+"$")+"'";
			mes "^008B00said:'"+getd("$dps_usertalk_"+.@i+"$")+"'^000000";
			mes "[^008B00keep^000000/^FF0000total ^008B00"+getd("$dps_usertims_"+.@i+"$")+"^000000/^FF0000"+getd("$dps_usertotl_"+.@i+"$")+"^000000 days]";
			mes "=====================";
			set .@i,.@i+1;
			if(.@i%24==0)
			{
				if(select("[continue]","[end]")==1)
					next;
				else
					break;
			}
		}
		close;
	}

OnInit:
	waitingroom "{[Daily sign]}",0;
OnClock0100:

OnClen:

	while(getd("$dps_username_"+.@i+"$")!="")
	{
		setd "$dps_username_"+.@i+"$","";
		setd "$dps_usertalk_"+.@i+"$","";
		setd "$dps_usertime_"+.@i+"$","";
		setd "$dps_usertims_"+.@i+"$","";
		setd "$dps_usertotl_"+.@i+"$","";
		set .@i,.@i+1;
	}
	end;
}