Page 72 of 99 FirstFirst ... 2262707172737482 ... LastLast
Results 1,776 to 1,800 of 2463

Thread: Kyle's Esswraith Extractor

  1. #1776
    Join Date
    Apr 2012
    Location
    Puerto Rico
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TrueExpressions View Post
    Do you have Simba downloaded and updated?
    Yep

  2. #1777
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

  3. #1778
    Join Date
    May 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Son of Zeus View Post
    Yep
    Do you have team viewer? I could show you how to set it up and what extensions need turned on
    Simba FTW

  4. #1779
    Join Date
    Apr 2012
    Location
    Puerto Rico
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TrueExpressions View Post
    Do you have team viewer? I could show you how to set it up and what extensions need turned on
    No, I don't have it :/

    I want it to only look for Nature Hounds atm since I'm only 49 Rc atm.

  5. #1780
    Join Date
    May 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Son of Zeus View Post
    No, I don't have it :/

    I want it to only look for Nature Hounds atm since I'm only 49 Rc atm.
    Download teamviewer it's free and everyone uses it. Also I can show you in the setting you can have it look for everything, or a few things, or just one like the nature hounds.
    Tip: you are going to want it to siphon nebulas and chaotic clouds too for a large bonus xp in time wise.
    Simba FTW

  6. #1781
    Join Date
    Mar 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Ok I know i have asked this before, but.... I am almost 98 rc thanks to this awesome script. I am only averaging around 68-70k an hour. Does anyone have any suggestions for higher xp? I am on island 32 in a crowded world but doesnt seem to help.... Early thanks for suggestions.

  7. #1782
    Join Date
    May 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by shima View Post
    Ok I know i have asked this before, but.... I am almost 98 rc thanks to this awesome script. I am only averaging around 68-70k an hour. Does anyone have any suggestions for higher xp? I am on island 32 in a crowded world but doesnt seem to help.... Early thanks for suggestions.
    68-70k xp is pretty good. I currently have 84 rc about to get 85.
    I'd say 29 or 30 or 32 would be a good island for you world 39.
    It's mostly random xp rates since the nodes spawn randomly,
    but I wish you the best of luck and congrats on getting 99 soon :P
    Simba FTW

  8. #1783
    Join Date
    Mar 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by TrueExpressions View Post
    68-70k xp is pretty good. I currently have 84 rc about to get 85.
    I'd say 29 or 30 or 32 would be a good island for you world 39.
    It's mostly random xp rates since the nodes spawn randomly,
    but I wish you the best of luck and congrats on getting 99 soon :P
    Thanks man I will try that world I am currently using another world.

  9. #1784
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Quote Originally Posted by shima View Post
    Ok I know i have asked this before, but.... I am almost 98 rc thanks to this awesome script. I am only averaging around 68-70k an hour. Does anyone have any suggestions for higher xp? I am on island 32 in a crowded world but doesnt seem to help.... Early thanks for suggestions.
    That's really good xp/hr as far as I know (I'm not P2P though).
    Not much else you can do besides if you know how to code you can optimize the script yourself.

    Also make sure you tell it speficially what to search for so it doesn't go searching for every possible object.

  10. #1785
    Join Date
    Dec 2011
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script is awesome! Thanks. I'm getting 57k/hr at 75 RC.

  11. #1786
    Join Date
    Mar 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    That's really good xp/hr as far as I know (I'm not P2P though).
    Not much else you can do besides if you know how to code you can optimize the script yourself.

    Also make sure you tell it speficially what to search for so it doesn't go searching for every possible object.
    Thanks for the advise. I plan on trying to learn to code soon just been extremly busy at work.

  12. #1787
    Join Date
    Mar 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    This is a proggy after the advise thanks guys better xp for sure.

    ======== Kyle's Esswraith Extractor =========
    You are using Version 1.6
    Time Running: 2 Hours, 17 Minutes and 18 Seconds
    Experience Earned: 190113
    Experience/Hour: 82800
    =============================================

  13. #1788
    Join Date
    May 2012
    Location
    United States
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Anyone have any ideas on the best xp for level 77. Like the island number for an island with blood esswraiths and nodes (often)

  14. #1789
    Join Date
    Jan 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do u know wich island u are ;o?

  15. #1790
    Join Date
    May 2012
    Location
    United States
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by IBZerked View Post
    how do u know wich island u are ;o?
    Google images and look for runespan maps.

  16. #1791
    Join Date
    May 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    http://gyazo.com/ef2cdbebdfb462e83d686fa9bb5d9246

    That's the error i get. Please help.

  17. #1792
    Join Date
    May 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this keeps stopping after 1-2 hours??

  18. #1793
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    ======== Kyle's Esswraith Extractor =========
    Version 1.7
    Time Running: 5 Hours, 59 Minutes and 14 Seconds
    Experience Earned: 288988
    Experience/Hour: 46800
    Runecrafting Level: 81
    Floor: 2
    =============================================

    Stopped cuz logout thing.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  19. #1794
    Join Date
    Jan 2012
    Posts
    246
    Mentioned
    3 Post(s)
    Quoted
    91 Post(s)

    Default

    When do you plan to release v1.8 Kyle? C:

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

    Default

    1.6 for those that still think its better than 1.7!

    Code:
    program KylesEsswraithExtractor;
    
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    
    const
      {* Don't touch *}
      Version = '1.6';
    
      {* SRL Stats *}
      SRLStats_Username = '';
      SRLStats_Password = '';
    
      {* Object Constants *}
      objUndeadSoul     = 0;
      objLivingSoul     = 1;
      objSoulWraith     = 2;
      objBloodySkulls   = 3;
      objBloodPool      = 4;
      objBloodWraith    = 5;
      objSkulls         = 6;
      objDeathWraith    = 7;
      objJumper         = 8;
      objShifter        = 9;
      objNebula         = 10;
      objWaterEssling   = 11;
      objVine           = 12;
      objLawHound       = 13;
      objCosmicHound    = 14;
      objChaosHound     = 15;
      objAstralHound    = 16;
      objNatureHound    = 17;
      objBodyHound      = 18;
      objCCloud         = 19;
      objAirEss         = 20;
      objWaterPool      = 21;
      objFleshyGrowth   = 22;
      objFireStorm      = 23;
      objEarthEss       = 24;
      objRockFrag       = 25;
      objFireball       = 26;
      objMindEssling    = 27;
      objCyclone        = 28;
    
      (* Break settings *)
      SwitchWorlds  = True;    // Switch worlds after a break?
      TakeBreaks    = False;   // Take Breaks during runtime?
      BreakIn       = 500;     // How long before we take a break? (minutes)
      BreakFor      = 20;      // How long will we break for? (minutes)
      Bir           = 13;      // Random minutes to add/subtract from how long until we break
      Bfr           = 5;       // Random minutes to add/subjtract from break duraction
    
      {* Script Constants *}
      Floors  = 3;             // Which Floor are you on? 1,2,3? This is to make it only search on your island
                               // If it starts to bug out, set it to 0
    
      Debug = False;           // If things aren't working, set this to true and tell us what it says
                               // Or if you want to narrow down colors to make script even better :)
    type
      {* TObj Type *}
      TObj = record
        Hue, Sat : Extended;
        Name: string;
        UpText : TStringArray;
        ObjID, Color, Tol, LvlReq, Max, Min, IXP: Integer;
      end;
    
    type
      {* TObjectArray Type *}
      TObjectArray = array of TObj;
    
    var
      {* Script Variables *}
      StartXP, XPH, XP, TP, RCt, RCLvl, TW, CurrentXP, EssenceDTM, EX, EY, IslandColor, IslandTol: Integer;
      Objects : TObjectArray;
      IslandHue, IslandSat : Extended;
      Higher, SafeNub : Boolean;
      TB: Tbox;
    
      (* Break variables *)
      w, x, y, z, RealBTime, CurrentBTime, BreakRounds : 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.
    	  Booleans[0]   := True;    // Set to False if you want to search for all Objects
    
        // This is for searching for specific Objects, add / remove as needed. Order doesn't matter
        Integers      := [objUndeadSoul, objLivingSoul, objSoulWraith, objBloodySkulls
                          , objBloodPool, objBloodWraith, objSkulls, objDeathWraith
                          , objJumper, objShifter, objNebula];
      end;
    end;
    
    procedure SetDTM;
    begin
      EssenceDTM := DTMFromString('mrAAAAHic42BgYHBkYmDwAGIXILYBYksodgdiXyB+DlTzCIgfQvEzIP4AxG+A+CkQW5ibMRjo64ExiG1tZcHg6uLE4O7mwmBsZMjABVSDDzMSwDAAAJ3CDvU=');
    end;
    
    procedure Fr33DTM;
    begin
      FreeDTM(EssenceDTM);
    end;
    
    procedure DebugThis(s : string);
    begin
      if(Debug)then
        WriteLn(s);
    end;
    
    procedure SetupObjects();
    begin
      SetLength(Objects, 29);
    
      with Objects[objBloodWraith] do
      begin
        ObjID := objBloodWraith;
        Name := 'Blood esswraith';
        UpText := ['lood ess', 'ood essw', 'Siphon Blood esswraith'];
        Color := 6263962;
        Tol := 15;
        Hue := 0.12;
        Sat := 0.72;
        LvlReq := 77;
        Max := 250;
        Min := 50;
        IXP := 77;
      end;
    
      with Objects[objDeathWraith] do
      begin
        ObjID := objDeathWraith;
        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;
        Min := 0;
        Max := 1000;
        IXP := 60;
      end;
    
      with Objects[objSoulWraith] do
      begin
        ObjID := objSoulWraith;
        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;
        Min := 0;
        Max := 1000;
        IXP := 108;
      end;
    
      with Objects[objLivingSoul] do
      begin
        ObjID := objLivingSoul;
        Name := 'Living Soul';
        UpText := ['Siphon Living', 'on Liv', 'iving', 'oul'];
        Color := 12867973;
        Tol := 9;
        Hue := 0.51;
        Sat := 0.99;
        LvlReq := 90;
        Min := 0;
        Max := 1000;
        IXP := 213;
      end;
    
      with Objects[objJumper] do
      begin
        ObjID := objJumper;
        Name := 'Jumper';
        UpText := ['Siphon Jumper', 'on Jum', 'Jumper', 'mper'];
        Color := 16624975;
        Tol := 7;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 54;
        Min := 10;
        Max := 50;
        IXP := 107;
      end;
    
      with Objects[objBloodPool] do
      begin
        ObjID := objBloodPool;
        Name := 'Blood Pool';
        UpText := ['Siphon Blood Pool', 'on blo', 'blood', 'od poo'];
        Color := 1252488;
        Tol := 10;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 77;
        Min := 80;
        Max := 250;
        IXP := 146;
      end;
    
      with Objects[objNebula] do
      begin
        ObjID := objNebula;
        Name := 'Nebula';
        UpText := ['Siphon Nebula', 'on Neb', 'Nebula', 'bula'];
        Color := 8988293;
        Tol := 6;
        Hue := 1.15;
        Sat := 3.71;
        LvlReq := 40;
        Min := 55;
        Max := 1000;
        IXP := 85;
      end;
    
      with Objects[objSkulls] do
      begin
        ObjID := objSkulls;
        Name := 'Skulls';
        UpText := ['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'];
        Color := 9748431;
        Tol := 7;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 65;
        Min := 3;
        Max := 1000;
        IXP := 120;
      end;
    
      with Objects[objUndeadSoul] do
      begin
        ObjID := objUndeadSoul;
        Name := 'Undead Soul';
        UpText := ['ndead', 'oul', 'ndead So', 'd Soul'];
        Color := 10979231;
        Tol := 4;
        Hue := 0.48;
        Sat := 0.61;
        LvlReq := 95;
        Min := 0;
        Max := 1000;
        IXP := 255;
      end;
    
      with Objects[objBloodySkulls] do
      begin
        ObjID := objBloodySkulls;
        Name := 'Bloody Skulls';
        UpText := ['Bloody', 'skulls', 'oody', 'kulls'];
        Color := 396358;
        Tol := 2;
        Hue := 0.15;
        Sat := 1.52;
        LvlReq := 83;
        Min := 5;
        Max := 1000;
        IXP := 176;
      end;
    
      with Objects[objShifter] do
      begin
        ObjID := objShifter;
        Name := 'Shifter';
        UpText := ['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'];
        Color := 1830421;
        Tol := 7;
        Hue := 0.02;
        Sat := 1.70;
        LvlReq := 54;
        Max := 900;
        Min := 400;
        IXP := 87;
      end;
    
      with Objects[objWaterEssling] do
      begin
        ObjID := objWaterEssling;
        Name := 'WaterEssling';
        UpText := ['Water Essling', 'ater', 'er essl', 'ssling'];
        Color := 12085388;
        Tol := 17;
        Hue := 1.29;
        Sat := 0.99;          //messed up for now
        LvlReq := 5;
        Max := 0;
        Min := 0;
        IXP := 13;
      end;
    
      with Objects[objVine] do
      begin
        ObjID := objVine;
        Name := 'Vine';
        UpText := ['Siphon Vine', 'phon V', 'hon v'];
        Color := 1200463;
        Tol := 18;
        Hue := 0.28;
        Sat := 1.75;
        LvlReq := 17;
        Max := 900;
        Min := 60;
        IXP := 36;
      end;
    
      with Objects[objCCloud] do
      begin
        ObjID := objCCloud;
        Name := 'Chaotic Cloud';
        UpText := ['Siphon Chaotic', 'on Chaotic', 'Chaotic', 'haotic Cloud'];
        Color := 2167590;
        Tol := 4;
        Hue := 2.03;
        Sat := 2.57;
        LvlReq := 35;
        Min := 20;
        Max := 1000;
        IXP := 62;
      end;
    
      with Objects[objCosmicHound] do
      begin
        ObjID := objCosmicHound;
        Name := 'Cosmic Esshound';
        UpText := ['osmic', 'osmic essh', 'Cosmic', 'Siphon Cosmic', 'ic esshound', 'Siphon Cosmic esshound'];
        Color := 14448236;
        Tol := 24;
        Hue := 0.06;
        Sat := 1.43;
        LvlReq := 27;
        Min := 250;
        Max := 700;
        IXP := 27;
      end;
    
      with Objects[objChaosHound] do
      begin
        ObjID := objChaosHound;
        Name := 'Chaos Esshound';
        UpText := ['haos', 'haos essh', 'Chaos', 'Siphon Chaos', 'os esshound', 'Siphon Chaos esshound'];
        Color := 14448236;
        Tol := 24;
        Hue := 0.06;
        Sat := 1.43;
        LvlReq := 35;
        Min := 250;
        Max := 700;
        IXP := 31;
      end;
    
      with Objects[objAstralHound] do
      begin
        ObjID := objAstralHound;
        Name := 'Astral Esshound';
        UpText := ['stral', 'stral ess', 'Astral', 'Siphon Astral', 'ral esshound', 'Siphon Astral esshound'];
        Color := 14448236;
        Tol := 24;
        Hue := 0.06;
        Sat := 1.43;
        LvlReq := 40;
        Min := 250;
        Max := 700;
        IXP := 36;
      end;
    
      with Objects[objNatureHound] do
      begin
        ObjID := objNatureHound;
        Name := 'Nature Esshound';
        UpText := ['ature', 'ature ess', 'Nature', 'Siphon Nature', 'ture esshound', 'Siphon Nature esshound'];
        Color := 14448236;
        Tol := 24;
        Hue := 0.06;
        Sat := 1.43;
        LvlReq := 44;
        Min := 250;
        Max := 700;
        IXP := 44;
      end;
    
      with Objects[objLawHound] do
      begin
        ObjID := objLawHound;
        Name := 'Law esshound';
        UpText := ['Siphon Law', 'on Law', 'Law', 'aw ess', 'aw esshound', 'Siphon Law esshound'];
        Color := 14448236;
        Tol := 24;
        Hue := 0.06;
        Sat := 1.43;
        LvlReq := 54;
        Min := 250;
        Max := 700;
        IXP := 54;
      end;
    
      with Objects[objBodyHound] do
      begin
        ObjID := objBodyHound;
        Name := 'Body esshound';
        UpText := ['Siphon Body', 'on Bod', 'Body', 'ody ess', 'ody esshound', 'Siphon Body esshound'];
        Color := 14448236;
        Tol := 24;
        Hue := 0.06;
        Sat := 1.43;
        LvlReq := 20;
        Min := 250;
        Max := 700;
        IXP := 24;
      end;
    
      with Objects[objAirEss] do
      begin
        ObjID := objAirEss;
        Name := 'Air essling';
        UpText := ['ir ess', 'iphon Air', 'Siphon Air essling'];
        Color := 15187588;
        Tol := 20;
        Hue := 0.05;
        Sat := 2.04;
        LvlReq := 1;
        Max := 250;
        Min := 50;
        IXP := 10;
      end;
    
      with Objects[objWaterPool] do
      begin
        ObjID := objWaterPool;
        Name := 'Water Pool';
        UpText := ['ter poo', 'iphon Wat', 'Siphon Water pool', 'ater pool'];
        Color := 15187588;
        Tol := 20;
        Hue := 0.05;
        Sat := 2.04;
        LvlReq := 5;
        Max := 250;
        Min := 50;
        IXP := 11;
      end;
    
      with Objects[objFleshyGrowth] do
      begin
        ObjID := objFleshyGrowth;
        Name := 'Fleshy Growth';
        UpText := ['eshy grow', 'iphon Fle', 'Siphon Fleshy growth', 'shy gro'];
        Color := 4082573;
        Tol := 11;
        Hue := 0.07;
        Sat := 0.49;
        LvlReq := 20;
        Max := 250;
        Min := 50;
        IXP := 47;
      end;
    
      with Objects[objFireStorm] do
      begin
        ObjID := objFireStorm;
        Name := 'Fire Storm';
        UpText := ['ire sto', 'iphon Fir', 'Siphon Fire storm', 'ire sto'];
        Color := 2571174;
        Tol := 3;
        Hue := 0.19;
        Sat := 4.75;
        LvlReq := 27;
        Max := 250;
        Min := 50;
        IXP := 42;
      end;
    
      with Objects[objEarthEss] do
      begin
        ObjID := objEarthEss;
        Name := 'Earth essling';
        UpText := ['rth ess', 'iphon Ear', 'Siphon Earth essling', 'arth essl'];
        Color := 4744582;
        Tol := 15;
        Hue := 0.04;
        Sat := 0.32;
        LvlReq := 1;
        Max := 250;
        Min := 50;
        IXP := 15;
      end;
    
      with Objects[objRockFrag] do
      begin
        ObjID := objRockFrag;
        Name := 'Rock Fragment';
        UpText := ['Siphon Rock', 'on Roc', 'Rock', 'Fragment'];
        Color := 3434345;
        Tol := 13;
        Hue := 0.41;
        Sat := 0.46;
        LvlReq := 9;
        Min := 60;
        Max := 900;
        IXP := 29;
      end;
    
      with Objects[objFireball] do
      begin
        ObjID := objFireball;
        Name := 'Fireball';
        UpText := ['Siphon Fireball', 'on Fire', 'reball', 'fireball'];
        Color := 1924282;
        Tol := 12;
        Hue := 0.36;
        Sat := 1.10;
        LvlReq := 14;
        Min := 60;
        Max := 900;
        IXP := 35;
      end;
    
      with Objects[objMindEssling] do
      begin
        ObjID := objMindEssling;
        Name := 'Mind Essling';
        UpText := ['Mind Essling', 'ind', 'nd essl', 'ssling'];
        Color := 7905200;
        Tol := 17;
        Hue := 0.21;
        Sat := 0.40;
        LvlReq := 1;
        Max := 150;
        Min := 2;
        IXP := 30;
      end;
    
      with Objects[objCyclone] do
      begin
        ObjID := objCyclone;
        Name := 'Cyclone';
        UpText := ['Siphon Cyclone', 'clone', 'yclone', 'cyclone'];
        Color := 2698292;
        Tol := 6;
        Hue := 0.51;
        Sat := 1.10;
        LvlReq := 1;
        Min := 80;
        Max := 900;
        IXP := 19;
      end;
    end;
    
    function GetObject(vObj : Integer) : TObj;
    begin
      Result := Objects[vObj];
    end;
    
    function GetObjectByXP(xp : Integer) : TObj;
    var
      i : Integer;
    begin
      for i := 0 to High(Objects) do
        if(Objects[i].IXP = xp)then
          Result := Objects[i];
    end;
    
    procedure AddObject(var objArr : TObjectArray; ObjID : Integer);
    begin
      SetLength(objArr, Length(objArr) + 1);
      objArr[High(objArr)] := GetObject(ObjID);
    end;
    
    procedure FilterObjects();
    var
      tmpObjects : TObjectArray;
      i : Integer;
    begin
      if(not(Players[CurrentPlayer].Booleans[0]))then
        Exit;
    
      for i := 0 to High(Objects) do
        if(InIntArray(Players[CurrentPlayer].Integers, Objects[i].ObjID))then
          AddObject(tmpObjects, Objects[i].ObjID);
    
      SetLength(Objects, High(tmpObjects));
      Objects := tmpObjects;
    end;
    
    procedure SortObjects();
    var
      tmpObjects : TObjectArray;
      TIA : TIntegerArray;
      i : Integer;
    begin
      SetLength(TIA, Length(Objects));
    
      for i := 0 to High(Objects) do
        TIA[i] := Objects[i].IXP;
    
      Quicksort(TIA);
      InvertTIA(TIA);
    
      SetLength(tmpObjects, Length(Objects));
    
      for i := 0 to High(TIA) do
        tmpObjects[i] := GetObjectByXP(TIA[i]);
    
      Objects := tmpObjects;
    end;
    
    procedure SetFalse(reason : string);
    begin
      WriteLn(reason);
      Players[CurrentPlayer].Active := False;
    end;
    
    function K_FindObj(var x, y, vObj : Integer) : Boolean;
    var
      fObj : TObj;
      a, h : Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
      FindNormalRandoms;
    
      fObj := GetObject(vObj);
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
    
      with fObj do
      begin
        SetColorSpeed2Modifiers(Hue, Sat);
    
        FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, TB.X1, TB.Y1, TB.X2, TB.Y2, Tol);
        ATPA := TPAtoATPAEx(TPA, 20, 20);
        SortATPASize(ATPA,True);
    
        H := High(ATPA);
        DebugThis(Name);
    
        for a := 0 to H do
        begin
          MiddleTPAEx(atpa[a], X, Y);
    
          DebugThis(tostr(Length(atpa[a])));
    
          if((Length(atpa[a]) < Min) or (Length(atpa[a]) > Max))then
            Continue;
    
          MMouse(X, Y, 5, 5);
    
          if(WaitUpTextMulti(UpText, RandomRange(350,450)))then
          begin
            ClickMouse2(True);
    
            if(DidRedClick)then
            begin
              ColorToleranceSpeed(tmpCTS);
              SetColorSpeed2Modifiers(0.2, 0.2);
    
              Result := True;
              Exit;
            end;
          end else
          if(IsUptextMultiCustom(['esswraith', 'wraith', 'raith', 'Floating ess', 'Float', 'ing ess', 'Floating essence', 'lan vex', 'ead Clan', 'an vexillum', 'Read Clan vexillum']))then
          begin
            Clickmouse2(False);
    
            if(WaitOptionMulti(UpText, 800))then
            begin
              ColorToleranceSpeed(tmpCTS);
              SetColorSpeed2Modifiers(0.2, 0.2);
    
              Result := True;
              Exit;
            end;
          end;
        end;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
    
    Function FindObjectPlatform : Boolean;
    var
      CTS, I, L : Integer;
      TPA : TPointArray;
      ATPA : T2DPointArray;
    begin
      Result := False;
    
      If SafeNub Then
      Begin
        TB := IntToBox(MSX1, MSY1, MSX2, MSY2);
        Result := True;
        Exit;
      End;
    
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
    
      SetColorSpeed2Modifiers(IslandHue, IslandSat);
      FindColorsTolerance(TPA, IslandColor, MSX1, MSY1, MSX2, MSY2, IslandTol);
      ATPA := FloodFillTPA(TPA);
      SortATPASize(ATPA, True);
      ColorToleranceSpeed(CTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      If Debug Then
        DebugATPABounds(ATPA);
    
      If Length(TPA) < 1 then
        Exit;
    
    
      L := High(ATPA);
      For I := 0 To L do
      Begin
        TB:= GetTPABounds(ATPA[I]);
        If Not (PointInBox(Point(MSCX, MSCY), TB)) then
        begin
          if I = L then
          begin
            DebugThis('at high, point is not inside');
            exit;
          end else
            continue;
        end else break;
      end;
    
      DebugThis(tostr(TB));
      Result := True;
    end;
    
    function FindWizard: Boolean;
    var
      a, h : Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
      FindNormalRandoms;
    
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
    
      SetColorSpeed2Modifiers(0.05, 1.65);
    
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5357278, MSX1, MSY1, MSX2, MSY2, 18);
      ATPA := TPAtoATPAEx(TPA, 20, 20);
      SortATPASize(ATPA,True);
    
      H := High(ATPA);
      DebugThis('Wizard');
    
      for a := 0 to H do
      begin
        MiddleTPAEx(atpa[a], X, Y);
    
        DebugThis(tostr(Length(atpa[a])));
    
        if((Length(atpa[a]) < 100) Or (Length(atpa[a]) > 2000))then
          Continue;
    
        MMouse(X, Y, 5, 5);
    
        if(WaitUpTextMulti(['Wizard', 'zard', 'izard'], 750))then
        begin
          repeat
            InvMouse(RandomRange(2, 8), 3);
          until(WaitUpTextMulti(['rune', 'une'], RandomRange(1800, 2000)));
    
          ClickMouse2(False);
    
          if(not(WaitOptionMulti(['Use', 'Use ', 'se '],RandomRange(800, 900))))then
            Exit;
    
          MMouse(X, Y, 5, 5);
    
          if(WaitUpTextMulti(['Wizard', 'zard', 'izard'], 750))then
          begin
            ClickMouse2(True);
    
            if(DidRedClick)then
            begin
              ColorToleranceSpeed(tmpCTS);
              SetColorSpeed2Modifiers(0.2, 0.2);
    
              Result := True;
              MarkTime(TW);
              Exit;
            end;
          end;
        end;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
    
    procedure AntiBan();
    begin
      if(not(LoggedIn))then Exit;
      FindNormalRandoms;
    
      case (Random(1000)) 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 .. 100 : Wait(RandomRange(750, 2000));
        101: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
      end;
    end;
    
    function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor : Integer) : Boolean;
    var
      h, m, s : Integer;
    begin
      if not LoggedIn then Exit;
    
      if (HowManyPlayers = 1) then
      begin
        if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
        else
          if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
          begin
            RealBTime := ((x + z) / 60000);
            Logout;
            MarkTime(CurrentBTime);
            repeat
              Wait(21000);
              ConvertTime((x + z) - TimeFromMark(CurrentBTime), h, m, s);
              ClearDebug;
            until(TimeFromMark(CurrentBTime) > (x + z));
            if SwitchWorlds then
              if LoginPlayerToLob then
                ChangeWorld(RandomWorld(True, False))
            else
              LoginPlayer;
            Wait(4000);
            Result := LoggedIn;
            ClickNorth(SRL_ANGLE_HIGH);
            IncEx(BreakRounds, (w) + (x));
            w := (BreakIn * 60000);
            x := (BreakFor * 60000);
            y := RandomRange(-Bir * 60000, Bir * 60000);
            z := RandomRange(-Bfr * 60000, Bfr * 60000);
          end;
      end;
    end;
    
    procedure Proggy;
    begin
      ClearDebug();
      Stats_Commit;
      XP := (GetXPBarTotal - StartXP);
      XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
      Writeln('======== Kyle''s Esswraith Extractor =========');
      WriteLn('You are using Version ' + Version);
      Writeln('Time Running: ' + TimeRunning);
      Writeln('Experience Earned: ' + IntToStr(XP));
      Writeln('Experience/Hour: ' + IntToStr(XPH));
      Writeln('=============================================');
      MarkTime(TP);
    end;
    
    Procedure GetMoreEssence;
    var
      a, h, t: Integer;
      TPA  : TPointArray;
      ATPA : T2DPointArray;
      tmpCTS : Integer;
    begin
      if(not(LoggedIn))then Exit;
      FindNormalRandoms;
      MarkTime(T);
    
      repeat
        if(not(LoggedIn))then Exit;
    
        if(TimeFromMark(t) > 30000)then
          SetFalse('Failed to get more essence.');
    
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
    
        SetColorSpeed2Modifiers(0.47, 0.04);
    
        FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4013632, MSX1, MSY1, MSX2, MSY2, 15);
        ATPA := TPAtoATPAEx(TPA, 20, 20);
        SortATPASize(ATPA,True);
    
        H := High(ATPA);
        DebugThis('Rocks');
    
        for a := 0 to H do
        begin
          MiddleTPAEx(atpa[a], X, Y);
    
          DebugThis(tostr(Length(atpa[a])));
    
          if((Length(atpa[a]) < 50) Or (Length(atpa[a]) > 2000))then
            Continue;
    
          MMouse(X, Y, 5, 5);
    
          if(WaitUpTextMulti(['Collect', 'llect', 'Float'], 750))then
          begin
            ClickMouse2(True);
    
            if(DidRedClick)then
            begin
              ColorToleranceSpeed(tmpCTS);
              SetColorSpeed2Modifiers(0.2, 0.2);
              Exit;
            end;
          end else
          if(not(IsUptextMultiCustom(['Walk', 'lk here', 'here'])))then
          begin
            Clickmouse2(False);
    
            if(WaitOptionMulti(['Collect', 'llect', 'Float'], 800))then
            begin
              ColorToleranceSpeed(tmpCTS);
              SetColorSpeed2Modifiers(0.2, 0.2);
              Exit;
            end;
          end;
        end;
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
      until FindDTM(EssenceDTM,X,Y,MIX1,MIY1,MIX2,MIY2);
    end;
    
    procedure ScriptSetup();
    begin
      SetupObjects();
      FilterObjects();
      SortObjects();
    
      SetAngle(SRL_ANGLE_HIGH);
      StartXP := GetXPBarTotal;
      RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
      Gametab(tab_Inv);
    
      Higher := False;
      SafeNub:= False;
    
      Case Floors Of
        0 : SafeNub := True;
        1 : Begin IslandHue := 0.19; IslandSat := 0.71; IslandColor := 3112315; IslandTol := 12; End;
        2 : Begin IslandHue := 3.58; IslandSat := 0.43; IslandColor := 8224087; IslandTol := 14; End;
        3 : Begin IslandHue := 0.12; IslandSat := 0.73; IslandColor := 9145506; IslandTol := 12; End;
      End;
    end;
    
    procedure MainLoop();
    var
      fObj : TObj;
      x, y, i, InitialXP, UpdateXP, t: Integer;
    Label
      Waiting;
    begin
      repeat
        repeat
          if not loggedin then loginplayer;
          FindNormalRandoms;
    
          if(TakeBreaks)then BreakHandler(BreakIn, BreakFor, Bir, Bfr);
    
          if(TimeFromMark(TW) > 600000)then
            FindWizard;
    
          if not WaitFindDTMEX(EssenceDTM, EX, EY, MIX1, MIY1, MIX2, MIY2, 100, 2000) then
            GetMoreEssence;
    
          if(TimeFromMark(RCt) > (3600000 + RandomRange(-1800000, 1800000)))then
          begin
            RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
            MarkTime(RCt);
          end;
    
          for i := 0 to High(Objects) do
          begin
            fObj := GetObject(i);
    
            if(RCLvl >= fObj.LvlReq)then
            begin
              if(FindObjectPlatform)then
                if(K_FindObj(x, y, i))then
                begin
                  Waiting:
    
                  if(TimeFromMark(TP) > 60000)then
                    Proggy;
    
                  Wait(RandomRange(500, 750));
                  InitialXP := GetXPBarTotal;
                  CurrentXP := fObj.IXP;
    
                  MarkTime(T);
                  repeat
                    Wait(100);
                    if(FindNormalRandoms)then
                    begin
                      if(not(LoggedIn))then
                        SetFalse('Not Logged in');
                      SetAngle(SRL_ANGLE_HIGH);
                      MakeCompass('N');
                    end;
                    if(TimeFromMark(T) > RandomRange(7000, 7200))then
                      Break;
    
                    AntiBan;
                    for i := 0 to High(Objects) do
                    begin
                      fObj := GetObject(i);
    
                      if(RCLvl >= fObj.LvlReq) And (CurrentXP < fObj.IXP)then
                        if(FindObjectPlatform)then
                          if(K_FindObj(x, y, i))then
                          begin
                            Higher := True;
                            Break;
                          end;
                    end;
    
                    if(Higher)then
                      Break;
    
                    UpdateXP := GetXPBarTotal;
    
                    if(UpdateXP > InitialXP)then
                    begin
                      InitialXP := GetXPBarTotal;
                      T := 0;
                      MarkTime(T);
                    end;
                  until(False);
    
                  if(Higher)then
                  begin
                    Higher := False;
                    Goto Waiting;
                  end;
                end;
            end;
          end;
    
          if(FindNormalRandoms)then
          begin
            if(not(LoggedIn))then
              SetFalse('Not Logged in');
            SetAngle(SRL_ANGLE_HIGH);
            MakeCompass('N');
          end;
        until(not(LoggedIn));
    
        if(Players[CurrentPlayer].Active)then
          SetFalse('Not Logged in');
    
        NextPlayer(Players[CurrentPlayer].Active);
        ScriptSetup();
      until(AllPlayersInactive);
    end;
    
    begin
      Smart_Server := 10;
      Smart_Members := True;
      Smart_Signed := True;
    
      SetupSRL();
      SetupSRLStats(1036, SRLStats_Username, SRLStats_Password);
    
      {* Initial Break Settings *}
      w := (BreakIn * 60000);
      x := (BreakFor * 60000);
      y := RandomRange(-Bir * 60000, Bir * 60000);
      z := RandomRange(-Bfr * 60000, Bfr * 60000);
    
      ActivateClient();
      DeclarePlayers();
      LoginPlayer();
    
      while(not(RSReady()))do
        Wait(9000);
    
      AddOnTerminate('Fr33DTM');
      SetDtm;
    
      MarkTime(TP);
      MarkTime(RCt);
    
      ScriptSetup();
    
      if(not(WaitFindDTMEX(EssenceDTM, EX, EY, MIX1, MIY1, MIX2, MIY2, 100, 2000)))then
        GetMoreEssence;
    
      MainLoop;
    end.

  21. #1796
    Join Date
    Mar 2012
    Posts
    182
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Just starting a couple hours ago, the script is hovering in neighboring islands and even clicking platforms and other things. Not sure if there was a subtle color update, but the script is confused much more often.

    EDIT: maybe it was one time thing? Not sure. Restarted and working ok atm. As much as everything about this script is logic, the performance isn't always so consistent. Sometimes it does better than others, and only difference is restarting the script.
    Last edited by sickle; 05-16-2012 at 05:05 AM.

  22. #1797
    Join Date
    May 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How do I fix the start error "access violation in line 142"

  23. #1798
    Join Date
    Feb 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I find that these settings are best for levels 95+

    -Use island 32 or 30 depending on which is fuller (I prefer 30 always)
    -Use world 36

    Now here is a simple modification I did to gain 90-102k xp/h

    Firstly you need version 1.6. After obtaining that version we need to modify the script to siphon nebulas and shifters BEFORE SoulWraiths. Reason is that even though it is lower xp per siphon you get more quicker since is lower level requirement.

    So to do this all you need to do is change your constants like this:

    Simba Code:
    objUndeadSoul     = 0;
      objLivingSoul     = 1;
      objBloodySkulls   = 2;
      objBloodPool      = 3;
      objBloodWraith    = 4;
      objSkulls         = 5;
      objDeathWraith    = 6;
      objJumper         = 7;
      objShifter        = 8;
      objNebula         = 9;
      objSoulWraith     = 10;
      objWaterEssling   = 11;
      objVine           = 12;
      objLawHound       = 13;
      objCosmicHound    = 14;
      objChaosHound     = 15;
      objAstralHound    = 16;
      objNatureHound    = 17;
      objBodyHound      = 18;
      objCCloud         = 19;
      objAirEss         = 20;
      objWaterPool      = 21;
      objFleshyGrowth   = 22;
      objFireStorm      = 23;
      objEarthEss       = 24;
      objRockFrag       = 25;
      objFireball       = 26;
      objMindEssling    = 27;
      objCyclone        = 28;

    -Then you need to change the IXP amount of the nebula and shifter to be greater than SoulWraiths. You can find that under SetupObjects. Just be sure not to make the IXP of the nebula greater than the Shifter.

    Hope this helps...

    Also be sure to have only the minimum amount of objects to search for. At 95 you only need these: objUndeadSoul, objLivingSoul, objSoulWraith, objBloodySkulls, objBloodPool, objSkulls, objJumper, objShifter, objNebula

    This is my current proggie. I should have saved my others but i didn't.
    ======== Kyle's Esswraith Extractor =========
    You are using Version 1.6
    Time Running: 1 Hours, 18 Minutes and 55 Seconds
    Experience Earned: 129352
    Experience/Hour: 97200
    =============================================
    Last edited by Robot91292; 05-16-2012 at 07:47 AM.

  24. #1799
    Join Date
    Mar 2012
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what island do you guys prefer for death?

    i only get atm.

    72 RC


    ======== Kyle's Esswraith Extractor =========
    You are using Version 1.6
    Time Running: 22 Minutes and 1 Seconds
    Experience Earned: 13449
    Experience/Hour: 36000
    =============================================

    Version 1.6 and version 1.7

    what do i do wrong?
    Last edited by chuckyb0y; 05-16-2012 at 08:40 AM. Reason: Typo

  25. #1800
    Join Date
    Jan 2012
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    21 Post(s)

    Default

    Hmm something i noticed is that it wont close the 'Mad May Box' for me, happend twice.

    Otherwhise i love thiiii'z script

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