summaryrefslogtreecommitdiff
path: root/npc/other/hugel_bingo.txt
diff options
context:
space:
mode:
authorshennetsind <ind@henn.et>2014-11-03 08:15:05 -0200
committershennetsind <ind@henn.et>2014-11-03 08:15:05 -0200
commitbee4c9d36f4a27e39cc76dc5d6c5f876ed44a678 (patch)
tree79f9aec5171e8aed2d701bf67167f260e05f41db /npc/other/hugel_bingo.txt
parent239d480487e24294975f35ed55f210837ad1088e (diff)
parentce3f4bfbe016ea69c855146667ba9bd9e0e2e221 (diff)
downloadhercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.tar.gz
hercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.tar.bz2
hercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.tar.xz
hercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.zip
Merge branch 'master' of github.com:HerculesWS/Hercules
Signed-off-by: shennetsind <ind@henn.et> Conflicts: src/map/battle.c
Diffstat (limited to 'npc/other/hugel_bingo.txt')
-rw-r--r--npc/other/hugel_bingo.txt230
1 files changed, 115 insertions, 115 deletions
diff --git a/npc/other/hugel_bingo.txt b/npc/other/hugel_bingo.txt
index 2b1e8f410..15b87b117 100644
--- a/npc/other/hugel_bingo.txt
+++ b/npc/other/hugel_bingo.txt
@@ -54,34 +54,34 @@ OnInit:
end;
OnTouch:
- set @bingo_a1$,0;
- set @bingo_a2$,0;
- set @bingo_a3$,0;
- set @bingo_a4$,0;
- set @bingo_a5$,0;
- set @bingo_b1$,0;
- set @bingo_b2$,0;
- set @bingo_b3$,0;
- set @bingo_b4$,0;
- set @bingo_b5$,0;
- set @bingo_c1$,0;
- set @bingo_c2$,0;
- set @bingo_c3$,0;
- set @bingo_c4$,0;
- set @bingo_c5$,0;
- set @bingo_d1$,0;
- set @bingo_d2$,0;
- set @bingo_d3$,0;
- set @bingo_d4$,0;
- set @bingo_d5$,0;
- set @bingo_e1$,0;
- set @bingo_e2$,0;
- set @bingo_e3$,0;
- set @bingo_e4$,0;
- set @bingo_e5$,0;
- set @bingo_case,1;
+ @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;
L_Fill:
- set @bingo_fill,callfunc("Func_Bingo",@bingo_case);
+ @bingo_fill = callfunc("Func_Bingo",@bingo_case);
if (!@bingo_fill) {
mes "The numbers you have entered";
mes "exceed the limit, or you have";
@@ -89,7 +89,7 @@ L_Fill:
mes "Please enter your numbers again.";
next;
} else if (@bingo_fill) {
- if(@bingoplate[25] < 10) set @bingo_e5$,"0"+@bingoplate[25]+""; else set @bingo_e5$,@bingoplate[25];
+ 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$+"]";
@@ -115,12 +115,12 @@ OnStart:
OnEnter:
if ($@hu_bingoa == 4) {
- set $@hu_bingoa,5;
+ $@hu_bingoa = 5;
donpcevent "start2#bingo::OnStart";
stopnpctimer;
end;
}
- set $@hu_bingoa,$@hu_bingoa +1;
+ ++$@hu_bingoa;
end;
OnTimer1000:
@@ -159,8 +159,8 @@ OnTimer203000:
OnTimer204000:
areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
disablenpc "out3#bingo";
- set $@hu_bingoa,0;
- set $@hu_bingob,0;
+ $@hu_bingoa = 0;
+ $@hu_bingob = 0;
donpcevent "Bingo Waiting Room::OnStart";
end;
}
@@ -187,12 +187,12 @@ OnTimer2000:
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;
- set .@max_index, 24;
- for(set .@i,0; .@i < 25; set .@i,.@i +1) {
- set $@bingo0,rand(0,.@max_index);
- set $bingo[.@i],$@bingoarray[$@bingo0];
- set $@bingoarray[$@bingo0], $@bingoarray[.@max_index];
- set .@max_index, .@max_index - 1;
+ .@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;
@@ -201,7 +201,7 @@ OnTimer8000:
end;
OnTimer10000:
- set $@bingoresult,1;
+ $@bingoresult = 1;
callfunc "Func_BingoResult",$@bingoresult;
end;
@@ -271,7 +271,7 @@ 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;
- set $@hu_bingoa,0;
+ $@hu_bingoa = 0;
donpcevent "Bingo Waiting Room::OnStart";
end;
}
@@ -408,44 +408,44 @@ OnInit:
end;
OnTouch:
- if(@bingoplate[1] == $bingo[$@bingoresult -1]){ set @bingo_a1$,"^ff0000- -^000000"; setarray @bingoplate[1],99; }
- else if(@bingoplate[2] == $bingo[$@bingoresult -1]){ set @bingo_a2$,"^ff0000- -^000000"; setarray @bingoplate[2],99; }
- else if(@bingoplate[3] == $bingo[$@bingoresult -1]){ set @bingo_a3$,"^ff0000- -^000000"; setarray @bingoplate[3],99; }
- else if(@bingoplate[4] == $bingo[$@bingoresult -1]){ set @bingo_a4$,"^ff0000- -^000000"; setarray @bingoplate[4],99; }
- else if(@bingoplate[5] == $bingo[$@bingoresult -1]){ set @bingo_a5$,"^ff0000- -^000000"; setarray @bingoplate[5],99; }
- else if(@bingoplate[6] == $bingo[$@bingoresult -1]){ set @bingo_b1$,"^ff0000- -^000000"; setarray @bingoplate[6],99; }
- else if(@bingoplate[7] == $bingo[$@bingoresult -1]){ set @bingo_b2$,"^ff0000- -^000000"; setarray @bingoplate[7],99; }
- else if(@bingoplate[8] == $bingo[$@bingoresult -1]){ set @bingo_b3$,"^ff0000- -^000000"; setarray @bingoplate[8],99; }
- else if(@bingoplate[9] == $bingo[$@bingoresult -1]){ set @bingo_b4$,"^ff0000- -^000000"; setarray @bingoplate[9],99; }
- else if(@bingoplate[10] == $bingo[$@bingoresult -1]){ set @bingo_b5$,"^ff0000- -^000000"; setarray @bingoplate[10],99; }
- else if(@bingoplate[11] == $bingo[$@bingoresult -1]){ set @bingo_c1$,"^ff0000- -^000000"; setarray @bingoplate[11],99; }
- else if(@bingoplate[12] == $bingo[$@bingoresult -1]){ set @bingo_c2$,"^ff0000- -^000000"; setarray @bingoplate[12],99; }
- else if(@bingoplate[13] == $bingo[$@bingoresult -1]){ set @bingo_c3$,"^ff0000- -^000000"; setarray @bingoplate[13],99; }
- else if(@bingoplate[14] == $bingo[$@bingoresult -1]){ set @bingo_c4$,"^ff0000- -^000000"; setarray @bingoplate[14],99; }
- else if(@bingoplate[15] == $bingo[$@bingoresult -1]){ set @bingo_c5$,"^ff0000- -^000000"; setarray @bingoplate[15],99; }
- else if(@bingoplate[16] == $bingo[$@bingoresult -1]){ set @bingo_d1$,"^ff0000- -^000000"; setarray @bingoplate[16],99; }
- else if(@bingoplate[17] == $bingo[$@bingoresult -1]){ set @bingo_d2$,"^ff0000- -^000000"; setarray @bingoplate[17],99; }
- else if(@bingoplate[18] == $bingo[$@bingoresult -1]){ set @bingo_d3$,"^ff0000- -^000000"; setarray @bingoplate[18],99; }
- else if(@bingoplate[19] == $bingo[$@bingoresult -1]){ set @bingo_d4$,"^ff0000- -^000000"; setarray @bingoplate[19],99; }
- else if(@bingoplate[20] == $bingo[$@bingoresult -1]){ set @bingo_d5$,"^ff0000- -^000000"; setarray @bingoplate[20],99; }
- else if(@bingoplate[21] == $bingo[$@bingoresult -1]){ set @bingo_e1$,"^ff0000- -^000000"; setarray @bingoplate[21],99; }
- else if(@bingoplate[22] == $bingo[$@bingoresult -1]){ set @bingo_e2$,"^ff0000- -^000000"; setarray @bingoplate[22],99; }
- else if(@bingoplate[23] == $bingo[$@bingoresult -1]){ set @bingo_e3$,"^ff0000- -^000000"; setarray @bingoplate[23],99; }
- else if(@bingoplate[24] == $bingo[$@bingoresult -1]){ set @bingo_e4$,"^ff0000- -^000000"; setarray @bingoplate[24],99; }
- else if(@bingoplate[25] == $bingo[$@bingoresult -1]){ set @bingo_e5$,"^ff0000- -^000000"; setarray @bingoplate[25],99; }
- set @bingowin,0;
- if(@bingoplate[1] == @bingoplate[2] && @bingoplate[1] == @bingoplate[3] && @bingoplate[1] == @bingoplate[4] && @bingoplate[1] == @bingoplate[5]) set @bingowin,@bingowin +1;
- if(@bingoplate[6] == @bingoplate[7] && @bingoplate[6] == @bingoplate[8] && @bingoplate[6] == @bingoplate[9] && @bingoplate[6] == @bingoplate[10]) set @bingowin,@bingowin +1;
- if(@bingoplate[11] == @bingoplate[12] && @bingoplate[11] == @bingoplate[13] && @bingoplate[11] == @bingoplate[14] && @bingoplate[11] == @bingoplate[15]) set @bingowin,@bingowin +1;
- if(@bingoplate[16] == @bingoplate[17] && @bingoplate[16] == @bingoplate[18] && @bingoplate[16] == @bingoplate[19] && @bingoplate[16] == @bingoplate[20]) set @bingowin,@bingowin +1;
- if(@bingoplate[21] == @bingoplate[22] && @bingoplate[21] == @bingoplate[23] && @bingoplate[21] == @bingoplate[24] && @bingoplate[21] == @bingoplate[25]) set @bingowin,@bingowin +1;
- if(@bingoplate[1] == @bingoplate[6] && @bingoplate[1] == @bingoplate[11] && @bingoplate[1] == @bingoplate[16] && @bingoplate[1] == @bingoplate[21]) set @bingowin,@bingowin +1;
- if(@bingoplate[2] == @bingoplate[7] && @bingoplate[2] == @bingoplate[12] && @bingoplate[2] == @bingoplate[17] && @bingoplate[2] == @bingoplate[22]) set @bingowin,@bingowin +1;
- if(@bingoplate[3] == @bingoplate[8] && @bingoplate[3] == @bingoplate[13] && @bingoplate[3] == @bingoplate[18] && @bingoplate[3] == @bingoplate[23]) set @bingowin,@bingowin +1;
- if(@bingoplate[4] == @bingoplate[9] && @bingoplate[4] == @bingoplate[14] && @bingoplate[4] == @bingoplate[19] && @bingoplate[4] == @bingoplate[24]) set @bingowin,@bingowin +1;
- if(@bingoplate[5] == @bingoplate[10] && @bingoplate[5] == @bingoplate[15] && @bingoplate[5] == @bingoplate[20] && @bingoplate[5] == @bingoplate[25]) set @bingowin,@bingowin +1;
- if(@bingoplate[1] == @bingoplate[7] && @bingoplate[1] == @bingoplate[13] && @bingoplate[1] == @bingoplate[19] && @bingoplate[1] == @bingoplate[25]) set @bingowin,@bingowin +1;
- if(@bingoplate[5] == @bingoplate[9] && @bingoplate[5] == @bingoplate[13] && @bingoplate[5] == @bingoplate[17] && @bingoplate[5] == @bingoplate[21]) set @bingowin,@bingowin +1;
+ 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]+" ]";
@@ -469,9 +469,9 @@ OnTouch:
input @bingoyell$;
if (@bingoyell$ == "Bingo") {
if ($@hu_bingoa == 5) {
- set $@hu_bingoa,6;
+ $@hu_bingoa = 6;
donpcevent "start2#bingo::OnStop";
- set $@bingowinner$,strcharinfo(0);
+ $@bingowinner$ = strcharinfo(0);
donpcevent "win1a#bingo::OnWin";
close;
@@ -713,7 +713,7 @@ OnTimer5000:
disablenpc "end1d#bingo";
disablenpc "end1e#bingo";
areawarp "que_bingo",44,115,54,126,"que_bingo",40,121;
- set $@hu_bingoa,0;
+ $@hu_bingoa = 0;
donpcevent "Bingo Waiting Room::OnStart";
end;
}
@@ -760,18 +760,18 @@ OnTouch:
case 3: warp "que_bingo",46,116; break;
case 4: warp "que_bingo",45,121; break;
}
- set $@hu_bingob,$@hu_bingob +1;
- if ($@hu_bingob == 5) set $@hu_bingob,0;
+ $@hu_bingob = $@hu_bingob +1;
+ if ($@hu_bingob == 5) $@hu_bingob = 0;
end;
}
function script Func_Bingo {
- for(set .@i,getarg(0); .@i < 26; set .@i,.@i +1) {
- if(@bingoplate[1] < 10) set @bingo_a1$,"0"+@bingoplate[1]+""; else set @bingo_a1$,@bingoplate[1];
- if(@bingoplate[2] < 10) set @bingo_a2$,"0"+@bingoplate[2]+""; else set @bingo_a2$,@bingoplate[2];
- if(@bingoplate[3] < 10) set @bingo_a3$,"0"+@bingoplate[3]+""; else set @bingo_a3$,@bingoplate[3];
- if(@bingoplate[4] < 10) set @bingo_a4$,"0"+@bingoplate[4]+""; else set @bingo_a4$,@bingoplate[4];
- if(@bingoplate[5] < 10) set @bingo_a5$,"0"+@bingoplate[5]+""; else set @bingo_a5$,@bingoplate[5];
+ 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) {
@@ -782,11 +782,11 @@ function script Func_Bingo {
case 5: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ^ff0000[__]^000000"; break;
}
}
- if(@bingoplate[6] < 10) set @bingo_b1$,"0"+@bingoplate[6]+""; else set @bingo_b1$,@bingoplate[6];
- if(@bingoplate[7] < 10) set @bingo_b2$,"0"+@bingoplate[7]+""; else set @bingo_b2$,@bingoplate[7];
- if(@bingoplate[8] < 10) set @bingo_b3$,"0"+@bingoplate[8]+""; else set @bingo_b3$,@bingoplate[8];
- if(@bingoplate[9] < 10) set @bingo_b4$,"0"+@bingoplate[9]+""; else set @bingo_b4$,@bingoplate[9];
- if(@bingoplate[10] < 10) set @bingo_b5$,"0"+@bingoplate[10]+""; else set @bingo_b5$,@bingoplate[10];
+ 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 {
@@ -798,11 +798,11 @@ function script Func_Bingo {
case 10: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ^ff0000[__]^000000"; break;
}
}
- if(@bingoplate[11] < 10) set @bingo_c1$,"0"+@bingoplate[11]+""; else set @bingo_c1$,@bingoplate[11];
- if(@bingoplate[12] < 10) set @bingo_c2$,"0"+@bingoplate[12]+""; else set @bingo_c2$,@bingoplate[12];
- if(@bingoplate[13] < 10) set @bingo_c3$,"0"+@bingoplate[13]+""; else set @bingo_c3$,@bingoplate[13];
- if(@bingoplate[14] < 10) set @bingo_c4$,"0"+@bingoplate[14]+""; else set @bingo_c4$,@bingoplate[14];
- if(@bingoplate[15] < 10) set @bingo_c5$,"0"+@bingoplate[15]+""; else set @bingo_c5$,@bingoplate[15];
+ 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 {
@@ -814,11 +814,11 @@ function script Func_Bingo {
case 15: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ^ff0000[__]^000000"; break;
}
}
- if(@bingoplate[16] < 10) set @bingo_d1$,"0"+@bingoplate[16]+""; else set @bingo_d1$,@bingoplate[16];
- if(@bingoplate[17] < 10) set @bingo_d2$,"0"+@bingoplate[17]+""; else set @bingo_d2$,@bingoplate[17];
- if(@bingoplate[18] < 10) set @bingo_d3$,"0"+@bingoplate[18]+""; else set @bingo_d3$,@bingoplate[18];
- if(@bingoplate[19] < 10) set @bingo_d4$,"0"+@bingoplate[19]+""; else set @bingo_d4$,@bingoplate[19];
- if(@bingoplate[20] < 10) set @bingo_d5$,"0"+@bingoplate[20]+""; else set @bingo_d5$,@bingoplate[20];
+ 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 {
@@ -830,10 +830,10 @@ function script Func_Bingo {
case 20: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ^ff0000[__]^000000"; break;
}
}
- if(@bingoplate[21] < 10) set @bingo_e1$,"0"+@bingoplate[21]+""; else set @bingo_e1$,@bingoplate[21];
- if(@bingoplate[22] < 10) set @bingo_e2$,"0"+@bingoplate[22]+""; else set @bingo_e2$,@bingoplate[22];
- if(@bingoplate[23] < 10) set @bingo_e3$,"0"+@bingoplate[23]+""; else set @bingo_e3$,@bingoplate[23];
- if(@bingoplate[24] < 10) set @bingo_e4$,"0"+@bingoplate[24]+""; else set @bingo_e4$,@bingoplate[24];
+ 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) {
@@ -846,10 +846,10 @@ function script Func_Bingo {
}
next;
input .@bingoinput;
- if(.@bingoinput < 1 || .@bingoinput > 25) { set @bingo_case,.@i; return 0; }
+ if(.@bingoinput < 1 || .@bingoinput > 25) { @bingo_case = .@i; return 0; }
if(.@i > 1) {
- for(set .@j,.@i; .@j > 0; set .@j,.@j -1) {
- if(.@bingoinput == @bingoplate[.@j -1]) { set @bingo_case,.@i; return 0; }
+ for(.@j = .@i; .@j > 0; --.@j) {
+ if(.@bingoinput == @bingoplate[.@j -1]) { @bingo_case = .@i; return 0; }
}
}
setarray @bingoplate[.@i],.@bingoinput;
@@ -858,10 +858,10 @@ function script Func_Bingo {
}
function script Func_BingoResult {
- if (getarg(0) == 1 || getarg(0) == 21) set .@str$,"st";
- else if (getarg(0) == 2 || getarg(0) == 22) set .@str$,"nd";
- else if (getarg(0) == 3 || getarg(0) == 23) set .@str$,"rd";
- else set .@str$,"th";
+ 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";