Double Click Healer v2

//By Skorm
-   script  Goddess::Skormie    1,{

        set .@cntcoin, countitem(.coin);
        set .@npc$, "[ ^0000FFGoddess^000000 ]";
        if(($@h_last$==strcharinfo(0)) && (getnpctimer(1))) goto L_doubleclick;

        if (buff == 1) {
        L_Fheal:
            set $@h_last$,strcharinfo(0);
            percentheal 100,100;
            specialeffect2 EF_HEAL;
            specialeffect2 363;
            misceffect 488;
            dispbottom "Successfully healed!";
            dispbottom "Double-click me to change your choice of healing.";
            if(!getnpctimer(1)){setnpctimer 0; startnpctimer;}
            end;
        }
        if (buff == 2) {
            set $@h_last$,strcharinfo(0);
            if (((curr)?.@cntcoin<.pcoin[buff]:zeny<.price[buff])) {
                dispbottom "You do not have enough.";
                if(switch){ dispbottom "Switched to Free Heal."; goto(L_Fheal); }
                dispbottom "Double-click me to change your choice of healing.";
                if(!getnpctimer(1)){
                    setnpctimer 0;
                    startnpctimer;
                }
                end;
            }
            if (curr) delitem .coin,.pcoin[buff];
            else set Zeny,Zeny-.price[buff];
            skilleffect 29,0;
            sc_start SC_INCREASEAGI,240000,10;
            percentheal 100,100;
            specialeffect2 EF_HEAL;
            specialeffect2 363;
            misceffect 488;
            dispbottom "Successfully healed and buffed!";
            dispbottom "Double-click me to change your choice of healing.";
                if(!getnpctimer(1)){setnpctimer 0; startnpctimer;}
            end;
        }
        if (buff == 3) {
            set $@h_last$,strcharinfo(0);
            if (((curr)?.@cntcoin<.pcoin[buff]:zeny<.price[buff])) {
                dispbottom "You do not have enough.";
                if(switch){ dispbottom "Switched to Free Heal."; goto(L_Fheal); }
                dispbottom "Double-click me to change your choice of healing.";
                if(!getnpctimer(1)){setnpctimer 0; startnpctimer;}
                end;
            }
            if (curr) delitem .coin,.pcoin[buff];
            else set Zeny,Zeny-.price[buff];
            skilleffect 29,0;
            sc_start SC_INCREASEAGI,240000,10;
            skilleffect 34,0;
            sc_start SC_BLESSING,240000,10;
            percentheal 100,100;
            specialeffect2 EF_HEAL;
            specialeffect2 363;
            misceffect 488;
            dispbottom "Successfully healed and buffed!";
            dispbottom "Double-click me to change your choice of healing.";
            if(!getnpctimer(1)){setnpctimer 0; startnpctimer;}
            end;
        }

        mes .@npc$;
        mes "Hello ^0000FF"+strcharinfo(0)+"^000000, please choose 1 of the options below:";
        menu "^FF0000Heal [Free]^000000",-,"^0000FFHeal + Increase Agi "+((!curr)?"["+.price[2]+"z]":"["+.pcoin[2]+"p]")+"^000000",L_agi,"^00FF00Heal + Increase Agi + Blessing "+((!curr)?"["+.price[3]+"z]":"["+.pcoin[3]+"p]")+"^000000",L_bless; next;
        set buff, 1;
        mes .@npc$;
        mes "Your choice have been saved.";
        mes "If you want to change your choice, you can ^FF0000DOUBLE-CLICK^000000 on me again.";
        mes "Have a nice day!";
        close;

L_agi:
        next;
        set buff, 2;
        mes .@npc$;
        mes "Your choice have been saved.";
        mes "If you want to change your choice, you can ^FF0000DOUBLE-CLICK^000000 on me again.";
        mes "Have a nice day!";
        close;

L_bless:
        next;
        set buff, 3;
        mes .@npc$;
        mes "Your choice have been saved.";
        mes "If you want to change your choice, you can ^FF0000DOUBLE-CLICK^000000 on me again.";
        mes "Have a nice day!";
        close;

L_doubleclick:
        mes .@npc$;
        mes "Hello ^0000FF"+strcharinfo(0)+"^000000, welcome back!";
        mes " ";
        mes "Your current choice:";
        if (buff == 1) mes "^FF0000Heal [Free]^000000";
        if (buff == 2) mes "^FF0000Heal + Increase Agi "+((!curr)?"["+.price[2]+"z]":"["+.pcoin[2]+"p]")+"^000000";
        if (buff == 3) mes "^FF0000Heal + Increase Agi + Blessing "+((!curr)?"["+.price[3]+"z]":"["+.pcoin[3]+"p]")+"^000000";
        menu "Leave",-,"Change option",L_option;
        close;

L_option:
        next;
        mes .@npc$;
        mes "Please choose 1 of the options below:";
        menu "^FF0000Heal [Free]^000000",-,"^0000FFHeal + Increase Agi "+((!curr)?"["+.price[2]+"z]":"["+.pcoin[2]+"p]")+"^000000",L_agi,"^00FF00Heal + Increase Agi + Blessing "+((!curr)?"["+.price[3]+"z]":"["+.pcoin[3]+"p]")+"^000000",L_bless,"Change Payment Option "+((!curr)?"[Zeny]":"[Poring Coin]"),L_Payment,"Auto Buff Switching "+((switch)?"[On]":"[Off]"),L_Switch;
        next;
        set buff, 1;
        mes .@npc$;
        mes "Your choice have been saved.";
        mes "If you want to change your choice, you can ^FF0000DOUBLE-CLICK^000000 on me again.";
        mes "Have a nice day!";
        close;

L_Payment:
        if(!curr){
            set curr,1;
            dispbottom "Payment Changed to "+getitemname(.coin)+".";
            goto L_option;
        }
        set curr,0;
        dispbottom "Payment Changed to Zeny.";
        goto L_option;

L_Switch:
        if(!switch){
            set switch,1;
            dispbottom "Auto Switching enabled.";
            goto L_option;
        }
        set switch,0;
        dispbottom "Auto Switching disabled.";
        goto L_option;

OnInit:
        setarray .price[1], 0, 5000, 10000; //Zeny Price
        setarray .pcoin[1], 0, 50, 100; //Poring Coin Price
        setarray .coin, 7539; //Poring Coin ID
        initnpctimer;
        end;

OnTimer2000:
        set $@h_last$,"";
        stopnpctimer;
        end;
}

// ---
geffen,156,203,0    duplicate(Skormie)  Goddess#1-3 111