viewing paste Unknown #49410 | Athena

Posted on the
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
prontera,159,190,4  script  Magaleta    21003,{
 
.@Name$ = "[^DC143CMagaleta^000000]";
.@Player$ = strcharinfo(0);
.@GID = getcharid(2);
.CasID = getcastledata("prtg_cas01",1);
.@GName$ = getguildname(.CasID);
.@Cost = 1000;
 
    if(.@GID == .CasID){
        mes .@Name$;
        mes "Welcome ^32CD32"+.@Player$+"^000000, Would you like to be healed?";
        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 ^32CD32"+.@Player$+"^000000, Would you like to be healed?"," ","Standard cost is 1,000 ^FF0000Zeny^000000.","For members of ^20B2AA"+.@GName$+"^000000 healing is Free.";
        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 1150 times, submitted by Pneuma.