summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
Diffstat (limited to 'npc')
-rw-r--r--npc/Changelog.txt3
-rw-r--r--npc/other/hugel_bingo.txt10
2 files changed, 7 insertions, 6 deletions
diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index da2c53091..1bb543f50 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -1,6 +1,7 @@
Date Added
======
-2008/04/22
+2008/04/24
+ * Rev. 12646 Fixed hugel_bingo making an unneeded infinite loop bugreport:1349 [Toms]
* Rev. 12645 Corrected a typo error ";;" bugreport:919 [Toms]
2008/04/21
* Rev. 12629 Fixed yet another WoE SE Bug (Juno castle 3) [L0ne_W0lf]
diff --git a/npc/other/hugel_bingo.txt b/npc/other/hugel_bingo.txt
index 569b66afb..10ad4e1ee 100644
--- a/npc/other/hugel_bingo.txt
+++ b/npc/other/hugel_bingo.txt
@@ -192,13 +192,13 @@ 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)
{
-L_Roll:
- set $@bingo0,rand(0,24);
- setarray $bingo[.@i],$@bingoarray[$@bingo0];
- if(!$bingo[.@i]) goto L_Roll;
- cleararray $@bingoarray[$@bingo0],0,1;
+ set $@bingo0,rand(0,.@max_index);
+ set $bingo[.@i],$@bingoarray[$@bingo0];
+ set $@bingoarray[$@bingo0], $@bingoarray[.@max_index];
+ set .@max_index, .@max_index - 1;
}
end;