viewing paste Unknown #10812 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
-   script  checkreport -1,{
 
OnInit:
    bindatcmd("checkreport","checkreport::OnCheck",0,10);
    end;
    
OnCheck:
    if (getgroupid()>1) {
        query_sql("SELECT count(*) FROM `cp_support_tickets` WHERE `status`=1",.@count);
        mes "In the bugreport "+.@count+" unsolved problems.";
        switch(select("Read:Goodbye")) {
            case 1: open "http://test.awesomero.com/?module=support", strcharinfo(0); 
                end;
            case 2:
                next;
                mes "You are a bad man!";
                close;
        }
    }
    else 
    {
        dispbottom "That command only for GM, sorry man!";  
        end;
    }
}
Viewed 684 times, submitted by Guest.