Point Merchant

//Script by: Maggzillaaaaaaa (joke the woman wasn't happy I was scripting =P)
// ================ rAthena Script ==================================================
// ============== Information =======================================================
// = Point Merchant
// = Made by :
// = Echo
//===== Current Version: ===================================================
//= 1.0
//===== Compatible With: ===================================================
//= with any rAthena Revision
//===== Description: =======================================================
//= Sells and Buys any amount of skill or stat points.

vend_zone,113,104,6	script	Point Merchant	47,{
// ===================== Settings ===========================
set .@skillname$,"^0000FF[ Baldur ]^000000";
set .@zenyCost,100000;
// ================== End of Settings =======================
mes .@skillname$;
mes "Hello ^FF0000["+strcharinfo(0)+"]^000000!";
mes "What do you want to do?";
next;
switch(select("-Buy Stats:-Buy Skills:-Sell Stats:-Sell Skills:Cancel")) {
case 1:
	mes .@skillname$;
	mes "Okay input the Amount";
	mes "of Points you want to buy!";
	next;
	mes .@skillname$;
        mes "1 Point has a cost of "+.@zenyCost+" Zenny!";
	input .@amount;
	if( Zeny < ( .@amount * .@zenyCost ) ) {
	mes "You don't have enough money!";
	close;
	} else {
	set Zeny, Zeny - ( .@amount * .@zenyCost );
	set StatusPoint, StatusPoint + .@amount;
	mes "There you are, enjoy your new points!";
	close;
	}
case 2:
	mes .@skillname$;
	mes "Okay input the Amount";
	mes "of Points you want to buy!";
	next;
	mes .@skillname$;
	mes "1 Point has a cost of "+.@zenyCost+" Zenny!";
	input .@amount;
	if( Zeny < ( .@amount * .@zenyCost ) ) {
	mes "You don't have enough money!";
	close;
	} else {
	set Zeny, Zeny - ( .@amount * .@zenyCost );
	set SkillPoint, SkillPoint + .@amount;
	mes "There you are, enjoy your new points!";
	close;
	}
case 3:
	mes .@skillname$;
	mes "Okay input the Amount";
	mes "of Points you wish to sell!";
	next;
	mes .@skillname$;
 	mes "1 Point has a value of "+.@zenyCost+" Zenny!";
	input .@amount;
	if( StatusPoint < ( .@amount ) ) {
	mes "You don't have enough Status Points!";
	close;
	} else {
	set Zeny, Zeny + ( .@amount * .@zenyCost );
	set StatusPoint, StatusPoint - .@amount;
	mes "There you are, enjoy your Zeny!";
	close;
	}
case 4:
	mes .@skillname$;
	mes "Okay input the Amount";
	mes "of Points you wish to sell!";
	next;
	mes .@skillname$;
	mes "1 Point has a value of "+.@zenyCost+" Zenny!";
	input .@amount;
	if( skillpoint < ( .@amount ) ) {
	mes "You don't have enough Skill Points!";
	close;
	} else {
	set Zeny, Zeny + ( .@amount * .@zenyCost );
	set SkillPoint, SkillPoint - .@amount;
	mes "There you are, enjoy your zeny!";
	close;
	}
case 5:
	mes .@skillname$;
	mes "Come again...";
	close;
}
}