root/npc/other/hugel_bingo.txt @ 1

Revision 1, 40.5 kB (checked in by jinshiro, 17 years ago)
RevLine 
[1]1//===== eAthena Script =======================================
2//= Hugel Bingo script
3//===== By: ==================================================
4//= SinSloth
5//===== Current Version: =====================================
6//= 1.5
7//===== Compatible With: =====================================
8//= Any eAthena Version
9//===== Description: =========================================
10//= Hugel Bingo game
11//===== Additional Comments: =================================
12//= 1.0 - First version. Please report bugs you find out. [SinSloth]
13//= 1.1 - Fixed a minor bug. [SinSloth]
14//= 1.2 - Added some Bingo Staff NPCs. [SinSloth]
15//= 1.3 - Fixed a bug where an AFK-player wasn't warped out of the game,
16//= preventing players from launching another. [SinSloth]
17//= 1.4 - Fixed a minor bug added in the last revision. [SinSloth]
18//= 1.5 - Applied a fix to players locations which were not rotating properly. [SinSloth]
19//============================================================
20
21que_bingo,48,84,5       script  Bingo Waiting Room      124,{
22        end;
23
24OnInit:
25        set $hu_bingoa,0;
26        set $hu_bingob,0;
27        waitingroom "Bingo Waiting Room - 5 People",50,"Bingo Waiting Room::OnWarp",5;
28        end;
29       
30OnWarp:
31        warpwaitingpc "que_bingo",46,141;
32        donpcevent "start#bingo::OnStart";
33        enablenpc "plate1#bingo";
34        enablenpc "plate2#bingo";
35        enablenpc "plate3#bingo";
36        enablenpc "plate4#bingo";
37        enablenpc "plate5#bingo";
38        disablewaitingroomevent;
39        end;
40       
41OnStart:
42        enablewaitingroomevent;
43        end;
44}
45
46que_bingo,49,125,0      script  plate1#bingo    139,1,1,{
47
48OnInit:
49        disablenpc "plate1#bingo";
50        disablenpc "plate2#bingo";
51        disablenpc "plate3#bingo";
52        disablenpc "plate4#bingo";
53        disablenpc "plate5#bingo";
54        end;
55
56OnTouch:
57        set Zeny,Zeny -1000;
58        set @bingo_a1$,0;
59        set @bingo_a2$,0;
60        set @bingo_a3$,0;
61        set @bingo_a4$,0;
62        set @bingo_a5$,0;
63        set @bingo_b1$,0;
64        set @bingo_b2$,0;
65        set @bingo_b3$,0;
66        set @bingo_b4$,0;
67        set @bingo_b5$,0;
68        set @bingo_c1$,0;
69        set @bingo_c2$,0;
70        set @bingo_c3$,0;
71        set @bingo_c4$,0;
72        set @bingo_c5$,0;
73        set @bingo_d1$,0;
74        set @bingo_d2$,0;
75        set @bingo_d3$,0;
76        set @bingo_d4$,0;
77        set @bingo_d5$,0;
78        set @bingo_e1$,0;
79        set @bingo_e2$,0;
80        set @bingo_e3$,0;
81        set @bingo_e4$,0;
82        set @bingo_e5$,0;
83        set @bingo_case,1;
84L_Fill:
85        set @bingo_fill,callfunc("Func_Bingo",@bingo_case);
86        if(!@bingo_fill)
87        {
88                mes "The numbers you have entered";
89                mes "exceed the limit, or you have";
90                mes "already entered these numbers.";
91                mes "Please enter your numbers again.";
92                next;
93        }
94        else if(@bingo_fill)
95        {
96                if(@bingoplate[25] < 10) set @bingo_e5$,"0"+@bingoplate[25]+""; else set @bingo_e5$,@bingoplate[25];
97                donpcevent "start#bingo::OnEnter";
98                mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
99                mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]";
100                mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]";
101                mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
102                mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ["+@bingo_e4$+"] ["+@bingo_e5$+"]";
103                close;
104
105        }       
106        goto L_Fill;
107       
108}
109
110que_bingo,53,121,0      duplicate(plate1#bingo) plate2#bingo    139,1,1
111que_bingo,51,116,0      duplicate(plate1#bingo) plate3#bingo    139,1,1
112que_bingo,46,116,0      duplicate(plate1#bingo) plate4#bingo    139,1,1
113que_bingo,45,121,0      duplicate(plate1#bingo) plate5#bingo    139,1,1
114
115que_bingo,51,51,0       script  start#bingo     139,{
116
117OnStart:
118        initnpctimer;
119        end;
120       
121OnEnter:
122        if($hu_bingoa == 4)
123        {
124                set $hu_bingoa,5;
125                donpcevent "start2#bingo::OnStart";
126                stopnpctimer;
127                end;
128        }
129        set $hu_bingoa,$hu_bingoa +1;
130        end;
131       
132OnTimer1000:
133        mapannounce "que_bingo","Eukran: Hello, everyone! I'm Eukran, your Bingo Guide~",1,0xFFAB54;
134        end;
135       
136OnTimer6000:
137        mapannounce "que_bingo","Eukran: Game participants, please enter the Warp Portal at the bottom of your screen and choose a Bingo Plate by entering a number.",1,0xFFAB54;
138        end;
139       
140OnTimer11000:
141        mapannounce "que_bingo","Eukran: All participants must choose their Bingo Plates within 3 minutes, or the game will be canceled.",1,0xFFAB54;
142        end;
143       
144OnTimer192000:
145        mapannounce "que_bingo","Eukran: Please enter a number in 5 seconds, or the game will be canceled.",1,0xFFAB54;
146        end;
147       
148OnTimer200000:
149        mapannounce "que_bingo","Eukran: I'm sorry, but the game has been canceled. Please come again and enjoy a game of Bingo with us!",1,0xFFAB54;
150        end;
151       
152OnTimer202000:
153        disablenpc "plate1#bingo";
154        disablenpc "plate2#bingo";
155        disablenpc "plate3#bingo";
156        disablenpc "plate4#bingo";
157        disablenpc "plate5#bingo";
158        end;
159       
160OnTimer203000:
161        areawarp "que_bingo",44,115,54,126,"que_bingo",40,124;
162        enablenpc "out3#bingo";
163        end;
164
165OnTimer204000:
166        disablenpc "out3#bingo";
167        set $hu_bingoa,0;
168        set $hu_bingob,0;
169        donpcevent "Bingo Waiting Room::OnStart";
170        end;
171}
172
173que_bingo,52,52,0       script  start2#bingo    139,{
174
175OnStop:
176        stopnpctimer;
177        end;
178       
179OnStart:
180        initnpctimer;
181        end;
182       
183OnTimer2000:
184        mapannounce "que_bingo","Eukran: Great, everyone seems to be ready~",1,0xFFAB54;
185        disablenpc "plate1#bingo";
186        disablenpc "plate2#bingo";
187        disablenpc "plate3#bingo";
188        disablenpc "plate4#bingo";
189        disablenpc "plate5#bingo";
190        end;
191       
192OnTimer5000:
193        mapannounce "que_bingo","Eukran: Now, let the game begin!",1,0xFFAB54;
194        setarray $@bingoarray[0],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;
195        set .@max_index, 24;
196        for(set .@i,0; .@i < 25; set .@i,.@i +1)
197        {
198                set $@bingo0,rand(0,.@max_index);
199                set $bingo[.@i],$@bingoarray[$@bingo0];
200                set $@bingoarray[$@bingo0], $@bingoarray[.@max_index];
201                set .@max_index, .@max_index - 1;
202        }
203        end;
204       
205OnTimer8000:
206        mapannounce "que_bingo","Eukran: I'll announce the Bingo Numbers. If you get 5 lines by matching 5 Bingo Numbers in a straight line on your Bingo Plate, yell out ''Bingo'' to win~",1,0xFFAB54;
207        end;
208       
209OnTimer10000:
210        set $@bingoresult,1;
211        callfunc "Func_BingoResult",$@bingoresult;
212        end;
213       
214OnTimer15000:
215        donpcevent "1a#bingo::OnInit";
216        end;
217
218OnTimer20000:
219        callfunc "Func_BingoResult",$@bingoresult;
220        end;
221       
222OnTimer25000:
223        donpcevent "1a#bingo::OnInit";
224        end;
225       
226OnTimer30000:
227        callfunc "Func_BingoResult",$@bingoresult;
228        end;
229       
230OnTimer35000:
231        donpcevent "1a#bingo::OnInit";
232        end;
233       
234OnTimer40000:
235        callfunc "Func_BingoResult",$@bingoresult;
236        end;
237       
238OnTimer45000:
239        donpcevent "1a#bingo::OnInit";
240        end;
241       
242OnTimer50000:
243        callfunc "Func_BingoResult",$@bingoresult;
244        end;
245       
246OnTimer55000:
247        donpcevent "1a#bingo::OnInit";
248        end;
249       
250OnTimer60000:
251        callfunc "Func_BingoResult",$@bingoresult;
252        end;
253       
254OnTimer65000:
255        donpcevent "1a#bingo::OnInit";
256        end;
257       
258OnTimer70000:
259        callfunc "Func_BingoResult",$@bingoresult;
260        end;
261       
262OnTimer75000:
263        donpcevent "1a#bingo::OnInit";
264        end;
265       
266OnTimer80000:
267        callfunc "Func_BingoResult",$@bingoresult;
268        end;
269       
270OnTimer85000:
271        donpcevent "1a#bingo::OnInit";
272        end;
273       
274OnTimer90000:
275        callfunc "Func_BingoResult",$@bingoresult;
276        end;
277       
278OnTimer95000:
279        donpcevent "1a#bingo::OnInit";
280        end;
281       
282OnTimer100000:
283        callfunc "Func_BingoResult",$@bingoresult;
284        end;
285
286OnTimer105000:
287        donpcevent "1a#bingo::OnInit";
288        end;
289       
290OnTimer110000:
291        callfunc "Func_BingoResult",$@bingoresult;
292        end;
293       
294OnTimer115000:
295        donpcevent "1a#bingo::OnInit";
296        end;
297       
298OnTimer120000:
299        callfunc "Func_BingoResult",$@bingoresult;
300        end;
301       
302OnTimer125000:
303        donpcevent "1a#bingo::OnInit";
304        end;
305       
306OnTimer130000:
307        callfunc "Func_BingoResult",$@bingoresult;
308        end;
309       
310OnTimer135000:
311        donpcevent "1a#bingo::OnInit";
312        end;
313       
314OnTimer140000:
315        callfunc "Func_BingoResult",$@bingoresult;
316        end;
317
318OnTimer145000:
319        donpcevent "1a#bingo::OnInit";
320        end;
321       
322OnTimer150000:
323        callfunc "Func_BingoResult",$@bingoresult;
324        end;
325       
326OnTimer155000:
327        donpcevent "1a#bingo::OnInit";
328        end;
329       
330OnTimer160000:
331        callfunc "Func_BingoResult",$@bingoresult;
332        end;
333       
334OnTimer179000:
335        donpcevent "1a#bingo::OnInit";
336        end;
337       
338OnTimer180000:
339        callfunc "Func_BingoResult",$@bingoresult;
340        end;
341       
342OnTimer199000:
343        donpcevent "1a#bingo::OnInit";
344        end;
345       
346OnTimer200000:
347        callfunc "Func_BingoResult",$@bingoresult;
348        end;
349       
350OnTimer219000:
351        donpcevent "1a#bingo::OnInit";
352        end;
353       
354OnTimer220000:
355        callfunc "Func_BingoResult",$@bingoresult;
356        end;
357       
358OnTimer239000:
359        donpcevent "1a#bingo::OnInit";
360        end;
361       
362OnTimer240000:
363        callfunc "Func_BingoResult",$@bingoresult;
364        end;
365       
366OnTimer259000:
367        donpcevent "1a#bingo::OnInit";
368        end;
369       
370OnTimer260000:
371        callfunc "Func_BingoResult",$@bingoresult;
372        end;
373       
374OnTimer279000:
375        donpcevent "1a#bingo::OnInit";
376        end;
377       
378OnTimer280000:
379        callfunc "Func_BingoResult",$@bingoresult;
380        end;
381       
382OnTimer299000:
383        donpcevent "1a#bingo::OnInit";
384        end;
385       
386OnTimer300000:
387        callfunc "Func_BingoResult",$@bingoresult;
388        end;
389       
390OnTimer319000:
391        donpcevent "1a#bingo::OnInit";
392        end;
393       
394OnTimer320000:
395        callfunc "Func_BingoResult",$@bingoresult;
396        end;
397       
398OnTimer339000:
399        donpcevent "1a#bingo::OnInit";
400        end;
401       
402OnTimer340000:
403        callfunc "Func_BingoResult",$@bingoresult;
404        end;
405       
406OnTimer440000:
407        mapannounce "que_bingo","Eukran: I've announced all of the selected numbers, but I haven't heard anyone yell ''Bingo.''",1,0xFFAB54;
408        end;
409       
410OnTimer445000:
411        mapannounce "que_bingo","Eukran: I'll give you all 10 seconds to check if any of you have won. If no one can yell ''Bingo'' in 10 seconds, this game will end without a winner.",1,0xFFAB54;
412        end;
413       
414OnTimer460000:
415        mapannounce "que_bingo","Eukran: I'm sorry, but this game has ended without a winner. Thanks for playing, everyone~",1,0xFFAB54;
416        donpcevent "1a#bingo::OnInit";
417        donpcevent "player1#bingo::OnOut";
418        donpcevent "player2#bingo::OnOut";
419        donpcevent "player3#bingo::OnOut";
420        donpcevent "player4#bingo::OnOut";
421        donpcevent "player5#bingo::OnOut";
422        set $hu_bingoa,0;
423        donpcevent "Bingo Waiting Room::OnStart";
424        end;
425}
426
427que_bingo,49,125,0      script  1a#bingo        139,1,1,{
428        end;
429
430OnInit:
431        disablenpc "1a#bingo";
432        disablenpc "2a#bingo";
433        disablenpc "3a#bingo";
434        disablenpc "4a#bingo";
435        disablenpc "5a#bingo";
436        disablenpc "6a#bingo";
437        disablenpc "7a#bingo";
438        disablenpc "8a#bingo";
439        disablenpc "9a#bingo";
440        disablenpc "10a#bingo";
441        disablenpc "11a#bingo";
442        disablenpc "12a#bingo";
443        disablenpc "13a#bingo";
444        disablenpc "14a#bingo";
445        disablenpc "15a#bingo";
446        disablenpc "16a#bingo";
447        disablenpc "17a#bingo";
448        disablenpc "18a#bingo";
449        disablenpc "19a#bingo";
450        disablenpc "20a#bingo";
451        disablenpc "21a#bingo";
452        disablenpc "22a#bingo";
453        disablenpc "23a#bingo";
454        disablenpc "24a#bingo";
455        disablenpc "25a#bingo";
456        disablenpc "1b#bingo";
457        disablenpc "2b#bingo";
458        disablenpc "3b#bingo";
459        disablenpc "4b#bingo";
460        disablenpc "5b#bingo";
461        disablenpc "6b#bingo";
462        disablenpc "7b#bingo";
463        disablenpc "8b#bingo";
464        disablenpc "9b#bingo";
465        disablenpc "10b#bingo";
466        disablenpc "11b#bingo";
467        disablenpc "12b#bingo";
468        disablenpc "13b#bingo";
469        disablenpc "14b#bingo";
470        disablenpc "15b#bingo";
471        disablenpc "16b#bingo";
472        disablenpc "17b#bingo";
473        disablenpc "18b#bingo";
474        disablenpc "19b#bingo";
475        disablenpc "20b#bingo";
476        disablenpc "21b#bingo";
477        disablenpc "22b#bingo";
478        disablenpc "23b#bingo";
479        disablenpc "24b#bingo";
480        disablenpc "25b#bingo";
481        disablenpc "1c#bingo";
482        disablenpc "2c#bingo";
483        disablenpc "3c#bingo";
484        disablenpc "4c#bingo";
485        disablenpc "5c#bingo";
486        disablenpc "6c#bingo";
487        disablenpc "7c#bingo";
488        disablenpc "8c#bingo";
489        disablenpc "9c#bingo";
490        disablenpc "10c#bingo";
491        disablenpc "11c#bingo";
492        disablenpc "12c#bingo";
493        disablenpc "13c#bingo";
494        disablenpc "14c#bingo";
495        disablenpc "15c#bingo";
496        disablenpc "16c#bingo";
497        disablenpc "17c#bingo";
498        disablenpc "18c#bingo";
499        disablenpc "19c#bingo";
500        disablenpc "20c#bingo";
501        disablenpc "21c#bingo";
502        disablenpc "22c#bingo";
503        disablenpc "23c#bingo";
504        disablenpc "24c#bingo";
505        disablenpc "25c#bingo";
506        disablenpc "1d#bingo";
507        disablenpc "2d#bingo";
508        disablenpc "3d#bingo";
509        disablenpc "4d#bingo";
510        disablenpc "5d#bingo";
511        disablenpc "6d#bingo";
512        disablenpc "7d#bingo";
513        disablenpc "8d#bingo";
514        disablenpc "9d#bingo";
515        disablenpc "10d#bingo";
516        disablenpc "11d#bingo";
517        disablenpc "12d#bingo";
518        disablenpc "13d#bingo";
519        disablenpc "14d#bingo";
520        disablenpc "15d#bingo";
521        disablenpc "16d#bingo";
522        disablenpc "17d#bingo";
523        disablenpc "18d#bingo";
524        disablenpc "19d#bingo";
525        disablenpc "20d#bingo";
526        disablenpc "21d#bingo";
527        disablenpc "22d#bingo";
528        disablenpc "23d#bingo";
529        disablenpc "24d#bingo";
530        disablenpc "25d#bingo";
531        disablenpc "1e#bingo";
532        disablenpc "2e#bingo";
533        disablenpc "3e#bingo";
534        disablenpc "4e#bingo";
535        disablenpc "5e#bingo";
536        disablenpc "6e#bingo";
537        disablenpc "7e#bingo";
538        disablenpc "8e#bingo";
539        disablenpc "9e#bingo";
540        disablenpc "10e#bingo";
541        disablenpc "11e#bingo";
542        disablenpc "12e#bingo";
543        disablenpc "13e#bingo";
544        disablenpc "14e#bingo";
545        disablenpc "15e#bingo";
546        disablenpc "16e#bingo";
547        disablenpc "17e#bingo";
548        disablenpc "18e#bingo";
549        disablenpc "19e#bingo";
550        disablenpc "20e#bingo";
551        disablenpc "21e#bingo";
552        disablenpc "22e#bingo";
553        disablenpc "23e#bingo";
554        disablenpc "24e#bingo";
555        disablenpc "25e#bingo";
556        end;
557       
558OnTouch:
559        if(@bingoplate[1] == $bingo[$@bingoresult -1]){ set @bingo_a1$,"^ff0000-  -^000000"; setarray @bingoplate[1],99; }
560        else if(@bingoplate[2] == $bingo[$@bingoresult -1]){ set @bingo_a2$,"^ff0000-  -^000000"; setarray @bingoplate[2],99; }
561        else if(@bingoplate[3] == $bingo[$@bingoresult -1]){ set @bingo_a3$,"^ff0000-  -^000000"; setarray @bingoplate[3],99; }
562        else if(@bingoplate[4] == $bingo[$@bingoresult -1]){ set @bingo_a4$,"^ff0000-  -^000000"; setarray @bingoplate[4],99; }
563        else if(@bingoplate[5] == $bingo[$@bingoresult -1]){ set @bingo_a5$,"^ff0000-  -^000000"; setarray @bingoplate[5],99; }
564        else if(@bingoplate[6] == $bingo[$@bingoresult -1]){ set @bingo_b1$,"^ff0000-  -^000000"; setarray @bingoplate[6],99; }
565        else if(@bingoplate[7] == $bingo[$@bingoresult -1]){ set @bingo_b2$,"^ff0000-  -^000000"; setarray @bingoplate[7],99; }
566        else if(@bingoplate[8] == $bingo[$@bingoresult -1]){ set @bingo_b3$,"^ff0000-  -^000000"; setarray @bingoplate[8],99; }
567        else if(@bingoplate[9] == $bingo[$@bingoresult -1]){ set @bingo_b4$,"^ff0000-  -^000000"; setarray @bingoplate[9],99; }
568        else if(@bingoplate[10] == $bingo[$@bingoresult -1]){ set @bingo_b5$,"^ff0000-  -^000000"; setarray @bingoplate[10],99; }
569        else if(@bingoplate[11] == $bingo[$@bingoresult -1]){ set @bingo_c1$,"^ff0000-  -^000000"; setarray @bingoplate[11],99; }
570        else if(@bingoplate[12] == $bingo[$@bingoresult -1]){ set @bingo_c2$,"^ff0000-  -^000000"; setarray @bingoplate[12],99; }
571        else if(@bingoplate[13] == $bingo[$@bingoresult -1]){ set @bingo_c3$,"^ff0000-  -^000000"; setarray @bingoplate[13],99; }
572        else if(@bingoplate[14] == $bingo[$@bingoresult -1]){ set @bingo_c4$,"^ff0000-  -^000000"; setarray @bingoplate[14],99; }
573        else if(@bingoplate[15] == $bingo[$@bingoresult -1]){ set @bingo_c5$,"^ff0000-  -^000000"; setarray @bingoplate[15],99; }
574        else if(@bingoplate[16] == $bingo[$@bingoresult -1]){ set @bingo_d1$,"^ff0000-  -^000000"; setarray @bingoplate[16],99; }
575        else if(@bingoplate[17] == $bingo[$@bingoresult -1]){ set @bingo_d2$,"^ff0000-  -^000000"; setarray @bingoplate[17],99; }
576        else if(@bingoplate[18] == $bingo[$@bingoresult -1]){ set @bingo_d3$,"^ff0000-  -^000000"; setarray @bingoplate[18],99; }
577        else if(@bingoplate[19] == $bingo[$@bingoresult -1]){ set @bingo_d4$,"^ff0000-  -^000000"; setarray @bingoplate[19],99; }
578        else if(@bingoplate[20] == $bingo[$@bingoresult -1]){ set @bingo_d5$,"^ff0000-  -^000000"; setarray @bingoplate[20],99; }
579        else if(@bingoplate[21] == $bingo[$@bingoresult -1]){ set @bingo_e1$,"^ff0000-  -^000000"; setarray @bingoplate[21],99; }
580        else if(@bingoplate[22] == $bingo[$@bingoresult -1]){ set @bingo_e2$,"^ff0000-  -^000000"; setarray @bingoplate[22],99; }
581        else if(@bingoplate[23] == $bingo[$@bingoresult -1]){ set @bingo_e3$,"^ff0000-  -^000000"; setarray @bingoplate[23],99; }
582        else if(@bingoplate[24] == $bingo[$@bingoresult -1]){ set @bingo_e4$,"^ff0000-  -^000000"; setarray @bingoplate[24],99; }
583        else if(@bingoplate[25] == $bingo[$@bingoresult -1]){ set @bingo_e5$,"^ff0000-  -^000000"; setarray @bingoplate[25],99; }
584        set @bingowin,0;
585        if(@bingoplate[1] == @bingoplate[2] && @bingoplate[1] == @bingoplate[3] && @bingoplate[1] == @bingoplate[4] && @bingoplate[1] == @bingoplate[5]) set @bingowin,@bingowin +1;
586        if(@bingoplate[6] == @bingoplate[7] && @bingoplate[6] == @bingoplate[8] && @bingoplate[6] == @bingoplate[9] && @bingoplate[6] == @bingoplate[10]) set @bingowin,@bingowin +1;
587        if(@bingoplate[11] == @bingoplate[12] && @bingoplate[11] == @bingoplate[13] && @bingoplate[11] == @bingoplate[14] && @bingoplate[11] == @bingoplate[15]) set @bingowin,@bingowin +1;
588        if(@bingoplate[16] == @bingoplate[17] && @bingoplate[16] == @bingoplate[18] && @bingoplate[16] == @bingoplate[19] && @bingoplate[16] == @bingoplate[20]) set @bingowin,@bingowin +1;
589        if(@bingoplate[21] == @bingoplate[22] && @bingoplate[21] == @bingoplate[23] && @bingoplate[21] == @bingoplate[24] && @bingoplate[21] == @bingoplate[25]) set @bingowin,@bingowin +1;
590        if(@bingoplate[1] == @bingoplate[6] && @bingoplate[1] == @bingoplate[11] && @bingoplate[1] == @bingoplate[16] && @bingoplate[1] == @bingoplate[21]) set @bingowin,@bingowin +1;
591        if(@bingoplate[2] == @bingoplate[7] && @bingoplate[2] == @bingoplate[12] && @bingoplate[2] == @bingoplate[17] && @bingoplate[2] == @bingoplate[22]) set @bingowin,@bingowin +1;
592        if(@bingoplate[3] == @bingoplate[8] && @bingoplate[3] == @bingoplate[13] && @bingoplate[3] == @bingoplate[18] && @bingoplate[3] == @bingoplate[23]) set @bingowin,@bingowin +1;
593        if(@bingoplate[4] == @bingoplate[9] && @bingoplate[4] == @bingoplate[14] && @bingoplate[4] == @bingoplate[19] && @bingoplate[4] == @bingoplate[24]) set @bingowin,@bingowin +1;
594        if(@bingoplate[5] == @bingoplate[10] && @bingoplate[5] == @bingoplate[15] && @bingoplate[5] == @bingoplate[20] && @bingoplate[5] == @bingoplate[25]) set @bingowin,@bingowin +1;
595        if(@bingoplate[1] == @bingoplate[7] && @bingoplate[1] == @bingoplate[13] && @bingoplate[1] == @bingoplate[19] && @bingoplate[1] == @bingoplate[25]) set @bingowin,@bingowin +1;
596        if(@bingoplate[5] == @bingoplate[9] && @bingoplate[5] == @bingoplate[13] && @bingoplate[5] == @bingoplate[17] && @bingoplate[5] == @bingoplate[21]) set @bingowin,@bingowin +1;
597        if($@bingoresult == 1 || $@bingoresult == 21) mes "[ "+$@bingoresult+"st Number - "+$bingo[$@bingoresult -1]+" ]";
598        else if($@bingoresult == 2 || $@bingoresult == 22) mes "[ "+$@bingoresult+"nd Number - "+$bingo[$@bingoresult -1]+" ]";
599        else if($@bingoresult == 3 || $@bingoresult == 23) mes "[ "+$@bingoresult+"rd Number - "+$bingo[$@bingoresult -1]+" ]";
600        else mes "[ "+$@bingoresult+"th Number - "+$bingo[$@bingoresult -1]+" ]";
601        mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
602        mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]";
603        mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]";
604        mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
605        mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ["+@bingo_e4$+"] ["+@bingo_e5$+"]";
606        mes "[Currently Finished Lines - "+@bingowin+" ]";
607        if($@bingoresult > 15)
608        {
609                if(@bingowin > 4)
610                {
611                        next;
612                        mes "We just have made 5 lines!";
613                        mes "Say ^ff0000Bingo^000000!";
614                        mes "W-we just matched";
615                        mes "5 numbers in a row!";
616                        mes "Quickly, say ''^FF0000Bingo^000000!''";
617                        mes "Remember, you'll only";
618                        mes "have one chance to say it!";
619                        input @bingoyell$;
620                        if(@bingoyell$ == "Bingo")
621                        {
622                                if($hu_bingoa == 5)
623                                {
624                                        set $hu_bingoa,6;
625                                        donpcevent "start2#bingo::OnStop";
626                                        set $@bingowinner$,strcharinfo(0);
627                                        donpcevent "win1a#bingo::OnWin";
628                                        close;
629
630                                }
631                                else if($hu_bingoa == 6)
632                                {
633                                        next;
634                                        mes "Oh no! I'm sorry, but";
635                                        mes "someone already yelled";
636                                        mes "''bingo'' before you did.";
637                                        mes "I'm sorry, but you missed";
638                                        mes "your chance! Better luck,";
639                                        mes "next time, alright?";
640                                        close;
641                                }
642                        }
643                        else
644                        {
645                                next;
646                                mes "I'm sorry, but you";
647                                mes "said it wrong. Next time,";
648                                mes "make sure that you yell";
649                                mes "out the word, ''^FF0000Bingo^000000,'' okay?";
650                                close;
651                        }
652                }
653                close;
654        }
655        close;
656}
657
658que_bingo,49,125,0      duplicate(1a#bingo)     2a#bingo        139,1,1
659que_bingo,49,125,0      duplicate(1a#bingo)     3a#bingo        139,1,1
660que_bingo,49,125,0      duplicate(1a#bingo)     4a#bingo        139,1,1
661que_bingo,49,125,0      duplicate(1a#bingo)     5a#bingo        139,1,1
662que_bingo,49,125,0      duplicate(1a#bingo)     6a#bingo        139,1,1
663que_bingo,49,125,0      duplicate(1a#bingo)     7a#bingo        139,1,1
664que_bingo,49,125,0      duplicate(1a#bingo)     8a#bingo        139,1,1
665que_bingo,49,125,0      duplicate(1a#bingo)     9a#bingo        139,1,1
666que_bingo,49,125,0      duplicate(1a#bingo)     10a#bingo       139,1,1
667que_bingo,49,125,0      duplicate(1a#bingo)     11a#bingo       139,1,1
668que_bingo,49,125,0      duplicate(1a#bingo)     12a#bingo       139,1,1
669que_bingo,49,125,0      duplicate(1a#bingo)     13a#bingo       139,1,1
670que_bingo,49,125,0      duplicate(1a#bingo)     14a#bingo       139,1,1
671que_bingo,49,125,0      duplicate(1a#bingo)     15a#bingo       139,1,1
672que_bingo,49,125,0      duplicate(1a#bingo)     16a#bingo       139,1,1
673que_bingo,49,125,0      duplicate(1a#bingo)     17a#bingo       139,1,1
674que_bingo,49,125,0      duplicate(1a#bingo)     18a#bingo       139,1,1
675que_bingo,49,125,0      duplicate(1a#bingo)     19a#bingo       139,1,1
676que_bingo,49,125,0      duplicate(1a#bingo)     20a#bingo       139,1,1
677que_bingo,49,125,0      duplicate(1a#bingo)     21a#bingo       139,1,1
678que_bingo,49,125,0      duplicate(1a#bingo)     22a#bingo       139,1,1
679que_bingo,49,125,0      duplicate(1a#bingo)     23a#bingo       139,1,1
680que_bingo,49,125,0      duplicate(1a#bingo)     24a#bingo       139,1,1
681que_bingo,49,125,0      duplicate(1a#bingo)     25a#bingo       139,1,1
682que_bingo,53,121,0      duplicate(1a#bingo)     1b#bingo        139,1,1
683que_bingo,53,121,0      duplicate(1a#bingo)     2b#bingo        139,1,1
684que_bingo,53,121,0      duplicate(1a#bingo)     3b#bingo        139,1,1
685que_bingo,53,121,0      duplicate(1a#bingo)     4b#bingo        139,1,1
686que_bingo,53,121,0      duplicate(1a#bingo)     5b#bingo        139,1,1
687que_bingo,53,121,0      duplicate(1a#bingo)     6b#bingo        139,1,1
688que_bingo,53,121,0      duplicate(1a#bingo)     7b#bingo        139,1,1
689que_bingo,53,121,0      duplicate(1a#bingo)     8b#bingo        139,1,1
690que_bingo,53,121,0      duplicate(1a#bingo)     9b#bingo        139,1,1
691que_bingo,53,121,0      duplicate(1a#bingo)     10b#bingo       139,1,1
692que_bingo,53,121,0      duplicate(1a#bingo)     11b#bingo       139,1,1
693que_bingo,53,121,0      duplicate(1a#bingo)     12b#bingo       139,1,1
694que_bingo,53,121,0      duplicate(1a#bingo)     13b#bingo       139,1,1
695que_bingo,53,121,0      duplicate(1a#bingo)     14b#bingo       139,1,1
696que_bingo,53,121,0      duplicate(1a#bingo)     15b#bingo       139,1,1
697que_bingo,53,121,0      duplicate(1a#bingo)     16b#bingo       139,1,1
698que_bingo,53,121,0      duplicate(1a#bingo)     17b#bingo       139,1,1
699que_bingo,53,121,0      duplicate(1a#bingo)     18b#bingo       139,1,1
700que_bingo,53,121,0      duplicate(1a#bingo)     19b#bingo       139,1,1
701que_bingo,53,121,0      duplicate(1a#bingo)     20b#bingo       139,1,1
702que_bingo,53,121,0      duplicate(1a#bingo)     21b#bingo       139,1,1
703que_bingo,53,121,0      duplicate(1a#bingo)     22b#bingo       139,1,1
704que_bingo,53,121,0      duplicate(1a#bingo)     23b#bingo       139,1,1
705que_bingo,53,121,0      duplicate(1a#bingo)     24b#bingo       139,1,1
706que_bingo,53,121,0      duplicate(1a#bingo)     25b#bingo       139,1,1
707que_bingo,51,116,0      duplicate(1a#bingo)     1c#bingo        139,1,1
708que_bingo,51,116,0      duplicate(1a#bingo)     2c#bingo        139,1,1
709que_bingo,51,116,0      duplicate(1a#bingo)     3c#bingo        139,1,1
710que_bingo,51,116,0      duplicate(1a#bingo)     4c#bingo        139,1,1
711que_bingo,51,116,0      duplicate(1a#bingo)     5c#bingo        139,1,1
712que_bingo,51,116,0      duplicate(1a#bingo)     6c#bingo        139,1,1
713que_bingo,51,116,0      duplicate(1a#bingo)     7c#bingo        139,1,1
714que_bingo,51,116,0      duplicate(1a#bingo)     8c#bingo        139,1,1
715que_bingo,51,116,0      duplicate(1a#bingo)     9c#bingo        139,1,1
716que_bingo,51,116,0      duplicate(1a#bingo)     10c#bingo       139,1,1
717que_bingo,51,116,0      duplicate(1a#bingo)     11c#bingo       139,1,1
718que_bingo,51,116,0      duplicate(1a#bingo)     12c#bingo       139,1,1
719que_bingo,51,116,0      duplicate(1a#bingo)     13c#bingo       139,1,1
720que_bingo,51,116,0      duplicate(1a#bingo)     14c#bingo       139,1,1
721que_bingo,51,116,0      duplicate(1a#bingo)     15c#bingo       139,1,1
722que_bingo,51,116,0      duplicate(1a#bingo)     16c#bingo       139,1,1
723que_bingo,51,116,0      duplicate(1a#bingo)     17c#bingo       139,1,1
724que_bingo,51,116,0      duplicate(1a#bingo)     18c#bingo       139,1,1
725que_bingo,51,116,0      duplicate(1a#bingo)     19c#bingo       139,1,1
726que_bingo,51,116,0      duplicate(1a#bingo)     20c#bingo       139,1,1
727que_bingo,51,116,0      duplicate(1a#bingo)     21c#bingo       139,1,1
728que_bingo,51,116,0      duplicate(1a#bingo)     22c#bingo       139,1,1
729que_bingo,51,116,0      duplicate(1a#bingo)     23c#bingo       139,1,1
730que_bingo,51,116,0      duplicate(1a#bingo)     24c#bingo       139,1,1
731que_bingo,51,116,0      duplicate(1a#bingo)     25c#bingo       139,1,1
732que_bingo,46,116,0      duplicate(1a#bingo)     1d#bingo        139,1,1
733que_bingo,46,116,0      duplicate(1a#bingo)     2d#bingo        139,1,1
734que_bingo,46,116,0      duplicate(1a#bingo)     3d#bingo        139,1,1
735que_bingo,46,116,0      duplicate(1a#bingo)     4d#bingo        139,1,1
736que_bingo,46,116,0      duplicate(1a#bingo)     5d#bingo        139,1,1
737que_bingo,46,116,0      duplicate(1a#bingo)     6d#bingo        139,1,1
738que_bingo,46,116,0      duplicate(1a#bingo)     7d#bingo        139,1,1
739que_bingo,46,116,0      duplicate(1a#bingo)     8d#bingo        139,1,1
740que_bingo,46,116,0      duplicate(1a#bingo)     9d#bingo        139,1,1
741que_bingo,46,116,0      duplicate(1a#bingo)     10d#bingo       139,1,1
742que_bingo,46,116,0      duplicate(1a#bingo)     11d#bingo       139,1,1
743que_bingo,46,116,0      duplicate(1a#bingo)     12d#bingo       139,1,1
744que_bingo,46,116,0      duplicate(1a#bingo)     13d#bingo       139,1,1
745que_bingo,46,116,0      duplicate(1a#bingo)     14d#bingo       139,1,1
746que_bingo,46,116,0      duplicate(1a#bingo)     15d#bingo       139,1,1
747que_bingo,46,116,0      duplicate(1a#bingo)     16d#bingo       139,1,1
748que_bingo,46,116,0      duplicate(1a#bingo)     17d#bingo       139,1,1
749que_bingo,46,116,0      duplicate(1a#bingo)     18d#bingo       139,1,1
750que_bingo,46,116,0      duplicate(1a#bingo)     19d#bingo       139,1,1
751que_bingo,46,116,0      duplicate(1a#bingo)     20d#bingo       139,1,1
752que_bingo,46,116,0      duplicate(1a#bingo)     21d#bingo       139,1,1
753que_bingo,46,116,0      duplicate(1a#bingo)     22d#bingo       139,1,1
754que_bingo,46,116,0      duplicate(1a#bingo)     23d#bingo       139,1,1
755que_bingo,46,116,0      duplicate(1a#bingo)     24d#bingo       139,1,1
756que_bingo,46,116,0      duplicate(1a#bingo)     25d#bingo       139,1,1
757que_bingo,45,121,0      duplicate(1a#bingo)     1e#bingo        139,1,1
758que_bingo,45,121,0      duplicate(1a#bingo)     2e#bingo        139,1,1
759que_bingo,45,121,0      duplicate(1a#bingo)     3e#bingo        139,1,1
760que_bingo,45,121,0      duplicate(1a#bingo)     4e#bingo        139,1,1
761que_bingo,45,121,0      duplicate(1a#bingo)     5e#bingo        139,1,1
762que_bingo,45,121,0      duplicate(1a#bingo)     6e#bingo        139,1,1
763que_bingo,45,121,0      duplicate(1a#bingo)     7e#bingo        139,1,1
764que_bingo,45,121,0      duplicate(1a#bingo)     8e#bingo        139,1,1
765que_bingo,45,121,0      duplicate(1a#bingo)     9e#bingo        139,1,1
766que_bingo,45,121,0      duplicate(1a#bingo)     10e#bingo       139,1,1
767que_bingo,45,121,0      duplicate(1a#bingo)     11e#bingo       139,1,1
768que_bingo,45,121,0      duplicate(1a#bingo)     12e#bingo       139,1,1
769que_bingo,45,121,0      duplicate(1a#bingo)     13e#bingo       139,1,1
770que_bingo,45,121,0      duplicate(1a#bingo)     14e#bingo       139,1,1
771que_bingo,45,121,0      duplicate(1a#bingo)     15e#bingo       139,1,1
772que_bingo,45,121,0      duplicate(1a#bingo)     16e#bingo       139,1,1
773que_bingo,45,121,0      duplicate(1a#bingo)     17e#bingo       139,1,1
774que_bingo,45,121,0      duplicate(1a#bingo)     18e#bingo       139,1,1
775que_bingo,45,121,0      duplicate(1a#bingo)     19e#bingo       139,1,1
776que_bingo,45,121,0      duplicate(1a#bingo)     20e#bingo       139,1,1
777que_bingo,45,121,0      duplicate(1a#bingo)     21e#bingo       139,1,1
778que_bingo,45,121,0      duplicate(1a#bingo)     22e#bingo       139,1,1
779que_bingo,45,121,0      duplicate(1a#bingo)     23e#bingo       139,1,1
780que_bingo,45,121,0      duplicate(1a#bingo)     24e#bingo       139,1,1
781que_bingo,45,121,0      duplicate(1a#bingo)     25e#bingo       139,1,1
782
783
784que_bingo,79,19,0       script  win1a#bingo     139,4,4,{
785        end;
786
787OnWin:
788        initnpctimer;
789        end;
790       
791OnTimer1000:
792        donpcevent "1a#bingo::OnInit";
793        enablenpc "win2a#bingo";
794        enablenpc "win2b#bingo";
795        enablenpc "win2c#bingo";
796        enablenpc "win2d#bingo";
797        enablenpc "win2e#bingo";
798        end;
799}
800
801que_bingo,49,125,0      script  win2a#bingo     139,1,1,{
802        end;
803
804OnInit:
805        disablenpc "win2a#bingo";
806        disablenpc "win2b#bingo";
807        disablenpc "win2c#bingo";
808        disablenpc "win2d#bingo";
809        disablenpc "win2e#bingo";
810        end;
811
812OnTouch:
813        if($@bingowinner$ != strcharinfo(0)) end;
814        specialeffect 183;
815        soundeffect "tming_success.wav",1;
816        if($@bingoresult == 16) getitem 7515,50;
817        else getitem 7515,1;
818        initnpctimer;
819        end;
820
821OnTimer1000:
822        mapannounce "que_bingo","Eukran: Wow, Bingo! It's Bingo!",1,0xFFAB54;
823        end;
824
825OnTimer5000:
826        mapannounce "que_bingo","Eukran: "+$@bingowinner$+" has said Bingo!",1,0xFFAB54;
827        end;
828
829OnTimer10000:
830        if($@bingoresult == 16) mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 50 Marvelous Medals.",1,0xFFAB54;
831        else mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 1 Marvelous Medal.",1,0xFFAB54;
832        end;
833
834OnTimer15000:
835        mapannounce "que_bingo","Eukran: Thank you all for participating in the game. See you next time!",1,0xFFAB54;
836        end;
837
838OnTimer20000:
839        donpcevent "end#bingo::OnEnd";
840        donpcevent "win2a#bingo::OnInit";
841        end;
842}
843
844que_bingo,53,121,0      duplicate(win2a#bingo)  win2b#bingo     139,1,1
845que_bingo,51,116,0      duplicate(win2a#bingo)  win2c#bingo     139,1,1
846que_bingo,46,116,0      duplicate(win2a#bingo)  win2d#bingo     139,1,1
847que_bingo,45,121,0      duplicate(win2a#bingo)  win2e#bingo     139,1,1
848
849que_bingo,89,59,0       script  end#bingo       139,4,4,{
850        end;
851
852OnEnd:
853        initnpctimer;
854        end;
855
856OnTimer1000:
857        enablenpc "end1a#bingo";
858        enablenpc "end1b#bingo";
859        enablenpc "end1c#bingo";
860        enablenpc "end1d#bingo";
861        enablenpc "end1e#bingo";
862        end;
863
864OnTimer5000:
865        disablenpc "end1a#bingo";
866        disablenpc "end1b#bingo";
867        disablenpc "end1c#bingo";
868        disablenpc "end1d#bingo";
869        disablenpc "end1e#bingo";
870        set $hu_bingoa,0;
871        donpcevent "Bingo Waiting Room::OnStart";
872        end;
873}
874
875que_bingo,49,125,0      script  end1a#bingo     139,1,1,{
876
877OnInit:
878        disablenpc "end1a#bingo";
879        disablenpc "end1b#bingo";
880        disablenpc "end1c#bingo";
881        disablenpc "end1d#bingo";
882        disablenpc "end1e#bingo";
883        end;
884
885OnTouch:
886        if(strcharinfo(0) == $@bingowinner$ && hg_ma1 == 6) warp "que_bingo",45,186;
887        else warp "que_bingo",40,121;
888        end;
889}
890
891que_bingo,53,121,0      duplicate(end1a#bingo)  end1b#bingo     139,1,1
892que_bingo,51,116,0      duplicate(end1a#bingo)  end1c#bingo     139,1,1
893que_bingo,46,116,0      duplicate(end1a#bingo)  end1d#bingo     139,1,1
894que_bingo,45,121,0      duplicate(end1a#bingo)  end1e#bingo     139,1,1
895
896que_bingo,50,138,1      script  out3#bingo      139,5,8,{
897
898OnInit:
899        disablenpc "out3#bingo";
900        end;
901       
902OnTouch:
903        warp "que_bingo",40,121;
904        end;
905}
906
907que_bingo,49,136,0      script  go3#bingo       45,1,1,{
908
909OnTouch:
910        switch($hu_bingob)
911        {
912                case 0: warp "que_bingo",49,125; break;
913                case 1: warp "que_bingo",53,121; break;
914                case 2: warp "que_bingo",51,116; break;
915                case 3: warp "que_bingo",46,116; break;
916                case 4: warp "que_bingo",45,121; break;
917        }
918        set $hu_bingob,$hu_bingob +1;
919        if($hu_bingob == 5) set $hu_bingob,0;
920        end;
921}
922
923function        script  Func_Bingo      {
924
925
926        for( set .@i,getarg(0); .@i < 26; set .@i,.@i +1)
927        {
928                if(@bingoplate[1] < 10) set @bingo_a1$,"0"+@bingoplate[1]+""; else set @bingo_a1$,@bingoplate[1];
929                if(@bingoplate[2] < 10) set @bingo_a2$,"0"+@bingoplate[2]+""; else set @bingo_a2$,@bingoplate[2];
930                if(@bingoplate[3] < 10) set @bingo_a3$,"0"+@bingoplate[3]+""; else set @bingo_a3$,@bingoplate[3];
931                if(@bingoplate[4] < 10) set @bingo_a4$,"0"+@bingoplate[4]+""; else set @bingo_a4$,@bingoplate[4];
932                if(@bingoplate[5] < 10) set @bingo_a5$,"0"+@bingoplate[5]+""; else set @bingo_a5$,@bingoplate[5];
933                if(.@i > 5) mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
934                else
935                {
936                        switch(.@i)
937                        {
938                                case 1: mes "^ff0000[__]^000000 [   ] [   ] [   ] [   ]"; break;
939                                case 2: mes "["+@bingo_a1$+"] ^ff0000[__]^000000 [   ] [   ] [   ]"; break;
940                                case 3: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ^ff0000[__]^000000 [   ] [   ]"; break;
941                                case 4: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ^ff0000[__]^000000 [   ]"; break;
942                                case 5: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ^ff0000[__]^000000"; break;
943                        }
944                }
945                if(@bingoplate[6] < 10) set @bingo_b1$,"0"+@bingoplate[6]+""; else set @bingo_b1$,@bingoplate[6];
946                if(@bingoplate[7] < 10) set @bingo_b2$,"0"+@bingoplate[7]+""; else set @bingo_b2$,@bingoplate[7];
947                if(@bingoplate[8] < 10) set @bingo_b3$,"0"+@bingoplate[8]+""; else set @bingo_b3$,@bingoplate[8];
948                if(@bingoplate[9] < 10) set @bingo_b4$,"0"+@bingoplate[9]+""; else set @bingo_b4$,@bingoplate[9];
949                if(@bingoplate[10] < 10) set @bingo_b5$,"0"+@bingoplate[10]+""; else set @bingo_b5$,@bingoplate[10];
950                if(.@i > 10) mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]";
951                else if(.@i < 6) mes "[   ] [   ] [   ] [   ] [   ]";
952                else
953                {
954                        switch(.@i)
955                        {
956                                case 6: mes "^ff0000[__]^000000 [   ] [   ] [   ] [   ]"; break;
957                                case 7: mes "["+@bingo_b1$+"] ^ff0000[__]^000000 [   ] [   ] [   ]"; break;
958                                case 8: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ^ff0000[__]^000000 [   ] [   ]"; break;
959                                case 9: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ^ff0000[__]^000000 [   ]"; break;
960                                case 10: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ^ff0000[__]^000000"; break;
961                        }
962                }
963                if(@bingoplate[11] < 10) set @bingo_c1$,"0"+@bingoplate[11]+""; else set @bingo_c1$,@bingoplate[11];
964                if(@bingoplate[12] < 10) set @bingo_c2$,"0"+@bingoplate[12]+""; else set @bingo_c2$,@bingoplate[12];
965                if(@bingoplate[13] < 10) set @bingo_c3$,"0"+@bingoplate[13]+""; else set @bingo_c3$,@bingoplate[13];
966                if(@bingoplate[14] < 10) set @bingo_c4$,"0"+@bingoplate[14]+""; else set @bingo_c4$,@bingoplate[14];
967                if(@bingoplate[15] < 10) set @bingo_c5$,"0"+@bingoplate[15]+""; else set @bingo_c5$,@bingoplate[15];
968                if(.@i > 15) mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]";
969                else if(.@i < 11) mes "[   ] [   ] [   ] [   ] [   ]";
970                else
971                {
972                        switch(.@i)
973                        {
974                                case 11: mes "^ff0000[__]^000000 [   ] [   ] [   ] [   ]"; break;
975                                case 12: mes "["+@bingo_c1$+"] ^ff0000[__]^000000 [   ] [   ] [   ]"; break;
976                                case 13: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ^ff0000[__]^000000 [   ] [   ]"; break;
977                                case 14: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ^ff0000[__]^000000 [   ]"; break;
978                                case 15: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ^ff0000[__]^000000"; break;
979                        }
980                }
981                if(@bingoplate[16] < 10) set @bingo_d1$,"0"+@bingoplate[16]+""; else set @bingo_d1$,@bingoplate[16];
982                if(@bingoplate[17] < 10) set @bingo_d2$,"0"+@bingoplate[17]+""; else set @bingo_d2$,@bingoplate[17];
983                if(@bingoplate[18] < 10) set @bingo_d3$,"0"+@bingoplate[18]+""; else set @bingo_d3$,@bingoplate[18];
984                if(@bingoplate[19] < 10) set @bingo_d4$,"0"+@bingoplate[19]+""; else set @bingo_d4$,@bingoplate[19];
985                if(@bingoplate[20] < 10) set @bingo_d5$,"0"+@bingoplate[20]+""; else set @bingo_d5$,@bingoplate[20];   
986                if(.@i > 20) mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
987                else if(.@i < 16) mes "[   ] [   ] [   ] [   ] [   ]";
988                else
989                {
990                        switch(.@i)
991                        {
992                                case 16: mes "^ff0000[__]^000000 [   ] [   ] [   ] [   ]"; break;
993                                case 17: mes "["+@bingo_d1$+"] ^ff0000[__]^000000 [   ] [   ] [   ]"; break;
994                                case 18: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ^ff0000[__]^000000 [   ] [   ]"; break;
995                                case 19: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ^ff0000[__]^000000 [   ]"; break;
996                                case 20: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ^ff0000[__]^000000"; break;
997                        }
998                }
999                if(@bingoplate[21] < 10) set @bingo_e1$,"0"+@bingoplate[21]+""; else set @bingo_e1$,@bingoplate[21];
1000                if(@bingoplate[22] < 10) set @bingo_e2$,"0"+@bingoplate[22]+""; else set @bingo_e2$,@bingoplate[22];
1001                if(@bingoplate[23] < 10) set @bingo_e3$,"0"+@bingoplate[23]+""; else set @bingo_e3$,@bingoplate[23];
1002                if(@bingoplate[24] < 10) set @bingo_e4$,"0"+@bingoplate[24]+""; else set @bingo_e4$,@bingoplate[24];
1003                if(.@i < 21) mes "[   ] [   ] [   ] [   ] [   ]";
1004                else
1005                {
1006                        switch(.@i)
1007                        {
1008                                case 21: mes "^ff0000[__]^000000 [   ] [   ] [   ] [   ]"; break;
1009                                case 22: mes "["+@bingo_e1$+"] ^ff0000[__]^000000 [   ] [   ] [   ]"; break;
1010                                case 23: mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ^ff0000[__]^000000 [   ] [   ]"; break;
1011                                case 24: mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ^ff0000[__]^000000 [   ]"; break;
1012                                case 25: mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ["+@bingo_e4$+"] ^ff0000[__]^000000"; break;
1013                        }
1014                }
1015                next;
1016                input .@bingoinput;
1017                if(.@bingoinput < 1 || .@bingoinput > 25) { set @bingo_case,.@i; return 0; }
1018                if(.@i > 1)
1019                {
1020                        for(set .@j,.@i; .@j > 0; set .@j,.@j -1)
1021                        {
1022                                if(.@bingoinput == @bingoplate[.@j -1]) { set @bingo_case,.@i; return 0; }
1023                        }
1024                }
1025                setarray @bingoplate[.@i],.@bingoinput;
1026        }
1027        return 1;
1028}
1029
1030function        script  Func_BingoResult        {
1031
1032        if(getarg(0) == 1 || getarg(0) == 21) mapannounce "que_bingo","Eukran: The "+getarg(0)+"st number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
1033        else if(getarg(0) == 2 || getarg(0) == 22) mapannounce "que_bingo","Eukran: The "+getarg(0)+"nd number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
1034        else if(getarg(0) == 3 || getarg(0) == 23) mapannounce "que_bingo","Eukran: The "+getarg(0)+"rd number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
1035        else mapannounce "que_bingo","Eukran: The "+getarg(0)+"th number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
1036        enablenpc ""+getarg(0)+"a#bingo";
1037        enablenpc ""+getarg(0)+"b#bingo";
1038        enablenpc ""+getarg(0)+"c#bingo";
1039        enablenpc ""+getarg(0)+"d#bingo";
1040        enablenpc ""+getarg(0)+"e#bingo";
1041        set getarg(0),getarg(0) +1;
1042        end;
1043}
1044
1045que_bingo,49,31,4       script  Arcade Helper#1 47,{
1046
1047        mes "[Helper]";
1048        mes "If you'd like to play";
1049        mes "a game of bingo, then";
1050        mes "please proceed this way.";
1051        close; 
1052}
1053
1054que_bingo,42,31,4       script  Arcade Helper#2 66,{
1055
1056        mes "[Helper]";
1057        mes "If you'd like to play";
1058        mes "a game of bingo, then";
1059        mes "please proceed this way.";
1060        close;
1061       
1062}
1063
1064que_bingo,54,17,5       script  Arcade Owner    712,{
1065
1066        mes "[Arcade Owner]";
1067        mes "Welcome to the";
1068        mes "Bingo Game Arcade.";
1069        mes "Care to play a game of";
1070        mes "bingo? If you have any";
1071        mes "questions, feel free to ask.";
1072        next;
1073        switch( select( "Rules for Bingo:Bingo Room:Marvelous Medals" ) )
1074        {
1075        case 1:
1076                mes "[Arcade Owner]";
1077                mes "The rules for playing bingo";
1078                mes "are simple. First, take a board";
1079                mes "with 25 boxes organized so that";
1080                mes "there are five rows and five";
1081                mes "columns. Then, number the";
1082                mes "boxes in any order you like.";
1083                next;
1084                mes "[Arcade Owner]";
1085                mes "Of course, you must use";
1086                mes "the numbers 1 through 25.";
1087                mes "When everyone's bingo board";
1088                mes "is ready, the game will begin.";
1089                mes "Our game coordinator will call out a number from 1 to 25 at random.";
1090                next;
1091                mes "[Arcade Owner]";
1092                mes "Each time the coordinator";
1093                mes "calls out a number, make sure";
1094                mes "that you mark the corresponding";
1095                mes "numbered square on your bingo";
1096                mes "board. Now, these are the";
1097                mes "conditions for winning...";
1098                next;
1099                mes "[Arcade Owner]";
1100                mes "If you can make a line of";
1101                mes "5 squares in a row, horizontally, vertically, or diagonally, using";
1102                mes "the numbers called out by the";
1103                mes "coordinator, you quickly yell";
1104                mes "the word, ''Bingo.''";
1105                next;
1106                mes "[Arcade Owner]";
1107                mes "If you are the first to yell";
1108                mes "the word, ''Bingo,'' you'll";
1109                mes "win! But if someone beats you";
1110                mes "to it, then it can't be helped.";
1111                mes "Anyway, it costs 1,000 zeny";
1112                mes "to play each bingo game~";
1113                close;
1114        break;
1115        case 2:
1116                mes "[Arcade Owner]";
1117                mes "Ah, if you want to join a";
1118                mes "bingo game, enter the right";
1119                mes "door. There must be at least";
1120                mes "5 people to play a game, so";
1121                mes "you may need to wait until";
1122                mes "that requirement is fulfilled.";
1123                next;
1124                mes "[Arcade Owner]";
1125                mes "If you just want to";
1126                mes "watch the bingo game,";
1127                mes "then you may enter the";
1128                mes "left door as a spectator";
1129                mes "in the Bingo Room.";
1130                close;
1131        break;
1132        case 3:
1133                mes "[Arcade Owner]";
1134                mes "When you win a bingo";
1135                mes "game, you will be rewarded";
1136                mes "with ''Marvelous Medals,''";
1137                mes "which can only be used within";
1138                mes "this arcade. You also can't^FFFFFF ^000000 trade medals with other players.";
1139                next;
1140                mes "[Arcade Owner]";
1141                mes "You usually get 1 Marvelous";
1142                mes "Medal for winning a bingo game,";
1143                mes "but you can win 50 at one time";
1144                mes "under special conditions. You";
1145                mes "can also play Monster Racing";
1146                mes "games to win more medals.";
1147                next;
1148                mes "[Arcade Owner]";
1149                mes "Collect as many Marvelous";
1150                mes "Medals as you can, and trade";
1151                mes "them for products in the Monster^FFFFFF ^000000 Racing Arena. I hear there's also";
1152                mes "a place in Einbroch where you can^FFFFFF ^000000 use them, but I wouldn't know.";
1153                close;
1154        break;
1155        }
1156       
1157}
Note: See TracBrowser for help on using the browser.