summaryrefslogtreecommitdiff
path: root/npc/other/hugel_bingo.txt
diff options
context:
space:
mode:
authorAndrei Karas <akaras@inbox.ru>2014-10-05 11:34:32 +0300
committerAndrei Karas <akaras@inbox.ru>2019-03-11 21:55:00 +0300
commit2f6d4516113059d9edbe71b085540c9cda92fa03 (patch)
tree4b9a4d9d3ddbff7d478f3f7363f395fd44036ecc /npc/other/hugel_bingo.txt
parentd8215077643025d10527cbab22d6949a59d3258c (diff)
downloadhercules-2f6d4516113059d9edbe71b085540c9cda92fa03.tar.gz
hercules-2f6d4516113059d9edbe71b085540c9cda92fa03.tar.bz2
hercules-2f6d4516113059d9edbe71b085540c9cda92fa03.tar.xz
hercules-2f6d4516113059d9edbe71b085540c9cda92fa03.zip
Remove conf dir.
Diffstat (limited to 'npc/other/hugel_bingo.txt')
-rw-r--r--npc/other/hugel_bingo.txt986
1 files changed, 0 insertions, 986 deletions
diff --git a/npc/other/hugel_bingo.txt b/npc/other/hugel_bingo.txt
deleted file mode 100644
index 9c7b87ee4..000000000
--- a/npc/other/hugel_bingo.txt
+++ /dev/null
@@ -1,986 +0,0 @@
-//================= Hercules Script =======================================
-//= _ _ _
-//= | | | | | |
-//= | |_| | ___ _ __ ___ _ _| | ___ ___
-//= | _ |/ _ \ '__/ __| | | | |/ _ \/ __|
-//= | | | | __/ | | (__| |_| | | __/\__ \
-//= \_| |_/\___|_| \___|\__,_|_|\___||___/
-//================= License ===============================================
-//= This file is part of Hercules.
-//= http://herc.ws - http://github.com/HerculesWS/Hercules
-//=
-//= Copyright (C) 2012-2015 Hercules Dev Team
-//= Copyright (C) Euphy
-//= Copyright (C) Kisuka
-//= Copyright (C) Samuray22
-//= Copyright (C) Yommy
-//= Copyright (C) SinSloth
-//=
-//= Hercules is free software: you can redistribute it and/or modify
-//= it under the terms of the GNU General Public License as published by
-//= the Free Software Foundation, either version 3 of the License, or
-//= (at your option) any later version.
-//=
-//= This program is distributed in the hope that it will be useful,
-//= but WITHOUT ANY WARRANTY; without even the implied warranty of
-//= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-//= GNU General Public License for more details.
-//=
-//= You should have received a copy of the GNU General Public License
-//= along with this program. If not, see <http://www.gnu.org/licenses/>.
-//=========================================================================
-//= Hugel Bingo script
-//================= Description ===========================================
-//= Hugel Bingo game
-//================= Current Version =======================================
-//= 1.9
-//=========================================================================
-
-que_bingo,48,84,5 script Bingo Waiting Room 4_F_TELEPORTER,{
- end;
-
-OnInit:
- waitingroom "Bingo Waiting Room - 5 People",50,"Bingo Waiting Room::OnWarp",5,1000;
- end;
-
-OnWarp:
- warpwaitingpc "que_bingo",46,141;
- donpcevent "start#bingo::OnStart";
- enablenpc "plate1#bingo";
- enablenpc "plate2#bingo";
- enablenpc "plate3#bingo";
- enablenpc "plate4#bingo";
- enablenpc "plate5#bingo";
- disablewaitingroomevent;
- end;
-
-OnStart:
- enablewaitingroomevent;
- end;
-}
-
-que_bingo,49,125,0 script plate1#bingo HIDDEN_WARP_NPC,1,1,{
-
-OnInit:
- disablenpc "plate1#bingo";
- disablenpc "plate2#bingo";
- disablenpc "plate3#bingo";
- disablenpc "plate4#bingo";
- disablenpc "plate5#bingo";
- end;
-
-OnTouch:
- @bingo_a1$ = 0;
- @bingo_a2$ = 0;
- @bingo_a3$ = 0;
- @bingo_a4$ = 0;
- @bingo_a5$ = 0;
- @bingo_b1$ = 0;
- @bingo_b2$ = 0;
- @bingo_b3$ = 0;
- @bingo_b4$ = 0;
- @bingo_b5$ = 0;
- @bingo_c1$ = 0;
- @bingo_c2$ = 0;
- @bingo_c3$ = 0;
- @bingo_c4$ = 0;
- @bingo_c5$ = 0;
- @bingo_d1$ = 0;
- @bingo_d2$ = 0;
- @bingo_d3$ = 0;
- @bingo_d4$ = 0;
- @bingo_d5$ = 0;
- @bingo_e1$ = 0;
- @bingo_e2$ = 0;
- @bingo_e3$ = 0;
- @bingo_e4$ = 0;
- @bingo_e5$ = 0;
- @bingo_case = 1;
- while (true) {
- @bingo_fill = callfunc("Func_Bingo",@bingo_case);
- if (!@bingo_fill) {
- mes "The numbers you have entered";
- mes "exceed the limit, or you have";
- mes "already entered these numbers.";
- mes "Please enter your numbers again.";
- next;
- } else if (@bingo_fill) {
- if(@bingoplate[25] < 10) @bingo_e5$ = "0"+@bingoplate[25]+""; else @bingo_e5$ = @bingoplate[25];
- donpcevent "start#bingo::OnEnter";
- mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
- mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]";
- mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]";
- mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
- mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ["+@bingo_e4$+"] ["+@bingo_e5$+"]";
- close;
- }
- }
-}
-
-que_bingo,53,121,0 duplicate(plate1#bingo) plate2#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(plate1#bingo) plate3#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(plate1#bingo) plate4#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(plate1#bingo) plate5#bingo HIDDEN_WARP_NPC,1,1
-
-que_bingo,51,51,0 script start#bingo HIDDEN_WARP_NPC,{
-
-OnStart:
- initnpctimer;
- end;
-
-OnEnter:
- if ($@hu_bingoa == 4) {
- $@hu_bingoa = 5;
- donpcevent "start2#bingo::OnStart";
- stopnpctimer;
- end;
- }
- ++$@hu_bingoa;
- end;
-
-OnTimer1000:
- mapannounce "que_bingo","Eukran: Hello, everyone! I'm Eukran, your Bingo Guide~",1,0xFFAB54;
- end;
-
-OnTimer6000:
- 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;
- end;
-
-OnTimer11000:
- mapannounce "que_bingo","Eukran: All participants must choose their Bingo Plates within 3 minutes, or the game will be canceled.",1,0xFFAB54;
- end;
-
-OnTimer192000:
- mapannounce "que_bingo","Eukran: Please enter a number in 5 seconds, or the game will be canceled.",1,0xFFAB54;
- end;
-
-OnTimer200000:
- 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;
- end;
-
-OnTimer202000:
- disablenpc "plate1#bingo";
- disablenpc "plate2#bingo";
- disablenpc "plate3#bingo";
- disablenpc "plate4#bingo";
- disablenpc "plate5#bingo";
- end;
-
-OnTimer203000:
- areawarp "que_bingo",44,115,54,126,"que_bingo",40,124;
- enablenpc "out3#bingo";
- end;
-
-OnTimer204000:
- areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
- disablenpc "out3#bingo";
- $@hu_bingoa = 0;
- $@hu_bingob = 0;
- donpcevent "Bingo Waiting Room::OnStart";
- end;
-}
-
-que_bingo,52,52,0 script start2#bingo HIDDEN_WARP_NPC,{
-
-OnStop:
- stopnpctimer;
- end;
-
-OnStart:
- initnpctimer;
- end;
-
-OnTimer2000:
- mapannounce "que_bingo","Eukran: Great, everyone seems to be ready~",1,0xFFAB54;
- disablenpc "plate1#bingo";
- disablenpc "plate2#bingo";
- disablenpc "plate3#bingo";
- disablenpc "plate4#bingo";
- disablenpc "plate5#bingo";
- end;
-
-OnTimer5000:
- mapannounce "que_bingo","Eukran: Now, let the game begin!",1,0xFFAB54;
- 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;
- .@max_index = 24;
- for(.@i = 0; .@i < 25; ++.@i) {
- $@bingo0 = rand(0,.@max_index);
- $bingo[.@i] = $@bingoarray[$@bingo0];
- $@bingoarray[$@bingo0] = $@bingoarray[.@max_index];
- --.@max_index;
- }
- end;
-
-OnTimer8000:
- 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;
- end;
-
-OnTimer10000:
- $@bingoresult = 1;
- callfunc "Func_BingoResult",$@bingoresult;
- end;
-
-OnTimer15000:
-OnTimer25000:
-OnTimer35000:
-OnTimer45000:
-OnTimer55000:
-OnTimer65000:
-OnTimer75000:
-OnTimer85000:
-OnTimer95000:
-OnTimer105000:
-OnTimer115000:
-OnTimer125000:
-OnTimer135000:
-OnTimer145000:
-OnTimer155000:
-OnTimer179000:
-OnTimer199000:
-OnTimer219000:
-OnTimer239000:
-OnTimer259000:
-OnTimer279000:
-OnTimer299000:
-OnTimer319000:
-OnTimer339000:
- donpcevent "1a#bingo::OnInit";
- end;
-
-OnTimer20000:
-OnTimer30000:
-OnTimer40000:
-OnTimer50000:
-OnTimer60000:
-OnTimer70000:
-OnTimer80000:
-OnTimer90000:
-OnTimer100000:
-OnTimer110000:
-OnTimer120000:
-OnTimer130000:
-OnTimer140000:
-OnTimer150000:
-OnTimer160000:
-OnTimer180000:
-OnTimer200000:
-OnTimer220000:
-OnTimer240000:
-OnTimer260000:
-OnTimer280000:
-OnTimer300000:
-OnTimer320000:
-OnTimer340000:
- callfunc "Func_BingoResult",$@bingoresult;
- end;
-
-OnTimer440000:
- mapannounce "que_bingo","Eukran: I've announced all of the selected numbers, but I haven't heard anyone yell ''Bingo.''",1,0xFFAB54;
- end;
-
-OnTimer445000:
- 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;
- end;
-
-OnTimer460000:
- mapannounce "que_bingo","Eukran: I'm sorry, but this game has ended without a winner. Thanks for playing, everyone~",1,0xFFAB54;
- donpcevent "1a#bingo::OnInit";
- areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
- $@hu_bingoa = 0;
- donpcevent "Bingo Waiting Room::OnStart";
- end;
-}
-
-que_bingo,49,125,0 script 1a#bingo HIDDEN_WARP_NPC,1,1,{
- end;
-
-OnInit:
- disablenpc "1a#bingo";
- disablenpc "2a#bingo";
- disablenpc "3a#bingo";
- disablenpc "4a#bingo";
- disablenpc "5a#bingo";
- disablenpc "6a#bingo";
- disablenpc "7a#bingo";
- disablenpc "8a#bingo";
- disablenpc "9a#bingo";
- disablenpc "10a#bingo";
- disablenpc "11a#bingo";
- disablenpc "12a#bingo";
- disablenpc "13a#bingo";
- disablenpc "14a#bingo";
- disablenpc "15a#bingo";
- disablenpc "16a#bingo";
- disablenpc "17a#bingo";
- disablenpc "18a#bingo";
- disablenpc "19a#bingo";
- disablenpc "20a#bingo";
- disablenpc "21a#bingo";
- disablenpc "22a#bingo";
- disablenpc "23a#bingo";
- disablenpc "24a#bingo";
- disablenpc "25a#bingo";
- disablenpc "1b#bingo";
- disablenpc "2b#bingo";
- disablenpc "3b#bingo";
- disablenpc "4b#bingo";
- disablenpc "5b#bingo";
- disablenpc "6b#bingo";
- disablenpc "7b#bingo";
- disablenpc "8b#bingo";
- disablenpc "9b#bingo";
- disablenpc "10b#bingo";
- disablenpc "11b#bingo";
- disablenpc "12b#bingo";
- disablenpc "13b#bingo";
- disablenpc "14b#bingo";
- disablenpc "15b#bingo";
- disablenpc "16b#bingo";
- disablenpc "17b#bingo";
- disablenpc "18b#bingo";
- disablenpc "19b#bingo";
- disablenpc "20b#bingo";
- disablenpc "21b#bingo";
- disablenpc "22b#bingo";
- disablenpc "23b#bingo";
- disablenpc "24b#bingo";
- disablenpc "25b#bingo";
- disablenpc "1c#bingo";
- disablenpc "2c#bingo";
- disablenpc "3c#bingo";
- disablenpc "4c#bingo";
- disablenpc "5c#bingo";
- disablenpc "6c#bingo";
- disablenpc "7c#bingo";
- disablenpc "8c#bingo";
- disablenpc "9c#bingo";
- disablenpc "10c#bingo";
- disablenpc "11c#bingo";
- disablenpc "12c#bingo";
- disablenpc "13c#bingo";
- disablenpc "14c#bingo";
- disablenpc "15c#bingo";
- disablenpc "16c#bingo";
- disablenpc "17c#bingo";
- disablenpc "18c#bingo";
- disablenpc "19c#bingo";
- disablenpc "20c#bingo";
- disablenpc "21c#bingo";
- disablenpc "22c#bingo";
- disablenpc "23c#bingo";
- disablenpc "24c#bingo";
- disablenpc "25c#bingo";
- disablenpc "1d#bingo";
- disablenpc "2d#bingo";
- disablenpc "3d#bingo";
- disablenpc "4d#bingo";
- disablenpc "5d#bingo";
- disablenpc "6d#bingo";
- disablenpc "7d#bingo";
- disablenpc "8d#bingo";
- disablenpc "9d#bingo";
- disablenpc "10d#bingo";
- disablenpc "11d#bingo";
- disablenpc "12d#bingo";
- disablenpc "13d#bingo";
- disablenpc "14d#bingo";
- disablenpc "15d#bingo";
- disablenpc "16d#bingo";
- disablenpc "17d#bingo";
- disablenpc "18d#bingo";
- disablenpc "19d#bingo";
- disablenpc "20d#bingo";
- disablenpc "21d#bingo";
- disablenpc "22d#bingo";
- disablenpc "23d#bingo";
- disablenpc "24d#bingo";
- disablenpc "25d#bingo";
- disablenpc "1e#bingo";
- disablenpc "2e#bingo";
- disablenpc "3e#bingo";
- disablenpc "4e#bingo";
- disablenpc "5e#bingo";
- disablenpc "6e#bingo";
- disablenpc "7e#bingo";
- disablenpc "8e#bingo";
- disablenpc "9e#bingo";
- disablenpc "10e#bingo";
- disablenpc "11e#bingo";
- disablenpc "12e#bingo";
- disablenpc "13e#bingo";
- disablenpc "14e#bingo";
- disablenpc "15e#bingo";
- disablenpc "16e#bingo";
- disablenpc "17e#bingo";
- disablenpc "18e#bingo";
- disablenpc "19e#bingo";
- disablenpc "20e#bingo";
- disablenpc "21e#bingo";
- disablenpc "22e#bingo";
- disablenpc "23e#bingo";
- disablenpc "24e#bingo";
- disablenpc "25e#bingo";
- end;
-
-OnTouch:
- if(@bingoplate[1] == $bingo[$@bingoresult -1]){ @bingo_a1$ = "^ff0000- -^000000"; setarray @bingoplate[1],99; }
- else if(@bingoplate[2] == $bingo[$@bingoresult -1]){ @bingo_a2$ = "^ff0000- -^000000"; setarray @bingoplate[2],99; }
- else if(@bingoplate[3] == $bingo[$@bingoresult -1]){ @bingo_a3$ = "^ff0000- -^000000"; setarray @bingoplate[3],99; }
- else if(@bingoplate[4] == $bingo[$@bingoresult -1]){ @bingo_a4$ = "^ff0000- -^000000"; setarray @bingoplate[4],99; }
- else if(@bingoplate[5] == $bingo[$@bingoresult -1]){ @bingo_a5$ = "^ff0000- -^000000"; setarray @bingoplate[5],99; }
- else if(@bingoplate[6] == $bingo[$@bingoresult -1]){ @bingo_b1$ = "^ff0000- -^000000"; setarray @bingoplate[6],99; }
- else if(@bingoplate[7] == $bingo[$@bingoresult -1]){ @bingo_b2$ = "^ff0000- -^000000"; setarray @bingoplate[7],99; }
- else if(@bingoplate[8] == $bingo[$@bingoresult -1]){ @bingo_b3$ = "^ff0000- -^000000"; setarray @bingoplate[8],99; }
- else if(@bingoplate[9] == $bingo[$@bingoresult -1]){ @bingo_b4$ = "^ff0000- -^000000"; setarray @bingoplate[9],99; }
- else if(@bingoplate[10] == $bingo[$@bingoresult -1]){ @bingo_b5$ = "^ff0000- -^000000"; setarray @bingoplate[10],99; }
- else if(@bingoplate[11] == $bingo[$@bingoresult -1]){ @bingo_c1$ = "^ff0000- -^000000"; setarray @bingoplate[11],99; }
- else if(@bingoplate[12] == $bingo[$@bingoresult -1]){ @bingo_c2$ = "^ff0000- -^000000"; setarray @bingoplate[12],99; }
- else if(@bingoplate[13] == $bingo[$@bingoresult -1]){ @bingo_c3$ = "^ff0000- -^000000"; setarray @bingoplate[13],99; }
- else if(@bingoplate[14] == $bingo[$@bingoresult -1]){ @bingo_c4$ = "^ff0000- -^000000"; setarray @bingoplate[14],99; }
- else if(@bingoplate[15] == $bingo[$@bingoresult -1]){ @bingo_c5$ = "^ff0000- -^000000"; setarray @bingoplate[15],99; }
- else if(@bingoplate[16] == $bingo[$@bingoresult -1]){ @bingo_d1$ = "^ff0000- -^000000"; setarray @bingoplate[16],99; }
- else if(@bingoplate[17] == $bingo[$@bingoresult -1]){ @bingo_d2$ = "^ff0000- -^000000"; setarray @bingoplate[17],99; }
- else if(@bingoplate[18] == $bingo[$@bingoresult -1]){ @bingo_d3$ = "^ff0000- -^000000"; setarray @bingoplate[18],99; }
- else if(@bingoplate[19] == $bingo[$@bingoresult -1]){ @bingo_d4$ = "^ff0000- -^000000"; setarray @bingoplate[19],99; }
- else if(@bingoplate[20] == $bingo[$@bingoresult -1]){ @bingo_d5$ = "^ff0000- -^000000"; setarray @bingoplate[20],99; }
- else if(@bingoplate[21] == $bingo[$@bingoresult -1]){ @bingo_e1$ = "^ff0000- -^000000"; setarray @bingoplate[21],99; }
- else if(@bingoplate[22] == $bingo[$@bingoresult -1]){ @bingo_e2$ = "^ff0000- -^000000"; setarray @bingoplate[22],99; }
- else if(@bingoplate[23] == $bingo[$@bingoresult -1]){ @bingo_e3$ = "^ff0000- -^000000"; setarray @bingoplate[23],99; }
- else if(@bingoplate[24] == $bingo[$@bingoresult -1]){ @bingo_e4$ = "^ff0000- -^000000"; setarray @bingoplate[24],99; }
- else if(@bingoplate[25] == $bingo[$@bingoresult -1]){ @bingo_e5$ = "^ff0000- -^000000"; setarray @bingoplate[25],99; }
- @bingowin = 0;
- if(@bingoplate[1] == @bingoplate[2] && @bingoplate[1] == @bingoplate[3] && @bingoplate[1] == @bingoplate[4] && @bingoplate[1] == @bingoplate[5]) @bingowin = @bingowin +1;
- if(@bingoplate[6] == @bingoplate[7] && @bingoplate[6] == @bingoplate[8] && @bingoplate[6] == @bingoplate[9] && @bingoplate[6] == @bingoplate[10]) @bingowin = @bingowin +1;
- if(@bingoplate[11] == @bingoplate[12] && @bingoplate[11] == @bingoplate[13] && @bingoplate[11] == @bingoplate[14] && @bingoplate[11] == @bingoplate[15]) @bingowin = @bingowin +1;
- if(@bingoplate[16] == @bingoplate[17] && @bingoplate[16] == @bingoplate[18] && @bingoplate[16] == @bingoplate[19] && @bingoplate[16] == @bingoplate[20]) @bingowin = @bingowin +1;
- if(@bingoplate[21] == @bingoplate[22] && @bingoplate[21] == @bingoplate[23] && @bingoplate[21] == @bingoplate[24] && @bingoplate[21] == @bingoplate[25]) @bingowin = @bingowin +1;
- if(@bingoplate[1] == @bingoplate[6] && @bingoplate[1] == @bingoplate[11] && @bingoplate[1] == @bingoplate[16] && @bingoplate[1] == @bingoplate[21]) @bingowin = @bingowin +1;
- if(@bingoplate[2] == @bingoplate[7] && @bingoplate[2] == @bingoplate[12] && @bingoplate[2] == @bingoplate[17] && @bingoplate[2] == @bingoplate[22]) @bingowin = @bingowin +1;
- if(@bingoplate[3] == @bingoplate[8] && @bingoplate[3] == @bingoplate[13] && @bingoplate[3] == @bingoplate[18] && @bingoplate[3] == @bingoplate[23]) @bingowin = @bingowin +1;
- if(@bingoplate[4] == @bingoplate[9] && @bingoplate[4] == @bingoplate[14] && @bingoplate[4] == @bingoplate[19] && @bingoplate[4] == @bingoplate[24]) @bingowin = @bingowin +1;
- if(@bingoplate[5] == @bingoplate[10] && @bingoplate[5] == @bingoplate[15] && @bingoplate[5] == @bingoplate[20] && @bingoplate[5] == @bingoplate[25]) @bingowin = @bingowin +1;
- if(@bingoplate[1] == @bingoplate[7] && @bingoplate[1] == @bingoplate[13] && @bingoplate[1] == @bingoplate[19] && @bingoplate[1] == @bingoplate[25]) @bingowin = @bingowin +1;
- if(@bingoplate[5] == @bingoplate[9] && @bingoplate[5] == @bingoplate[13] && @bingoplate[5] == @bingoplate[17] && @bingoplate[5] == @bingoplate[21]) @bingowin = @bingowin +1;
- if($@bingoresult == 1 || $@bingoresult == 21) mes "[ "+$@bingoresult+"st Number - "+$bingo[$@bingoresult -1]+" ]";
- else if($@bingoresult == 2 || $@bingoresult == 22) mes "[ "+$@bingoresult+"nd Number - "+$bingo[$@bingoresult -1]+" ]";
- else if($@bingoresult == 3 || $@bingoresult == 23) mes "[ "+$@bingoresult+"rd Number - "+$bingo[$@bingoresult -1]+" ]";
- else mes "[ "+$@bingoresult+"th Number - "+$bingo[$@bingoresult -1]+" ]";
- mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
- mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]";
- mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]";
- mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
- mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ["+@bingo_e4$+"] ["+@bingo_e5$+"]";
- mes "[Currently Finished Lines - "+@bingowin+" ]";
- if ($@bingoresult > 15) {
- if (@bingowin > 4) {
- next;
- mes "We just have made 5 lines!";
- mes "Say ^ff0000Bingo^000000!";
- mes "W-we just matched";
- mes "5 numbers in a row!";
- mes "Quickly, say ''^FF0000Bingo^000000!''";
- mes "Remember, you'll only";
- mes "have one chance to say it!";
- input @bingoyell$;
- if (@bingoyell$ == "Bingo") {
- if ($@hu_bingoa == 5) {
- $@hu_bingoa = 6;
- donpcevent "start2#bingo::OnStop";
- $@bingowinner$ = strcharinfo(PC_NAME);
- donpcevent "win1a#bingo::OnWin";
- close;
-
- } else if ($@hu_bingoa == 6) {
- next;
- mes "Oh no! I'm sorry, but";
- mes "someone already yelled";
- mes "''bingo'' before you did.";
- mes "I'm sorry, but you missed";
- mes "your chance! Better luck,";
- mes "next time, alright?";
- close;
- }
- } else {
- next;
- mes "I'm sorry, but you";
- mes "said it wrong. Next time,";
- mes "make sure that you yell";
- mes "out the word, ''^FF0000Bingo^000000,'' okay?";
- close;
- }
- }
- close;
- }
- close;
-}
-
-que_bingo,49,125,0 duplicate(1a#bingo) 2a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 3a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 4a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 5a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 6a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 7a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 8a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 9a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 10a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 11a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 12a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 13a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 14a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 15a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 16a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 17a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 18a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 19a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 20a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 21a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 22a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 23a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 24a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,49,125,0 duplicate(1a#bingo) 25a#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 1b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 2b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 3b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 4b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 5b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 6b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 7b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 8b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 9b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 10b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 11b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 12b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 13b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 14b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 15b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 16b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 17b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 18b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 19b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 20b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 21b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 22b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 23b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 24b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,53,121,0 duplicate(1a#bingo) 25b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 1c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 2c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 3c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 4c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 5c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 6c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 7c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 8c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 9c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 10c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 11c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 12c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 13c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 14c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 15c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 16c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 17c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 18c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 19c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 20c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 21c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 22c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 23c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 24c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(1a#bingo) 25c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 1d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 2d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 3d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 4d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 5d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 6d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 7d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 8d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 9d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 10d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 11d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 12d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 13d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 14d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 15d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 16d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 17d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 18d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 19d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 20d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 21d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 22d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 23d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 24d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(1a#bingo) 25d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 1e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 2e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 3e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 4e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 5e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 6e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 7e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 8e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 9e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 10e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 11e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 12e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 13e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 14e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 15e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 16e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 17e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 18e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 19e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 20e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 21e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 22e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 23e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 24e#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(1a#bingo) 25e#bingo HIDDEN_WARP_NPC,1,1
-
-que_bingo,79,19,0 script win1a#bingo HIDDEN_WARP_NPC,4,4,{
- end;
-
-OnWin:
- initnpctimer;
- end;
-
-OnTimer1000:
- donpcevent "1a#bingo::OnInit";
- enablenpc "win2a#bingo";
- enablenpc "win2b#bingo";
- enablenpc "win2c#bingo";
- enablenpc "win2d#bingo";
- enablenpc "win2e#bingo";
- end;
-}
-
-que_bingo,49,125,0 script win2a#bingo HIDDEN_WARP_NPC,1,1,{
- end;
-
-OnInit:
- disablenpc "win2a#bingo";
- disablenpc "win2b#bingo";
- disablenpc "win2c#bingo";
- disablenpc "win2d#bingo";
- disablenpc "win2e#bingo";
- end;
-
-OnTouch:
- if ($@bingowinner$ != strcharinfo(PC_NAME)) end;
- specialeffect EF_SUI_EXPLOSION;
- soundeffect "tming_success.wav",1;
- if ($@bingoresult == 16) getitem 7515,50;
- else getitem 7515,1;
- initnpctimer;
- end;
-
-OnTimer1000:
- mapannounce "que_bingo","Eukran: Wow, Bingo! It's Bingo!",1,0xFFAB54;
- end;
-
-OnTimer5000:
- mapannounce "que_bingo","Eukran: "+$@bingowinner$+" has said Bingo!",1,0xFFAB54;
- end;
-
-OnTimer10000:
- if ($@bingoresult == 16)
- mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 50 Marvelous Medals.",1,0xFFAB54;
- else
- mapannounce "que_bingo","Eukran: Congratulations, "+$@bingowinner$+"! You will be rewarded with 1 Marvelous Medal.",1,0xFFAB54;
- end;
-
-OnTimer15000:
- mapannounce "que_bingo","Eukran: Thank you all for participating in the game. See you next time!",1,0xFFAB54;
- end;
-
-OnTimer20000:
- donpcevent "end#bingo::OnEnd";
- donpcevent "win2a#bingo::OnInit";
- end;
-}
-
-que_bingo,53,121,0 duplicate(win2a#bingo) win2b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(win2a#bingo) win2c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(win2a#bingo) win2d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(win2a#bingo) win2e#bingo HIDDEN_WARP_NPC,1,1
-
-que_bingo,89,59,0 script end#bingo HIDDEN_WARP_NPC,4,4,{
- end;
-
-OnEnd:
- initnpctimer;
- end;
-
-OnTimer1000:
- enablenpc "end1a#bingo";
- enablenpc "end1b#bingo";
- enablenpc "end1c#bingo";
- enablenpc "end1d#bingo";
- enablenpc "end1e#bingo";
- end;
-
-OnTimer5000:
- disablenpc "end1a#bingo";
- disablenpc "end1b#bingo";
- disablenpc "end1c#bingo";
- disablenpc "end1d#bingo";
- disablenpc "end1e#bingo";
- areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
- $@hu_bingoa = 0;
- donpcevent "Bingo Waiting Room::OnStart";
- end;
-}
-
-que_bingo,49,125,0 script end1a#bingo HIDDEN_WARP_NPC,1,1,{
-
-OnInit:
- disablenpc "end1a#bingo";
- disablenpc "end1b#bingo";
- disablenpc "end1c#bingo";
- disablenpc "end1d#bingo";
- disablenpc "end1e#bingo";
- end;
-
-OnTouch:
- if(hg_ma1 == 6) warp "que_bingo",45,186;
- else warp "que_bingo",40,121;
- end;
-}
-
-que_bingo,53,121,0 duplicate(end1a#bingo) end1b#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,51,116,0 duplicate(end1a#bingo) end1c#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,46,116,0 duplicate(end1a#bingo) end1d#bingo HIDDEN_WARP_NPC,1,1
-que_bingo,45,121,0 duplicate(end1a#bingo) end1e#bingo HIDDEN_WARP_NPC,1,1
-
-que_bingo,50,138,1 script out3#bingo HIDDEN_WARP_NPC,5,8,{
-
-OnInit:
- disablenpc "out3#bingo";
- end;
-
-OnTouch:
- warp "que_bingo",40,121;
- end;
-}
-
-que_bingo,49,136,0 script go3#bingo WARPNPC,1,1,{
-
-OnTouch:
- switch($@hu_bingob) {
- case 0: warp "que_bingo",49,125; break;
- case 1: warp "que_bingo",53,121; break;
- case 2: warp "que_bingo",51,116; break;
- case 3: warp "que_bingo",46,116; break;
- case 4: warp "que_bingo",45,121; break;
- }
- $@hu_bingob = $@hu_bingob +1;
- if ($@hu_bingob == 5) $@hu_bingob = 0;
- end;
-}
-
-function script Func_Bingo {
- for(.@i = getarg(0); .@i < 26; ++.@i) {
- if(@bingoplate[1] < 10) @bingo_a1$ = "0"+@bingoplate[1]+""; else @bingo_a1$ = @bingoplate[1];
- if(@bingoplate[2] < 10) @bingo_a2$ = "0"+@bingoplate[2]+""; else @bingo_a2$ = @bingoplate[2];
- if(@bingoplate[3] < 10) @bingo_a3$ = "0"+@bingoplate[3]+""; else @bingo_a3$ = @bingoplate[3];
- if(@bingoplate[4] < 10) @bingo_a4$ = "0"+@bingoplate[4]+""; else @bingo_a4$ = @bingoplate[4];
- if(@bingoplate[5] < 10) @bingo_a5$ = "0"+@bingoplate[5]+""; else @bingo_a5$ = @bingoplate[5];
- if(.@i > 5) mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]";
- else {
- switch(.@i) {
- case 1: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
- case 2: mes "["+@bingo_a1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
- case 3: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
- case 4: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ^ff0000[__]^000000 [ ]"; break;
- case 5: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ^ff0000[__]^000000"; break;
- }
- }
- if(@bingoplate[6] < 10) @bingo_b1$ = "0"+@bingoplate[6]+""; else @bingo_b1$ = @bingoplate[6];
- if(@bingoplate[7] < 10) @bingo_b2$ = "0"+@bingoplate[7]+""; else @bingo_b2$ = @bingoplate[7];
- if(@bingoplate[8] < 10) @bingo_b3$ = "0"+@bingoplate[8]+""; else @bingo_b3$ = @bingoplate[8];
- if(@bingoplate[9] < 10) @bingo_b4$ = "0"+@bingoplate[9]+""; else @bingo_b4$ = @bingoplate[9];
- if(@bingoplate[10] < 10) @bingo_b5$ = "0"+@bingoplate[10]+""; else @bingo_b5$ = @bingoplate[10];
- if(.@i > 10) mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]";
- else if(.@i < 6) mes "[ ] [ ] [ ] [ ] [ ]";
- else {
- switch(.@i) {
- case 6: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
- case 7: mes "["+@bingo_b1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
- case 8: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
- case 9: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ^ff0000[__]^000000 [ ]"; break;
- case 10: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ^ff0000[__]^000000"; break;
- }
- }
- if(@bingoplate[11] < 10) @bingo_c1$ = "0"+@bingoplate[11]+""; else @bingo_c1$ = @bingoplate[11];
- if(@bingoplate[12] < 10) @bingo_c2$ = "0"+@bingoplate[12]+""; else @bingo_c2$ = @bingoplate[12];
- if(@bingoplate[13] < 10) @bingo_c3$ = "0"+@bingoplate[13]+""; else @bingo_c3$ = @bingoplate[13];
- if(@bingoplate[14] < 10) @bingo_c4$ = "0"+@bingoplate[14]+""; else @bingo_c4$ = @bingoplate[14];
- if(@bingoplate[15] < 10) @bingo_c5$ = "0"+@bingoplate[15]+""; else @bingo_c5$ = @bingoplate[15];
- if(.@i > 15) mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]";
- else if(.@i < 11) mes "[ ] [ ] [ ] [ ] [ ]";
- else {
- switch(.@i) {
- case 11: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
- case 12: mes "["+@bingo_c1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
- case 13: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
- case 14: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ^ff0000[__]^000000 [ ]"; break;
- case 15: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ^ff0000[__]^000000"; break;
- }
- }
- if(@bingoplate[16] < 10) @bingo_d1$ = "0"+@bingoplate[16]+""; else @bingo_d1$ = @bingoplate[16];
- if(@bingoplate[17] < 10) @bingo_d2$ = "0"+@bingoplate[17]+""; else @bingo_d2$ = @bingoplate[17];
- if(@bingoplate[18] < 10) @bingo_d3$ = "0"+@bingoplate[18]+""; else @bingo_d3$ = @bingoplate[18];
- if(@bingoplate[19] < 10) @bingo_d4$ = "0"+@bingoplate[19]+""; else @bingo_d4$ = @bingoplate[19];
- if(@bingoplate[20] < 10) @bingo_d5$ = "0"+@bingoplate[20]+""; else @bingo_d5$ = @bingoplate[20];
- if(.@i > 20) mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]";
- else if(.@i < 16) mes "[ ] [ ] [ ] [ ] [ ]";
- else {
- switch(.@i) {
- case 16: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
- case 17: mes "["+@bingo_d1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
- case 18: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
- case 19: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ^ff0000[__]^000000 [ ]"; break;
- case 20: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ^ff0000[__]^000000"; break;
- }
- }
- if(@bingoplate[21] < 10) @bingo_e1$ = "0"+@bingoplate[21]+""; else @bingo_e1$ = @bingoplate[21];
- if(@bingoplate[22] < 10) @bingo_e2$ = "0"+@bingoplate[22]+""; else @bingo_e2$ = @bingoplate[22];
- if(@bingoplate[23] < 10) @bingo_e3$ = "0"+@bingoplate[23]+""; else @bingo_e3$ = @bingoplate[23];
- if(@bingoplate[24] < 10) @bingo_e4$ = "0"+@bingoplate[24]+""; else @bingo_e4$ = @bingoplate[24];
- if(.@i < 21) mes "[ ] [ ] [ ] [ ] [ ]";
- else {
- switch(.@i) {
- case 21: mes "^ff0000[__]^000000 [ ] [ ] [ ] [ ]"; break;
- case 22: mes "["+@bingo_e1$+"] ^ff0000[__]^000000 [ ] [ ] [ ]"; break;
- case 23: mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ^ff0000[__]^000000 [ ] [ ]"; break;
- case 24: mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ^ff0000[__]^000000 [ ]"; break;
- case 25: mes "["+@bingo_e1$+"] ["+@bingo_e2$+"] ["+@bingo_e3$+"] ["+@bingo_e4$+"] ^ff0000[__]^000000"; break;
- }
- }
- next;
- input .@bingoinput;
- if(.@bingoinput < 1 || .@bingoinput > 25) { @bingo_case = .@i; return 0; }
- if(.@i > 1) {
- for(.@j = .@i; .@j > 0; --.@j) {
- if(.@bingoinput == @bingoplate[.@j -1]) { @bingo_case = .@i; return 0; }
- }
- }
- setarray @bingoplate[.@i],.@bingoinput;
- }
- return 1;
-}
-
-function script Func_BingoResult {
- if (getarg(0) == 1 || getarg(0) == 21) .@str$ = "st";
- else if (getarg(0) == 2 || getarg(0) == 22) .@str$ = "nd";
- else if (getarg(0) == 3 || getarg(0) == 23) .@str$ = "rd";
- else .@str$ = "th";
- mapannounce "que_bingo","Eukran: The "+getarg(0)+.@str$+" number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54;
- enablenpc ""+getarg(0)+"a#bingo";
- enablenpc ""+getarg(0)+"b#bingo";
- enablenpc ""+getarg(0)+"c#bingo";
- enablenpc ""+getarg(0)+"d#bingo";
- enablenpc ""+getarg(0)+"e#bingo";
- set getarg(0),getarg(0) +1;
- end;
-}
-
-que_bingo,49,31,4 script Arcade Helper#1 1_M_01,{
- mes "[Helper]";
- mes "If you'd like to play";
- mes "a game of bingo, then";
- mes "please proceed this way.";
- close;
-}
-que_bingo,42,31,4 duplicate(Arcade Helper#1) Arcade Helper#2 1_F_01
-
-que_bingo,54,17,5 script Arcade Owner 4_M_05,{
- mes "[Arcade Owner]";
- mes "Welcome to the";
- mes "Bingo Game Arcade.";
- mes "Care to play a game of";
- mes "bingo? If you have any";
- mes "questions, feel free to ask.";
- next;
- switch(select("Rules for Bingo", "Bingo Room", "Marvelous Medals")) {
- case 1:
- mes "[Arcade Owner]";
- mes "The rules for playing bingo";
- mes "are simple. First, take a board";
- mes "with 25 boxes organized so that";
- mes "there are five rows and five";
- mes "columns. Then, number the";
- mes "boxes in any order you like.";
- next;
- mes "[Arcade Owner]";
- mes "Of course, you must use";
- mes "the numbers 1 through 25.";
- mes "When everyone's bingo board";
- mes "is ready, the game will begin.";
- mes "Our game coordinator will call out a number from 1 to 25 at random.";
- next;
- mes "[Arcade Owner]";
- mes "Each time the coordinator";
- mes "calls out a number, make sure";
- mes "that you mark the corresponding";
- mes "numbered square on your bingo";
- mes "board. Now, these are the";
- mes "conditions for winning...";
- next;
- mes "[Arcade Owner]";
- mes "If you can make a line of";
- mes "5 squares in a row, horizontally, vertically, or diagonally, using";
- mes "the numbers called out by the";
- mes "coordinator, you quickly yell";
- mes "the word, ''Bingo.''";
- next;
- mes "[Arcade Owner]";
- mes "If you are the first to yell";
- mes "the word, ''Bingo,'' you'll";
- mes "win! But if someone beats you";
- mes "to it, then it can't be helped.";
- mes "Anyway, it costs 1,000 zeny";
- mes "to play each bingo game~";
- close;
- case 2:
- mes "[Arcade Owner]";
- mes "Ah, if you want to join a";
- mes "bingo game, enter the right";
- mes "door. There must be at least";
- mes "5 people to play a game, so";
- mes "you may need to wait until";
- mes "that requirement is fulfilled.";
- next;
- mes "[Arcade Owner]";
- mes "If you just want to";
- mes "watch the bingo game,";
- mes "then you may enter the";
- mes "left door as a spectator";
- mes "in the Bingo Room.";
- close;
- case 3:
- mes "[Arcade Owner]";
- mes "When you win a bingo";
- mes "game, you will be rewarded";
- mes "with ''Marvelous Medals,''";
- mes "which can only be used within";
- mes "this arcade. You also can't trade medals with other players.";
- next;
- mes "[Arcade Owner]";
- mes "You usually get 1 Marvelous";
- mes "Medal for winning a bingo game,";
- mes "but you can win 50 at one time";
- mes "under special conditions. You";
- mes "can also play Monster Racing";
- mes "games to win more medals.";
- next;
- mes "[Arcade Owner]";
- mes "Collect as many Marvelous";
- mes "Medals as you can, and trade";
- mes "them for products in the Monster Racing Arena. I hear there's also";
- mes "a place in Einbroch where you can use them, but I wouldn't know.";
- close;
- }
-}