Results 1 to 6 of 6

Thread: Rock Crab killer

  1. #1
    Join Date
    Oct 2007
    Location
    Canada
    Posts
    247
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Rock Crab killer

    Hello, i am looking for a script which can train on rock crabs with antirandom, and antiban support

    i know, it's hard cause rock crabs, and ground have the same colour

    i am even willing to pay rs cash for the script

    Thanks in advance

  2. #2
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    I have one.. But if ur high enough defence you can run 5+ hours.. i think

    I havent tested with the current SRL rev... But with a small edit u might get it to work


    SCAR Code:
    Program CrabFinder;
    {.Include SRL/SRL.Scar}
    {.Include SRL/SRL/Skill/Fighting.Scar}

    Label
      Kill;
    Var
      AttackRock, Couldnt: Integer;
     
    Const
      CrabColor = 5137251;
      ArrowColor = 857196;
     
    Procedure DeclarePlayers;
    Begin
           CurrentPlayer:= 0;
           HowManyPlayers:= 1;
           NumberOfPlayers(HowManyPlayers);

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    End;

    Function WaitR(Time : Integer) : Boolean;
    Var Time1: Integer;
    Begin
      Marktime(time1)
        Repeat
          Wait(50);
          If(FindTalk)Then
            Result := True;
        Until(result)or(TimeFromMark(Time1)>Time);
    End;

    Function FindFastRandoms: Boolean;   //by WT-Fakawi
    var
      i: Integer;
    begin
      for i:=1 to 8 do
      begin
        case I of
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7:  if NoGameTab then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
         8: FindTalk;
        end;
      end;
    end;

    Procedure Setup;
    Begin
      ClearDeBug;
      Writeln('Successfully compiled');
      SetupSRL;
      AttackRock := BitmapFromString(79, 13, 'beNrtlUsOgCAMBbn/pX' +
           'UliZQ3qS0aVBoXpoJ0+nmU8k/bDnvgFFxweqKn0N4aQxOMjS2ZECe' +
           'sJ+YYLAAu2A/ANmY/KY9ywnagrnHagNUsWz/+JFVZtb6Lo9LiJHJW' +
           'HyQu38bQFVc1fyzs8Jm9o7KWYpLKBmA9Mxt49w0+3a0gR9zGLFA6G' +
           'xIkIFAZSV/2GtsBzoK0aA==');
      MouseSpeed:= 18;
      DeclarePlayers;
      ActivateClient;
      Wait(1000);
      If(Not Loggedin)Then LoginPlayer;
      FindFastRandoms
    End;

    Function FindCrab: Boolean;
    Var
      CrabTPA: TPointArray;
      I, Cx, Cy: Integer;
    Begin
      If(Not loggedin)Then Exit;
      Cx := MSCX; Cy:= MSCY;
      FindColorsSpiralTolerance(Cx, Cy, CrabTPA, CrabColor, MSX1, MSY1, MSX2, MSY2, 2);
      For I:= 0 To GetArrayLength(CrabTPA)-1 Do
      Begin
        Cx := CrabTPA[I].X;
        Cy := CrabTPA[I].Y;
        MMouse(Cx, Cy, 0, 0);
        WaitR(100+Random(100));
        If(IsUpText('/'))Or(IsUpText('more'))Then
          Begin
            Mouse(Cx, Cy, 0, 0, False);
            If(FindBitmap(AttackRock, Cx, Cy))Then
            Begin
              Mouse(Cx, Cy, 3, 10, True);
              Flag;
              Result:= true;
              WaitR(1000+Random(1000));
              Exit;
            End Else
            If(ChooseOption('Walk here'))Then
              Begin
                Result:= True;
                Flag;
                WaitR(1000+Random(1000));
                Exit;
              End;
          End;
      End;
    End;

    Function EquipArrows: Boolean;
    Var
      X, Y, I: Integer;
      ItemTP: TPoint;
    Begin
      GameTab(4);
      For I:= 1 To 28 Do
        Begin
          ItemTP:= ItemCoords(I);
          If(FindColor(X, Y, ArrowColor, ItemTP.X-10, ItemTP.Y-10, ItemTP.X+10, ItemTP.Y+10))Then
            Begin
              MMouse(ItemTP.X+Random(10)-Random(10), ItemTP.Y+Random(10)-Random(10), 0, 0);
              WaitR(10);
              GetMousePos(X, Y);
              If(IsUpText('ron'))Then
                Begin
                  Result:= True;
                  Mouse(X, Y, 0, 0, True);
                  Exit; //Exit the proc....
                End;
            End;
        End;
    End;

    Function PickUpArrows: Boolean;
    Var
      DX, DY, ERR, Iron, Bron: Integer;
    Begin
      If(Not Loggedin)Then Exit;

      Repeat
      If(FindColorSpiralTolerance(Dx, Dy, ArrowColor, MSCX-100, MSCY-100, MSCX+100, MSCY+100, 1))Then
          Begin
            MMouse(Dx, Dy, 1, 1);
            WaitR(25);
            If(IsUpText('rrow'))Then
              Begin
                Mouse(Dx, Dy, 0, 0, True);
                Flag;
                WaitR(400+random(500));
                Result := True;
              End Else
                Begin
                  Iron := BitmapFromString2(False, 'aFCF9278DAED98DB0E83200C8' +
                  '65FA92207BD5CDC78FF475ABB5D9291425BA7497BF147018BC58F' +
                  '960800F0D850201D286B7DA1E695AEF3124821A2868D347DC6A49' +
                  'AA99D3A213E77D4B2D34D499534A2872516BA0EF9A80C8329937B' +
                  '18996BC76568D5EDBFA6CBC09944B55CB939514E9413E544B9C91' +
                  '9E09FB5DA5EFEF8391A7F11C53F65C947CEF1ACFB86D6F18EACFC' +
                  '1821FC765DCF72A2E69EE5F81CE54A6BDE33E3D522AACF0987A8D' +
                  '1DC684194C59795575E7EC693C4A21B17671F5D21475957BDAB11' +
                  '65E1DF3ADE11FEAD88D2CD454ED41588E25458BBAA27C9691CD2F' +
                  'AFB85FF95E527D5BB54BDB93FC3FDD5F8DA1BFC7');

                  Bron := BitmapFromString2(False, 'a6F39B78DAED57410EC42008F' +
                  'C12B6E2D6E3A6A9FF7FD28AD74D1304D4EE060ED344A768C874A0' +
                  '0000EFA302E05961CF84696F1836428815B783101B074BA275DA8' +
                  '4D81EAFDC100B61BC0002868BDE4A67610488429FA1FFC45C8B71' +
                  '871E4F085B55ACD51867DDC335E61A738DB9C63C46A8823FB37DE' +
                  'FF2F9327DF6CE63339932BEFE3EB28AC9983C4E9F66F8EBB699AD' +
                  '7CACB7B69A9C7C25D8DE6755ADEE39721FE368ACD73F676A6C744' +
                  'ECD59E3E601BE7FDADD7FBD8F59F5CADFD298CCE534BD72DD3732' +
                  '4A63B67EF54F1AB3EA714FAED59C5EA9F13D59AFD4CC5A56B3B16' +
                  'CCE19F167B1B6577E00E97');
                  Mouse(Dx, Dy ,0, 0, False);
                  If(FindBitMap(Iron, Dx, Dy))Or
                    (FindBitMap(Bron, Dx, Dy))Then
                     Begin
                       Mouse(Dx, Dy, 10, 3, True);
                       Flag;
                       WaitR(400+random(300));
                     End Else
                       Begin
                         ChooseOption('ance');
                         ERR:= ERR + 1;
                       End;
                  FreeBitMap(Iron);
                  FreeBitMap(Bron);
                End;
          End;
        FindFastRandoms;
      Until(Not Loggedin)Or(ERR > 3)Or(Not FindColorSpiralTolerance(Dx, Dy, ArrowColor, MSCX-100, MSCY-100, MSCX+100, MSCY+100, 1))

      If(Not EquipArrows)Then
        Begin
          GameTab(5);
          WaitR(400+Random(500));
          If(Not FindColor(DX, DY, ArrowColor, MIX1, MIY1, MIX2, MIY2))Then
            Logout;
        End;
    End;

    Procedure WalkToSymbolAndBack;
    Var
      I, X, Y, A: Integer;
    Begin
      If(Not Loggedin)Then Exit;
      WaterColor := FindWaterColor;
      X:= MMCX; Y:= MMCY;
      If(FindColorSpiral(X, Y, WaterColor, 560, 7, MMCX+30, MMCY+30))Then
      Begin
        Mouse(X, Y, 0, 0, True);
        Flag;
        Repeat
          If(WaterWalk(290, 255, 50, 10, 0, 10, 0, 0))Then
            A := A + 1
          Else If(A > 10)Then Logout;
          FindFastRandoms;
          If(not Loggedin)Then Exit;
        Until(FindSymbol(X, Y, 'fish'));
        Mouse(X, Y, 0, 0, True);
        Flag;
        Wait(1000+Random(1000));
        For I:= 0 To A Do
          Begin
            Mouse(699-A*5, 87, 10+Random(A*5)-Random(A*5), 10+Random(A*5)-Random(A*5), True);
            Flag;
          End;
        X:= MMCX; Y:= MMCY;
        If(FindColorSpiral(X, Y, WaterColor, 560, 7, MMCX, MMCY))Then
          Begin
            Mouse(X, Y, 0, 0, True);
            Flag;
          End Else Logout;
        Writeln('Did a Walk away from rock crabs');
      End Else Logout;
    End;

    Begin
      Setup;
      Kill:
      FindFastRandoms;
      If(Not Loggedin)Then TerminateScript;
      If(FindCrab)Then
        Begin
          If(InFight)Then
          Begin
          Repeat
            If(Random(5)>3)Then
              SleepAndMoveMouse(400+Random(500))
            Else WaitR(400+Random(500));
            FindNormalRandoms;
          Until(Not InFight);
          Couldnt := 0;
          FindFastRandoms
          //PickUpArrows;
          End;
        End Else Begin Wait(1000+Random(200)); If(Couldnt > 20)Then Logout; End;
      Couldnt := Couldnt + 1;
      If(Couldnt > 10)Then
        WalkToSymbolAndBack;
      Goto Kill;
    End.

    When the rock crabs are not attacking you anymore it tries to walk to the bridge and back but u might have to edit that part a bit.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  3. #3
    Join Date
    Jun 2007
    Location
    brooklyn ny
    Posts
    683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sry for being a noob whats a rock crab?

  4. #4
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    A monster of the worst sort! They see you, then BAM! Before you know it, you've been vaporized by their laser eyes.

    Actually, they're just little wannabe rocks. P2P.
    Interested in C# and Electrical Engineering? This might interest you.

  5. #5
    Join Date
    Oct 2007
    Location
    In the center of the USA.
    Posts
    159
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [QUOTE=JuKKa;261023]I have one.. But if ur high enough defence you can run 5+ hours.. QUOTE]

    I tested the script. It only attacks the rock crabs insight. It even goes for the ones on the hobgoblin side. so yeah, that means you do need high defence to auto-retaliate the hobs.

  6. #6
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [QUOTE=Khazar;261536]
    Quote Originally Posted by JuKKa View Post
    I have one.. But if ur high enough defence you can run 5+ hours.. QUOTE]

    I tested the script. It only attacks the rock crabs insight. It even goes for the ones on the hobgoblin side. so yeah, that means you do need high defence to auto-retaliate the hobs.
    go on other side of fence no gobbiez there

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. rock crab killer..
    By j035m03 in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 08-09-2008, 03:38 PM
  2. Rock Crab Killer Plz!!!
    By Choob'R'Us in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 05-14-2008, 01:44 PM
  3. Rock Crab Killer
    By tantalus33 in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 03-17-2007, 06:22 AM

Posting Permissions

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