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

Thread: Dude's Fighters

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

    Default

    how can i attack the cows what for number tol is that ?

  2. #27
    Join Date
    Mar 2012
    Location
    Australia
    Posts
    625
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by dude1994 View Post
    Any suggestions anyone??? If its perfect then it may as well be moved to members + haha
    Why would you give it to members+ not like people can abuse this and make a tonne of cash. Plus the other fight scripts are pretty good and they are in public.
    Bored of playing rs, and bored of botting it, why am i here?

  3. #28
    Join Date
    Feb 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Please add susport for looting charms. Especially on ur ice giant scrip, they drop tons of good charms

  4. #29
    Join Date
    Jan 2012
    Posts
    319
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by voetbalpowe View Post
    how can i attack the cows what for number tol is that ?
    I normally set my tolerance between 7 and 10 for faster detection. Tolerance is the range of colors the script accepts for the cows, so even if rs changes the cow color a little it can still find it.

    I was joking about mem+

    Recently I have been working on other scripts, as I've been skilling, but I am not a member so Idt I could add charm support unless someone let me borrow it from a different script
    -My Scripts-
    Dude'sFighters
    Dude'sBonfires
    Donations help with scripting Paypal!

  5. #30
    Join Date
    Jul 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice ill try this out and let you know how long I can keep it going for. Suicide time!

  6. #31
    Join Date
    Sep 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Question issues

    Ive been up for almost a day straight trying to find a flesh crawler bot that actually works for me and then I found this promising, especially with no one else having reported any bugs/ unexpected breaks in the script but of course, I was not so lucky. Please help so I can start and finally get some zzz

    Simba Code:
    program DudesCrawlers;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}
    {start somewhere with a lot of flesh crawlers in the stronghold and have an
    inventory full of food}

    const
        //Smart
        SmartWorld        = 7;
        Members           = False;   //log into a member world=true f2p=false
        SignedClient      = True;
        HighDetail        = False;
        NumbOfPlayers     = 1;
        StartPlayer       = 0;
        SRLStats_User     = '';      // Your SRL Stats Username
        SRLStats_Password = '';      // Your SRL Stats Password
        Color1            = 2316146;
        Color2            = 862765;  //these are the colors the fighter will try to attack
        Color3            = 928304;  //change if not working well
        Color4            = 862765;
        eat               = 70;      //percent to heal at
        pin               = '';      //put your pin in the apostraphes'
        tol               = 7;       //color tolerance raise if not attacking quick enough

    var startXP: integer;

    procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        Active      := True;
      end;

    end;
    Procedure SetupPlayer;

    begin
      Smart_Server := SmartWorld;
      Smart_Members := Members;
      Smart_Signed := SignedClient;
      Smart_SuperDetail := HighDetail;
      setupSRL();
      ClickNorth(SRL_ANGLE_HIGH); //will only do this once!
      ToggleXPBar(true);
      Retaliate(true);
      gametab(tab_inv);
    end;
    procedure ProgressReport(var startXP: integer);
    var gain: integer;
    begin
      gain := GetXPBarTotal- startXP;
      {$IFDEF DEBUG}
      {$ENDIF}

      writeln('////////DUDES_FLESH_CRAWLERS_FIGHTER\\\\\\\\');
      writeln('TIME RAN: ' + TimeRunning);
      writeln('XP GAIN: ' + IntToStr(gain));
      writeln('XP/H: ' + floatToStr(3600000 * 1.0 / GetTimeRunning * gain));
    end;
    Function Killing: boolean; //credit to Flight's guide on using pixelshift
    var
      PBox: TBox;
    begin
      PBox := IntToBox(245, 130, 285, 195);
      Result := (AveragePixelShift(PBox, 250, 500) > 700);
    end;
    procedure Login;
    var t: integer;
    begin
      MarkTime(t);
      while (not LoggedIn) do
      begin
        if LogInPlayer then
          break;
        wait(10000+random(500));
        if (TimeFromMark(t) > 180000) then
        begin
          writeln('Failed to login after 180s... Terminating');
          TerminateScript;
        end;
      end;
    end;
    procedure Antiban();
    begin
      if FindNormalRandoms then
      begin
        writeln('in random');
      end else;
      case random(200) of
        0: MakeCompass(RandomRange(0,359));   //different SRL antiban procedures
        1: PickUpMouse;
        //2: RandomAngle(True);
        3: begin HoverSkill(skill_strength,false); wait(1000+random(1000)); gametab(tab_inv); end;
        4: ExamineInv;
        5: BoredHuman;
        //6: RandomMovement;
        7: wait(1000+random(1000));
        //8: missmouse(264, 177);
      end;
    end;
    Function ImHungry: boolean;
    begin
      result := false;
      if (HPPercent < eat) then
      begin
        result := true;
      end else;
    end;
    Procedure GetFat; //used Narcle's fast fighter healing method to help develope my own
    var
      I:integer;
    begin
      for I := 1 to 28 do
      if existsitem(I) then
        begin
          MMouseItem(I);
          if waituptext('Eat', 500) then
          begin
            clickmouse2(mouse_left);
            exit;
          end else;
        end else;
      for I := 1 to 28 do
      if not existsitem(I) then
        begin
          wait(3000+random(2000));
          writeln('no more food');
          logout;
          terminatescript;
        end else;
    end;
    Function NextCrawler:boolean;
    begin
      result:= false;
      RadialWalk(1310702, 0, 359, 40, 40, 40)
      result:=true;
    end;
    Procedure DebugShiftCount;
      var
        PBox: TBox;
      begin
        PBox := IntToBox(245, 130, 285, 195);
        Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
      end;
    Procedure ImAngry;
    var
      hx, hy: integer;
    begin
      if not FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
        begin
          NextCrawler;
        end else;
        wait(1000 + random(1000));
        if FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
          begin
            writeln('Im lookin for a crawler ta kill');
            Mouse(hx, hy, 0, 0, mouse_left);
          end else;
          while Killing do
            begin
              //debugshiftcount;
              antiban;
              progressreport(startXP);
              if (ImHungry) then
                begin
                  GetFat;
                end else;
            end;
          repeat
            wait(10);
          until (not Killing);
    end;
    begin                         //main script
      SetupPlayer;                //does the various procedures
      DeclarePlayers;             //and functions listed
       if not (LoggedIn) then
      Login;
      startXP:=getXPBarTotal;
      ProgressReport(startXP);
      repeat
       ImAngry;
       antiban;
       if ImHungry then
         begin
           GetFat;
         end else;
       NextCrawler;
       ProgressReport(startXP);
      until(not LoggedIn);
    end.

  7. #32
    Join Date
    Sep 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my problem

    with change log
    Last edited by mercman; 09-18-2012 at 06:24 PM.

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)

Posting Permissions

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