Can anyone please help me setup this script and stuff, im a noob at this.
its wrong with prefix or something
Can anyone please help me setup this script and stuff, im a noob at this.
its wrong with prefix or something
Last edited by Virtosa; 05-13-2012 at 02:33 PM.
Is there already a prioritising system built in? If not would it be easy to include as it would speed up exp/hour alot.
Also can you let us download V1.6 aswell, because this worked alot better for me.
Thanks!
There's a problem with nebula, it thinks its a random event. Thats why if you have random detection log out thing, it logs you out and you're not in a random event. It just messes up the script.
Here is 1.6 for those that need it again!
Good Luck Botting Double the Points this Weekend so dont miss out!
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.
Sick been using it for a while now, only thing im scared about is there dosent seem to be a good antiban in it, my mouse just stays in one spot
Nah, ruins the whole "AFK" part.
The script should automatically set the angle to High, it works perfectly for me.
This shouldn't be happening.
Added to the first post! Congrats!
Shouldn't be the case, it never searches the inventory for objects. Only when it's talking to the wizard. Maybe it's the right click antiban.
I don't know, the colors might need to be updated.
That's been in here since version 1.4+
The antiban in this script is perfect, I honestly don't know what you're talking about.
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.
Did you even look at the script?
Simba Code:procedure AntiBan();
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Performing Antiban');
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;
Long ago, the '90s Nicktoons lived together in harmony. Then, everything changed when the century turned. Only Avatar, the best of the 2000's Nicktoons, could save them. But when the channel needed it most, the show finished. Four years passed and Mike and Bryan created the new Avatar: Legend of Korra. And although the show itself is great, it has a long way to go before it can live up to The Last Airbender. But I believe Korra can save Nickelodeon.
my x2 xp boting spree :P
Simba Code:======== Kyle's (AMAZING) Esswraith Extractor =========
Version 1.7
Time Running: 4 Hours, 7 Minutes and 23 Seconds
Experience Earned: 170860
Experience/Hour: 39600
Runecrafting Level: 70
Floor: 3
=============================================
worked really well bit slow at picking up the esswraith at times and would ignore the nebula then be like oh there's a nebular i suppose ill click that!
all around though really well well worth the main boting session!
thanks for all your hard work
Learning To Code - So Excuse the n00b questions!
Went 58-70 with this script thx very much Kyle!
My other username is cresi.
http://i44.tinypic.com/117y7ox.jpg
I found out what the problem was, it was due to randoms and a bad internet connection, nothing related to the script
working fine now, thanks for the great script![]()
I keep changing islands when I run this script and then it gets stuck. It doesn't even siphon things on the island that it changes to. I was on 15.
Edit: Works great on other islands though. I'm not sure what the problem is, but I guess it's only with that island.
Last edited by lotsofbots; 05-13-2012 at 09:53 PM.
Oh hey
======== Kyle's Esswraith Extractor =========
You are using Version 1.6
Time Running: 5 Hours, 2 Minutes and 33 Seconds
Experience Earned: 292498
Experience/Hour: 57600
=============================================
Cool script. Thanks.
Last edited by Cyfer; 05-13-2012 at 10:32 PM.
My other username is cresi.
http://i44.tinypic.com/117y7ox.jpg
Better Firestorm.
Had to change the uptext (pretty sure this was needed for some reason?)
Also vastly changed the colors:
Simba Code:with Objects[objFireStorm] do
begin
ObjID := objFireStorm;
Name := 'Fire Storm';
UpText := ['ire sto', 'iphon Fir', 'Siphon Fire storm', 'sto'];
Color := 1714035;
Tol := 20;
Hue := 0.08;
Sat := 1.20;
LvlReq := 27;
Max := 250;
Min := 50;
IXP := 42;
end;
Also (if not already existant)
Can you host a site with all of the most up to date .aca files for each object?
That way people can easily download and add colors!
Maybe even have the script read the database and auto-update if the user wishes to do so? That would be pretty awesome and a nice/easy way for faster updates!
E:
Another one.
It was working fine (I think) but I just made another just because
Simba Code:with Objects[objBodyHound] do
begin
ObjID := objBodyHound;
Name := 'Body esshound';
UpText := ['Siphon Body', 'on Bod', 'Body', 'ody ess', 'ody esshound', 'Siphon Body esshound'];
Color := 14584962;
Tol := 19;
Hue := 0.10;
Sat := 2.02;
LvlReq := 20;
Min := 250;
Max := 700;
IXP := 24;
end;
Last edited by YoHoJo; 05-13-2012 at 10:43 PM.
As general advice how many hours should I be botting a day?
I calculated it and to reach 99 it would take me something like 8 hours of botting every day for 23 days (3 weeks and a bit) if I botted EIGHT HOURS a day.....
I just don't really understand how people have achieved 99s so fast...
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
There are currently 1 users browsing this thread. (0 members and 1 guests)