SRL Archive - Other Scripts

So I was bored, and I made this script. I've consistenly gotten 95-99% on the higher levels, on Easy mode (you'll fail on the other modes).

Just choose the song, target the window, and hit go. I play the game on Newgrounds, I don't know if it will work anywhere else.

Here's the link:

http://www.newgrounds.com/portal/view/386989

Let me know if it's not allowed.

Program FlashHero;

Procedure DoGreen; Forward;
Procedure DoYellow; Forward;

Procedure DoRed;
begin
  If GetColor(100, 447 + 3) = 255 Then
  begin
    KeyDown(GetKeyCode('2'));
    Wait(10);
    KeyUp(GetKeyCode('2'));
  end else
  If GetColor(100, 447 + 3) = 213 Then
  begin
    KeyDown(08);
    KeyDown(GetKeyCode('2'));
    Wait(10);
    DoGreen;
    DoYellow;
    KeyUp(08);
    KeyUp(GetKeyCode('2'));
  end;
end;

Procedure DoGreen;
begin
  If GetColor(31, 447 + 3) = 65280 Then
  begin
    KeyDown(GetKeyCode('1'));
    Wait(10);
    KeyUp(GetKeyCode('1'));
  end else
  If GetColor(31, 447 + 3) = 54528 Then
  begin
    KeyDown(08);
    KeyDown(GetKeyCode('1'));
    Wait(10);
    DoYellow;
    DoRed;
    KeyUp(08);
    KeyUp(GetKeyCode('1'));
  end;
end;

Procedure DoYellow;
begin
  If GetColor(168, 447 + 3) = 65535 Then
  begin
    KeyDown(GetKeyCode('3'));
    Wait(10);
    KeyUp(GetKeyCode('3'));
  end else
  If GetColor(168, 447 + 3) = 54741 Then
  begin
    KeyDown(08);
    KeyDown(GetKeyCode('3'));
    Wait(10);
    DoGreen;
    DoRed;
    KeyUp(08);
    KeyUp(GetKeyCode('3'));
  end;
end;

Begin
  Repeat
  DoRed;
  DoYellow;
  DoGreen;
  Until(IsFkeyDown(9))
End.

~Sandstorm