Page 3 of 3 FirstFirst 123
Results 51 to 60 of 60

Thread: MUST release something.

  1. #51
    Join Date
    Jan 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    Experiments -

    Simba Code:
    program new;
    {$include srl/srl/misc/smart.simba}
    {$I SRL/SRL.simba}
    {$I srl/srl/misc/debug.simba}
    {$I sps/sps.simba}
    {$Include SRL/SRL/skill/fighting.simba}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
    end;
    function FindNearestNPC(var x,y:Integer;Click:Boolean):Boolean;
    var
      NPC:TPoint;
    begin
      if FindColorSpiralTolerance(NPC.x,NPC.y,65536,558,6,690,153,4) then
      begin
        Result := True;
        if Click = True then
          Mouse(NPC.x,NPC.y,1,1,True);
      end;
    end;
    function FindSheep(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.58);

      if not(FindColorsTolerance(arP, 6868413, MSX1, MSY1, MSX2, MSY2, 25)) then
      begin
        Writeln('Failed to find the color, no object found.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 16.08) and (X <= 73.37) and (Y >= 18.80) and (Y <= 85.97) and (Z >= 10.95) and (Z <= 48.33) then
        begin
          for j := 0 to arL2 do
          begin
            if (arUC[i] = arC[j]) then
            begin
              SetLength(arAP, Length(arAP) + 1);
              arAP[High(arAP)] := arP[j];
            end;
          end;
        end;
      end;

      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 10, 10);
      arL := High(ararP);

      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        Wait(100 + Random(100));
        if (WaitUptext('ttack',750)) then
        begin;
          Result := True;
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object.');
        Exit;
      end;

      GetMousePos(fx, fy);
    end;

    function FindSpider(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.35, 2.63);

      if not(FindColorsTolerance(arP, 2047561, MSX1, MSY1, MSX2, MSY2, 8)) then
      begin
        Writeln('Failed to find the color, no object found.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 2.52) and (X <= 6.12) and (Y >= 2.60) and (Y <= 6.30) and (Z >= 1.51) and (Z <= 3.49) then
        begin
          for j := 0 to arL2 do
          begin
            if (arUC[i] = arC[j]) then
            begin
              SetLength(arAP, Length(arAP) + 1);
              arAP[High(arAP)] := arP[j];
            end;
          end;
        end;
      end;

      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 15, 15);
      arL := High(ararP);

      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        Wait(100 + Random(100));
        if (IsUpText('ttack')) then
        begin;
          Result := True;
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object.');
        Exit;
      end;

      GetMousePos(fx, fy);
    end;
    function FindWolf(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.24, 0.07);

      if not(FindColorsTolerance(arP, 6052190, MSX1, MSY1, MSX2, MSY2, 12)) then
      begin
        Writeln('Failed to find the color, no object found.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 6.87) and (X <= 14.21) and (Y >= 7.02) and (Y <= 14.52) and (Z >= 7.81) and (Z <= 16.25) then
        begin
          for j := 0 to arL2 do
          begin
            if (arUC[i] = arC[j]) then
            begin
              SetLength(arAP, Length(arAP) + 1);
              arAP[High(arAP)] := arP[j];
            end;
          end;
        end;
      end;

      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 10, 10);
      arL := High(ararP);

      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        Wait(100 + Random(100));
        if (IsUpText('ttack')) then
        begin;
          Result := True;
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object.');
        Exit;
      end;

      GetMousePos(fx, fy);
    end;
    function WalkBack:boolean;
    var
      x,y,DTM:Integer;
      aFound:Extended;
    begin
    Result := True;
    end;
    procedure Attack;
    var
      x,y,t:Integer;
    begin

      if FindSheep(x,y) or FindSpider(x,y) or FindWolf(x,y) then
      begin
        Mouse(x,y,1,1,False);
        WaitOption('ttack',750);
        MarkTime(t);
        repeat
          wait(10);
          if TimeFromMark(t) > 5000 then
            exit;
        until(InFight);
        while InFight do
        begin
          wait(10);
        end;
      end else
      begin
      FindNearestNPC(x,y,True);
      FFlag(1);
      wait(750);
      end;
      if not InFight then
      exit;
    end;
    begin
     ClearDebug;
      SetupLogin;
      DeclarePlayers;
      LoginPlayer;
      MouseSpeed := RandomRange(22,25);
      repeat
      Attack;
      until(Not LoggedIn);
    end.
    Did... you.... just..... make an experiment killer... and decide that it was too simple and easy to make to deserve a download? YOU ARE AMAZING

  2. #52
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by c00boes View Post
    Did... you.... just..... make an experiment killer... and decide that it was too simple and easy to make to deserve a download? YOU ARE AMAZING
    Lool xD
    It wasn't too hard with ACA xD

  3. #53
    Join Date
    Dec 2011
    Location
    Nj
    Posts
    2,341
    Mentioned
    1 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by bolshak25 View Post
    Fist of Guthix
    we all need more tokens and itd be a good challenge
    I second this, I offered it some Time ago, maybe a boss like you could do it...?

    For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip

  4. #54
    Join Date
    Oct 2008
    Location
    Hawaii
    Posts
    228
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    Experiments -

    Simba Code:
    program new;
    {$include srl/srl/misc/smart.simba}
    {$I SRL/SRL.simba}
    {$I srl/srl/misc/debug.simba}
    {$I sps/sps.simba}
    {$Include SRL/SRL/skill/fighting.simba}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
    end;
    function FindNearestNPC(var x,y:Integer;Click:Boolean):Boolean;
    var
      NPC:TPoint;
    begin
      if FindColorSpiralTolerance(NPC.x,NPC.y,65536,558,6,690,153,4) then
      begin
        Result := True;
        if Click = True then
          Mouse(NPC.x,NPC.y,1,1,True);
      end;
    end;
    function FindSheep(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.58);

      if not(FindColorsTolerance(arP, 6868413, MSX1, MSY1, MSX2, MSY2, 25)) then
      begin
        Writeln('Failed to find the color, no object found.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 16.08) and (X <= 73.37) and (Y >= 18.80) and (Y <= 85.97) and (Z >= 10.95) and (Z <= 48.33) then
        begin
          for j := 0 to arL2 do
          begin
            if (arUC[i] = arC[j]) then
            begin
              SetLength(arAP, Length(arAP) + 1);
              arAP[High(arAP)] := arP[j];
            end;
          end;
        end;
      end;

      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 10, 10);
      arL := High(ararP);

      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        Wait(100 + Random(100));
        if (WaitUptext('ttack',750)) then
        begin;
          Result := True;
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object.');
        Exit;
      end;

      GetMousePos(fx, fy);
    end;

    function FindSpider(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.35, 2.63);

      if not(FindColorsTolerance(arP, 2047561, MSX1, MSY1, MSX2, MSY2, 8)) then
      begin
        Writeln('Failed to find the color, no object found.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 2.52) and (X <= 6.12) and (Y >= 2.60) and (Y <= 6.30) and (Z >= 1.51) and (Z <= 3.49) then
        begin
          for j := 0 to arL2 do
          begin
            if (arUC[i] = arC[j]) then
            begin
              SetLength(arAP, Length(arAP) + 1);
              arAP[High(arAP)] := arP[j];
            end;
          end;
        end;
      end;

      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 15, 15);
      arL := High(ararP);

      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        Wait(100 + Random(100));
        if (IsUpText('ttack')) then
        begin;
          Result := True;
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object.');
        Exit;
      end;

      GetMousePos(fx, fy);
    end;
    function FindWolf(var fx, fy: Integer): Boolean;
    var
      arP, arAP: TPointArray;
      arC, arUC: TIntegerArray;
      ararP: T2DPointArray;
      tmpCTS, i, j, arL, arL2: Integer;
      P: TPoint;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.24, 0.07);

      if not(FindColorsTolerance(arP, 6052190, MSX1, MSY1, MSX2, MSY2, 12)) then
      begin
        Writeln('Failed to find the color, no object found.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      arUC := arC;
      ClearSameIntegers(arUC);
      arL := High(arUC);
      arL2 := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 6.87) and (X <= 14.21) and (Y >= 7.02) and (Y <= 14.52) and (Z >= 7.81) and (Z <= 16.25) then
        begin
          for j := 0 to arL2 do
          begin
            if (arUC[i] = arC[j]) then
            begin
              SetLength(arAP, Length(arAP) + 1);
              arAP[High(arAP)] := arP[j];
            end;
          end;
        end;
      end;

      SortTPAFrom(arAP, Point(MSCX, MSCY));
      ararP := SplitTPAEx(arAP, 10, 10);
      arL := High(ararP);

      for i := 0 to arL do
      begin
        if (Length(ararP[i]) < 10) then Continue;
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        Wait(100 + Random(100));
        if (IsUpText('ttack')) then
        begin;
          Result := True;
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object.');
        Exit;
      end;

      GetMousePos(fx, fy);
    end;
    function WalkBack:boolean;
    var
      x,y,DTM:Integer;
      aFound:Extended;
    begin
    Result := True;
    end;
    procedure Attack;
    var
      x,y,t:Integer;
    begin

      if FindSheep(x,y) or FindSpider(x,y) or FindWolf(x,y) then
      begin
        Mouse(x,y,1,1,False);
        WaitOption('ttack',750);
        MarkTime(t);
        repeat
          wait(10);
          if TimeFromMark(t) > 5000 then
            exit;
        until(InFight);
        while InFight do
        begin
          wait(10);
        end;
      end else
      begin
      FindNearestNPC(x,y,True);
      FFlag(1);
      wait(750);
      end;
      if not InFight then
      exit;
    end;
    begin
     ClearDebug;
      SetupLogin;
      DeclarePlayers;
      LoginPlayer;
      MouseSpeed := RandomRange(22,25);
      repeat
      Attack;
      until(Not LoggedIn);
    end.

    Wow, talk about fast.

  5. #55
    Join Date
    Nov 2010
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Flight View Post
    Try your hand and making an anti-random. Maybe look for one that isn't currently working.
    This. By a long shot.

    You want to help the community? Want to increase EVERYONES script runtimes and overall functionality? Script some anti-randoms. I've noticed a LOT of them don't work anymore. So important yet suprisingly forgotten about.

    Luke

  6. #56
    Join Date
    Jan 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try Dungeoneering

  7. #57
    Join Date
    Jan 2012
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    S1N why not try an LRC gold miner AND rocktail fisher, so mines gold and deposits/heats and also fishes rocktails after a certain number of ores mined? the switch shouldnt be too difficult, and it would be interesting to see how you would handle the walking

  8. #58
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try a draynor willow chopper with TPAs... they're hard.
    Or like me, go for a Hill Giant killer.
    But if it were humanly possible FOG would be quite insane

  9. #59
    Join Date
    Apr 2012
    Location
    Cell beside Joe
    Posts
    102
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'd go with fist of guthix or hill giant killer

  10. #60
    Join Date
    Apr 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I was looking for a Chocolate crusher a while back, and ended up not finding one that worked for me, so that would be appreciated?

Page 3 of 3 FirstFirst 123

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
  •