viewing paste zenytocash | Athena

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 40 41 42 43 44 45 46 47 48 49 50 51 52 53
//Zeny to Cash Exchanger NPC by teamcars of teamcars1broglobal@blogspot.com
prontera,147,159,5  script  Zeny To Cash    894,{
 
    mes "[Zeny to Cash Exchanger]";
    mes "Exchange Rate:";
    mes "^0000FF1000^000000 Zeny = ^FF00001^000000 cash point";
    mes "Exchange^0000FF10^000000 cash points get free ^FF00001^000000 Kafra point";
    mes "Please select the service you want:";
    next;
    menu "^FF0000Exchange",Le0,"^0000FFCheck Cash Point",Edis2,"^00FF00Quit",LeEnd;
    
    Le0:
        set $@bEavail,(Zeny/1000);
        mes "[Zeny to Cash Exchanger]";
        mes "^0000FF" + strcharinfo(0) + "^000000";
        mes "Available Cash Points to Exchange: ^0000FF" + $@bEavail + "^000000";
        mes "How Many Cash Points you want to Exchange?";
        input $@ExchangeEC;
        set $@ttalEC,($@ExchangeEC*1000);
        if (Zeny < $@ttalEC) goto ENeedZenys;
        mes "That will be ^0000FF" + $@ttalEC + "^000000z!";
        next;
        mes "Do you still wanna Exchange Cash Points?";
        menu "^FF3355Exchange",LEyes,"Ive change my mind^000000",LEno;
        LEyes:
        set #CASHPOINTS,#CASHPOINTS+$@ExchangeEC;
        set #KAFRAPOINTS,#KAFRAPOINTS+($@ExchangeEC/10);
        set Zeny,Zeny-$@ttalEC;
        set $@CEx,#CASHPOINTS;
        set $@KEx,#KAFRAPOINTS;
        set $@totalExchange,$@totalExchange+$@ExchangeEC;
        goto Edis2;
        close;
        LEno:
        mes "Thanks you ^0000FF" + strcharinfo(0) + "^000000!";
        mes "Come Again!";
        close;
    Edis2:
        mes "Your Available Cash Point ^0000FF" + $@CEx + "^000000! ";
        mes "Your Available Kafra Point ^0000FF" + $@KEx + "^000000! ";
        close;
        ENeedZenys:
            mes "Sorry, you don't have enough Zeny.";
            close;
    LeEnd:
        close
 
 
    OnInit:
    waitingroom "Zeny To Cash point Exchange",0;
    end;
 
}
Viewed 804 times, submitted by Guest.