| 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 | |
|---|
| 21 | que_bingo,48,84,5 script Bingo Waiting Room 124,{ |
|---|
| 22 | end; |
|---|
| 23 | |
|---|
| 24 | OnInit: |
|---|
| 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 | |
|---|
| 30 | OnWarp: |
|---|
| 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 | |
|---|
| 41 | OnStart: |
|---|
| 42 | enablewaitingroomevent; |
|---|
| 43 | end; |
|---|
| 44 | } |
|---|
| 45 | |
|---|
| 46 | que_bingo,49,125,0 script plate1#bingo 139,1,1,{ |
|---|
| 47 | |
|---|
| 48 | OnInit: |
|---|
| 49 | disablenpc "plate1#bingo"; |
|---|
| 50 | disablenpc "plate2#bingo"; |
|---|
| 51 | disablenpc "plate3#bingo"; |
|---|
| 52 | disablenpc "plate4#bingo"; |
|---|
| 53 | disablenpc "plate5#bingo"; |
|---|
| 54 | end; |
|---|
| 55 | |
|---|
| 56 | OnTouch: |
|---|
| 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; |
|---|
| 84 | L_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 | |
|---|
| 110 | que_bingo,53,121,0 duplicate(plate1#bingo) plate2#bingo 139,1,1 |
|---|
| 111 | que_bingo,51,116,0 duplicate(plate1#bingo) plate3#bingo 139,1,1 |
|---|
| 112 | que_bingo,46,116,0 duplicate(plate1#bingo) plate4#bingo 139,1,1 |
|---|
| 113 | que_bingo,45,121,0 duplicate(plate1#bingo) plate5#bingo 139,1,1 |
|---|
| 114 | |
|---|
| 115 | que_bingo,51,51,0 script start#bingo 139,{ |
|---|
| 116 | |
|---|
| 117 | OnStart: |
|---|
| 118 | initnpctimer; |
|---|
| 119 | end; |
|---|
| 120 | |
|---|
| 121 | OnEnter: |
|---|
| 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 | |
|---|
| 132 | OnTimer1000: |
|---|
| 133 | mapannounce "que_bingo","Eukran: Hello, everyone! I'm Eukran, your Bingo Guide~",1,0xFFAB54; |
|---|
| 134 | end; |
|---|
| 135 | |
|---|
| 136 | OnTimer6000: |
|---|
| 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 | |
|---|
| 140 | OnTimer11000: |
|---|
| 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 | |
|---|
| 144 | OnTimer192000: |
|---|
| 145 | mapannounce "que_bingo","Eukran: Please enter a number in 5 seconds, or the game will be canceled.",1,0xFFAB54; |
|---|
| 146 | end; |
|---|
| 147 | |
|---|
| 148 | OnTimer200000: |
|---|
| 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 | |
|---|
| 152 | OnTimer202000: |
|---|
| 153 | disablenpc "plate1#bingo"; |
|---|
| 154 | disablenpc "plate2#bingo"; |
|---|
| 155 | disablenpc "plate3#bingo"; |
|---|
| 156 | disablenpc "plate4#bingo"; |
|---|
| 157 | disablenpc "plate5#bingo"; |
|---|
| 158 | end; |
|---|
| 159 | |
|---|
| 160 | OnTimer203000: |
|---|
| 161 | areawarp "que_bingo",44,115,54,126,"que_bingo",40,124; |
|---|
| 162 | enablenpc "out3#bingo"; |
|---|
| 163 | end; |
|---|
| 164 | |
|---|
| 165 | OnTimer204000: |
|---|
| 166 | disablenpc "out3#bingo"; |
|---|
| 167 | set $hu_bingoa,0; |
|---|
| 168 | set $hu_bingob,0; |
|---|
| 169 | donpcevent "Bingo Waiting Room::OnStart"; |
|---|
| 170 | end; |
|---|
| 171 | } |
|---|
| 172 | |
|---|
| 173 | que_bingo,52,52,0 script start2#bingo 139,{ |
|---|
| 174 | |
|---|
| 175 | OnStop: |
|---|
| 176 | stopnpctimer; |
|---|
| 177 | end; |
|---|
| 178 | |
|---|
| 179 | OnStart: |
|---|
| 180 | initnpctimer; |
|---|
| 181 | end; |
|---|
| 182 | |
|---|
| 183 | OnTimer2000: |
|---|
| 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 | |
|---|
| 192 | OnTimer5000: |
|---|
| 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 | |
|---|
| 205 | OnTimer8000: |
|---|
| 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 | |
|---|
| 209 | OnTimer10000: |
|---|
| 210 | set $@bingoresult,1; |
|---|
| 211 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 212 | end; |
|---|
| 213 | |
|---|
| 214 | OnTimer15000: |
|---|
| 215 | donpcevent "1a#bingo::OnInit"; |
|---|
| 216 | end; |
|---|
| 217 | |
|---|
| 218 | OnTimer20000: |
|---|
| 219 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 220 | end; |
|---|
| 221 | |
|---|
| 222 | OnTimer25000: |
|---|
| 223 | donpcevent "1a#bingo::OnInit"; |
|---|
| 224 | end; |
|---|
| 225 | |
|---|
| 226 | OnTimer30000: |
|---|
| 227 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 228 | end; |
|---|
| 229 | |
|---|
| 230 | OnTimer35000: |
|---|
| 231 | donpcevent "1a#bingo::OnInit"; |
|---|
| 232 | end; |
|---|
| 233 | |
|---|
| 234 | OnTimer40000: |
|---|
| 235 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 236 | end; |
|---|
| 237 | |
|---|
| 238 | OnTimer45000: |
|---|
| 239 | donpcevent "1a#bingo::OnInit"; |
|---|
| 240 | end; |
|---|
| 241 | |
|---|
| 242 | OnTimer50000: |
|---|
| 243 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 244 | end; |
|---|
| 245 | |
|---|
| 246 | OnTimer55000: |
|---|
| 247 | donpcevent "1a#bingo::OnInit"; |
|---|
| 248 | end; |
|---|
| 249 | |
|---|
| 250 | OnTimer60000: |
|---|
| 251 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 252 | end; |
|---|
| 253 | |
|---|
| 254 | OnTimer65000: |
|---|
| 255 | donpcevent "1a#bingo::OnInit"; |
|---|
| 256 | end; |
|---|
| 257 | |
|---|
| 258 | OnTimer70000: |
|---|
| 259 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 260 | end; |
|---|
| 261 | |
|---|
| 262 | OnTimer75000: |
|---|
| 263 | donpcevent "1a#bingo::OnInit"; |
|---|
| 264 | end; |
|---|
| 265 | |
|---|
| 266 | OnTimer80000: |
|---|
| 267 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 268 | end; |
|---|
| 269 | |
|---|
| 270 | OnTimer85000: |
|---|
| 271 | donpcevent "1a#bingo::OnInit"; |
|---|
| 272 | end; |
|---|
| 273 | |
|---|
| 274 | OnTimer90000: |
|---|
| 275 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 276 | end; |
|---|
| 277 | |
|---|
| 278 | OnTimer95000: |
|---|
| 279 | donpcevent "1a#bingo::OnInit"; |
|---|
| 280 | end; |
|---|
| 281 | |
|---|
| 282 | OnTimer100000: |
|---|
| 283 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 284 | end; |
|---|
| 285 | |
|---|
| 286 | OnTimer105000: |
|---|
| 287 | donpcevent "1a#bingo::OnInit"; |
|---|
| 288 | end; |
|---|
| 289 | |
|---|
| 290 | OnTimer110000: |
|---|
| 291 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 292 | end; |
|---|
| 293 | |
|---|
| 294 | OnTimer115000: |
|---|
| 295 | donpcevent "1a#bingo::OnInit"; |
|---|
| 296 | end; |
|---|
| 297 | |
|---|
| 298 | OnTimer120000: |
|---|
| 299 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 300 | end; |
|---|
| 301 | |
|---|
| 302 | OnTimer125000: |
|---|
| 303 | donpcevent "1a#bingo::OnInit"; |
|---|
| 304 | end; |
|---|
| 305 | |
|---|
| 306 | OnTimer130000: |
|---|
| 307 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 308 | end; |
|---|
| 309 | |
|---|
| 310 | OnTimer135000: |
|---|
| 311 | donpcevent "1a#bingo::OnInit"; |
|---|
| 312 | end; |
|---|
| 313 | |
|---|
| 314 | OnTimer140000: |
|---|
| 315 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 316 | end; |
|---|
| 317 | |
|---|
| 318 | OnTimer145000: |
|---|
| 319 | donpcevent "1a#bingo::OnInit"; |
|---|
| 320 | end; |
|---|
| 321 | |
|---|
| 322 | OnTimer150000: |
|---|
| 323 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 324 | end; |
|---|
| 325 | |
|---|
| 326 | OnTimer155000: |
|---|
| 327 | donpcevent "1a#bingo::OnInit"; |
|---|
| 328 | end; |
|---|
| 329 | |
|---|
| 330 | OnTimer160000: |
|---|
| 331 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 332 | end; |
|---|
| 333 | |
|---|
| 334 | OnTimer179000: |
|---|
| 335 | donpcevent "1a#bingo::OnInit"; |
|---|
| 336 | end; |
|---|
| 337 | |
|---|
| 338 | OnTimer180000: |
|---|
| 339 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 340 | end; |
|---|
| 341 | |
|---|
| 342 | OnTimer199000: |
|---|
| 343 | donpcevent "1a#bingo::OnInit"; |
|---|
| 344 | end; |
|---|
| 345 | |
|---|
| 346 | OnTimer200000: |
|---|
| 347 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 348 | end; |
|---|
| 349 | |
|---|
| 350 | OnTimer219000: |
|---|
| 351 | donpcevent "1a#bingo::OnInit"; |
|---|
| 352 | end; |
|---|
| 353 | |
|---|
| 354 | OnTimer220000: |
|---|
| 355 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 356 | end; |
|---|
| 357 | |
|---|
| 358 | OnTimer239000: |
|---|
| 359 | donpcevent "1a#bingo::OnInit"; |
|---|
| 360 | end; |
|---|
| 361 | |
|---|
| 362 | OnTimer240000: |
|---|
| 363 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 364 | end; |
|---|
| 365 | |
|---|
| 366 | OnTimer259000: |
|---|
| 367 | donpcevent "1a#bingo::OnInit"; |
|---|
| 368 | end; |
|---|
| 369 | |
|---|
| 370 | OnTimer260000: |
|---|
| 371 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 372 | end; |
|---|
| 373 | |
|---|
| 374 | OnTimer279000: |
|---|
| 375 | donpcevent "1a#bingo::OnInit"; |
|---|
| 376 | end; |
|---|
| 377 | |
|---|
| 378 | OnTimer280000: |
|---|
| 379 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 380 | end; |
|---|
| 381 | |
|---|
| 382 | OnTimer299000: |
|---|
| 383 | donpcevent "1a#bingo::OnInit"; |
|---|
| 384 | end; |
|---|
| 385 | |
|---|
| 386 | OnTimer300000: |
|---|
| 387 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 388 | end; |
|---|
| 389 | |
|---|
| 390 | OnTimer319000: |
|---|
| 391 | donpcevent "1a#bingo::OnInit"; |
|---|
| 392 | end; |
|---|
| 393 | |
|---|
| 394 | OnTimer320000: |
|---|
| 395 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 396 | end; |
|---|
| 397 | |
|---|
| 398 | OnTimer339000: |
|---|
| 399 | donpcevent "1a#bingo::OnInit"; |
|---|
| 400 | end; |
|---|
| 401 | |
|---|
| 402 | OnTimer340000: |
|---|
| 403 | callfunc "Func_BingoResult",$@bingoresult; |
|---|
| 404 | end; |
|---|
| 405 | |
|---|
| 406 | OnTimer440000: |
|---|
| 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 | |
|---|
| 410 | OnTimer445000: |
|---|
| 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 | |
|---|
| 414 | OnTimer460000: |
|---|
| 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 | |
|---|
| 427 | que_bingo,49,125,0 script 1a#bingo 139,1,1,{ |
|---|
| 428 | end; |
|---|
| 429 | |
|---|
| 430 | OnInit: |
|---|
| 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 | |
|---|
| 558 | OnTouch: |
|---|
| 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 | |
|---|
| 658 | que_bingo,49,125,0 duplicate(1a#bingo) 2a#bingo 139,1,1 |
|---|
| 659 | que_bingo,49,125,0 duplicate(1a#bingo) 3a#bingo 139,1,1 |
|---|
| 660 | que_bingo,49,125,0 duplicate(1a#bingo) 4a#bingo 139,1,1 |
|---|
| 661 | que_bingo,49,125,0 duplicate(1a#bingo) 5a#bingo 139,1,1 |
|---|
| 662 | que_bingo,49,125,0 duplicate(1a#bingo) 6a#bingo 139,1,1 |
|---|
| 663 | que_bingo,49,125,0 duplicate(1a#bingo) 7a#bingo 139,1,1 |
|---|
| 664 | que_bingo,49,125,0 duplicate(1a#bingo) 8a#bingo 139,1,1 |
|---|
| 665 | que_bingo,49,125,0 duplicate(1a#bingo) 9a#bingo 139,1,1 |
|---|
| 666 | que_bingo,49,125,0 duplicate(1a#bingo) 10a#bingo 139,1,1 |
|---|
| 667 | que_bingo,49,125,0 duplicate(1a#bingo) 11a#bingo 139,1,1 |
|---|
| 668 | que_bingo,49,125,0 duplicate(1a#bingo) 12a#bingo 139,1,1 |
|---|
| 669 | que_bingo,49,125,0 duplicate(1a#bingo) 13a#bingo 139,1,1 |
|---|
| 670 | que_bingo,49,125,0 duplicate(1a#bingo) 14a#bingo 139,1,1 |
|---|
| 671 | que_bingo,49,125,0 duplicate(1a#bingo) 15a#bingo 139,1,1 |
|---|
| 672 | que_bingo,49,125,0 duplicate(1a#bingo) 16a#bingo 139,1,1 |
|---|
| 673 | que_bingo,49,125,0 duplicate(1a#bingo) 17a#bingo 139,1,1 |
|---|
| 674 | que_bingo,49,125,0 duplicate(1a#bingo) 18a#bingo 139,1,1 |
|---|
| 675 | que_bingo,49,125,0 duplicate(1a#bingo) 19a#bingo 139,1,1 |
|---|
| 676 | que_bingo,49,125,0 duplicate(1a#bingo) 20a#bingo 139,1,1 |
|---|
| 677 | que_bingo,49,125,0 duplicate(1a#bingo) 21a#bingo 139,1,1 |
|---|
| 678 | que_bingo,49,125,0 duplicate(1a#bingo) 22a#bingo 139,1,1 |
|---|
| 679 | que_bingo,49,125,0 duplicate(1a#bingo) 23a#bingo 139,1,1 |
|---|
| 680 | que_bingo,49,125,0 duplicate(1a#bingo) 24a#bingo 139,1,1 |
|---|
| 681 | que_bingo,49,125,0 duplicate(1a#bingo) 25a#bingo 139,1,1 |
|---|
| 682 | que_bingo,53,121,0 duplicate(1a#bingo) 1b#bingo 139,1,1 |
|---|
| 683 | que_bingo,53,121,0 duplicate(1a#bingo) 2b#bingo 139,1,1 |
|---|
| 684 | que_bingo,53,121,0 duplicate(1a#bingo) 3b#bingo 139,1,1 |
|---|
| 685 | que_bingo,53,121,0 duplicate(1a#bingo) 4b#bingo 139,1,1 |
|---|
| 686 | que_bingo,53,121,0 duplicate(1a#bingo) 5b#bingo 139,1,1 |
|---|
| 687 | que_bingo,53,121,0 duplicate(1a#bingo) 6b#bingo 139,1,1 |
|---|
| 688 | que_bingo,53,121,0 duplicate(1a#bingo) 7b#bingo 139,1,1 |
|---|
| 689 | que_bingo,53,121,0 duplicate(1a#bingo) 8b#bingo 139,1,1 |
|---|
| 690 | que_bingo,53,121,0 duplicate(1a#bingo) 9b#bingo 139,1,1 |
|---|
| 691 | que_bingo,53,121,0 duplicate(1a#bingo) 10b#bingo 139,1,1 |
|---|
| 692 | que_bingo,53,121,0 duplicate(1a#bingo) 11b#bingo 139,1,1 |
|---|
| 693 | que_bingo,53,121,0 duplicate(1a#bingo) 12b#bingo 139,1,1 |
|---|
| 694 | que_bingo,53,121,0 duplicate(1a#bingo) 13b#bingo 139,1,1 |
|---|
| 695 | que_bingo,53,121,0 duplicate(1a#bingo) 14b#bingo 139,1,1 |
|---|
| 696 | que_bingo,53,121,0 duplicate(1a#bingo) 15b#bingo 139,1,1 |
|---|
| 697 | que_bingo,53,121,0 duplicate(1a#bingo) 16b#bingo 139,1,1 |
|---|
| 698 | que_bingo,53,121,0 duplicate(1a#bingo) 17b#bingo 139,1,1 |
|---|
| 699 | que_bingo,53,121,0 duplicate(1a#bingo) 18b#bingo 139,1,1 |
|---|
| 700 | que_bingo,53,121,0 duplicate(1a#bingo) 19b#bingo 139,1,1 |
|---|
| 701 | que_bingo,53,121,0 duplicate(1a#bingo) 20b#bingo 139,1,1 |
|---|
| 702 | que_bingo,53,121,0 duplicate(1a#bingo) 21b#bingo 139,1,1 |
|---|
| 703 | que_bingo,53,121,0 duplicate(1a#bingo) 22b#bingo 139,1,1 |
|---|
| 704 | que_bingo,53,121,0 duplicate(1a#bingo) 23b#bingo 139,1,1 |
|---|
| 705 | que_bingo,53,121,0 duplicate(1a#bingo) 24b#bingo 139,1,1 |
|---|
| 706 | que_bingo,53,121,0 duplicate(1a#bingo) 25b#bingo 139,1,1 |
|---|
| 707 | que_bingo,51,116,0 duplicate(1a#bingo) 1c#bingo 139,1,1 |
|---|
| 708 | que_bingo,51,116,0 duplicate(1a#bingo) 2c#bingo 139,1,1 |
|---|
| 709 | que_bingo,51,116,0 duplicate(1a#bingo) 3c#bingo 139,1,1 |
|---|
| 710 | que_bingo,51,116,0 duplicate(1a#bingo) 4c#bingo 139,1,1 |
|---|
| 711 | que_bingo,51,116,0 duplicate(1a#bingo) 5c#bingo 139,1,1 |
|---|
| 712 | que_bingo,51,116,0 duplicate(1a#bingo) 6c#bingo 139,1,1 |
|---|
| 713 | que_bingo,51,116,0 duplicate(1a#bingo) 7c#bingo 139,1,1 |
|---|
| 714 | que_bingo,51,116,0 duplicate(1a#bingo) 8c#bingo 139,1,1 |
|---|
| 715 | que_bingo,51,116,0 duplicate(1a#bingo) 9c#bingo 139,1,1 |
|---|
| 716 | que_bingo,51,116,0 duplicate(1a#bingo) 10c#bingo 139,1,1 |
|---|
| 717 | que_bingo,51,116,0 duplicate(1a#bingo) 11c#bingo 139,1,1 |
|---|
| 718 | que_bingo,51,116,0 duplicate(1a#bingo) 12c#bingo 139,1,1 |
|---|
| 719 | que_bingo,51,116,0 duplicate(1a#bingo) 13c#bingo 139,1,1 |
|---|
| 720 | que_bingo,51,116,0 duplicate(1a#bingo) 14c#bingo 139,1,1 |
|---|
| 721 | que_bingo,51,116,0 duplicate(1a#bingo) 15c#bingo 139,1,1 |
|---|
| 722 | que_bingo,51,116,0 duplicate(1a#bingo) 16c#bingo 139,1,1 |
|---|
| 723 | que_bingo,51,116,0 duplicate(1a#bingo) 17c#bingo 139,1,1 |
|---|
| 724 | que_bingo,51,116,0 duplicate(1a#bingo) 18c#bingo 139,1,1 |
|---|
| 725 | que_bingo,51,116,0 duplicate(1a#bingo) 19c#bingo 139,1,1 |
|---|
| 726 | que_bingo,51,116,0 duplicate(1a#bingo) 20c#bingo 139,1,1 |
|---|
| 727 | que_bingo,51,116,0 duplicate(1a#bingo) 21c#bingo 139,1,1 |
|---|
| 728 | que_bingo,51,116,0 duplicate(1a#bingo) 22c#bingo 139,1,1 |
|---|
| 729 | que_bingo,51,116,0 duplicate(1a#bingo) 23c#bingo 139,1,1 |
|---|
| 730 | que_bingo,51,116,0 duplicate(1a#bingo) 24c#bingo 139,1,1 |
|---|
| 731 | que_bingo,51,116,0 duplicate(1a#bingo) 25c#bingo 139,1,1 |
|---|
| 732 | que_bingo,46,116,0 duplicate(1a#bingo) 1d#bingo 139,1,1 |
|---|
| 733 | que_bingo,46,116,0 duplicate(1a#bingo) 2d#bingo 139,1,1 |
|---|
| 734 | que_bingo,46,116,0 duplicate(1a#bingo) 3d#bingo 139,1,1 |
|---|
| 735 | que_bingo,46,116,0 duplicate(1a#bingo) 4d#bingo 139,1,1 |
|---|
| 736 | que_bingo,46,116,0 duplicate(1a#bingo) 5d#bingo 139,1,1 |
|---|
| 737 | que_bingo,46,116,0 duplicate(1a#bingo) 6d#bingo 139,1,1 |
|---|
| 738 | que_bingo,46,116,0 duplicate(1a#bingo) 7d#bingo 139,1,1 |
|---|
| 739 | que_bingo,46,116,0 duplicate(1a#bingo) 8d#bingo 139,1,1 |
|---|
| 740 | que_bingo,46,116,0 duplicate(1a#bingo) 9d#bingo 139,1,1 |
|---|
| 741 | que_bingo,46,116,0 duplicate(1a#bingo) 10d#bingo 139,1,1 |
|---|
| 742 | que_bingo,46,116,0 duplicate(1a#bingo) 11d#bingo 139,1,1 |
|---|
| 743 | que_bingo,46,116,0 duplicate(1a#bingo) 12d#bingo 139,1,1 |
|---|
| 744 | que_bingo,46,116,0 duplicate(1a#bingo) 13d#bingo 139,1,1 |
|---|
| 745 | que_bingo,46,116,0 duplicate(1a#bingo) 14d#bingo 139,1,1 |
|---|
| 746 | que_bingo,46,116,0 duplicate(1a#bingo) 15d#bingo 139,1,1 |
|---|
| 747 | que_bingo,46,116,0 duplicate(1a#bingo) 16d#bingo 139,1,1 |
|---|
| 748 | que_bingo,46,116,0 duplicate(1a#bingo) 17d#bingo 139,1,1 |
|---|
| 749 | que_bingo,46,116,0 duplicate(1a#bingo) 18d#bingo 139,1,1 |
|---|
| 750 | que_bingo,46,116,0 duplicate(1a#bingo) 19d#bingo 139,1,1 |
|---|
| 751 | que_bingo,46,116,0 duplicate(1a#bingo) 20d#bingo 139,1,1 |
|---|
| 752 | que_bingo,46,116,0 duplicate(1a#bingo) 21d#bingo 139,1,1 |
|---|
| 753 | que_bingo,46,116,0 duplicate(1a#bingo) 22d#bingo 139,1,1 |
|---|
| 754 | que_bingo,46,116,0 duplicate(1a#bingo) 23d#bingo 139,1,1 |
|---|
| 755 | que_bingo,46,116,0 duplicate(1a#bingo) 24d#bingo 139,1,1 |
|---|
| 756 | que_bingo,46,116,0 duplicate(1a#bingo) 25d#bingo 139,1,1 |
|---|
| 757 | que_bingo,45,121,0 duplicate(1a#bingo) 1e#bingo 139,1,1 |
|---|
| 758 | que_bingo,45,121,0 duplicate(1a#bingo) 2e#bingo 139,1,1 |
|---|
| 759 | que_bingo,45,121,0 duplicate(1a#bingo) 3e#bingo 139,1,1 |
|---|
| 760 | que_bingo,45,121,0 duplicate(1a#bingo) 4e#bingo 139,1,1 |
|---|
| 761 | que_bingo,45,121,0 duplicate(1a#bingo) 5e#bingo 139,1,1 |
|---|
| 762 | que_bingo,45,121,0 duplicate(1a#bingo) 6e#bingo 139,1,1 |
|---|
| 763 | que_bingo,45,121,0 duplicate(1a#bingo) 7e#bingo 139,1,1 |
|---|
| 764 | que_bingo,45,121,0 duplicate(1a#bingo) 8e#bingo 139,1,1 |
|---|
| 765 | que_bingo,45,121,0 duplicate(1a#bingo) 9e#bingo 139,1,1 |
|---|
| 766 | que_bingo,45,121,0 duplicate(1a#bingo) 10e#bingo 139,1,1 |
|---|
| 767 | que_bingo,45,121,0 duplicate(1a#bingo) 11e#bingo 139,1,1 |
|---|
| 768 | que_bingo,45,121,0 duplicate(1a#bingo) 12e#bingo 139,1,1 |
|---|
| 769 | que_bingo,45,121,0 duplicate(1a#bingo) 13e#bingo 139,1,1 |
|---|
| 770 | que_bingo,45,121,0 duplicate(1a#bingo) 14e#bingo 139,1,1 |
|---|
| 771 | que_bingo,45,121,0 duplicate(1a#bingo) 15e#bingo 139,1,1 |
|---|
| 772 | que_bingo,45,121,0 duplicate(1a#bingo) 16e#bingo 139,1,1 |
|---|
| 773 | que_bingo,45,121,0 duplicate(1a#bingo) 17e#bingo 139,1,1 |
|---|
| 774 | que_bingo,45,121,0 duplicate(1a#bingo) 18e#bingo 139,1,1 |
|---|
| 775 | que_bingo,45,121,0 duplicate(1a#bingo) 19e#bingo 139,1,1 |
|---|
| 776 | que_bingo,45,121,0 duplicate(1a#bingo) 20e#bingo 139,1,1 |
|---|
| 777 | que_bingo,45,121,0 duplicate(1a#bingo) 21e#bingo 139,1,1 |
|---|
| 778 | que_bingo,45,121,0 duplicate(1a#bingo) 22e#bingo 139,1,1 |
|---|
| 779 | que_bingo,45,121,0 duplicate(1a#bingo) 23e#bingo 139,1,1 |
|---|
| 780 | que_bingo,45,121,0 duplicate(1a#bingo) 24e#bingo 139,1,1 |
|---|
| 781 | que_bingo,45,121,0 duplicate(1a#bingo) 25e#bingo 139,1,1 |
|---|
| 782 | |
|---|
| 783 | |
|---|
| 784 | que_bingo,79,19,0 script win1a#bingo 139,4,4,{ |
|---|
| 785 | end; |
|---|
| 786 | |
|---|
| 787 | OnWin: |
|---|
| 788 | initnpctimer; |
|---|
| 789 | end; |
|---|
| 790 | |
|---|
| 791 | OnTimer1000: |
|---|
| 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 | |
|---|
| 801 | que_bingo,49,125,0 script win2a#bingo 139,1,1,{ |
|---|
| 802 | end; |
|---|
| 803 | |
|---|
| 804 | OnInit: |
|---|
| 805 | disablenpc "win2a#bingo"; |
|---|
| 806 | disablenpc "win2b#bingo"; |
|---|
| 807 | disablenpc "win2c#bingo"; |
|---|
| 808 | disablenpc "win2d#bingo"; |
|---|
| 809 | disablenpc "win2e#bingo"; |
|---|
| 810 | end; |
|---|
| 811 | |
|---|
| 812 | OnTouch: |
|---|
| 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 | |
|---|
| 821 | OnTimer1000: |
|---|
| 822 | mapannounce "que_bingo","Eukran: Wow, Bingo! It's Bingo!",1,0xFFAB54; |
|---|
| 823 | end; |
|---|
| 824 | |
|---|
| 825 | OnTimer5000: |
|---|
| 826 | mapannounce "que_bingo","Eukran: "+$@bingowinner$+" has said Bingo!",1,0xFFAB54; |
|---|
| 827 | end; |
|---|
| 828 | |
|---|
| 829 | OnTimer10000: |
|---|
| 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 | |
|---|
| 834 | OnTimer15000: |
|---|
| 835 | mapannounce "que_bingo","Eukran: Thank you all for participating in the game. See you next time!",1,0xFFAB54; |
|---|
| 836 | end; |
|---|
| 837 | |
|---|
| 838 | OnTimer20000: |
|---|
| 839 | donpcevent "end#bingo::OnEnd"; |
|---|
| 840 | donpcevent "win2a#bingo::OnInit"; |
|---|
| 841 | end; |
|---|
| 842 | } |
|---|
| 843 | |
|---|
| 844 | que_bingo,53,121,0 duplicate(win2a#bingo) win2b#bingo 139,1,1 |
|---|
| 845 | que_bingo,51,116,0 duplicate(win2a#bingo) win2c#bingo 139,1,1 |
|---|
| 846 | que_bingo,46,116,0 duplicate(win2a#bingo) win2d#bingo 139,1,1 |
|---|
| 847 | que_bingo,45,121,0 duplicate(win2a#bingo) win2e#bingo 139,1,1 |
|---|
| 848 | |
|---|
| 849 | que_bingo,89,59,0 script end#bingo 139,4,4,{ |
|---|
| 850 | end; |
|---|
| 851 | |
|---|
| 852 | OnEnd: |
|---|
| 853 | initnpctimer; |
|---|
| 854 | end; |
|---|
| 855 | |
|---|
| 856 | OnTimer1000: |
|---|
| 857 | enablenpc "end1a#bingo"; |
|---|
| 858 | enablenpc "end1b#bingo"; |
|---|
| 859 | enablenpc "end1c#bingo"; |
|---|
| 860 | enablenpc "end1d#bingo"; |
|---|
| 861 | enablenpc "end1e#bingo"; |
|---|
| 862 | end; |
|---|
| 863 | |
|---|
| 864 | OnTimer5000: |
|---|
| 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 | |
|---|
| 875 | que_bingo,49,125,0 script end1a#bingo 139,1,1,{ |
|---|
| 876 | |
|---|
| 877 | OnInit: |
|---|
| 878 | disablenpc "end1a#bingo"; |
|---|
| 879 | disablenpc "end1b#bingo"; |
|---|
| 880 | disablenpc "end1c#bingo"; |
|---|
| 881 | disablenpc "end1d#bingo"; |
|---|
| 882 | disablenpc "end1e#bingo"; |
|---|
| 883 | end; |
|---|
| 884 | |
|---|
| 885 | OnTouch: |
|---|
| 886 | if(strcharinfo(0) == $@bingowinner$ && hg_ma1 == 6) warp "que_bingo",45,186; |
|---|
| 887 | else warp "que_bingo",40,121; |
|---|
| 888 | end; |
|---|
| 889 | } |
|---|
| 890 | |
|---|
| 891 | que_bingo,53,121,0 duplicate(end1a#bingo) end1b#bingo 139,1,1 |
|---|
| 892 | que_bingo,51,116,0 duplicate(end1a#bingo) end1c#bingo 139,1,1 |
|---|
| 893 | que_bingo,46,116,0 duplicate(end1a#bingo) end1d#bingo 139,1,1 |
|---|
| 894 | que_bingo,45,121,0 duplicate(end1a#bingo) end1e#bingo 139,1,1 |
|---|
| 895 | |
|---|
| 896 | que_bingo,50,138,1 script out3#bingo 139,5,8,{ |
|---|
| 897 | |
|---|
| 898 | OnInit: |
|---|
| 899 | disablenpc "out3#bingo"; |
|---|
| 900 | end; |
|---|
| 901 | |
|---|
| 902 | OnTouch: |
|---|
| 903 | warp "que_bingo",40,121; |
|---|
| 904 | end; |
|---|
| 905 | } |
|---|
| 906 | |
|---|
| 907 | que_bingo,49,136,0 script go3#bingo 45,1,1,{ |
|---|
| 908 | |
|---|
| 909 | OnTouch: |
|---|
| 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 | |
|---|
| 923 | function 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 | |
|---|
| 1030 | function 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 | |
|---|
| 1045 | que_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 | |
|---|
| 1054 | que_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 | |
|---|
| 1064 | que_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 | } |
|---|
