ojohoy si a rehtom rekcuf
oops sorry
Every time you hit space, the word you typed appears backwards.
Simba Code:
program autoAltCode;
//3/25/2019 rj
procedure resetKeys();
var
i : integer;
begin
keyUp(32);
for i := 65 to 90 do
if isKeydown(i) then
keyUp(i);
end;
procedure typeWordBackwards(keyCodes:TIntegerArray);
var
i, t, k:integer;
begin
if isKeyDown(32) then
begin
keyUp(32);
for i := high(keyCodes) downto 0 do
pressKey(8);
for i := high(keyCodes) downto 0 do
pressKey(keyCodes[i]);
resetKeys();
pressKey(32);
wait(10);
exit;
end;
end;
function recordKeyStrokes():TIntegerArray;
var
resLength, t, i:integer;
begin
resLength := 0;
setLength(result, 1);
repeat
for i := 65 to 90 do
if isKeyDown(i) then
begin
result[resLength] := i;
setLength(result, length(result + 1));
resLength := resLength + 1;
t := getSystemTime;
keyUp(i);
end;
until isKeyDown(32);
end;
procedure Loop;
var
thisWord:TIntegerArray;
begin
thisWord := recordKeyStrokes();
if (length(thisWord) > 1) then
typeWordBackwards(thisWord);
setLength(thisWord, 0);
resetKeys();
end;
begin
resetKeys();
repeat
loop;
//wait(1);
Until false;
end.
*This program only records A-Z and nothing else, no holding keys down, no backspace, no uppercase