IsoMorphic
2013-01-02 05:29:08
So on the social group Rubik's Cubers or something someone provided this script, im just seeming to get this error :/
Any ideas?
program new;
{$i srl/srl.simba}
var T : Integer;
begin
IsKeyDown('a'); IsKeyDown('l');
while not (IsKeyDown('a') and IsKeyDown('l')) do
Wait(1);
IsKeyDown('a'); IsKeyDown('l');
while (IsKeyDown('a') and IsKeyDown('l')) do
Wait(1);
T := GetSystemTime;
IsKeyDown(' ');
while not IsKeyDown(' ') do
Wait(1);
WriteLn('It took you ' + IntToStr(Round((GetSystemTime - T) / 1000)) + ' seconds to solve the rubix. (' + IntToStr(GetSystemTime - T) + 'msec)');
end.
Any ideas?