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
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
//= Poring Catcher - Auto Event Script
//===== By: =================================================================================
//= Washi - www.EarthBound-RO.com
//===== Compatible With: ====================================================================
//= Any eAthena Version
//===== Description: ========================================================================
//= Single NPC that starts automatically starts every hour.
//===== Additional Comments: ================================================================
//= This script is a combenation of the Dice Event by [Mahina]
//= and the origonal Poring Catcher Event by [Wild Karrd]
//===========================================================================================
//= OnMinute - Change this to the minute you would like this script to load. [ LINE 22 ]
//= getitem - Change this to the Item ID of your prize. [ LINE 118 ]
//===========================================================================================
- script poring#announcer -1,{
OnInit:
disablenpc "poringevent";
hideonnpc "Poring Catcher#evnt2";
end;
OnMinute30: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR.
announce "Poring Catcher : It's time to play some Poring Catcher!",0;
killmonster "poring_w01","All";
sleep2 10000;
announce "Poring Catcher : Please make your way to the centre of Prontera.",0;
sleep2 10000;
announce "Poring Catcher : After one minute the portal will close.",0;
sleep2 10000;
announce "Poring Catcher : Enter the warp portal now if you want to join.",0;
enablenpc "poringevent";
initnpctimer;
end;
OnTimer30000:
announce "Poring Catcher : Last 30 seconds.",0;
sleep2 5000;
announce "Poring Catcher : Hurry to the centre of Prontera if you want to join.",0;
end;
OnTimer50000:
announce "Poring Catcher : Last 10 seconds.",0;
end;
OnTimer55000:
announce "Poring Catcher : 5.",0;
end;
OnTimer56000:
announce "Poring Catcher : 4.",0;
end;
OnTimer57000:
announce "Poring Catcher : 3.",0;
end;
OnTimer58000:
announce "Poring Catcher : 2.",0;
end;
OnTimer59000:
announce "Poring Catcher : 1.",0;
end;
OnTimer60000:
announce "Poring Catcher : Time's up. Portal Will Open again in one hour.",0;
end;
OnTimer61000:
disablenpc "poringevent";
donpcevent "Poring Catcher#evnt2::OnEnable";
stopnpctimer;
end;
}
//--------------------------------------------------
prontera,163,187,0 warp poringevent 2,2,poring_w01,106,129
//--------------------------------------------------
poring_w01,100,127,4 script Poring Catcher#evnt2 715,{
//--------------------------------------------------
mes "[Poring Catcher]";
if(PORING == 1) goto L_PORING;
mes "Please tell me your name";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[Poring Catcher]";
mes "Are you sure thats your character name?";
close;
}
mes "[Poring Catcher]";
mes "Congrats. You've won.";
close2;
announce "Poring Catcher : All laugh at, "+.@name$+". - This player tried to cheat the system. Muhahahahaha!",0;
warp "prontera",155,182;
end;
L_PORING:
mes "Please tell me your name";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[Poring Catcher]";
mes "Are you sure thats your character name?";
close;
}
mes "[Poring Catcher]";
mes "Congrats. You've won.";
close2;
announce "Poring Catcher : We have a winner, "+.@name$+". - 1 Event Token Won!",0;
getitem 20085,1; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE
set PORING,0;
warp "prontera",155,182;
hideonnpc "Poring Catcher#evnt2";
end;
OnEnable:
mapannounce "poring_w01","Poring Catcher : I will be summoning 100 different Porings.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : Only one of these Porings is the correct Poring.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : The correct Poring is called [ Poring ], all the other Porings have different names.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : Take your time because if you kill the wrong Poring, your out of the game.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : The first player to kill the correct Poring wins.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : That's that.. Now let's play...",0;
goto L_Start;
end;
L_Start:
mapannounce "poring_w01","Poring Catcher : 5",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 4",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 3",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 2",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 1",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : Lets Do This!",0;
areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled";
end;
}
- script poringwin -1,{
OnMobKilled:
dispbottom "Poring : Congratulations. You've got me.";
set PORING,1;
atcommand "@doommap";
killmonster "poring_w01","All";
mapannounce "poring_w01","Poring Catcher : Come to me and tell me your name.",0;
hideoffnpc "Poring Catcher#evnt2";
end;
}
- script poringlose -1,{
OnMobKilled:
dispbottom "Poring Catcher : Wahaha, your a loser! - I wasnt the correct Poring.";
warp "prontera",155,178;
end;
}
// -- Mapflags
poring_w01 mapflag nowarp
poring_w01 mapflag nowarpto
poring_w01 mapflag noteleport
poring_w01 mapflag nosave
poring_w01 mapflag nomemo
poring_w01 mapflag nobranch
poring_w01 mapflag noloot
poring_w01 mapflag noskill
poring_w01 mapflag nopenalty |