viewing paste TCG Bank | 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 26 27 28 29 30 31 32 33 34 35 36 37 38 39
prontera,139,176,5  script  TCG Banker  831,{
    set .@item, 7227; //Item ID
    set .@n$,"["+strnpcinfo(0)+"]";
    mes .@n$;
    mes "Welcome to the "+getitemname(.@item)+" Bank!";
    mes " ";
    mes getitemname(.@item)+": "+asdf;
    next;
    if (select(getitemname(.@item)+" Transaction:View Ladder") == 2) {
        set .@z, query_sql("SELECT `char_id`,`value` FROM `global_reg_value` WHERE `str`='asdf' ORDER BY `value` DESC LIMIT 10",.@c,.@v);
        if (!.@z) {
            mes .@n$;
            mes "No records found.";
            close;
        }
        mes " - Top 10 - ";
        for (set .@i, 0; .@i < getarraysize(.@c); set .@i, .@i + 1) { query_sql("SELECT `name` FROM `char` WHERE `char_id`="+.@c[.@i],.@p$); mes "["+(.@i+1)+"] "+.@p$+" "+.@v[.@i]; }
        close;
    }
    setarray .@m$, "Deposit","Widthdraw";
    for (set .@i, 0; .@i < getarraysize(.@m$); set .@i, .@i + 1) set .@menu$, .@menu$ + .@m$[.@i] + ":";
    set .@m, select (.@menu$) - 1;
    next;
    mes .@n$;
    mes "Please insert the amount of "+getitemname(7227)+" you wish to "+.@m$[.@m]+".";
    input .@a;
    next;
    if (!.@a) close;
    if (!.@m && countitem(.@item) >= .@a) { set asdf, asdf + .@a; delitem .@item,.@a; } 
    else if (.@m && asdf >= .@a) { set asdf, asdf - .@a; getitem .@item,.@a; } 
    else {
        mes .@n$;
        mes "I'm sorry you have insufficient amount of "+getitemname(.@item)+" to "+.@m$[.@m]+".";
        close;
    }
    mes .@n$;
    mes .@m$[.@m]+" successful.";
    close;
}
Viewed 939 times, submitted by Joseph.