//用法
//callfunc("gcstr",道具id);
function    script  gcstr   {
    setarray .c$[1],"1","2","3","4","5","6","7","8","9";
    setarray .c$[10],"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z";
    setarray .c$[36],"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z";
    .@stopnum = getarg(0);
    freeloop(1);
    for(.@k=0; .@k<= 17; .@k++) {
        for(.@j= 0; .@j<= 61; .@j++) {
            for(.@i=( .@k ||.@j ? 0:1);.@i<= 61; .@i++ ){
                .@n++;
                if(.@stopnum == .@n) {
                    .@os$ = .c$[.@k]+(.@j?.c$[.@j]:(.@k?"0":""))+(.@i?.c$[.@i]:"0");
                    freeloop(0);
                    return .@os$;
                }
            }
        }
    }
    freeloop(0);
}
 
 
prontera,160,190,4  script  test5467    48,{
    input .@input;
    dispbottom "得到字串是:" + callfunc("gcstr",.@input);
    dispbottom .@input+"：<ITEM>0000000"+callfunc("gcstr",.@input)+"'00</ITEM>";
    end;
}