SRL Archive - Other Scripts

A simple script for a lame game.. Found the link from some thread at this site. Just plays "GunSlinger".

Link to the game :
http://www.mousebreaker.com/games/gunslinger/play.php

Updated to v. 2.. Added hiscore submitting and you can now choose how many gunslingers to kill. This will be the final version as the script seems to work quite flawlessly.

The script :

{ GunSlinger by GoF

  You can play the game at :
    mousebreaker.com/games/gunslinger/play.php

  Start script at the mainscreen of the game (before facing any
  gunslingers), target the GunSlinger screen and press play.

  Let me know of any bugs..

  ~GoF
}

program GunSlinger;

const
  HowManyFools = 1;//How many fools to kill before submitting?
  SubNick      = 'GoF Ownz';//Nickname for hiscores?

var
  TColor, FoolCounter: Integer;
  AnotherFool: Boolean;

begin
  FoolCounter := 0;
  ClearDebug;
  Writeln('Starting script in 5 seconds!');
  Wait(5000);
  ActivateClient;
  if (GetColor(114, 144) = 10079436) then
  begin
    Writeln('At mainscreen..');
    ActivateClient;
    MoveMouseSmoothEx(500, 355, 10, 10, 6, 7, 5);
    ClickMouse(500, 355, True);
    Wait(3000);
  end;
  repeat
    if IsFKeyDown(3) then
      TerminateScript;
    TColor := 0;
    TColor := GetColor(207, 238);
    if not (TColor = 6724044) then
    begin
      Writeln('Going for the gun..');
      Writeln('Lets kill him');
      SendKeys(' ');
      FoolCounter := FoolCounter + 1;
      AnotherFool := True;
    end else
      Wait(35);//A little wait so the we won't lagg too much
    if (AnotherFool) then
    begin
      while not (GetColor(164, 57) = 52479) do
      begin
        Wait(1000);
        Writeln('Waiting for "GOOD SHOT" text..');
      end;
      if not (FoolCounter = HowManyFools) then
      begin
        MoveMouseSmoothEx(515, 360, 10, 10, 6, 7, 5);
        ClickMouse(515, 360, True );
        AnotherFool := False;
      end else
      begin
        Writeln('Done killing! Limit reached.');
        MoveMouseSmoothEx(250, 360, 10, 10, 6, 7, 5);
        ClickMouse(250, 360, True);
        while not (GetColor(261, 211) = 16777215) do
        begin
          Writeln('Waiting for "Enter your name"..');
          Wait(1000);
        end;
        MoveMouseSmoothEx(275, 215, 10, 10, 6, 7, 5);
        ClickMouse(275, 215, True);
        SendKeys(SubNick);
        Wait(1000);
        ClickMouse(270, 275, True);
        Writeln('Clicked submit :)');
        Writeln('Done.. Terminating.');
        TerminateScript;
      end;
      Wait(3000);//Little wait here too.
      Writeln('Currently killed '+IntToStr(FoolCounter)+' gunslingers.');
    end;
  until(False)
end.

Nice man I finished my script, what a loser I am compared to you, I finally got my script to work:

///////Will's Gunslinger Script/////////////

//////////////////////{SETUP}//////////////////////////////
///////{Scroll up to the top of the screen}////////////////
///////{Run the script when the man is on the screen}//////
//////////////////////////////////////////////////////////

program GunSlinger;


procedure FindHand;
begin
repeat
wait(1);
MoveMouse(230,252);
until (getColor(230,252)=3757682);
end;

procedure shoot;
begin
wait(1);
SendKeys(' ');
wait(1);
end;

begin
FindHand;
Shoot;
end.

Anyway, thanks for your help.

Nice work, I am a loser compared to it, I finally got my script working in the end, thanks for your help.

lol mine was so more simple and prolly better since i have a higher score. i didnt save it though.

Jhildy I can beat your High Score with my new BETA version, I can get 2mill plus.

yea i only did it those three times i dont really care

Hm, I just don't have time to check how high score I could get :D