Results 1 to 2 of 2

Thread: Bat Killing Script Shtoof

  1. #1
    Join Date
    Jun 2013
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default Bat Killing Script Shtoof

    So I wanted to try to script. Everyone's gotta start somewhere, right? Anyway, I based from Ubutu's 'FrostChopper 4 Project Awesome' code. I put the most basic things I knew from his into mine, and compiled it to fix up the errors in coding and changed over the woodcutting into attacking. I know I'm missing parts to it, but I can't find out what it is... The point of the script was to kill the bats in the cave near Taverly (they don't damage me and are high-leveled aggros, I liked the idea). That's all - just point and click - but it only activates the antiban actions, nothing else. Could someone tell me the secret ingredient I'm missing? Thanks if someone replies :]

    Here's what I have:
    Code:
    Program FightBats;
    
    {==========================================================}
    {Code based from 'FrostChopper 4 Project Awesome' by Ubuntu}
    {==========================================================}
    
    {$DEFINE SMART8}
    {$i srl/srl.simba}
    {$i SPS/SPS.simba}
    {$i SRL/SRL/Misc/SmartGraphics.simba}
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      with Players[0] do
      begin
        Name       := '';
        Pass       := '';
      end;
    end;
    
    Procedure CheckFriends;
    Var
      NCx, NCy, ONx, ONy :Integer;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
      gametab(tab_friends);
      If FindColorTolerance(NCx, NCy, 16683035, 546, 246, 722, 451, 5) Then
      begin
        MMouse(NCx, NCy, 5, 5);
        Wait(RandomRange(1000, 2000));
      end;
      If FindColorTolerance(ONx, ONy, 6619135, 546, 246, 722, 451, 5) Then
      begin
        MMouse(ONx, ONy, 5, 5);
        Wait(RandomRange(1000, 2000));
      end else
      begin
        Wait(RandomRange(500, 1000));
      end;
      FTab(tab_Inv);
    end;
    
    procedure Antiban;
    begin
      case Random(1000) of
          0: HoverSkill(skill_attack,false);
          10: PickUpMouse;
          20: CheckFriends;
          30: RandomMovement;
          40: BoredHuman;
          50: ExamineInv;
          60: RandomRClick;
          70: begin
          HoverSkill('Attack', false);
          GameTab(Tab_Inv);
          end;
          80: Wait(5000+random(2000));
          5..12: HoverSkill('random', False);
          100:begin
            GameTab(Tab_Stats);
            Wait(3000 + Random(1500));
            GameTab(tab_Inv);
          end;
          101: begin
            MakeCompass('N');
            wait(100+random(133));
            MakeCompass('S');
            wait(50+random(133));
            MakeCompass('N');
            FindNormalRandoms;
        end;
    end;
    end;
    
    Function IsAttacking: Boolean;
      var
        PBox: TBox;
      begin
        PBox := IntToBox(245, 130, 285, 195);
        Result := (AveragePixelShift(PBox, 500, 650) > 350);
      end;
    
    Procedure Attack;
    var x, y: integer;
    begin
    SetAngle(SRL_ANGLE_HIGH);
        repeat
        FindNormalRandoms;
        While IsAttacking Do Wait(500+Random(50));
        if (FindObjCustom(x,y,['Attack '], [7238003,4473926,3487032], 3)) then
        begin
          Mouse(x, y, 0, 0, false);
          ChooseOption('Attack');
        end;
          repeat
            wait(400+random(250));
            AntiBan;
          until false;
        until false;
    end;
    
    begin
      SRL_SixHourFix := True;
      SetupSRL;
      DeclarePlayers;
        Repeat
          if not LoggedIn then LoginPlayer;
          Attack;
        Until false;
    end.

  2. #2
    Join Date
    Jan 2011
    Location
    Everywhere
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    hmmm

    Code:
     
    Begin
    if FindObj(x, y, 'ttack', 4473926, 7) then
           begin
             GetMousePos(x, y); 
             Mouse(x, y, 3, 3, false);
             WaitOption('ttack', 1500);// In case of lag and miss clicks
           end else    //you need the else because of your if... then.. else statement.
             Repeat    // This will just sort of be a failsafe incase
              wait(4000 + random(200));
              if FindObj(x, y, 'ttack', 4473926, 7) then
                begin
                 GetMousePos(x, y); 
                 Mouse(x, y, 3, 3, false);
                 WaitOption('ttack', 1500);
                end else
                Writeln('Couldn't Find Bats Logging Off!');
                LogOut;
                TerminateScript;
                Until false
    End;
    Hope it Helps somewhat idk

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
  •