//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;
}