viewing paste Unknown #25270 | Text

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 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187
[codebox]
// Edited version by painisinsane/Eclipse.
// Creator of EclipseRO
// Please dont remove Credits!
// Credits: http://www.paste-it....public/a5d2cd4/
quiz_01 mapflag nowarpto
quiz_01 mapflag nowarp
quiz_01 mapflag noteleport
quiz_01 mapflag nomemo
quiz_01 mapflag nosave SavePoint
quiz_01 mapflag nobranch
quiz_01 mapflag noicewall
quiz_01 mapflag nopenalty
quiz_01 mapflag nobranch
quiz_01 mapflag noexp
quiz_01 mapflag noreturn
quiz_01 mapflag pvp_noparty
quiz_01 mapflag restricted 1
- script RFYL#disable -1,{
OnInit:
disablenpc "Zombie Master";
disablenpc "Present For You";
}
quiz_02,124,352,3 script Zombie Minion 1015,{
if (getgmlevel() >= 40) goto LMS_Admin;
mes "[Minion]";
mes "Hello " + strcharinfo(0) + ", my master is busy.";
mes "*sigh*";
close;
LMS_Admin:
mes "[Minion]";
mes "Hello " + strcharinfo(0) + ", would you like me to call my Boss?";
mes "He is the only one who can start it!";
menu "Start Event",RFYL,"Spectate",M_warp,"End Event",M_EndEvent,"No Thanks",leave;
RFYL:
next;
mes "[Minion]";
mes "Ok, I'll call him this instant.";
close2;
set $@offvar,1;
goto StartEvent;
M_warp:
mes "[Minion]";
mes "Very well, I will warp you to the map!";
warp "quiz_01",42,369;
close;
leave:
next;
mes "[Minion]";
mes "Ok " + strcharinfo(0) +", nice seeing you.";
close;
M_EndEvent:
mes "[Minion]";
mes "Ok master, I will stop the event for you right away!";
next;
set $@offvar,1;
disablenpc "Zombie Master";
disablenpc "Present For You";
killmonsterall "quiz_01";
areawarp "quiz_01",10,10,450,450,"prontera",149,169;
stopnpctimer;
disablenpc "Zombie Minion";
warp "prontera",149,169;
sleep 180000;
enablenpc "Zombie Minion";
 
StartEvent:
announce "Zombie Vs. Novice event Will begin in 3 minutes. Head East/North",0;
killmonsterall "quiz_01";
sleep 55000;
announce "Zombie Vs. Novice event will begin in 2 minutes! Head East/North",0;
sleep 5000;
announce "Zombie Master: I have now appeared in Event Room!",0;
enablenpc "Zombie Master";
sleep 60000;
announce "Zombie Vs. Novice event will begin in 1 minute!",0;
sleep 30000;
mapannounce "quiz_01","In 30 seconds the zombies will spawn!",0;
sleep 25000;
for( set .@i,5; .@i > 0; set .@i + 1 ){
announce "Zombie Vs. Novice event will begin in ~"+.@i+" seconds.~",0;
sleep 1000;
}
announce "Zombie Vs. Novice event has now begun!!",0,0x00FF00;
disablenpc "Zombie Master";
disablenpc "Present For You";
sleep 10000;
for( set .@x,0; .@x <= 6; set .@x,.@x + 1 ){
mapannounce "quiz_01","Round "+( .@x + 1 )+"!!",0;
for( set .@y,0; .@y <= 6; set .@y,.@y + 1 ){
monster "quiz_01",42,369,"Zombie-"+( .@x + 1 ),1015,1;
sleep ( .@y * 10000 );
}
sleep 55000;
monster "quiz_01",42,369,"Zombie-"+( .@x + 1 ),1015,1;
}
initnpctimer;
end;
OnTimer0500:
if ( !getmapusers("quiz_01") ){
killmonsterall "quiz_01";
announce "'Zombie Vs. Novice' event has ended. No one joined.",0;
stopnpctimer;
end;
}else if ( getmapusers("quiz_01") > 1 ){
mapannounce "quiz_01",getmapusers("quiz_01") +"has survived the event.",0,0x00FF00;;
initnpctimer;
end;
}
initnpctimer;
end;
OnPCDieEvent:
if ( strcharinfo(3) == "quiz_01") {
sleep2 1;
warp "prontera",149,169;
atcommand "@alive "+ strcharinfo(0);
dispbottom "you have lost...";
}
sleep2 0500;
if ( .@mapnvz$ == "quiz_01" && getmapusers("quiz_01") == 1 ) {
killmonsterall "quiz_01";
mapannounce "quiz_01","You have won, approach the Present For You Npc please.",0;
enablenpc "Present For You";
stopnpctimer;
}
end;
}
quiz_01,42,378,3 script Present For You 72,{
mes "[Present For You]";
mes "Please tell me your name.";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[Present For You]";
mes "Are you sure that is your name?";
close;
}
mes "[Present For You]";
mes "Congrats. You've won.";
close2;
announce "Present For You: We have a winner! "+.@name$+" has won the Novice vs Zombie event!",0;
getitem 7539,30; // Change This item id to what ever you want
warp "prontera",149,169;
disablenpc "Present For You";
if( $@offvar < 5 ){
set $@offvar,$@offvar + 1;
donpcevent "Zombie Minion::StartEvent";
}
end;
}
quiz_02,124,351,3 script Zombie Master 1298,{
if ( BaseLevel > 1 || Class > 0 ) goto NO;
mes "[^0000FFZombie Master^000000]";
mes "You wish to participate the Zombie Vs. Novice event?";
next;
if( select("Yes:No") ){
case 1:
sc_end SC_ALL;
sc_start SC_DECREASEAGI,1200000,10;
percentheal 100,100;
sc_start SC_STRIPSHIELD,1200000,5;
sc_start SC_STRIPWEAPON,1200000,5;
sc_start SC_STRIPARMOR,1200000,5;
sc_start SC_STRIPHELM,1200000,5;
statusup2 bStr,-999;
statusup2 bAgi,-999;
statusup2 bVit,-999;
statusup2 bInt,-999;
statusup2 bDex,-999;
statusup2 bLuk,-999;
warp "quiz_01",42,369;
end;
break;
case 2:
mes "Come back when your ready.";
close;
break;
NO:
mes "[^0000FFZombie Master^000000]";
mes "You are not a Novice, level 1.";
close;
}
OnInit:
disablenpc "Zombie Master";
disablenpc "Prize";
end;
}[/codebox] 
Viewed 876 times, submitted by Guest.