Donation credits to cash points

prontera,144,171,6	script	Donation Manager 	89,{

	mes "[Jimmy John]";
	mes "Would you like to convert your Donation Credit to cash point?";
	mes "Exchange Rate:";
	mes "^0000FF1^000000 Donation Credit = ^00FF001^000000 Cash Point";
	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)+";");
		set #CASHPOINTS,#CASHPOINTS+@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;

}