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
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.
This script is awesome! Thanks. I'm getting 57k/hr at 75 RC.
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
=============================================
Anyone have any ideas on the best xp for level 77. Like the island number for an island with blood esswraiths and nodes (often)
how do u know wich island u are ;o?
http://gyazo.com/ef2cdbebdfb462e83d686fa9bb5d9246
That's the error i get. Please help.
this keeps stopping after 1-2 hours??
======== 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
When do you plan to release v1.8 Kyle? C:
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.
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.
How do I fix the start error "access violation in line 142"
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.
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
Hmm something i noticed is that it wont close the 'Mad May Box' for me, happend twice.
Otherwhise i love thiiii'z script![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)