prontera,159,190,4	script	Magaleta	21002,{

.@Name$ = "[^DC143CMagaleta^000000]";
.@Player$ = strcharinfo(0);
.@GID = getcharid(2);
.CasID = getcastledata("prtg_cas01",1);
.@GName$ = getguildname(.CasID);
.@Cost = 1000;

	if(.@GID == .CasID){
		mes .@Name$;
		mes "Welcome ^32CD32"+.@Player$+"^000000, Would you like to be healed?"," ","For members of ^20B2AA"+.@GName$+"^000000 healing is Free.";
		switch(select("Heal me please:No thanks")){
			case 1:
				specialeffect2 EF_HEAL2;
				percentheal 100,100;
				break;
			case 2:
				next;
				mes .@Name$;
				mes "Maybe next time.";
				break;
	}} else {
		mes .@Name$;
		mes "Welcome ^32CD32"+.@Player$+"^000000, Would you like to be healed?"," ","Standard cost is 1,000 Zeny.";
		switch(select("Heal me please:No thanks")){
			case 1:
				if (Zeny < .@Cost){
				next;
				mes .@Name$;
				mes "I'm sorry but you don't have enough.";
			close;} else {
				specialeffect2 EF_HEAL2;
				percentheal 100,100;
				Zeny -= .@Cost;
			break;}
			case 2:
				next;
				mes .@Name$;
				mes "Maybe next time.";
			break;}
			}
end;
}