// 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;
}