prontera,152,190,5  script  Battle Therapist    936,{
 
    set .@Price,0;  // Zeny required for heal
    set .@Buffs,1;  // Also buff players? (1: yes / 0: no)
    set .@Delay,3;  // Heal delay, in seconds
 
    callfunc "F_ClearGarbage",0;
    if (@HD > gettimetick(2)) end;
    if (.@Price) {
        message strcharinfo(0),"Healing costs "+.@Price+" Zeny.";
        if (Zeny < .@Price) end;
        if(select("^0055FFHeal^000000:^777777Cancel^000000")==2) end;
        set Zeny, Zeny-.@Price;
    }
 
    percentheal 100,100;
    if (.@Buffs) {
        sc_end SC_KYRIE;
        sc_end SC_SPIRIT;
        sc_end SC_IMPOSITIO;
        sc_end SC_ASSUMPTIO;
        sc_end SC_WEAPONPERFECTION;
        sc_end SC_GLORIA;
        sc_end SC_CP_WEAPON;
        sc_end SC_CP_SHIELD;
        sc_end SC_CP_ARMOR;
        sc_end SC_CP_HELM;
        sc_start 30,600000,10; specialeffect2 42; //Blessing
        sc_start 32,600000,10; specialeffect2 37; //Agi Up
    }
    if (getbrokenid(1) >= 1) {
        repairall;
    }
    set @NonIDCount, 0;
    getinventorylist;
    for(set @i, 0; @i < @inventorylist_count; set @i, @i + 1) {
        if (@inventorylist_identify[@i] == 0) {
            set @NonIDCount, @NonIDCount + 1;
        }
    }
    if (@NonIDCount >= 1) {
        for(set @i, 0; @i < @inventorylist_count; set @i, @i + 1) {
        if (!@inventorylist_identify[@i]) {
            delitem2 @inventorylist_id[@i],1,0,0,0,0,0,0,0;
            getitem @inventorylist_id[@i],1;
            }
        }
    }
    if (.@Delay) set @HD, gettimetick(2)+.@Delay;
    end;
}