SRL Archive - Other Scripts

Quick script I made for a game. Its okay, just got bored…

Here is Game: BirdShooter

program BirdOwner;

Var
 w,x,y,z: Integer;
 counter, Aye : integer;

Const
  PersonColor1 = 6710886;

Procedure Reload;
 begin
  Wait(500);
  ClickMouse(367,294,true);
  Wait(100);
end;

Procedure ShootemUp;
Begin
Counter:=1
 Begin
   GetClientDimensions(y,z);
    repeat
    If FindColor(w,x,PersonColor1, 0, 0, y, z) then
    Counter := Counter + 1;
    ClickMouse(w,x,true);
    Wait(50);
    until(Counter = 8);
    Begin
     Reload;
  end;
 end;
end;



begin
 ActivateClient;
 Wait(1000);
 ClickMouse(205,177,true);
 Wait(3000);
 Aye:= GetSystemTime;
 Repeat
  ShootemUp;
 until Aye+50000 < GetSystemTime;
end.