Simba Code:
Program New;
{$DEFINE SRL5}
{$i SRL/srl.simba}
Procedure ToggleScreenAngle(TotalKeys, WaitPeriod: Integer);
Var
clicks, i: Integer;
Begin
Repeat
Begin
i:= Random(4);
Case (i) Of
1: begin
KeyDown(VK_Left);
Wait((WaitPeriod)+random(50));
KeyUp(VK_Left);
IncEx(clicks, 1);
End;
2: Begin
KeyDown(VK_Right);
Wait((WaitPeriod)+random(50));
KeyUp(VK_Right);
IncEx(clicks, 1);
End;
3: Begin
KeyDown(40);
Wait((WaitPeriod)+random(50));
KeyUp(40);
IncEx(clicks, 1);
End;
4: Begin
KeyDown(38);
Wait((WaitPeriod)+random(50));
KeyUp(38);
IncEx(clicks, 1);
End;
end;
End;
Until (clicks = TotalKeys)
If (clicks = TotalKeys) Then
Wait(100+Random(50));
MakeCompass('W');
SetAngle(SRL_ANGLE_HIGH);
End;
Begin
SetupSRL;
ToggleScreenAngle(27, 250);
End.
E: ^ That was a little fun thing I made, however I think this is easier to understand;
Simba Code:
Program New;
{$DEFINE SRL5}
{$i SRL/srl.simba}
Procedure MoveArrowKeys;
Begin
KeyDown(VK_Left);
Wait(100);
KeyUp(VK_Left);
End;
Begin
SetupSRL;
MoveArrowKeys;
End.
E2: If you're trying to move the RS compass, there's better ways to go about / pre-made ways to move your RS compass angel already in simba
E3: This is all for PascalScript, used within simba, not Pascal.