crystilia,70,78,3   script  Healer  66,{
 
L_heal:
setarray .delay[0],3;
if ( delay > gettimetick(2) ) {
    message strcharinfo(0) + "", "You must wait " + ( delay - gettimetick(2) ) + " seconds to heal again.";
    end;
} else {
    specialeffect2 37; sc_start SC_INCREASEAGI,240000,10;
    specialeffect2 42; sc_start SC_BLESSING,240000,10;
    set delay, gettimetick(2) + .delay[.x];
    end;
} end;
 
L_npcmenu: x:
    mes "What can I help you with?";
    if ( select ( "Edit delay (Current- ^ff0000" + .delay[.x] + "^000000):Cancel" ) == 2 ) { goto L_EXIT; }
    else { x2:
        mes "Please input the delay you'd like, or input^123456 13579 ^000000to use the ^cd0000default^000000 delay of ^cd77003^000000 seconds.";
        input .@a;
        if ( .@a == 13579 ) {
            mes "Are you sure you want to use the default delay?";
            menu "Yes",-,"Back",x2,"Main Menu",x,"Cancel",L_EXIT;
            next;
            mes "Default delay set.";
            set .x, 0;
            close;
        }
        mes "Are you sure you want to set the delay to ^ff0000" + .@a + "^000000?";
        menu "Yes",-,"Back",x2,"Main Menu",x,"Exit",L_EXIT;
        next;
        mes "Delay set to ^cd0000" + .@a + "^000000.";
        set .x, 1;
        set .delay[.x], .@a;
        close;
    }
 
L_EXIT:
    mes "Have a nice day then, " + strcharinfo(0) + ".";
    close;
 
OnWhisperGlobal:
if ( getgmlevel() < 50 ) end;
    if ( compare ( @whispervar0$, "!menu" ) ) goto L_npcmenu;
    if ( compare ( @whispervar0$, "!heal" ) ) goto L_heal1;
    if ( compare ( @whispervar0$, "!delay" ) ) {
        if ( @whispervar1$ == "default" ) {
            set .x, 0;
        } if ( @whispervar1$ != "default" ) {
            set .@delay, @whispervar1$;
            set .delay[1], .@delay;
            set .x, 1;
        } dispbottom "Delay set to " + .delay[.x] + ".";
    }
end;
}