Page 9 of 99 FirstFirst ... 78910111959 ... LastLast
Results 201 to 225 of 2463

Thread: Kyle's Esswraith Extractor

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

    Default

    Quote Originally Posted by Rules of Joe View Post
    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!
    I think i already did that, mabey not correctly but i changed that part on line 123.

    And it still giving me the succesfully executed,

    You can look at the script i copy pasted i think i did change it though.

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

    Default

    Mine was doing that too.. try restarting your simba mine been running for a half hour now, its sad to see how fast this is going to get abused lol oh well

  3. #203
    Join Date
    Mar 2012
    Posts
    219
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you add f2p options..? :L

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

    Default

    Im sure f2p will be updated shortly this is an extremly easy minigame to code and bot so it shouldnt take too long

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

    Default

    This should work longer than 5 minutes.

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

  6. #206
    Join Date
    Mar 2012
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    What RC level do you need for this sorry?

    Im 50 RC would I be able to use this script.

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

    Default

    Im blown away by all of the editing everyone is doing for this script great learning and practicing script it seems
    you can start this minigame at lvl 1 the higher your rc is the better exp and runes u can make inside

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

    Default

    Here's a progress report.

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

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

    Default

    next step is adding records right?
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Doing that now
    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.


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

    Default

    Alright, i restarded simba and this time it ran for 20 minutes before saying succesfully executed.

    Any ideas?

  12. #212
    Join Date
    Apr 2012
    Location
    Ireland
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Time Running: 19 Minutes and 1 Seconds
    Experience Earned: 22874252
    Experience/Hour: 72169200
    Successfully executed.


    if only.......

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

    Default

    HUGE update! Please read the first post! Thank you all!
    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. #214
    Join Date
    Apr 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, first post here on this forum, and first time really using any of these scripts.

    An issue I've noticed as of now with the updated script is that, on the account I'm running it on, I only have 80 runecrafting, however it keeps attempting to siphon the bloody skulls which require 83 runecrafting. It only attempts this right after the blood wraith dies. I simply commented out the part about bloody skulls on the script for my personal use, as I am very inexperienced with Simba and don't know how to check my own runecrafting level and compare it to 83. Just a possible fix that you could include in the future

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

    Default

    I'm attempting to add a LvlReq field to the records to deal with this, anybody else got any better ideas?
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    You set it to 0 if you don't want to use it correct?

    {* Object Constants *}
    objBloodWraith = 1;
    objDeathWraith = 0;
    objSoulWraith = 0;
    objJumper = 2;
    objBloodPool = 3;
    objNebula = 4;
    objSkulls = 5;
    objBloodySkulls = 6;
    objShifter = 7;
    You're reading what I am doing. Absolutely nothing.

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

    Default

    Quote Originally Posted by johnnimms13 View Post
    I'm attempting to add a LvlReq field to the records to deal with this, anybody else got any better ideas?
    That's what I would do, just haven't done it yet

    Quote Originally Posted by FALSkills View Post
    Hey, first post here on this forum, and first time really using any of these scripts.

    An issue I've noticed as of now with the updated script is that, on the account I'm running it on, I only have 80 runecrafting, however it keeps attempting to siphon the bloody skulls which require 83 runecrafting. It only attempts this right after the blood wraith dies. I simply commented out the part about bloody skulls on the script for my personal use, as I am very inexperienced with Simba and don't know how to check my own runecrafting level and compare it to 83. Just a possible fix that you could include in the future
    That works, a future update will fix this.

    Quote Originally Posted by Riotday View Post
    You set it to 0 if you don't want to use it correct?

    {* Object Constants *}
    objBloodWraith = 1;
    objDeathWraith = 0;
    objSoulWraith = 0;
    objJumper = 2;
    objBloodPool = 3;
    objNebula = 4;
    objSkulls = 5;
    objBloodySkulls = 6;
    objShifter = 7;
    No, as of now it searches for all of those. I could add a flag to the record so a object could be turned off from being searched.
    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.


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

    Default

    That could work man. Because I'm not 90 as of yet :P
    You're reading what I am doing. Absolutely nothing.

  19. #219
    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
    That could work man. Because I'm not 90 as of yet :P
    Ok, give me a little bit to make these changes.
    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.


  20. #220
    Join Date
    Apr 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    That works, a future update will fix this
    Cool. Thanks for this awesome script, and for making it so quickly!

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

    Default

    Quote Originally Posted by Kyle Undefined View Post
    That's what I would do, just haven't done it yet



    That works, a future update will fix this.



    No, as of now it searches for all of those. I could add a flag to the record so a object could be turned off from being searched.
    Constants reworked:
    Simba Code:
    const
      {* Object Constants *}

      objUndeadSoul    = 0;
      objLivingSoul      = 1;
      objSoulWraith     = 2;
      objBloodySkulls   = 3;   //ggaah can't get um strait on here  I swear they are on mine :0(
      objBloodPool      = 4;
      objBloodWraith   = 5;
      objSkulls           = 6;
      objDeathWraith  = 7;
      objJumper         = 8;
      objShifter         = 9;
      objNebula       = 10;

    Records:
    Simba Code:
    procedure SetupObjects();
    begin
      SetLength(Objects, 11);

      with Objects[objUndeadSoul] do
      begin
        Name := 'Undead Soul';
        UpText := ['ndead', 'oul', 'ndead So', 'd Soul'];
        Color := 10979231;
        Tol := 4;
        Hue := 0.48;
        Sat := 0.61;
        LvlReq := 95;
      end;

      with Objects[objSoulWraith] do
      begin
        Name := 'Soul esswraith';
        UpText := ['oul ess', 'iphon So', 'oul essw', 'Siphon Soul esswraith'];
        Color := 6251056;
        Tol := 24;
        Hue := 0.25;
        Sat := 1.01;
        LvlReq := 90;
      end;

      with Objects[objLivingSoul] do
      begin
        Name := 'Living Soul';
        UpText := ['Siphon Living', 'on Liv', 'iving', 'oul'];
        Color := 12867973;
        Tol := 9;
        Hue := 0.51;
        Sat := 0.99;
        LvlReq := 90;
      end;

      with Objects[objBloodySkulls] do
      begin
        Name := 'Bloody Skulls';
        UpText := ['Bloody', 'skulls', 'oody', 'kulls'];
        Color := 396358;
        Tol := 2;
        Hue := 0.15;
        Sat := 1.52;
        LvlReq := 83;
      end;

      with Objects[objBloodWraith] do
      begin
        Name := 'Blood esswraith';
        UpText := ['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'];
        Color := 6263962;
        Tol := 15;
        Hue := 0.12;
        Sat := 0.72;
        LvlReq := 77;
      end;

      with Objects[objBloodPool] do
      begin
        Name := 'Blood Pool';
        UpText := ['Siphon Blood Pool', 'on blo', 'blood', 'od poo'];
        Color := 1252488;
        Tol := 7;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 77;
      end;

      with Objects[objDeathWraith] do
      begin
        Name := 'Death esswraith';
        UpText := ['eath ess', 'iphon De', 'ath essw', 'Siphon Death esswraith'];
        Color := 5278586;
        Tol := 26;
        Hue := 0.04;
        Sat := 0.58;
        LvlReq := 65;
      end;

      with Objects[objSkulls] do
      begin
        Name := 'Skulls';
        UpText := ['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'];
        Color := 9748431;
        Tol := 7;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 65;
      end;

      with Objects[objJumper] do
      begin
        Name := 'Jumper';
        UpText := ['Siphon Jumper', 'on Jum', 'Jumper', 'mper'];
        Color := 16624975;
        Tol := 7;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 54;
      end;

      with Objects[objShifter] do
      begin
        Name := 'Shifter';
        UpText := ['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'];
        Color := 1830421;
        Tol := 7;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 44;
      end;

      with Objects[objNebula] do
      begin
        Name := 'Nebula';
        UpText := ['Siphon Nebula', 'on Neb', 'Nebula', 'bula'];
        Color := 11951253;
        Tol := 7;
        Hue := 0.54;
        Sat := 1.05;
        LvlReq := 40;
      end;
    end;


    there u go! o and I ordered the nodes from best xp to worst so it searches from undeadSoul -> Nebula. Also it would be nice if there was an option to make it not find nodes 30 levels under you (for points).
    Last edited by JN13; 05-01-2012 at 08:59 PM.
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  22. #222
    Join Date
    Jan 2012
    Posts
    470
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    working on adding more angles it finds the thing but its nonhuman like its blocked by a wall but still clicks probably make it click face north and camera angle high.

  23. #223
    Join Date
    Mar 2012
    Posts
    219
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Kyle

    F2p option pleeaseee? <3

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

    Default

    Quote Originally Posted by TheWord View Post
    Kyle

    F2p option pleeaseee? <3
    Start finding colors for Ftp stuff with ACA and we will start adding it
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

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

    Default

    Quote Originally Posted by johnnimms13 View Post
    Start finding colors for Ftp stuff with ACA and we will start adding it
    Lol I have this almost complete inculding Nodes

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