viewing paste Unknown #14661 | 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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
prontera,102,102,5  script  Dead Branch Room    100,{
setarray $@maps$[1], "06guild_01", "06guild_02", "06guild_03", "06guild_04", "06guild_05", "06guild_06", "06guild_07", "06guild_08";
setarray .@price[1], 0,         1000000,    1000000,        1000000,        1000000,    1000000,        1000000,    1000000;
for(set .@b,1; .@b < getarraysize($@maps$); set .@b,.@b + 1) {
    if(.@b==1){ set .@menu$, .@menu$  + "Public Room "+((getmapusers($@maps$[.@b])>=30)?"^CD0000Closed^000000("+getmapusers($@maps$[.@b])+")":"^007700Open^000000("+getmapusers($@maps$[.@b])+") [z"+.@price[.@b]+"]")+":"; } else { set .@menu$, .@menu$  + "Private["+(.@b-1)+"]- "+((getmapusers(""+$@maps$[.@b]+"")>=5)?"^CD0000Closed^000000("+getmapusers($@maps$[.@b])+")":"^007700Open^000000("+getmapusers($@maps$[.@b])+") [z"+.@price[.@b]+"]")+":"; }
}
if(select(.@menu$)) {
    if(Zeny<.@price[@menu]){mes "I'm sorry but you don't have enough Zeny, please come back later."; close;}
    if(getmapusers($@maps$[@menu])<=30&&@menu==1){
        set Zeny,Zeny-.@price[@menu];
        set $@maps$,$@maps$[@menu];
        setnpctimer 0; attachnpctimer(strcharinfo(0)); startnpctimer; warp $@maps$[@menu],0,0; end;
    }
    if(!getmapusers($@maps$[@menu])){
        mes "Input a new password.";
        input($password$[@menu]);
        set Zeny,Zeny-.@price[@menu];
        set $@maps$,$@maps$[@menu];
        next; setnpctimer 0; attachnpctimer(strcharinfo(0)); startnpctimer; warp $@maps$[@menu],0,0; end;
    }
    if(getmapusers($@maps$[@menu])<=5&&@menu!=1) {
        mes "This room is password protected please input the password now.";
        input(@name$);
        if(@name$==$password$[@menu]){
            set Zeny,Zeny-.@price[@menu];
            set $@maps$,$@maps$[@menu];
            mes "correct!"; next; setnpctimer 0; attachnpctimer(strcharinfo(0)); startnpctimer; warp $@maps$[@menu],0,0; end;
        } else {
            mes "Incorrect!";
            close;
        }
    } else {
        mes "I'm sorry this room is full.";
        close;
    }
}
 
OnTimer3600000:
if(strcharinfo(3)==$@maps$){
    warp "prontera",0,0;
    end;
}
}
 
06guild_01,49,49,5  script  Heal#h1-1::Heal 110,{
 
    if((@h_last) && (getnpctimer(1))) goto L_doubleclick;
    
    set @h_last,1;
    percentheal 100,100;
    specialeffect 312;
    skilleffect 28,32767;
    sc_end SC_STONE;
    sc_end SC_FREEZE;
    sc_end SC_STUN;
    sc_end SC_SLEEP;
    sc_end SC_POISON;
    sc_end SC_CURSE;
    sc_end SC_SILENCE;
    sc_end SC_CONFUSION;
    sc_end SC_BLIND;
    sc_end SC_BLEEDING;
    sc_end SC_DPOISON;
    dispbottom "HP/SP fully restored.";
    if(!getnpctimer(1)){setnpctimer 0; attachnpctimer(strcharinfo(0)); startnpctimer;}
    end;
    
L_doubleclick:
    killmonsterall strcharinfo(3);
    npctalk "I've killed all monsters.";
    end;
 
OnTimer1000:
    set @h_last,0;
    stopnpctimer;
    end;
 
OnInit:
    while(1){
        sleep 1000 * 60 * 5;
        if(!getusers(8) && mobcount strnpcinfo(5),all){ killmonsterall strnpcinfo(5);}
    }
}
 
// --------- NPC Clones ---------
06guild_01,49,49,5  duplicate(Heal) Heal#h1-2   742
06guild_02,49,49,5  duplicate(Heal) Heal#h1-3   742
06guild_03,49,49,5  duplicate(Heal) Heal#h1-4   742
06guild_04,49,49,5  duplicate(Heal) Heal#h1-5   742
06guild_05,49,49,5  duplicate(Heal) Heal#h1-6   742
06guild_06,49,49,5  duplicate(Heal) Heal#h1-7   742
06guild_07,49,49,5  duplicate(Heal) Heal#h1-8   742
06guild_08,49,49,5  duplicate(Heal) Heal#h1-9   742
Viewed 618 times, submitted by Guest.