Page 7 of 99 FirstFirst ... 567891757 ... LastLast
Results 151 to 175 of 2463

Thread: Kyle's Esswraith Extractor

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

    Default

    That looks correct
    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.


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

    Default


    didnt compile
    [Error] (334:25): Invalid number of parameters at line 333
    Compiling failed.

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

    Default

    What line is 333? I mean, it's kind of hard to help you when I have no clue what you're doing.
    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.


  4. #154
    Join Date
    Jan 2012
    Posts
    470
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rules of Joe View Post

    didnt compile
    [Error] (334:25): Invalid number of parameters at line 333
    Compiling failed.

    open a fresh simba thing, paste the script and should compile this happens sometimes.

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

    Default

    i figured it out i just added the same thing as find monster!

    new:
    function FindShifter(var x, y : Integer) : Boolean;

    old:
    function FindShifter: Boolean;

    was missing the (var x, y : Integer)

    and it had extra x,y var on bottom so it wouldnt compile with the mainloop

    What i have so far!

    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 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(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;
        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.
    Last edited by BigRedJapan; 05-01-2012 at 04:50 PM.

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

    Default

    woot working great guys!

    can someone hook it up with the skull and jumper colors please!

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

    Default

    Random Error :/
    You're reading what I am doing. Absolutely nothing.

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

    Default

    Try this! Im running this code!

    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 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(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;
        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.

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

    Default

    i dont understand how you guys run it for hours mine runs for 5 mins and then just says secsessfully executed

  10. #160
    Join Date
    Jan 2012
    Posts
    470
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try cropping your pic and for you code you can use simba tags, also here is a small proggie currently 68 rc was 56 last night

    Time Running: 38 Minutes and 57 Seconds
    Experience Earned: 21834
    Experience/Hour: 32400


    thats on deaths if i did laws id be getting more but ohh well

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

    Default

    I ran the script for 6 hours! Flawless! Just added a Shifter and works even better! Would love it if someone could find me some Jumper and Skull and Neb colors would make my day!

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

    Default

    Dang this script is great! 28k points so far!
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Alright here's the blood esswraith with the Jumper added however I get an error that needs fixed on line 238.



    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 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(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;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
        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.
    You're reading what I am doing. Absolutely nothing.

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

    Default

    Quote Originally Posted by Riotday View Post
    Alright here's the blood esswraith with the Jumper added however I get an error that needs fixed on line 238.



    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 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(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;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
        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.
    Here's the compiled code, should work fine.

    Simba 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);

        BrakeMMouse(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 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(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.
    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.


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

    Default

    What am i doing wrong that i can only run it 5 mins do i need to update to the newer code?

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

    Default

    Quote Originally Posted by stinkysocks View Post
    What am i doing wrong that i can only run it 5 mins do i need to update to the newer code?
    I am still using the first version uploaded and everything working fine. Just paste your code in here that we can help you.

    I will try to answer all Runescape related questions!

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

    Default

    Thanks Kyle. Not sure why it wasn't compiling correctly on that line. Makes me wonder what I did wrong honestly. Let me know if you need an account for colors etc.
    You're reading what I am doing. Absolutely nothing.

  18. #168
    Join Date
    Apr 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Mine just siphons a couple esswraiths, gives no errors and shuts down. Using the blood one.

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

    Default

    diesal mines the same way ill post mine
    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,la stDist: 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.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);
    BrakeMMouse(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;
    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(['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.
    sorry i dont know how to put it in the cute littke box :P

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

    Default

    Here is V1 of BloodEsswraithExtractor with Shifter Siphon. Took away the BrakeMMouse at line 122 so it should work flawlessly. All credits to rightful owners.


    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 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(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.
    You're reading what I am doing. Absolutely nothing.

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

    Default

    Odd question, has anybody failed a random and been teleported out of the runespan? do you lose your runes? or does it tally up your points before you get booted?
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Riot your problem was you added to much anti ban

    Code:
    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(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'])));
        end;
        FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
        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;
    NO NEED OF COPY AND PASTE THIS PART TWICE

    Code:
    FindNormalRandoms;
        AntiBan();
      until(not(LoggedIn));
        end;
    ONLY NEEDED ONCE! NOW IF WE CAN FIND SOME MORE COLORS THAT WOULD BE GREAT!

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

    Default

    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? :/
    You're reading what I am doing. Absolutely nothing.

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

    Default

    Color of blood skulls.

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

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

    Default

    Edit: Also it worked with the Jumper Siphoning flawlessly. It clicked on it then went back to blood.
    You're reading what I am doing. Absolutely nothing.

Page 7 of 99 FirstFirst ... 567891757 ... 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
  •