SRL Archive - RS3 Outdated / Broken Scripts

It will just run forever when i press run and it will just add +1 to proggy when i press a key… easy… nothing else needed:D

What?

Like: When you press a key, it will add +1 to X?

Not hard:

Program DeathCounter;

Var
  X : Integer;
  
Const
  KEY = 'a';
  
Function IsKeyUp(C:Char): Boolean;
Begin
  If (Not(IsKeyDown(C))) Then
  Begin
    Result := True;
  End;
End;

Begin
  Repeat
    If (IsKeyDown(KEY)) Then
    Begin
      X := X + 1;
      ClearDeBug;
      Writeln(IntToStr(X)+'.')
      Repeat
        Wait(30)
      Until(IsKeyUp(KEY))
    End Else
      Wait(100)
  Until(false)
End.