moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 08:45:06 -05:00
Code Issues Releases Wiki Activity

PascalScript: Fix Wait() with negative values.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-01-09 15:12:42 +01:00
parent a52b164f34
commit d75f7d55cf
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Units/MMLAddon/PSInc/Wrappers/other.inc
View File

@ -40,12 +40,18 @@ end;
procedure ps_Wait(t: Integer); extdecl;
{$ifdef MSWINDOWS}
begin
Sleep(t);
if t < 0 then
raise Exception.CreateFmt('The given wait time ([%d]) is invalid.',[t])
else
Sleep(t);
end;
{$else}
var
EndTime : DWord;
begin
if t < 0 then
raise Exception.CreateFmt('The given wait time ([%d]) is invalid.',[t]);
if t > 50 then
begin;
EndTime := GetTickCount + t;