Testing gametabs.scar

[Wanted]

Here's some test scripts for you bored people who like to look at progress

 

[sCAR]{$DEFINE RS2}

{$DEFINE OSI_Color_Anti_Randoms}

 

{.include OSI\OSI.scar}

 

begin

SetupOSI;

repeat

WriteLn(GetCurrentTab);

Wait(1000);

until (IsKeyDown('s'));

FreeOSI;

end.[/sCAR]

 

[sCAR]{$DEFINE RS2}

{$DEFINE OSI_Color_Anti_Randoms}

 

{.include OSI\OSI.scar}

 

var

I: Integer;

 

begin

SetupOSI;

for I := 0 to 15 do

begin

WriteLn(IntToStr(I) + ', ' + BoolToStr(TabExists(I)));

Wait(200);

end;

FreeOSI;

end.[/sCAR]

 

[sCAR]{$DEFINE RS2}

{$DEFINE OSI_Color_Anti_Randoms}

 

{.include OSI\OSI.scar}

 

var

I: Integer;

 

begin

SetupOSI;

for I := 0 to 15 do

begin

WriteLn(IntToStr(I) + ', ' + BoolToStr(SetGameTab(I)));

WaitRR(1000, 1500);

end;

FreeOSI;

end.[/sCAR]