oh men... i 4got to put the script O.O
prontera,148,193,5 script Cash Trader 894,{
mes "[Cash Trader]";
mes "Exchange Rate:";
mes "^0000FF300m^000000 zeny =^00FF001^000000 cash point or ^0000FF1^000000 cash point =^00FF0050m^000000 zeny";
mes "Exchange^0000FF10^000000 cash points get free ^00FF001^000000 Kafra point";
mes "Please select the service you want:";
next;
menu "^FF0000Exchange Zeny to Cash",Le0,"FF0000Exchange Cash to Zeny",Le01,"^0000FFCheck Cash Point",Edis2,"^00FF00Quit",LeEnd;
Le0:
set @bEavail,(Zeny/500000000);
mes "[Cash Trader]";
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*500000000);
if (Zeny < @ttalEC) goto ENeedZenys;
mes "That will be ^0000FF" + @ttalEC + "^000000z!";
next;
mes "[Cash Trader]";
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+(#CASHPOINTS/10);
set Zeny,zeny-@ttalEC;
Set @CEx,#CASHPOINTS;
Set @KEx,#KAFRAPOINTS;
set #totalExchange,#totalExchange+@ExchangeEC;
goto Edis2;
close;
LEno:
mes "[Cash Trader]";
mes "Thanks you ^0000FF" + strcharinfo(0) + "^000000!";
mes "Come Again!";
close;
Edis2:
mes "[Cash Trader]";
mes "Your Available Cash Point ^0000FF" + @CEx + "^000000! ";
mes "Your Available Kafra Point ^0000FF" + @KEx + "^000000! ";
close;
ENeedZenys:
mes "[Cash Trader]";
mes "Sorry, you don't have enough Zeny.";
close;
LeEnd:
close;
Le01:
}
i got only zeny to cash point.. i need cash point to zeny too... ^^,
bump!