//Zeny to Cash Exchanger NPC by teamcars of [email protected]
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;
}