SRL Archive - First Scripts

i not sure if this section is just for rs scripts?

program SpeedSquid;
//Created by fORCE_wORKS
//This is a mindjolt game on facebook called Speed Squid
//Works like a charm check the high scores list, #1.
//http://apps.facebook.com/mindjolt/game.jsp?gameKey=P8FMRC2QKDURJLPP

procedure CheckA;
begin
  If(GetColor(47, 172) > 0) and (GetColor(47,172) <> 16764057) Then
  sendKeys('a');
  If(GetColor(47, 172) = 0) then
  sendKeys(';');
end;

procedure CheckS;
begin
  If(GetColor(87, 131) > 0) and (GetColor(87, 131) <> 16764057) Then
  sendKeys('s');
  If(GetColor(87, 131) = 0) then
  sendKeys('l');
end;

procedure CheckD;
begin
  If(GetColor(171,87) > 0) and (GetColor(171,87) <> 16764057) Then
  sendKeys('d');
  If(GetColor(171,87) = 0) then
  sendKeys('k');
end;

procedure CheckF;
begin
  If(GetColor(256,67) > 0) and (GetColor(256,67) <> 16764057) Then
  sendKeys('f');
  If(GetColor(256,67) = 0) then
  sendKeys('j');
end;

procedure CheckJ;
begin
  If(GetColor(345, 65) > 0) and (GetColor(345, 65) <> 16764057) Then
  sendKeys('j');
  If(GetColor(345, 65) = 0) then
  sendKeys('f');
end;

procedure CheckK;
begin
  If(GetColor(446,89) > 0) and (GetColor(446,89) <> 16764057) Then
  sendKeys('k');
  If(GetColor(446,89) = 0) then
  sendKeys('d');
end;

procedure CheckL;
begin
  If(GetColor(510,115) > 0) and (GetColor(510,115) <> 16764057) Then
  sendKeys('l');
  If(GetColor(511,115) = 0) then
  sendKeys('s');
end;

procedure Check;
begin
  If(GetColor(559, 145) > 0) and (GetColor(559, 145) <> 16764057) Then
  sendKeys(';');
  If(GetColor(559, 145) = 0) then
  sendKeys('a');
end;

begin
  ClickMouse(305,134,True);
  wait(1000)
  repeat
    CheckA;
    CheckS;
    CheckD;
    CheckF;
    CheckJ;
    CheckK;
    CheckL;
    Check;
  until(GetColor(292, 349) = 7235174);
end.