From b5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 21:04:32 +0000
Subject: update to current trunk (1853)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1913 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/base/UParty.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'unicode/src/base/UParty.pas')

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);
-- 
cgit v1.2.3