Page 2 of 2 FirstFirst 12
Results 26 to 38 of 38

Thread: Mega's Goblin Killer

  1. #26
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    As soon as you add the walking back to death feature I will use this for all my new pure accounts

  2. #27
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    I have it in my version of the script but I don't have an account that can die lol, I'll release it once I have added things and I'm comfortable with releasing
    Current Project: Retired

  3. #28
    Join Date
    Nov 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks sweet. I may have to use this since there arent very many dependable combat scripts out there.

  4. #29
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by Twisterz View Post
    Looks sweet. I may have to use this since there arent very many dependable combat scripts out there.
    Well if your F2P Harry's Catacomb Killer is good for when you get to a higher level.
    Current Project: Retired

  5. #30
    Join Date
    Mar 2009
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Hint] C:\Simba\Includes\SRL/SRL/core/animation.simba(257:3): Variable 'X' never used at line 256
    [Hint] C:\Simba\Includes\SRL/SRL/core/animation.simba(257:3): Variable 'Y' never used at line 256
    [Error] C:\Simba\Includes\sps/sps.simba(280:14): Unknown identifier 'SPS_GatherMinimap' at line 279

    What seems to be the problem?

  6. #31
    Join Date
    May 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i run this? i downloaded the mega goblin killer and i ran it, but runescape doesnt start when i click run. there are no errors in the debug box, but nothing happens...please help. (i have simba updated to the latest etc)

  7. #32
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by devz01 View Post
    how do i run this? i downloaded the mega goblin killer and i ran it, but runescape doesnt start when i click run. there are no errors in the debug box, but nothing happens...please help. (i have simba updated to the latest etc)
    Fill in your info and start the script. Check out the newbiw tutorials
    Current Project: Retired

  8. #33
    Join Date
    Jun 2012
    Location
    Houghton Lake part of MI
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have edited the script so it eats tuna. The tuna part of the script was leeched from a different script edit. Credits to: cause

    Hope both you guys don't mind me for using the code, and also pasting it here.

    ALSO, I have not really tested this because I haven't been able to get low enough HP. Please use with caution. It's not certain the feature will work.

    Code:
    program MegaGoblinKiller;
    {$DEFINE SMART}
    {$i srl/srl/misc/smart.simba}
    {$loadlib sps}
    {$i srl/srl.simba}
    {$i sps/sps.simba}
    
    const
    SRLStats_User = ''; // Your SRL Stats Username
    SRLStats_Password = ''; // Your SRL Stats Password
    SERVER = 0; // Enter "0" to pick a random server.
    MEMBERS = True;
    NumbOfPlayers = 1;
    StartPlayer = 0;
    Tolerance = 2;
    
    var
      B: Array [0..5] of Integer;
      x, y, Food: Integer;
      aFound: Extended;
      Drops:TStringArray;
      Bones, TotalEXP, GoblinKilled: Integer;
    
    
    procedure DeclarePlayers;
      var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer
      for i := 0 to NumbOfPlayers-1 do
      Players[i].BoxRewards := ['XP'];
    
      With Players[0] do
        begin
          Name := ''; //Username.
            Pass := ''; //Password.
          Active := True;
        end;
    
    end;
    
    procedure FailSafe (Reason:String);
    begin
      Players[CurrentPlayer].Loc:=Reason;
      Logout;
      Stats_Commit;
      TerminateScript;
    end;
    
    function InFight: Boolean;
    begin
      Result := srl_InFight;
    end;
    
    Function OthersInFight: Boolean;
    var
      x, y, i: integer;
      Colors: TIntegerArray;
    begin
      Colors := [HP_BAR_COLOR1, HP_BAR_COLOR2];
      for i := 0 to High(Colors) do
        if FindColorTolerance(x, y, Colors[i], MSX1, MSY1, MFBox.X1, MSY2, 0) or
           FindColorTolerance(x, y, Colors[i], MSX1, MSY1, MSX2, MFBox.Y1, 0) or
           FindColorTolerance(x, y, Colors[i], MFBox.X2, MSY1, MSX2, MSY2, 0) or
           FindColorTolerance(x, y, Colors[i], MSX1, MFBox.Y2, MSX2, MSY2, 0) then
        begin
          Result := True;
          Exit;
        end;
    end;
    
    function IsFightAt(var X, Y: Integer): Boolean;
    var
      B: TBox;
      H, I: integer;
      ATPA: T2DPointArray;
      Colors: TIntegerArray;
    begin
      Colors := [HP_BAR_COLOR1, HP_BAR_COLOR2];
      H := High(Colors);
      SetArrayLength(ATPA, H+1);
      B := IntToBox(x-20, y-40, x+20, y+10);
      for i := 0 to H do
       with B do
        FindColorsSpiralTolerance(x, y, ATPA[i], Colors[i], Max(X1, MSX1), Max(Y1, MSY1), X2, Y2, 0);
      Result := Length(MergeATPA(ATPA)) > 0;
    end;
    
    function FindGoblin(Var X,Y: Integer): Boolean;
    var
      CTS: Integer;
      TPA: TPointArray;
      begin
        Result := False;
        CTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.1415519568151143, 0.7379752182483808);
        FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3046770, MSX1, MSY1, MSX2, MSY2, 7);
        ColorToleranceSpeed(CTS);
    
        if (Length(TPA) < 1) then
          Exit;
    
        MMouse(TPA[0].X, TPA[0].Y, 5, 5);
    
        if WaitUpText('ttack Goblin', 250) then
        begin
          GetMousePos(X, Y);
          Wait(10);
        end;
    end;
    
    Procedure ToBank;
    begin
      B[0] := DTMFromString('mrAAAAHic42BgYChhYmAIAuJVQLwSiu2h2AmI7YBqUoA4EYiDgdgTiKOBOByI/YB4em8qQ7ghG4NBkgiDQoQAg5U1Kxw7JEkxiADV4MOMBDAMAACI9AxR');
      B[1] := DTMFromString('mlwAAAHicY2dgYDBkYmBwAmJHKHYAYj8gjgfiQKC8CxCHAXE8EOcDsTMQOwHxzJ5UBqdEKQYbK1Y4NkoUYVAKF2AQAcrjwox4MBQAAKFHCbE=');
      B[2] := DTMFromString('mlwAAAHicY2dgYIhiYmDwAOJ6NOwOxJVA+Xwg9gXiHCCuBeIJQGwJxFt70hi+/+ZmMEoUYbCxYgVjENu70IRBBCiPCzPiwVAAABJQDU0=');
    
      MakeCompass ('n')
      if FindDTMRotated(B[0], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
        FFlag(6);
        FreeDTM(B[0]);
        repeat
          Wait(50 + Random(25));
        until FindDTMRotated(B[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
      end;
    
      if FindDTMRotated(B[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
        FFlag(6);
        FreeDTM(B[1]);
        repeat
          Wait(50 + Random(25));
        until FindDTMRotated(B[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
      end;
    
      if FindDTMRotated(B[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
        FFlag(6);
        FreeDTM(B[2]);
      End;
    End;
    
    Procedure FromBank;
    begin
      B[4] := DTMFromString('mwQAAAHic42RgYOhnYmCYg4RnA3E4EJcAcQUQpwKxCVCdGxBHA3EGEGsCsS4QqwFxCRALAPHU7jQGS0s2BvkwQTjd15IIFvcoMGWY3pHOIAJURwgzEoHhAAAP1hCq');
      B[5] := DTMFromString('mlwAAAHicY2dgYJjAxMBQD8QNUAxirwDiHiCOAMpXAXEeEIcDsTUQWwCxJRBv6kpjMNLkYtBPEGWQDxME0zAsApTHhRnxYCgAALMIC8s=');
    
        MakeCompass ('n')
        if FindDTMRotated(B[4], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
        FFlag(6);
        FreeDTM(B[4]);
        repeat
          Wait(50 + Random(25));
        until FindDTMRotated(B[5], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
      end;
    
      if FindDTMRotated(B[5], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
        FFlag(6);
        FreeDTM(B[5]);
      end;
    end;
    
    Procedure Bankit;
    Begin
      B[3] := DTMFromString('mlwAAAHicY2dgYOBgZGD4DqTFgPQfIC0IpP9B6RIgHQXEkUBcCcW5QFwIxEnBTgz21uYMtpYmDBVpgQxx/vYMt3ZOZqjJDGYQAcrjwox4MBQAAF81DpI=');
    
      MakeCompass ('w')
      repeat
          Wait(50 + Random(25));
        until FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound);
    
      If FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
          Wait(1500)
          if not (bankscreen) then
    
          repeat
          Wait(50 + Random(25));
        until FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound);
    
      If FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      begin
        Mouse(x, y, 3, 3, True);
          Wait(1500)
          Withdraw(0, 0, 28);
          CloseBank;
          FreeDTM(B[3])
        end;
      end;
    end;
    Procedure LowHPLetsEat;
    var
      I, x, y: Integer;
      test: boolean;
    begin
      test := (HPPercent < 70) and (LoggedIn);
      If(not(test)) then
        Exit;
    
      if test then
      If InvEmpty then
      begin
        ToBank;
        Bankit;
        FromBank;
      end else
      begin
        if FindDTM( Food, X, Y, MIX1, MIY1, MIX2, MIY2) then
         begin
           Mouse(x ,y, 5, 5, true);
           Wait(100);
           WriteLn('Having a bite of tuna');
        end else
        begin
          WriteLn('couldn''t find any tuna');
        end;
       end else
         WriteLn('health isn''t low enough to eat');
    end;
    procedure Report;
    
    begin
    GoblinKilled := (GoblinKilled + 1);
    TotalEXP := (GoblinKilled*27);
    
    Writeln('############ MegaGoblinKiller ###########');
    Writeln('|= Player : ' + Players[CurrentPlayer].Name);
    Writeln('|= Time Running : ' + TimeRunning);
    Writeln('|= Goblins Killed : ' + IntToStr(GoblinKilled));
    Writeln('|= EXP Gained : ' + IntToStr(TotalEXP));
    Writeln('#########################################');
    end;
    
    procedure FailSafe2 (Reason:String); // Credit to Laakerules
    var
      Z:TPoint;
    begin
      Z:= SPS_GetMyPos;
      if (Not (Distance(Z.X, Z.Y, 4830, 3700) < 25)) then//Change the 25 to whatever you want your distance checking to be.
      Begin
        BoredHuman;
        SPS_WalkToPos(Point(4830, 3700));
      end;
    end;
    
    procedure Gobbling;
    var
      Xi, Yi, x: Integer;
    begin
      SetAngle(SRL_ANGLE_HIGH);
      MakeCompass('N');
      if InFight then
      begin
        repeat
          FindNormalRandoms;
        until (not (OthersInFight) or (not LoggedIn) or (not InFight))
        end;
      x := Random(8)
    
      if FindObjEx(Xi, Yi, ['ttack'], [4430477, 4033671, 1858905, 3253129], Tolerance, 50, 1, 5, 690, 400) then
      begin
        if not (IsFightAt(Xi, Yi) and not InFight) then
        begin
          GetMousePos(Xi, Yi);
          Mouse(Xi, Yi, 5, 5, True);
        end;
        while IsMoving do
        begin
          Wait(250);
        end;
      end
      else
      begin
        wait(800)
      end;
    end;
    
    procedure AntiBan;
    begin
      if(not(LoggedIn))then
      exit;
      FindNormalRandoms;
    case Random(2) of
      0:
        begin
          WriteLn('AntiBan, Move Camera');
          MakeCompass('N');
          wait(150+random(100));
          MakeCompass('E');
          wait(50+random(100));
          MakeCompass('S');
        end;
    
        1:
          begin
            WriteLn('Skill1');
            HoverSkill('Attack', False);
            Wait(1000 + Random(200));
           end;
         2:
          begin
            WriteLn('Bored.');
            BoredHuman;
          end;
        end;
    end;
    
    procedure DropVars;
    begin
      Drops :=['ones']
    
    end;
    
    Procedure Bury;
    var
    i : Integer;
    begin
      if (InvFull) then
    
    begin
      for i := 1 to 28 do
        begin
        InvMouse(I, 3);
        if IsUpText('Bury') then
          begin
            ClickMouse2(True);
            Wait(RandomRange(200, 300));
          end;
        end;
      end;
    end;
    
    function FindBones(Var X,Y: Integer): Boolean;
    var
      CTS: Integer;
      TPA: TPointArray;
      begin
        Result := False;
        CTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0, 0.1255325704692993);
        FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9539993, MSX1, MSY1, MSX2, MSY2, 7);
        ColorToleranceSpeed(CTS);
    
        if (Length(TPA) < 1) then
          Exit;
    
        MMouse(TPA[0].X, TPA[0].Y, 5, 5);
    
        if WaitUpText('Take', 250) then
        begin
          GetMousePos(X, Y);
          Mouse(x, y, 0, 0, False);
          ChooseOptionMulti(Drops);
          Result := True;
          Inc(Bones);
          Exit;
        end;
    
      end;
    
    function PickupBones:Boolean;
    var
      x, y: Integer;
    begin
      FindNormalRandoms;
      If FindBones(x, y) Then
      begin
        While IsMoving do
        Wait(25);
        FindNormalRandoms;
        Wait(RandomRange(300,400));
        Mouse(x, y, 0, 0, False);
        ChooseOption('Take Bones');
        Result := True;
      end;
    end;
    
    begin
    Smart_Signed := TRUE;
      Smart_Members := MEMBERS;
      Smart_SuperDetail := FALSE;
      Smart_Server := 30;
      ActivateClient;
      SetupSRL;
      DeclarePlayers;
      if not (LoggedIn) then
      LoginPlayer;
      Wait(4000+random(400));
      repeat
      Gobbling;
      Report;
        if not InFight then
          begin
            PickupBones;
          Bury;
          end;
      until(False)
    end.
    Last edited by Rouids; 06-09-2012 at 01:11 AM.

  9. #34
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    ^^ I don't mind but not sure you need to eat food while fighting goblins
    Current Project: Retired

  10. #35
    Join Date
    Jun 2012
    Location
    Houghton Lake part of MI
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I've died a couple times before while autoing gobs, just thought it'd be a nice addition

  11. #36
    Join Date
    Jun 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have a problem it says "Exception in Script: Plugin(libsmart32) has not been found" wheni press play and i entered in my username and pass please help as soon as possible

  12. #37
    Join Date
    Jun 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok now that i updated the SRL thing its giving me an error "fatal error MSVCR100.dll" PLEASE HELPthen a bunch of other crap

  13. #38
    Join Date
    Jun 2012
    Posts
    304
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When you find a nice world it's really fast...

Page 2 of 2 FirstFirst 12

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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