-   script  bot_checking_color  -1,{
    OnInit:
        setarray .code_range,
            10000,
            999999;
            
        setarray .color$,
            "^00FF00", 
            "^FF0000", 
            "^0000FF", 
            "^0FF0FF", 
            "^CCCCCC", 
            "^CBCBCB";
        set .color_size,getarraysize( .color$ );
        end;
        
    OnPCLoginEvent:
        set .@right_color,rand( .color_size );
        set .@random_code$,""+rand( .code_range[0],.code_range[1] );
        
        mes "Enter color "+.color$[.@right_color]+"########^000000";
        for ( set .@i,0; .@i < .color_size; set .@i,.@i + 1 )
            mes .color$[.@i]+ ( ( .@i == .@right_color )? .@random_code$:rand( .code_range[0],.code_range[1] ) ) + "^000000";
        do {
            .@attempt++;
            input .@code$;
        } while( .@code$ != .@random_code$ && .@attempt <= 3 );
    
        if ( .@code$ == .@random_code$ && .@attempt <= 3 ) {
            mes "Correct.";
        }
        else {
            atcommand "@kick "+strcharinfo(0);
        }
        close;
}