Page 8 of 99 FirstFirst ... 6789101858 ... LastLast
Results 176 to 200 of 2463

Thread: Kyle's Esswraith Extractor

  1. #176
    Join Date
    Jan 2012
    Posts
    468
    Mentioned
    3 Post(s)
    Quoted
    200 Post(s)

    Default

    hmm so i dont need the speeds after all! kk im add jumper and skulls! might take a sec!

  2. #177
    Join Date
    Dec 2011
    Location
    Berlin
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Riotday View Post
    I had two blood skulls right by me and oh my i didn't even notice that. Thanks for the post. How do you get the colors off simba? :/
    Quote Originally Posted by Riotday View Post
    Color of blood skulls.

    Quote Originally Posted by Riotday View Post
    Edit: Also it worked with the Jumper Siphoning flawlessly. It clicked on it then went back to blood.
    Triple post? You should edit your posts.

    I will try to answer all Runescape related questions!

  3. #178
    Join Date
    Apr 2012
    Location
    United States
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sorry I wasn't paying attention I assumed it would've just added onto the same post like some do, I'll delete it. My apologies.
    You're reading what I am doing. Absolutely nothing.

  4. #179
    Join Date
    Dec 2011
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Could someone post the correct code for deaths? i might have screwed mine up. also how do u copy it from villa and paste it into simba without it all going onto one line?

  5. #180
    Join Date
    Jan 2012
    Posts
    468
    Mentioned
    3 Post(s)
    Quoted
    200 Post(s)

    Default

    v2 Blood with jumper,skulls,shifter


    Code:
    program BloodEsswraithExtractor;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    
    var
      StartXP, XPH, XP, T : Integer;
    
    procedure DeclarePlayers();
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      with Players[0] do
      begin
        Name          := '';      // Your RuneScape Account Name
        Pass          := '';      // Your RuneScape Account Password
        Active        := True;    // Use in the Script. True / False.
      end;
    end;
    (* Credits to Flight *)
    procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
    var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
      lastX,lastY,MSP,W,maxStep,D: integer;
      sqrt2,sqrt3,sqrt5: extended;
    begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);
    
      repeat
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        D := Random((Round(dist)/3));
        if (D > 100) then
          D := RandomRange(90, 100);
        if (D < 5) then
          D := RandomRange(5, 8);
    
        maxStep := D;
    
        if dist >= targetArea then
        begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        end else
        begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
        end;
    
        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;
    
        if hypot(veloX, veloY) > maxStep then
        begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        end;
    
        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;
    
        if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
          MoveMouse(Round(xs), Round(ys));
    
        W := (Random(100/MSP))*3;
        if (W < 5) then
          W := 5;
        wait(W);
        lastdist:= dist;
      until(hypot(xs - xe, ys - ye) < 1)
    
      if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
        MoveMouse(Round(xe), Round(ye));
    
      MouseSpeed := MSP;
    end;
    
    (* Credits to Flight *)
    procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
    var
      randSpeed: extended;
      X,Y: integer;
    begin
      randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
      GetMousePos(X, Y);
      BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
    end;
    
    function FindMonster(var x, y : Integer) : Boolean;
    var
      a, h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.12, 0.72);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6263962, MSX1, MSY1, MSX2, MSY2, 15);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        MMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
    
    function FindJumper(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16624975, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
      end;
    end;
    
    function FindSkulls(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9748431, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
      end;
    end;
                      
    function FindShifter(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1830421, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
      end;
    end;
    
    procedure AntiBan();
    begin
      if(not(LoggedIn))then Exit;
    
      FindNormalRandoms;
    
      case (Random(350)) of
        0 : RandomRClick;
        1 : HoverSkill('random', False);
        2 : ExamineInv;
        3 : MouseSpeed := (RandomRange(10, 12));
        4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
        5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
        6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
        7 .. 14 : HoverSkill('Runecrafting', False);
        15 .. 40 : Wait(RandomRange(750, 2000));
        41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
      end;
    end;
    
    procedure Proggy;
    begin
      ClearDebug();
      XP := (GetXPBarTotal - StartXP);
      XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      MarkTime(T);
    end;
    
    procedure MainLoop();
    var
      x, y : Integer;
    begin
      repeat
        if TimeFromMark(T) > 120000 then
          Proggy;
    
        if(FindSkulls(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
        end;
        if(FindJumper(x, y))then
        begin
          wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
        end;         
        if(FindMonster(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
             Wait(100);
             FindNormalRandoms;
          until(not(IsUpTextMultiCustom(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'])));
        end;
        if(FindShifter(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
        end;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
    end;
    
    begin
      Smart_Server := 10;
      Smart_Members := True;
      Smart_Signed := True;
      SetupSRL();
      ActivateClient();
      DeclarePlayers();
      LoginPlayer();
      while(not(RSReady()))do
        Wait(9000);
    
      StartXP := GetXPBarTotal;
      MarkTime(T);
      SetAngle(SRL_ANGLE_HIGH);
    
      MainLoop();
    end.
    [/QUOTE]


    v2 death with jumper,skulls,shifter

    Code:
    program DeathEsswraithExtractor;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    
    var
      StartXP, XPH, XP, T : Integer;
    
    procedure DeclarePlayers();
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      with Players[0] do
      begin
        Name          := '';      // Your RuneScape Account Name
        Pass          := '';      // Your RuneScape Account Password
        Active        := True;    // Use in the Script. True / False.
      end;
    end;
    
    (* Credits to Flight *)
    Procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
      var
        veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
        lastX,lastY,MSP,W,maxStep,D: integer;
        sqrt2,sqrt3,sqrt5: extended;
      begin
        MSP  := MouseSpeed;
        sqrt2:= sqrt(2);
        sqrt3:= sqrt(3);
        sqrt5:= sqrt(5);
    
        repeat
    
          dist:= hypot(xs - xe, ys - ye);
          wind:= minE(wind, dist);
    
          D := (Round(dist)/7)
          if (D > 200) then
            D := RandomRange(180, 200);
          if (D < 10) then
            D := RandomRange(4, 7);
    
          maxStep := D;
    
          if dist >= targetArea then
          begin
            windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
            windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          end else
          begin
            windX:= windX / sqrt2;
            windY:= windY / sqrt2;
          end;
    
          veloX:= veloX + windX;
          veloY:= veloY + windY;
          veloX:= veloX + gravity * (xe - xs) / dist;
          veloY:= veloY + gravity * (ye - ys) / dist;
    
          if hypot(veloX, veloY) > maxStep then
          begin
            randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
            veloMag:= sqrt(veloX * veloX + veloY * veloY);
            veloX:= (veloX / veloMag) * randomDist;
            veloY:= (veloY / veloMag) * randomDist;
          end;
    
          lastX:= Round(xs);
          lastY:= Round(ys);
          xs:= xs + veloX;
          ys:= ys + veloY;
    
          if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
            MoveMouse(Round(xs), Round(ys));
    
          W := (Random(100/MSP))*3;
          if (W < 5) then
            W := 5;
          W := Round(W*1.5);
          wait(W);
          lastdist:= dist;
        until(hypot(xs - xe, ys - ye) < 1)
    
        if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
          MoveMouse(Round(xe), Round(ye));
    
        MouseSpeed := MSP;
      end;
    
      Procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y: integer;
      begin
        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        GetMousePos(X, Y);
        BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
      end;
    
    function FindMonster(var x, y : Integer) : Boolean;
    var
      a, h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.04, 0.58);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5278586, MSX1, MSY1, MSX2, MSY2, 26);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        MMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['eath ess', 'iphon De', 'ath essw', 'Siphon Death esswraith'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
    
    function FindJumper(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16624975, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
      end;
    end;
    
    function FindSkulls(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9748431, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
      end;
    end;
    
    function FindShifter(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1830421, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
      end;
    end;
    
    procedure AntiBan();
    begin
      if(not(LoggedIn))then Exit;
    
      FindNormalRandoms;
    
      case (Random(350)) of
        0 : RandomRClick;
        1 : HoverSkill('random', False);
        2 : ExamineInv;
        3 : MouseSpeed := (RandomRange(10, 12));
        4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
        5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
        6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
        7 .. 14 : HoverSkill('Runecrafting', False);
        15 .. 40 : Wait(RandomRange(750, 2000));
        41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
      end;
    end;
    
    procedure Proggy;
    begin
      ClearDebug();
      XP := (GetXPBarTotal - StartXP);
      XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      MarkTime(T);
    end;
    
    procedure MainLoop();
    var
      x, y : Integer;
    begin
      repeat
        if TimeFromMark(T) > 12000000 then
          Proggy;
    
        if(FindSkulls(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
        end;
        if(FindJumper(x, y))then
        begin
          wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
        end;
        if(FindShifter(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
        end;
        if(FindMonster(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
             Wait(100);
             FindNormalRandoms;
          until(not(IsUpTextMultiCustom(['eath ess', 'iphon De', 'ath essw', 'Siphon Death esswraith'])));
        end;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
    end;
    
    begin
      Smart_Server := 10;
      Smart_Members := True;
      Smart_Signed := True;
      SetupSRL();
      ActivateClient();
      DeclarePlayers();
      LoginPlayer();
      while(not(RSReady()))do
        Wait(9000);
    
      StartXP := GetXPBarTotal;
      MarkTime(T);
      SetAngle(SRL_ANGLE_HIGH);
    
      MainLoop();
    end.
    Not fully tested so don't flame me! Need more colors! would make my life much easier! Time to go to work!

  6. #181
    Join Date
    Jul 2007
    Location
    Finland
    Posts
    304
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I see this script is very popular

  7. #182
    Join Date
    Jan 2012
    Posts
    468
    Mentioned
    3 Post(s)
    Quoted
    200 Post(s)

    Default

    Blood Pool added to the blood version

    Code:
    program BloodEsswraithExtractor;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    
    var
      StartXP, XPH, XP, T : Integer;
    
    procedure DeclarePlayers();
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      with Players[0] do
      begin
        Name          := '';      // Your RuneScape Account Name
        Pass          := '';      // Your RuneScape Account Password
        Active        := True;    // Use in the Script. True / False.
      end;
    end;
    (* Credits to Flight *)
    procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
    var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
      lastX,lastY,MSP,W,maxStep,D: integer;
      sqrt2,sqrt3,sqrt5: extended;
    begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);
    
      repeat
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        D := Random((Round(dist)/3));
        if (D > 100) then
          D := RandomRange(90, 100);
        if (D < 5) then
          D := RandomRange(5, 8);
    
        maxStep := D;
    
        if dist >= targetArea then
        begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        end else
        begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
        end;
    
        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;
    
        if hypot(veloX, veloY) > maxStep then
        begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        end;
    
        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;
    
        if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
          MoveMouse(Round(xs), Round(ys));
    
        W := (Random(100/MSP))*3;
        if (W < 5) then
          W := 5;
        wait(W);
        lastdist:= dist;
      until(hypot(xs - xe, ys - ye) < 1)
    
      if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
        MoveMouse(Round(xe), Round(ye));
    
      MouseSpeed := MSP;
    end;
    
    (* Credits to Flight *)
    procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
    var
      randSpeed: extended;
      X,Y: integer;
    begin
      randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
      GetMousePos(X, Y);
      BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
    end;
    
    function FindMonster(var x, y : Integer) : Boolean;
    var
      a, h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.12, 0.72);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6263962, MSX1, MSY1, MSX2, MSY2, 15);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        MMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
    
    function FindJumper(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16624975, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
      end;
    end;
    
    function FindBloodPool(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1252488, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'])));
      end;
    end;
    
    function FindSkulls(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9748431, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
      end;
    end;
    
    function FindShifter(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1830421, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
      end;
    end;
    
    procedure AntiBan();
    begin
      if(not(LoggedIn))then Exit;
    
      FindNormalRandoms;
    
      case (Random(350)) of
        0 : RandomRClick;
        1 : HoverSkill('random', False);
        2 : ExamineInv;
        3 : MouseSpeed := (RandomRange(10, 12));
        4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
        5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
        6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
        7 .. 14 : HoverSkill('Runecrafting', False);
        15 .. 40 : Wait(RandomRange(750, 2000));
        41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
      end;
    end;
    
    procedure Proggy;
    begin
      ClearDebug();
      XP := (GetXPBarTotal - StartXP);
      XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      MarkTime(T);
    end;
    
    procedure MainLoop();
    var
      x, y : Integer;
    begin
      repeat
        if TimeFromMark(T) > 120000 then
          Proggy;
    
        if(FindBloodPool(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'])));
        end;
        if(FindSkulls(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
        end;
        if(FindJumper(x, y))then
        begin
          wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
        end;
        if(FindMonster(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
             Wait(100);
             FindNormalRandoms;
          until(not(IsUpTextMultiCustom(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'])));
        end;
        if(FindShifter(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
        end;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
    end;
    
    begin
      Smart_Server := 10;
      Smart_Members := True;
      Smart_Signed := True;
      SetupSRL();
      ActivateClient();
      DeclarePlayers();
      LoginPlayer();
      while(not(RSReady()))do
        Wait(9000);
    
      StartXP := GetXPBarTotal;
      MarkTime(T);
      SetAngle(SRL_ANGLE_HIGH);
    
      MainLoop();
    end.

  8. #183
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    kyle, is it alright il steal ur script to try make one that goes for all the nodes too :P
    their spawnrate is insane atm

    and how do i add support for multiply things?

  9. #184
    Join Date
    Jan 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Time Running: 1 Hours, 59 Minutes and 22 Seconds
    Experience Earned: 0
    Experience/Hour: 0

    Going well but like I said the exp doesnt work for me

  10. #185
    Join Date
    Apr 2012
    Location
    United States
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Blood skull colors.

    You're reading what I am doing. Absolutely nothing.

  11. #186
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    this looks like an awesome script, too bad i dont have members and the level required.

  12. #187
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @ Riotday, Flight's FindBloodySkull function is working great for me is it not working for u?

    O and thanks Rules of Joe for the blood pool!
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  13. #188
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Loving all the edits and team work going on for this! Keep it up guys!
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  14. #189
    Join Date
    Apr 2012
    Location
    United States
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nebula colors

    You're reading what I am doing. Absolutely nothing.

  15. #190
    Join Date
    Jan 2012
    Posts
    468
    Mentioned
    3 Post(s)
    Quoted
    200 Post(s)

    Default

    all nodes with every skull and nebula i just added everything Blood Version!

    Code:
    program BloodEsswraithExtractor;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    
    var
      StartXP, XPH, XP, T : Integer;
    
    procedure DeclarePlayers();
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      with Players[0] do
      begin
        Name          := '';      // Your RuneScape Account Name
        Pass          := '';      // Your RuneScape Account Password
        Active        := True;    // Use in the Script. True / False.
      end;
    end;
    (* Credits to Flight *)
    procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
    var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
      lastX,lastY,MSP,W,maxStep,D: integer;
      sqrt2,sqrt3,sqrt5: extended;
    begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);
    
      repeat
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        D := Random((Round(dist)/3));
        if (D > 100) then
          D := RandomRange(90, 100);
        if (D < 5) then
          D := RandomRange(5, 8);
    
        maxStep := D;
    
        if dist >= targetArea then
        begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        end else
        begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
        end;
    
        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;
    
        if hypot(veloX, veloY) > maxStep then
        begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        end;
    
        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;
    
        if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
          MoveMouse(Round(xs), Round(ys));
    
        W := (Random(100/MSP))*3;
        if (W < 5) then
          W := 5;
        wait(W);
        lastdist:= dist;
      until(hypot(xs - xe, ys - ye) < 1)
    
      if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
        MoveMouse(Round(xe), Round(ye));
    
      MouseSpeed := MSP;
    end;
    
    (* Credits to Flight *)
    procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
    var
      randSpeed: extended;
      X,Y: integer;
    begin
      randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
      GetMousePos(X, Y);
      BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
    end;
    
    function FindMonster(var x, y : Integer) : Boolean;
    var
      a, h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.12, 0.72);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6263962, MSX1, MSY1, MSX2, MSY2, 15);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        MMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
    
    function FindJumper(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16624975, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
      end;
    end;
    
    function FindBloodPool(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1252488, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'])));
      end;
    end;
    
    function FindNebula(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.54, 1.05);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 11951253, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Nebula', 'on Neb', 'Nebula', 'bula'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Nebula', 'on Neb', 'Nebula', 'bula'])));
      end;
    end;
    
    function FindSkulls(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9748431, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
      end;
    end;
    
    function FindBloodySkulls(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.15, 1.52);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 396358, MSX1, MSY1, MSX2, MSY2, 2);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Bloody', 'skulls', 'oody', 'kulls'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Bloody', 'skulls', 'oody', 'kulls'])));
      end;
    end;
    
    function FindShifter(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1830421, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'], 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
      end;
    end;
    
    procedure AntiBan();
    begin
      if(not(LoggedIn))then Exit;
    
      FindNormalRandoms;
    
      case (Random(350)) of
        0 : RandomRClick;
        1 : HoverSkill('random', False);
        2 : ExamineInv;
        3 : MouseSpeed := (RandomRange(10, 12));
        4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
        5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
        6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
        7 .. 14 : HoverSkill('Runecrafting', False);
        15 .. 40 : Wait(RandomRange(750, 2000));
        41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
      end;
    end;
    
    procedure Proggy;
    begin
      ClearDebug();
      XP := (GetXPBarTotal - StartXP);
      XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      MarkTime(T);
    end;
    
    procedure MainLoop();
    var
      x, y : Integer;
    begin
      repeat
        if TimeFromMark(T) > 120000 then
          Proggy;
    
        if(FindBloodySkulls(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Bloody', 'skulls', 'oody', 'kulls'])));
        end;
        if(FindBloodPool(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'])));
        end;
        if(FindSkulls(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
        end;
        if(FindJumper(x, y))then
        begin
          wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
        end;
        if(FindMonster(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
             Wait(100);
             FindNormalRandoms;
          until(not(IsUpTextMultiCustom(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'])));
        end;
        if(FindNebula(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Nebula', 'on Neb', 'Nebula', 'bula'])));
        end;
        if(FindShifter(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
        end;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
    end;
    
    begin
      Smart_Server := 10;
      Smart_Members := True;
      Smart_Signed := True;
      SetupSRL();
      ActivateClient();
      DeclarePlayers();
      LoginPlayer();
      while(not(RSReady()))do
        Wait(9000);
    
      StartXP := GetXPBarTotal;
      MarkTime(T);
      SetAngle(SRL_ANGLE_HIGH);
    
      MainLoop();
    end.
    Enjoy!

  16. #191
    Join Date
    Apr 2012
    Location
    United States
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alright I made a 4:30 second video of the script running without the nebula and blood skull update and it will point out what needs fixed etc. One moment.
    You're reading what I am doing. Absolutely nothing.

  17. #192
    Join Date
    Dec 2011
    Location
    Berlin
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Here is the script working for Soul esswraith´s

    Simba Code:
    program SoulEsswraithExtractor;
    {$DEFINE SMART}
    {$i srl/srl.simba}

    var
      StartXP, XPH, XP, T : Integer;

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

      with Players[0] do
      begin
        Name          := '';      // Your RuneScape Account Name
        Pass          := '';      // Your RuneScape Account Password
        Active        := True;    // Use in the Script. True / False.
      end;
    end;
    (* Credits to Flight *)
    procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
    var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
      lastX,lastY,MSP,W,maxStep,D: integer;
      sqrt2,sqrt3,sqrt5: extended;
    begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);

      repeat
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        D := Random((Round(dist)/3));
        if (D > 100) then
          D := RandomRange(90, 100);
        if (D < 5) then
          D := RandomRange(5, 8);

        maxStep := D;

        if dist >= targetArea then
        begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        end else
        begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
        end;

        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;

        if hypot(veloX, veloY) > maxStep then
        begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        end;

        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;

        if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
          MoveMouse(Round(xs), Round(ys));

        W := (Random(100/MSP))*3;
        if (W < 5) then
          W := 5;
        wait(W);
        lastdist:= dist;
      until(hypot(xs - xe, ys - ye) < 1)

      if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
        MoveMouse(Round(xe), Round(ye));

      MouseSpeed := MSP;
    end;

    (* Credits to Flight *)
    procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
    var
      randSpeed: extended;
      X,Y: integer;
    begin
      randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
      GetMousePos(X, Y);
      BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
    end;

    function FindMonster(var x, y : Integer) : Boolean;
    var
      a, h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;

      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.12, 0.72);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 13478981, MSX1, MSY1, MSX2, MSY2, 25);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);

      H := High(ATPA);

      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);

        MMouse(X, Y, 5, 5);

        If (WaitUpTextMulti(['oul ess', 'iphon So', 'oul essw', 'Siphon Soul esswraith'], 750)) Then
        begin
          ClickMouse2(True);

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

          Result:= True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;

    function FindJumper(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;

      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16624975, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);

      H := High(ATPA);

      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);

        BrakeMMouse(X, Y, 5, 5);

        If (WaitUpTextMulti(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'], 750)) Then
        begin
          ClickMouse2(True);

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

          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
      end;
    end;

    function FindBloodPool(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;

      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1252488, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);

      H := High(ATPA);

      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);

        BrakeMMouse(X, Y, 5, 5);

        If (WaitUpTextMulti(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'], 750)) Then
        begin
          ClickMouse2(True);

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

          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'])));
      end;
    end;

    function FindSkulls(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;

      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9748431, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);

      H := High(ATPA);

      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);

        BrakeMMouse(X, Y, 5, 5);

        If (WaitUpTextMulti(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'], 750)) Then
        begin
          ClickMouse2(True);

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

          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
      end;
    end;

    function FindShifter(var x, y : Integer) : Boolean;
    var
      a,h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;

      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 1.70);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1830421, MSX1, MSY1, MSX2, MSY2, 7);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);

      H := High(ATPA);

      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);

        BrakeMMouse(X, Y, 5, 5);

        If (WaitUpTextMulti(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'], 750)) Then
        begin
          ClickMouse2(True);

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

          Result:= True;
          break;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if Result then
      begin
        repeat
          Wait(100);
          FindNormalRandoms;
        until(not(IsUpTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
      end;
    end;

    procedure AntiBan();
    begin
      if(not(LoggedIn))then Exit;

      FindNormalRandoms;

      case (Random(350)) of
        0 : RandomRClick;
        1 : HoverSkill('random', False);
        2 : ExamineInv;
        3 : MouseSpeed := (RandomRange(10, 12));
        4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
        5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
        6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
        7 .. 14 : HoverSkill('Runecrafting', False);
        15 .. 40 : Wait(RandomRange(750, 2000));
        41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
      end;
    end;

    procedure Proggy;
    begin
      ClearDebug();
      XP := (GetXPBarTotal - StartXP);
      XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      MarkTime(T);
    end;

    procedure MainLoop();
    var
      x, y : Integer;
    begin
      repeat
        if TimeFromMark(T) > 120000 then
          Proggy;

        if(FindBloodPool(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'])));
        end;
        if(FindSkulls(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'])));
        end;
        if(FindJumper(x, y))then
        begin
          wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
        end;
        if(FindMonster(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
             Wait(100);
             FindNormalRandoms;
          until(not(IsUpTextMultiCustom(['oul ess', 'iphon So', 'oul essw', 'Siphon Soul esswraith'])));
        end;
        if(FindShifter(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
            Wait(100);
            FindNormalRandoms;
          Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
        end;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
    end;

    begin
      Smart_Server := 10;
      Smart_Members := True;
      Smart_Signed := True;
      SetupSRL();
      ActivateClient();
      DeclarePlayers();
      LoginPlayer();
      while(not(RSReady()))do
        Wait(9000);

      StartXP := GetXPBarTotal;
      MarkTime(T);
      SetAngle(SRL_ANGLE_HIGH);

      MainLoop();
    end.


    I would suggest botting it at this spot because there are 2 Soul esswraith´s on a small Island and no others else.

    Last edited by Imanoobbot; 05-02-2012 at 03:15 PM.

    I will try to answer all Runescape related questions!

  18. #193
    Join Date
    Jan 2012
    Posts
    468
    Mentioned
    3 Post(s)
    Quoted
    200 Post(s)

    Default

    Hope everything works right! =P
    Last edited by BigRedJapan; 05-01-2012 at 06:13 PM.

  19. #194
    Join Date
    Jul 2007
    Location
    Finland
    Posts
    304
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    type ColorObject = record
       Uptexts: TStringArray;
       Color: Integer;
       Tolerance: Integer;
       Hue: Extended;
       Sat: Extended;
       Width: Integer;
       Heigth: Integer;
    end;
    Code:
    Function GetColorObject( name:String ): ColorObject;
    begin
    
    
    
      case name of
    
      'Body Esshound':
      with result do
        begin
            Uptexts           := ['Body Esshound', 'iphon ess', 'sshound'];
            Color              := 3037545;
            Tolerance        := 12;
            Hue                := 0.09;
            Sat               := 2.59;
            Width             := 20;
            Heigth            := 20;
        end;
    end;
    Code:
    function FindMonster(var x, y : Integer,obj : ColorObject) : Boolean;
    var
      a, h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(obj.hue, obj.sat);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, obj.Color, MSX1, MSY1, MSX2, MSY2, obj.Tolerance);
      ATPA := TPAtoATPAEx(TPA, obj.width, obj.heigth);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        BrakeMMouse(X, Y, 5, 5);
    
        If (WaitUpTextMulti(obj.Uptexts, 750)) Then
        begin
          ClickMouse2(True);
    
          ColorToleranceSpeed(tmpCTS);
          SetColorSpeed2Modifiers(0.2, 0.2);
    
          Result:= True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
    Code:
    then you can do something like this:
    monsters := ['Body Esshound','fire storm'];
    
    for i := 0  in high(monsters) do
    begin
    findmonster(x,y,getcolorobject(monsters[i])) ...
    bla bla
    end;
    Some code cleanup would do nice (record for each monster and 1 finder function)

    edit:codes are not tested:P
    Last edited by nokkasiili; 05-01-2012 at 06:21 PM.

  20. #195
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Quote Originally Posted by nokkasiili View Post
    Code:
    type ColorObject = record
       Uptexts: TStringArray;
       Color: Integer;
       Tolerance: Integer;
       Hue: Extended;
       Sat: Extended;
       Width: Integer;
       Heigth: Integer;
    end;
    Some code cleanup would do nice (record for each monster and 1 finder function)
    Yup, I totally agree. I just don't have time to get that working yet
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  21. #196
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by Er1k View Post
    Kyle, I also have the colors for generic Esshounds. Guess it's about time to give it back so that everyone can stay on using this flawless script instead of writing their own.
    Esshounds are a pain in the butt. I made my own but it's difficult to keep track if they move or not. This script using uptext checking doesn't work well since the hounds continue to move even when being attacked, unlike the esswraiths.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  22. #197
    Join Date
    Apr 2012
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Okay, im having a problem where it will just shut off after like 5 mintues and say successfully executed

    Simba Code:
    program esshoundExtractor;
    {$DEFINE SMART}
    {$i srl/srl.simba}

    var
      StartXP, XPH, XP, T : Integer;

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

      with Players[0] do
      begin
        Name          := '';      // Your RuneScape Account Name
        Pass          := '';      // Your RuneScape Account Password
        Active        := True;    // Use in the Script. True / False.
      end;
    end;

    (* Credits to Flight *)
    procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
    var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
      lastX,lastY,MSP,W,maxStep,D: integer;
      sqrt2,sqrt3,sqrt5: extended;
    begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);

      repeat
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        D := Random((Round(dist)/3));
        if (D > 100) then
          D := RandomRange(90, 100);
        if (D < 5) then
          D := RandomRange(5, 8);

        maxStep := D;

        if dist >= targetArea then
        begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        end else
        begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
        end;

        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;

        if hypot(veloX, veloY) > maxStep then
        begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        end;

        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;

        if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
          MoveMouse(Round(xs), Round(ys));

        W := (Random(100/MSP))*3;
        if (W < 5) then
          W := 5;
        wait(W);
        lastdist:= dist;
      until(hypot(xs - xe, ys - ye) < 1)

      if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
        MoveMouse(Round(xe), Round(ye));

      MouseSpeed := MSP;
    end;

    (* Credits to Flight *)
    procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
    var
      randSpeed: extended;
      X,Y: integer;
    begin
      randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
      GetMousePos(X, Y);
      BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
    end;

    function FindMonster(var x, y : Integer) : Boolean;
    var
      a, h: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;

      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.26, 1.50);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 14981481, MSX1, MSY1, MSX2, MSY2, 18);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);

      H := High(ATPA);

      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);

        MMouse(x, y, 5, 5);

        If (WaitUpTextMulti(['smic ess', 'iphon Co', 'mic essh', 'Siphon Cosmic esshound'], 750)) Then
        begin
          ClickMouse2(True);

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

          Result:= True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;

    procedure AntiBan();
    begin
      if(not(LoggedIn))then Exit;

      FindNormalRandoms;

      case (Random(350)) of
        0 : RandomRClick;
        1 : HoverSkill('random', False);
        2 : ExamineInv;
        3 : MouseSpeed := (RandomRange(10, 12));
        4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
        5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
        6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
        7 .. 14 : HoverSkill('Runecrafting', False);
        15 .. 40 : Wait(RandomRange(750, 2000));
        41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
      end;
    end;

    procedure Proggy;
    begin
      ClearDebug();
      XP := (GetXPBarTotal - StartXP);
      XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      MarkTime(T);
    end;

    procedure MainLoop();
    var
      x, y : Integer;
    begin
      repeat
        if TimeFromMark(T) > 120000 then
          Proggy;

        if(FindMonster(x, y))then
        begin
          Wait(RandomRange(500, 750));
          repeat
             Wait(100);
             FindNormalRandoms;
          until(not(IsUpTextMultiCustom(['smic ess', 'iphon Co', 'mic essh', 'Siphon Cosmic esshound'])));
        end;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
    end;

    begin
      Smart_Server := 10;
      Smart_Members := True;
      Smart_Signed := True;
      SetupSRL();
      ActivateClient();
      DeclarePlayers();
      LoginPlayer();
      while(not(RSReady()))do
        Wait(9000);

      StartXP := GetXPBarTotal;
      MarkTime(T);
      SetAngle(SRL_ANGLE_HIGH);

      MainLoop();
    end.


    Same thing happend when i tried the soulwraith one, any help?





    This is what the log says:

    Time Running: 4 Minutes and 54 Seconds
    Experience Earned: 1486
    Experience/Hour: 18000
    Successfully executed.
    Last edited by ne lg; 05-01-2012 at 06:25 PM.

  23. #198
    Join Date
    Apr 2012
    Location
    United States
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alright video rendering. Will be up within the hour.
    You're reading what I am doing. Absolutely nothing.

  24. #199
    Join Date
    Jan 2012
    Posts
    468
    Mentioned
    3 Post(s)
    Quoted
    200 Post(s)

    Default

    kk the reason why it stops after 5 mins is because you need to change a code!

    new:
    Code:
    MMouse(x, y, 5, 5);
    OLD:
    Code:
    BrakeMMouse(x, y, 5, 5);
    i think that should work!

  25. #200
    Join Date
    Dec 2011
    Location
    Berlin
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    This are the colors of the "undead soul".


    I will try to answer all Runescape related questions!

Page 8 of 99 FirstFirst ... 6789101858 ... LastLast

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
  •