Untitled
Posted by Anonymous on Sat 26th May 2012 23:23
raw | new post

prontera,155,188,0      script  test    910,{
        mes "Enter the account_id:";
        input .@account_id;

        if (query_sql("SELECT account_id FROM login WHERE account_id=" + .@account_id) == 0) {
                mes "^FF0000 account_id ("+.@account_id+") NOT FOUND!";
                close;
        }

        query_sql "SELECT char_id,`name` FROM `char` WHERE account_id="+ .@account_id +" ORDER BY char_id ASC", .@char_id,.@name$;

        if (getarraysize(.@char_id) == 0) {
                mes "^FF0000 There are no chars on this account.";
                close;
        }

        for (set .@i,0; .@i<getarraysize(.@char_id); set .@i,.@i+1)
                set .@menu$, .@menu$ + .@name$[.@i]+":";
        set .@num, select(.@menu$) -1;

        // lookup and display info about that char
        query_sql "SELECT class,base_level,job_level,zeny FROM `char` WHERE char_id="+.@char_id[.@num]+" LIMIT 1", .@class,.@base_level,.@job_level,.@zeny;

        mes "char_id = " + .@char_id[.@num];
        mes "Name = " + .@name$[.@num];
        mes "Class = " + jobname(.@class);
        mes "Level = " + .@base_level + " / " + .@job_level;
        mes "Zeny = " + .@zeny;
        close;
}