Results 1 to 7 of 7

Thread: GunSlinger

  1. #1
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default GunSlinger

    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 :

    SCAR Code:
    { 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.

  2. #2
    Join Date
    Jul 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    TOTAL N00B at Scar. I once had a script that cut, strung and fletched 10,000 + yew bows, but those days are now gone, and I'm trying to re unite my knowledge of scripting again.

  3. #3
    Join Date
    Jul 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice work, I am a loser compared to it, I finally got my script working in the end, thanks for your help.
    TOTAL N00B at Scar. I once had a script that cut, strung and fletched 10,000 + yew bows, but those days are now gone, and I'm trying to re unite my knowledge of scripting again.

  4. #4
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

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

  5. #5
    Join Date
    Jul 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Jhildy I can beat your High Score with my new BETA version, I can get 2mill plus.
    TOTAL N00B at Scar. I once had a script that cut, strung and fletched 10,000 + yew bows, but those days are now gone, and I'm trying to re unite my knowledge of scripting again.

  6. #6
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

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

  7. #7
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •