[RO] Default Healer with Debuff option

-   script  Healer  -1,{

    set .@Price,0;  // Zeny required for heal
    set .@Buffs,0;  // Also buff players? (1: yes / 0: no)
    set .@Delay,0;  // Heal delay, in seconds
    set .@Dispell,0;

    if (@HD > gettimetick(2)) end;
    if (.@Price) {
        message strcharinfo(0),"Healer costs "+callfunc("F_InsertComma",.@Price)+" Zeny.";
        if (Zeny < .@Price) end;
        if(select("^0055FFHeal^000000:^777777Cancel^000000") == 2) end;
        set Zeny, Zeny-.@Price;
    }
    specialeffect2 EF_HEAL2; percentheal 100,100;
    specialeffect2 EF_INCAGILITY; sc_start SC_INCREASEAGI,600000,10;
    specialeffect2 EF_BLESSING; sc_start SC_BLESSING,600000,10;

    if ( .@Dispell ) {
        sc_end SC_STONE;
        sc_end SC_FREEZE;
        sc_end SC_STUN;
        sc_end SC_SLEEP;
        sc_end SC_POISON;
        sc_end SC_CURSE;
        sc_end SC_SILENCE;
        sc_end SC_CONFUSION;
        sc_end SC_BLIND;
        sc_end SC_BLEEDING;
        sc_end SC_QUAGMIRE;
        sc_end SC_DECREASEAGI;
        sc_end SC_AETERNA;
        sc_end SC_HALLUCINATION;
        sc_end SC_STRIPWEAPON;
        sc_end SC_STRIPSHIELD;
        sc_end SC_STRIPARMOR;
        sc_end SC_STRIPHELM;
    }

    if (.@Buffs) {
        specialeffect2 EF_INCAGILITY; sc_start SC_INCREASEAGI,600000,10;
        specialeffect2 EF_BLESSING; sc_start SC_BLESSING,600000,10;
    }
    if (.@Delay) set @HD, gettimetick(2)+.@Delay;
    end;
}

payon,185,104,4 duplicate(Healer)   Healer#1    81