prontera,144,171,6 script Donation Manager 89,{
mes "[Jimmy John]";
mes "Would you like to convert your Donation Credit to TcG";
mes "Exchange Rate:";
mes "^0000FF1^000000 Donation Credit = one TCG";
next;
set @dCreds,query_sql("SELECT `balance` FROM cp_credits WHERE `account_id` = "+getcharid(3)+";",.@dCreds);
mes "Please select the service you want:";
next;
menu "^FF0000Exchange",dpExc,"^0000FFCheck Points/Credits",checkPoints,"^00FF00Quit",LeEnd;
dpExc:
mes "Available Cash Point to Exchange from Donation Credit : ^0000FF" + .@dCreds + "^000000";
next;
mes "How many ^FF0000 Cash Point ^000000 do you want?";
input @ExchangeECd;
if (.@dCreds < @ExchangeECd) goto ENeedDcredits;
mes "That will be ^0000FF" + @ExchangeECd + "^000000 Donation Credits!";
menu "Yes, I am sure.",LEyesd,"I will decide later...^000000",LEno;
LEyesd:
set .@dCBal,.@dCreds-@ExchangeECd;
query_sql("UPDATE `cp_credits` SET `balance` = "+.@dCBal+" WHERE account_id = "+getcharid(3)+";");
getitem 7227,@ExchangeECd;
next;
goto Edis2;
close;
LEno:
mes "Thanks you ^0000FF" + strcharinfo(0) + "^000000!";
mes "And done come again!";
close;
Edis2:
mes "Your Donation Credit = ^0000FF" + .@dCBal + "^000000!";
mes "Your Cash Point = ^0000FF" + #CASHPOINTS + "^000000! ";
close;
ENeedDcredits:
mes "Sorry, you don't have enough Donation Credits.";
close;
checkPoints:
mes "Your Donation Credit = ^0000FF" + .@dCreds + "^000000!";
mes "Your Cash Point = ^0000FF" + #CASHPOINTS + "^000000! ";
close;
LeEnd:
close;
OnInit:
waitingroom "Redeem Donation",0;
end;
}