viewing paste Unknown #49407 | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
prontera,159,190,4  script  Magaleta    21002,{
 
.@Name$ = "[Magaleta]";
.@Player$ = strcharinfo(0);
.@GID = getcharid(2);
.CasID = getcastledata("prtg_cas01",1);
.@GName$ = getguildname(.CasID);
.@Cost = 1000;
 
    if(.@GID == .CasID){
        mes .@Name$;
        mes "Welcome "+.@Player$+", Would you like to be healed?"," ","For members of "+.@GName$+" healing is free.";
        switch(select("Heal me please:No thanks")){
            case 1:
                specialeffect2 EF_HEAL2;
                percentheal 100,100;
                break;
            case 2:
                next;
                mes .@Name$;
                mes "Maybe next time.";
                break;
    }} else {
        mes .@Name$;
        mes "Welcome "+.@Player$+", Would you like to be healed?"," ","Standard cost is 1,000 Zeny.";
        switch(select("Heal me please:No thanks")){
            case 1:
                if (Zeny < .@Cost){
                next;
                mes .@Name$;
                mes "I'm sorry but you don't have enough.";
            close;} else {
                specialeffect2 EF_HEAL2;
                percentheal 100,100;
                Zeny -= .@Cost;
            break;}
            case 2:
                next;
                mes .@Name$;
                mes "Maybe next time.";
            break;}
            }
end;
}
 
Viewed 1178 times, submitted by Pneuma.