// http://rathena.org/board/topic/70367-question-regarding-to-sc-start/
aria,77,77,3	script	Priestess Magarita	641,{
	mes "[Priestess Magarita]";
	mes "Hello there! I'm Priestess Magarita from Prontera Chruch.";
	next;
	mes "[Priestess Magarita]";
	mes "I am here for a charity event which is providing free ^00FF00Heal^000000 and ^00FF00Bless^000000 services for all. In order Chief of Mornanie Island will pay 5z each serves for us to help the poors.";
	next;
	mes "[Priestess Magarita]";
	mes "Would you like me to cure you?";
	next;
	set .@j,select("Yes, Heal me please.:Yes, Heal and Bless please.:No, thank you.")-1;
	if (.@j>1) {
		mes "[Priestess Magarita]";
		mes "Have a nice day!";
		close;
	}
	mes "[Priestess Magarita]";
	mes "Thanks for helping us!";
	close2;
OnHeal:
	if (getd("@Delay_"+.@j) > gettimetick(2)) {
		if (@HealSpam >= 5) {
			npctalk "You've been warned, " + strcharinfo(0) + ".";
			sc_end SC_ALL;
			sc_start SC_DECREASEAGI,300000,10;
			end;
		}
		npctalk "Please do not spam, " + strcharinfo(0) + ". My skills are in cold down.";
		set @HealSpam, @HealSpam + 1;
		end;
	}
	percentheal 100,100;
	specialeffect2 312;
	emotion 21;
	if (.@j) {
		sc_start SC_BLESSING,300000,10;
		sc_start SC_INCREASEAGI,300000,10;
		specialeffect2 37;
		specialeffect2 42;	
	}
	npctalk "You are welcome! " + strcharinfo(0) + ".";
	setd "@Delay_"+.@j,gettimetick(2)+10;
	set @HealSpam, 0;
	end;
	
L_Buff: set .@j,1;
L_Heal: goto OnHeal;
	
OnInit:
	defpattern 1,"([^:]+):.*\\sheal\\s+pl(.*)","L_Heal";
	defpattern 1,"([^:]+):.*\\sbuff\\s+pl(.*)","L_Buff";
	activatepset 1;
	end;
}