aboutsummaryrefslogtreecommitdiffstats
path: root/unicode/src/base/UParty.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-07-23 21:04:32 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-07-23 21:04:32 +0000
commitb5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb (patch)
tree4f4d56b2176078ef7dcc3b37cedb5c08f70b92fc /unicode/src/base/UParty.pas
parent3c999bea6a60e6b58dc8e9a70c08898c4efea906 (diff)
downloadusdx-b5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb.tar.gz
usdx-b5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb.tar.xz
usdx-b5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb.zip
update to current trunk (1853)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1913 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base/UParty.pas')
-rw-r--r--unicode/src/base/UParty.pas9
1 files changed, 7 insertions, 2 deletions
diff --git a/unicode/src/base/UParty.pas b/unicode/src/base/UParty.pas
index 3cfcb6cb..52eb5a05 100644
--- a/unicode/src/base/UParty.pas
+++ b/unicode/src/base/UParty.pas
@@ -254,8 +254,13 @@ var
begin
if ((CurRound < high(Rounds)) or (CurRound = high(CurRound))) then
begin
- //Increase Current Round
- Inc(CurRound);
+ // Increase Current Round but not beyond its limit
+ // CurRound is set to 255 to begin with!
+ // Ugly solution if you ask me.
+ if CurRound < high(CurRound) then
+ Inc(CurRound)
+ else
+ CurRound := 0;
Rounds[CurRound].Winner := 255;
DllMan.LoadPlugin(Rounds[CurRound].Plugin);