Merge pull request #165 from Fratello/master

Minor changes FixChat + punctuation
SRL · Mar 31, 2013 · 46427be · 46427be
2 parents 9a0a940 + e8d5b7e
commit 46427be
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/SRL/core/chat.simba b/SRL/core/chat.simba
@@ -685,7 +685,7 @@ Scrolls ChatText scrollbar down.
 
 .. note::
 
-    by WT-Fakawi
+    by WT-Fakawi, Edited Mar. 30th, 2013 by Le Jingle (time out fail safe)
 
 Example:
 
@@ -695,15 +695,16 @@ Example:
 *)
 procedure FixChat;
 var
-  ScrollX, ScrollY: Integer;
+  ScrollX, ScrollY, t: Integer;
 begin
   ScrollX := 507 + Random(8);
   ScrollY := 451 + Random(8);
   if (GetColor(505, 439) = 2041131) then
   begin
     MMouse(ScrollX, ScrollY, 0, 0);
     HoldMouse(ScrollX, ScrollY, mouse_left);
-    while (GetColor(505, 439) = 2041131)  do
+    t := GetSystemTime() + 10000;
+    while (GetSystemTime < t) and (GetColor(505, 439) = 2041131)  do
       Wait(10 + random(15));
 	  Wait(50+random(50));
     ReleaseMouse(ScrollX, ScrollY, mouse_left);

diff --git a/SRL/core/text.simba b/SRL/core/text.simba
@@ -31,7 +31,7 @@ const
 { type TOptions
   Descripts: Choose option record.  }
 Type
-  TOptions = Record
+  TOptions = record
     Str: string;
     Bounds, BigBox: TBox;
   end;
@@ -410,7 +410,7 @@ Example:
 *)
 function GetUpText: string;
 begin
-  Result := rs_GetUpText
+  Result := rs_GetUpText;
 end;
 
 (*