I am trying to check to see if i pressed "a" and "b" or any other message but it seems to be returning true everytime...
Here is my code:
Simba Code:
{$i srl/srl.simba}
function PressedKey(Key:word;wait:Integer) : Boolean;
var
Tries, T:Integer;
begin
MarkTime(T);
repeat
until (IsKeyDown(Key) or (TimeFromMark(T) > wait));
MarkTime(T);
repeat
Until (not IsKeyDown(Key) or (TimeFromMark(T) > wait));
if not IsKeydown(Key) then Result := true;
end;
function PressedKeysCorrect(keys:TStringArray) : Integer;
Var
key:word;
correct, i, t, c:Integer;
begin
for i:= 0 to high(keys) do
begin
case(keys[c]) of
'a': key := 65;
'b': key := 66;
'c': key := 67;
'd': key := 68;
'e': key := 69;
'f': key := 70;
'g': key := 71;
'h': key := 72;
'i': key := 73;
'j': key := 74;
'k': key := 75;
'l': key := 76;
'm': key := 77;
'n': key := 78;
'o': key := 79;
'p': key := 81;
'q': key := 82;
'r': key := 83;
's': key := 84;
't': key := 85;
'u': key := 86;
'v': key := 87;
'w': key := 88;
'x': key := 89;
'y': key := 90;
'z': key := 91;
end;
MarkTime(T);
repeat
wait(1)
until (PressedKey(key,500) or (TimeFromMark(T) > 500));
if PressedKey(key,500) then correct := correct + 1;
c := c + 1;
end;
result := (correct/(length(keys)))*100;
end;
begin
if (PressedKeysCorrect(['h','b'])>=99) then writeln('got it right')
end.