View Full Version : Kyle's Esswraith Extractor
Pages :
1
[
2]
3
4
5
6
7
8
9
10
Solitude
05-01-2012, 11:29 PM
Are any of these possible with 1 runecrafting?
Just modify it to air esshounds - I went from 1-60 today just manually setting up new camp spots and replacing the search with a new esshound. Exp is insanely fast at low levels relative to old RCing.
Big thanks to Kyle for this.
Are any of these possible with 1 runecrafting?
http://services.runescape.com/m=rswiki/en/Runecrafting_-_The_Runespan
as long as you Autocolor the cyclone, Air, and mind esslings, you can use it.
fill out the record with what ACA gives u, assign a number to it in your constants, and there u go :)
gibsondude
05-01-2012, 11:33 PM
http://services.runescape.com/m=rswiki/en/Runecrafting_-_The_Runespan
as long as you Autocolor the cyclone, Air, and mind esslings, you can use it.
fill out the record with what ACA gives u, assign a number to it in your constants, and there u go :)
I have no coding knowledge, that doesn't really make sense to me :\
Riotday
05-01-2012, 11:38 PM
Alright, I feel this needs looked at. When I am on a Blood Esswraith and blood skulls pop up I hesitate to click them and when I do I switch back to Blood Esswraith. I have blood skulls has my highest object.
Solitude
05-01-2012, 11:39 PM
I have no coding knowledge, that doesn't really make sense to me :\
{$DEFINE SMART}
{$i srl/srl.simba}
var
StartXP, XPH, XP, T : Integer;
procedure DeclarePlayers();
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Your RuneScape Account Name
Pass := ''; // Your RuneScape Account Password
Active := True; // Use in the Script. True / False.
end;
end;
(* Credits to Flight *)
procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist: extended;
lastX,lastY,MSP,W,maxStep,D: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
repeat
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
D := Random((Round(dist)/3));
if (D > 100) then
D := RandomRange(90, 100);
if (D < 5) then
D := RandomRange(5, 8);
maxStep := D;
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
W := (Random(100/MSP))*3;
if (W < 5) then
W := 5;
wait(W);
lastdist:= dist;
until(hypot(xs - xe, ys - ye) < 1)
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
(* Credits to Flight *)
procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y: integer;
begin
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(X, Y);
BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
end;
function FindMonster(var x, y : Integer) : Boolean;
var
a, h: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.26, 1.50);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 14981481, MSX1, MSY1, MSX2, MSY2, 18);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
MMouse(X, Y, 5, 5);
If (WaitUpTextMulti(['ir ess', 'iphon A', 'Siphon Air esshound'], 750)) Then
begin
ClickMouse2(True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Result:= True;
Exit;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
procedure AntiBan();
begin
if(not(LoggedIn))then Exit;
FindNormalRandoms;
case (Random(350)) of
0 : RandomRClick;
1 : HoverSkill('random', False);
2 : ExamineInv;
3 : MouseSpeed := (RandomRange(10, 12));
4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
7 .. 14 : HoverSkill('Runecrafting', False);
15 .. 40 : Wait(RandomRange(750, 2000));
41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
end;
end;
procedure Proggy;
begin
ClearDebug();
XP := (GetXPBarTotal - StartXP);
XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
Writeln('Time Running: ' + TimeRunning);
Writeln('Experience Earned: ' + IntToStr(XP));
Writeln('Experience/Hour: ' + IntToStr(XPH));
MarkTime(T);
end;
procedure MainLoop();
var
x, y : Integer;
begin
repeat
if TimeFromMark(T) > 120000 then
Proggy;
if(FindMonster(x, y))then
begin
Wait(RandomRange(500, 750));
repeat
Wait(100);
FindNormalRandoms;
until(not(IsUpTextMultiCustom(['ir ess', 'iphon A', 'Siphon Air esshound'])));
end;
FindNormalRandoms;
AntiBan();
until(not(LoggedIn));
end;
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
SetupSRL();
ActivateClient();
DeclarePlayers();
LoginPlayer();
SmartSetGraphics(False);
SmartSetGraphics(False);
while(not(RSReady()))do
Wait(9000);
StartXP := GetXPBarTotal;
MarkTime(T);
SetAngle(SRL_ANGLE_HIGH);
MainLoop();
end.
I have no knowledge either, but that should work hopefully - It's what i'm using for Nature esshound's, but i've switched in Air. That's all kyle's work - I just switched in esshound values.
Riotday
05-01-2012, 11:39 PM
I have no coding knowledge, that doesn't really make sense to me :\
ACA can be downloaded on the site. http://villavu.com/forum/showthread.php?t=26944 Here ya go.
Dragonrider
05-02-2012, 12:11 AM
why does it just sit there hoovering over my stats instead of attacking?
To add a critter to the script:
Download ACA and read a Tutorial on how to use it, I advise YoHoJo's here (http://villavu.com/forum/showthread.php?t=71074)
After you find some unique colors for the object, put them here, you should only change where it is ALL CAPS:
with Objects[objPUTYOUROBJECTNAMEHERE] do
begin
Name := 'OBJECTNAME';
UpText := ['ody', 'ody ess', 'Body', 'Siphon Body']; // This is the text in the upper left hand corner. every quote is text the script will look for. separate them with commas.
Color := COLORHERE;//This is the color found by ACA on the left side.
Tol := TOLERANCE;//Right under the color on ACA
Hue := HUE;//Hue and Sat are found on ACA next to color
Sat := SATURATION;
LvlReq := WHICHLVL; //when can you use it
end;
Place that Record(thats what it is) in the GetObject section of the script and change
SetLength(Objects, 11); //Change the 11 to whatever. to how ever many objects you have in there.
Next,
Where it says constants, put "obj" followed by your object name. like this:
objOBJECTHERE = NUMBERHERE;
Your done :)
superbuster4
05-02-2012, 12:20 AM
my longest proggie on deaths:
Time Running: 3 Hours, 15 Minutes and 33 Seconds
Experience Earned: 97789
Experience/Hour: 28800
gibsondude
05-02-2012, 12:21 AM
To add a critter to the script:
Download ACA and read a Tutorial on how to use it, I advise YoHoJo's here (http://villavu.com/forum/showthread.php?t=71074)
After you find some unique colors for the object, put them here, you should only change where it is ALL CAPS:
with Objects[objPUTYOUROBJECTNAMEHERE] do
begin
Name := 'OBJECTNAME';
UpText := ['ody', 'ody ess', 'Body', 'Siphon Body']; // This is the text in the upper left hand corner. every quote is text the script will look for. separate them with commas.
Color := COLORHERE;//This is the color found by ACA on the left side.
Tol := TOLERANCE;//Right under the color on ACA
Hue := HUE;//Hue and Sat are found on ACA next to color
Sat := SATURATION;
LvlReq := WHICHLVL; //when can you use it
end;
Place that Record(thats what it is) in the GetObject section of the script and change to how ever many objects you have in there.
Next,
Where it says constants, put "obj" followed by your object name. like this:
Your done :)
Thanks for posting this, I will try it.
Would be awesome if somebody made a gui with some basic wraiths to use 1-99 eventually.
Dragonrider
05-02-2012, 12:40 AM
All you have to do is add a const at the top, with the next number that's logical. Then, follow the SetupObjects procedure and copy one of the object setups, and change it to your need! That is it! Script takes care of the rest
I don't understand, can someone show an example?
Quite easily achieving 60k xp/h here. Thanks a lot for this, Doubt I'll be using it much though.
ultima71111
05-02-2012, 01:39 AM
Amazing script!!!!
botsalot123
05-02-2012, 01:54 AM
Wow what an explosion on this script, Awesome job kyle and the rest of you guys !!!!!!
This script is def pushed me over the edge to actually get my ass in gear to learn more.
Mind if i use some of the code to make my own personal script?
:thumbsup:
Hazzah
05-02-2012, 02:05 AM
Time Running: 55 Minutes and 51 Seconds
Experience Earned: 51234
Experience/Hour: 54000
Soul Esswraiths
honeyhoney
05-02-2012, 02:21 AM
In Free to Play (Body Esshounds)
Time Running: 3 Hours, 13 Minutes and 23 Seconds
Experience Earned: 91507
Experience/Hour: 25200
Still running. :stirthepot:
All you have to do is add a const at the top, with the next number that's logical. Then, follow the SetupObjects procedure and copy one of the object setups, and change it to your need! That is it! Script takes care of the rest
I don't understand, can someone show an example?
const
{* Object Constants *}
objUndeadSoul = 0;
objLivingSoul = 1;
objSoulWraith = 2;
objBloodySkulls = 3;
objBloodPool = 4;
objBloodWraith = 5;
objSkulls = 6;
objDeathWraith = 7;
objJumper = 8;
objShifter = 9;
objNebula = 10;
objEssHound = 11; //here
//in setupobjects ...
SetLength(Objects, 12); //change this to the number of objects you're using
//add this object
with Objects[objEssHound] do
begin
Name := 'Esshound';
UpText := ['aw ess', 'iphon L', 'Siphon Law esshound'];
Color := 14981481;
Tol := 18;
Hue := 0.26;
Sat := 1.50;
LvlReq := 54;
end;
Zockuito
05-02-2012, 02:58 AM
My guy just sits there checking his rc experience over and over haha. I broke physics. D:
superbuster4
05-02-2012, 03:03 AM
deaths
Time Running: 5 Hours, 55 Minutes and 33 Seconds
Experience Earned: 181789
Experience/Hour: 28800
Andres
05-02-2012, 03:11 AM
Time Running: 55 Minutes and 51 Seconds
Experience Earned: 51234
Experience/Hour: 54000
Soul Esswraiths
What level is this? At 94 rc I was getting 70k per hour at souls doing it legit.
wakka165
05-02-2012, 03:18 AM
nvm got it to work
i get this error...
[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
Compiled successfully in 531 ms.
SRL Compiled in 15 msec
SMART Initialized.
Loaded: Server 10, Members: True, Signed: True, Super Detail: False.
Error: Out Of Range at line 76
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Well, whats at line 76? :)
Hazzah
05-02-2012, 04:10 AM
What level is this? At 94 rc I was getting 70k per hour at souls doing it legit.
92, and it has been fairly consistent, this is the same run.
Time Running: 2 Hours, 33 Minutes and 17 Seconds
Experience Earned: 138304
Experience/Hour: 54000
Botting is almost never as efficient as legit, but 54k xp/hr I can deal with. Would LOVE LOVE LOVE to see SPS maps made for the area (I would be interested in learning how to do it, but don't have time at the moment). SPS maps would make finding the wizard in the yellow robe a little easier I think, or perhaps it can be done with radial walking, who knows though, maybe Flight will be able to get it down to an almost perfect.
b_lone
05-02-2012, 04:16 AM
^ It's basically a free 54k xp/hr. Can't complain. :)
EDIT: I feel comfortable enough to run this overnight. Anyone going to talk me out of it? :P
Just as a heads-up, I got a molly's twin random, which made me log-out, and when I got back it had transferred my runes to points (trapping me on an island).
I can house port, but still :/
Ashaman88
05-02-2012, 05:06 AM
procedure MainLoop();
var
fObj : TObj;
x, y, i ,InitialXP,UpdateXP,t: Integer;
begin
repeat
if not loggedin then loginplayer;
if(TakeBreaks)then BreakHandler(BreakIn, BreakFor, Bir, Bfr);
if(TimeFromMark(T) > 120000)then
Proggy;
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(K_FindObj(x, y, i))then
begin
Wait(RandomRange(500, 750));
InitialXP:=GetXPBarTotal;
MarkTime(T);
repeat
Wait(100);
FindNormalRandoms;
If TimeFromMark(T)>RandomRange(5500,6000) Then
Break;
UpdateXP:=GetXPBarTotal;
If UpdateXP>InitialXP Then
Begin
InitialXP:=GetXPBarTotal;
T:=0;
MarkTime(T);
End;
until(false);
end;
end;
end;
FindNormalRandoms;
AntiBan();
until(not(LoggedIn));
end;
bye bye uptext
Kyle Undefined
05-02-2012, 05:35 AM
Look for an update tomorrow! All credits go to ashaman88 for this one! Whooo! The code looks amazing! :D Give him some love!
Love this community script! Post your f2p setups if you have them! :)
Nicklaus
05-02-2012, 05:41 AM
been using for about 4 hours, 68k exp/hr @ 97 RC
stinkysocks
05-02-2012, 05:57 AM
why does the script sometime run for hours then the next run for 30 seconds and stop
Kyle Undefined
05-02-2012, 05:59 AM
The next version should be very stable :)
stinkysocks
05-02-2012, 06:01 AM
Hehe thanks i think it might just be a bug with my simba it doesnt seem to do this with anyone else so :P
TomTuff
05-02-2012, 06:33 AM
Has the thing where it moves the mouse rapidly on one spot been fixed?
nokkasiili
05-02-2012, 06:42 AM
Has the thing where it moves the mouse rapidly on one spot been fixed?
Its not fixed we just deleted what got it happen :) so its "fixed"
honeyhoney
05-02-2012, 07:28 AM
In Free to Play (Body Esshounds)
Time Running: 3 Hours, 13 Minutes and 23 Seconds
Experience Earned: 91507
Experience/Hour: 25200
Still running. :stirthepot:
Update;
Time Running: 4 Hours, 18 Seconds
Experience Earned: 113107
Experience/Hour: 25200
Successfully executed.
Ashaman - no more uptext looks nice. :)
Can't wait to get home later today and test it out.
BigRedJapan
05-02-2012, 07:51 AM
Im really not liking the script clean up now its harder to read the script and its less flawless to run!
nokkasiili
05-02-2012, 07:52 AM
Im really not liking the script clean up now its harder to read the script and its less flawless to run!
For me its the opposite :)
BigRedJapan
05-02-2012, 08:01 AM
i dont even know how to run the new script!
Has the thing where it moves the mouse rapidly on one spot been fixed?
BrakeMouse has been removed. All is fine.
Justin
05-02-2012, 09:20 AM
Thanks to everyone who has helped make this script work so flawless!
P.S: Add SRL Stats :)
Robot
05-02-2012, 10:07 AM
Top notch, haven't got a real proggy because of the exp counter I hadn't set up properly but was getting ~42k/hr with 84 on bloods. Going to try ZMI for 90 though then back to this for sure. Nice work all involved
the flea
05-02-2012, 11:04 AM
this script is boss! thanks a lot guys. Thread is a nice read too this is how the community should be all the time :)
Masterstroke
05-02-2012, 11:06 AM
Really lovely script :D
FloppyWien3r
05-02-2012, 11:30 AM
Godly Script (And so fast to be put together :O)
But awesome job guys! :D
Solitude
05-02-2012, 11:59 AM
As i've said before I have no coding experience, so I don't know how useful or successful this will be (works fine for me though) - But i've swapped some colours around to customise the BloodEssWraith for my lvl 55 RCer:
program BloodEsswraithExtractor;
{$DEFINE SMART}
{$i srl/srl.simba}
var
StartXP, XPH, XP, T : Integer;
procedure DeclarePlayers();
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Your RuneScape Account Name
Pass := ''; // Your RuneScape Account Password
Active := True; // Use in the Script. True / False.
end;
end;
(* Credits to Flight *)
procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist: extended;
lastX,lastY,MSP,W,maxStep,D: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
repeat
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
D := Random((Round(dist)/3));
if (D > 100) then
D := RandomRange(90, 100);
if (D < 5) then
D := RandomRange(5, 8);
maxStep := D;
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
W := (Random(100/MSP))*3;
if (W < 5) then
W := 5;
wait(W);
lastdist:= dist;
until(hypot(xs - xe, ys - ye) < 1)
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
(* Credits to Flight *)
procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y: integer;
begin
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(X, Y);
BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
end;
function FindMonster(var x, y : Integer) : Boolean;
var
a, h: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.26, 1.50);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 14981481, MSX1, MSY1, MSX2, MSY2, 18);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
MMouse(X, Y, 5, 5);
If (WaitUpTextMulti(['aw ess', 'iphon L', 'Siphon Law esshound'], 750)) Then
begin
ClickMouse2(True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Result:= True;
Exit;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
function FindJumper(var x, y : Integer) : Boolean;
var
a,h: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(1.46, 2.83);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2429994, MSX1, MSY1, MSX2, MSY2, 7);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
MMouse(X, Y, 5, 5);
If (WaitUpTextMulti(['Siphon Chaos storm', 'on Cha', 'Chaos', 'aos storm'], 750)) Then
begin
ClickMouse2(True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Result:= True;
break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if Result then
begin
repeat
Wait(100);
FindNormalRandoms;
until(not(IsUpTextMultiCustom(['Siphon Chaos storm', 'on Cha', 'Chaos', 'aos storm'])));
end;
end;
function FindBloodPool(var x, y : Integer) : Boolean;
var
a,h: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.02, 1.70);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16624975, MSX1, MSY1, MSX2, MSY2, 7);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
MMouse(X, Y, 5, 5);
If (WaitUpTextMulti(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'], 750)) Then
begin
ClickMouse2(True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Result:= True;
break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if Result then
begin
repeat
Wait(100);
FindNormalRandoms;
until(not(IsUpTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
end;
end;}
function FindNebula(var x, y : Integer) : Boolean;
var
a,h: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.54, 1.05);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 11951253, MSX1, MSY1, MSX2, MSY2, 7);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
MMouse(X, Y, 5, 5);
If (WaitUpTextMulti(['Siphon Nebula', 'on Neb', 'Nebula', 'bula'], 750)) Then
begin
ClickMouse2(True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Result:= True;
break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if Result then
begin
repeat
Wait(100);
FindNormalRandoms;
until(not(IsUpTextMultiCustom(['Siphon Nebula', 'on Neb', 'Nebula', 'bula'])));
end;
end;
function FindShifter(var x, y : Integer) : Boolean;
var
a,h: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.02, 1.70);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1830421, MSX1, MSY1, MSX2, MSY2, 7);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
MMouse(X, Y, 5, 5);
If (WaitUpTextMulti(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'], 750)) Then
begin
ClickMouse2(True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Result:= True;
break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if Result then
begin
repeat
Wait(100);
FindNormalRandoms;
until(not(IsUpTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
end;
end;}
procedure AntiBan();
begin
if(not(LoggedIn))then Exit;
FindNormalRandoms;
case (Random(350)) of
0 : RandomRClick;
1 : HoverSkill('random', False);
2 : ExamineInv;
3 : MouseSpeed := (RandomRange(10, 12));
4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
7 .. 14 : HoverSkill('Runecrafting', False);
15 .. 40 : Wait(RandomRange(750, 2000));
41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
end;
end;
procedure Proggy;
begin
ClearDebug();
XP := (GetXPBarTotal - StartXP);
XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
Writeln('Time Running: ' + TimeRunning);
Writeln('Experience Earned: ' + IntToStr(XP));
Writeln('Experience/Hour: ' + IntToStr(XPH));
MarkTime(T);
end;
procedure MainLoop();
var
x, y : Integer;
begin
repeat
if TimeFromMark(T) > 120000 then
Proggy;
if(FindBloodPool(x, y))then
begin
Wait(RandomRange(500, 750));
repeat
Wait(100);
FindNormalRandoms;
Until(not(IsupTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'])));
end;
if(FindJumper(x, y))then
begin
wait(RandomRange(500, 750));
repeat
Wait(100);
FindNormalRandoms;
Until(not(IsupTextMultiCustom(['Siphon Chaos storm', 'on Cha', 'Chaos', 'aos storm'])));
end;
if(FindMonster(x, y))then
begin
Wait(RandomRange(500, 750));
repeat
Wait(100);
FindNormalRandoms;
until(not(IsUpTextMultiCustom(['aw ess', 'iphon L', 'Siphon Law esshound'])));
end;
if(FindNebula(x, y))then
begin
Wait(RandomRange(500, 750));
repeat
Wait(100);
FindNormalRandoms;
Until(not(IsupTextMultiCustom(['Siphon Nebula', 'on Neb', 'Nebula', 'bula'])));
end;
if(FindShifter(x, y))then
begin
Wait(RandomRange(500, 750));
repeat
Wait(100);
FindNormalRandoms;
Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'])));
end;
FindNormalRandoms;
AntiBan();
until(not(LoggedIn));
end;
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
SetupSRL();
ActivateClient();
DeclarePlayers();
LoginPlayer();
while(not(RSReady()))do
Wait(9000);
StartXP := GetXPBarTotal;
MarkTime(T);
SetAngle(SRL_ANGLE_HIGH);
MainLoop();
end.
I have it set up on a 2nd floor island with a lone Law esshound, it will siphon Law esshound, Chaos storm, Nebula, Shifter and Jumper. (I didn't change the FindObject names, just the colours / tolerance / speed / names)
Hopefully someone will find this useful and sorry if it's useless > There are still a few more objects I could add (chaotic cloud etc) but I really am a noob so I don't want to break it.
Edit: And my colours are not the best - it hovers over the 2nd floor sign / points in inventory a little bit.
onilika
05-02-2012, 12:01 PM
Nodes are Glitched. FTW :)
Been at the living soul one for 10+ minutes.
~cheers
Justin
05-02-2012, 12:02 PM
Nodes are Glitched. FTW :)
Been at the living soul one for 10+ minutes.
~cheers
Not glitched here :S
Masterstroke
05-02-2012, 12:04 PM
Time Running: 35 Minutes and 13 Seconds
Experience Earned: 37708
Experience/Hour: 61200
Successfully executed.
Was out of essence, could you maybe implement that it then picks 25 free ones?
Riotday
05-02-2012, 12:08 PM
That's impossible.. How do you run out of essence from siphoning creatures? I've managed to get all of this.. from this script. All versions up to it's current one.
I've reset my xp counter 3 times.
http://puu.sh/sxwK
Justin
05-02-2012, 12:10 PM
That's impossible.. How do you run out of essence from siphoning creatures? I've managed to get all of this.. from this script. All versions up to it's current one.
I've reset my xp counter 3 times.
http://puu.sh/sxwK
Beast mode activated!
Harry
05-02-2012, 12:13 PM
That's impossible.. How do you run out of essence from siphoning creatures? I've managed to get all of this.. from this script. All versions up to it's current one.
If you fail a random you lose your ess. I had like 100k stack of ess and lost it since I failed random when I was sleeping :(
Hazzah
05-02-2012, 12:24 PM
Time Running: 6 Hours, 50 Minutes and 29 Seconds
Experience Earned: -173131062
Experience/Hour: -25304400
I was forced to log out gained over 470k xp in 7 hours!
Mindset
05-02-2012, 12:24 PM
Very good script except for the random stopping:
Time Running: 1 Hours, 18 Minutes and 49 Seconds
Experience Earned: 81057
Experience/Hour: 61200
Successfully executed.
Looking forward to next update
Imanoobbot
05-02-2012, 12:24 PM
Someone Rank 1 in this game already? I am on rank 4 lol.
Riotday
05-02-2012, 12:25 PM
If you fail a random at runespan and lose all your essence and points I'm going to cash it in. Also I can have tier 2 bought I believe but far off from 1.
Justin
05-02-2012, 12:28 PM
Very good script except for the random stopping:
Time Running: 1 Hours, 18 Minutes and 49 Seconds
Experience Earned: 81057
Experience/Hour: 61200
Successfully executed.
Looking forward to next update
Just had a look at the script, the only reason why the script would stop is if you logged out
Hazzah
05-02-2012, 12:28 PM
Can anyone confirm is higher rank means less failing while wearing the wicked hood/clothing?
Riotday
05-02-2012, 12:52 PM
No, I believe it's false. At least I hope so. I'm still holding back a ton of points.. almost 43k :)
nokkasiili
05-02-2012, 12:56 PM
The only thing you get from rank is the icon.
Here2help
05-02-2012, 01:03 PM
Haha wow already! When i get 99 using the livid farm script I'm going to jump on this next! Thanks for everyone who the work into making this!
Kyle Undefined
05-02-2012, 01:06 PM
Loving all the feedback! I'm just testing the latest version before uploading! :)
shstiger2009
05-02-2012, 01:08 PM
If you fail a random at runespan and lose all your essence and points I'm going to cash it in. Also I can have tier 2 bought I believe but far off from 1.
I'm pretty sure it's any random...I've passed 2 while there and still got my stuff taken from me. Actually though, it logged out when I was in both of them, but when I did them myself I passed. Then when I got back to the Runespan, all my stuff was gone, and my points were turned in.
Can anyone else confirm this?
the flea
05-02-2012, 01:12 PM
I got a random whilst in runespan. Completed it and nothing had changed I was still in the same spot with the same points and all my runes
lorenzo
05-02-2012, 01:15 PM
i need help iam just kinda new to scripts and runespan iam standing next to an blood thing and nature when i click run it works fine for 5mins then the script stops what i need to do to just do the blood things only for the exp could u help me plz what are the settings i need to edite or some other stuff thanks alot
lorenzo
Imanoobbot
05-02-2012, 01:18 PM
i need help iam just kinda new to scripts and runespan iam standing next to an blood thing and nature when i click run it works fine for 5mins then the script stops what i need to do to just do the blood things only for the exp could u help me plz what are the settings i need to edite or some other stuff thanks alot
lorenzo
I think you have to change BrakeMMouse to MMouse. So just delete the Brake.
Andres
05-02-2012, 01:22 PM
This update is crazy. RC is going to be such a common cape.
bots420
05-02-2012, 01:28 PM
i need help iam just kinda new to scripts and runespan iam standing next to an blood thing and nature when i click run it works fine for 5mins then the script stops what i need to do to just do the blood things only for the exp could u help me plz what are the settings i need to edite or some other stuff thanks alot
lorenzo
I am having this same problem, Although I did just setup simba. I am not extirely a noob to this as I use to use scar and I'm pretty sure these are the same program?
It could be something on my end. But usually ends about 5 mins and then stops.
Thanks for uploading :)
Hazzah
05-02-2012, 01:33 PM
Someone Rank 1 in this game already? I am on rank 4 lol.
Rank one: 213k points (approximately)
Pots/hr: 1800-2300
Approximate time needed: 100 hours.
Imanoobbot
05-02-2012, 01:35 PM
Rank one: 213k points (approximately)
Pots/hr: 1800-2300
Approximate time needed: 100 hours.
There are people playing legit getting 130k/h with nodes. I think some nerds who play legit might already got rank 1 ;) And the first botter will reach it too soon.
Masterstroke
05-02-2012, 01:38 PM
I am having this same problem, Although I did just setup simba. I am not extirely a noob to this as I use to use scar and I'm pretty sure these are the same program?
It could be something on my end. But usually ends about 5 mins and then stops.
Thanks for uploading :)
Do you still have rune essence?
I had this issue with ess wraiths and thought hmmm what could have caused this and then I noticed I had no rune ess left ;)
I collected about 1k ess before starting the script.
honeyhoney
05-02-2012, 01:41 PM
F2P; Body Esshounds, Fire Storms and Rock Fragments (haven't got round to adding the rest yet)
Time Running: 2 Hours, 58 Minutes and 43 Seconds
Experience Earned: 114133
Experience/Hour: 36000
Stopping script now. Got 11k~ points, want to cash them in so I don't lose them due to a failed random.
Solitude
05-02-2012, 01:48 PM
F2P; Body Esshounds, Fire Storms and Rock Fragments (haven't got round to adding the rest yet)
Time Running: 2 Hours, 58 Minutes and 43 Seconds
Experience Earned: 114133
Experience/Hour: 36000
Stopping script now. Got 11k~ points, want to cash them in so I don't lose them due to a failed random.
You won't lose the points - even if you lose all your runes / ess in a random, they automatically get turned into points.
bluez
05-02-2012, 01:52 PM
Time Running: 47 Minutes and 49 Seconds
Experience Earned: 47218
Experience/Hour: 57600..
script stops,i dunno why.maybe this p.c. as its so laggy!
I got a random whilst in runespan. Completed it and nothing had changed I was still in the same spot with the same points and all my runes
Only if you failed, you get teleported out to random location, which means your runes will be cashed for points and ess lost.
bots420
05-02-2012, 02:00 PM
Do you still have rune essence?
I had this issue with ess wraiths and thought hmmm what could have caused this and then I noticed I had no rune ess left ;)
I collected about 1k ess before starting the script.
Yes I have over 10k. My comp was lagging a bit, maybe that is why?
It just ran for 15 minutes and then shut off, I'm gonna try again :D
Kyle Undefined
05-02-2012, 02:01 PM
Newest update it out! :D Please read the first post, because that can help you achieve flawless object detection! :)
All thanks goes to ashaman88 for this update! :)
honeyhoney
05-02-2012, 02:01 PM
You won't lose the points - even if you lose all your runes / ess in a random, they automatically get turned into points.
Oh sweet, good to hear! Thanks. :)
shstiger2009
05-02-2012, 02:05 PM
Only if you failed, you get teleported out to random location, which means your runes will be cashed for points and ess lost.
See, this is weird...I passed 2 randoms, got teleported back to the Runespan, and didn't have anything left in my inventory and my points were converted over. What the...?
See, this is weird...I passed 2 randoms, got teleported back to the Runespan, and didn't have anything left in my inventory and my points were converted over. What the...?
Maybe a glitch? New things tend to be glitchy anyway. I so wanted to bang my head to the table when I heard about that dung glitch ;)
Ashaman88
05-02-2012, 02:06 PM
Newest update it out! :D Please read the first post, because that can help you achieve flawless object detection! :)
All thanks goes to ashaman88 for this update! :)
Remind them to set debug to true so it will print the numbers :)
Thanks for the updates Kyle and Asha, this is by far one of the finest examples of SRL community efforts in 2012 :)
Solitude
05-02-2012, 02:10 PM
Newest update it out! :D Please read the first post, because that can help you achieve flawless object detection! :)
All thanks goes to ashaman88 for this update! :)
This is great!
Btw, I see lvlreq in the objects, will the script automatically determine your own RC level and wether to use that object?
Kyle Undefined
05-02-2012, 02:12 PM
Remind them to set debug to true so it will print the numbers :)
Will do! :)
Thanks for the updates Kyle and Asha, this is by far one of the finest examples of SRL community efforts in 2012 :)
I totally agree! :D
This is great!
Btw, I see lvlreq in the objects, will the script automatically determine your own RC level and wether to use that object?
Yes, when the script starts it checks your RC level and goes by that. After ~1.5 hours (Randomly chosen) it will check your RC level again and see if you can use new objects. :)
Imanoobbot
05-02-2012, 02:20 PM
Yes, when the script starts it checks your RC level and goes by that. After ~1.5 hours (Randomly chosen) it will check your RC level again and see if you can use new objects. :)
I need to test this out instantly! :)
I will post a progress report soon (edit this post then).
========Kyles Esswraith Extractor=========
Time Running: 6 Minutes and 30 Seconds
Experience Earned: 29262820
Experience/Hour: 270115200
========================================
Lol
lorenzo
05-02-2012, 02:30 PM
i need help iam just kinda new to scripts and runespan iam standing next to an blood thing and nature when i click run it works fine for 5mins then the script stops what i need to do to just do the blood things only for the exp could u help me plz what are the settings i need to edite or some other stuff thanks alot
lorenzo
Kyle Undefined
05-02-2012, 02:32 PM
i need help iam just kinda new to scripts and runespan iam standing next to an blood thing and nature when i click run it works fine for 5mins then the script stops what i need to do to just do the blood things only for the exp could u help me plz what are the settings i need to edite or some other stuff thanks alot
lorenzo
Make sure you have the correct graphic settings, I'm running the latest version now and it's running flawlessly for me.
lorenzo
05-02-2012, 02:40 PM
i have low settings but do u need to edite stuff before it works flawless or not like what type he needs to click or some or just press run and loging and starts i rlly need help thanks alot
Kyle Undefined
05-02-2012, 02:45 PM
All I do is fill out the declare players procedure and hit run ;)
New update! Added SRL Stats! Just for time tracking! Please re-download, sorry! :)
lorenzo
05-02-2012, 02:59 PM
All I do is fill out the declare players procedure and hit run ;)
New update! Added SRL Stats! Just for time tracking! Please re-download, sorry! :)
how u mean fill out the decrlare player procedure what iam supposed to do when i open the script what do i need to fill out cause he is running now for only 5mins and then he stop the script
Kyle Undefined
05-02-2012, 03:00 PM
I honestly don't know how to help you, I've told you everything that I can think of. All low graphic settings, highest brightness, safe mode.
Imanoobbot
05-02-2012, 03:03 PM
========Kyles Esswraith Extractor=========
Time Running: 9 Minutes and 34 Seconds
Experience Earned: 17248
Experience/Hour: 108000
========================================
******** FOUND MOD ********
Logging out, waiting 1-2 minutes until mod leaves
I am hating this logging out if find mod so much ;)
But the new version is awesome!! I am running with 100k/h now (on the best spot in runespan with 99 rc)! But sadly there is nearly always a mod training there and the script shut down every few minutes :(
ANYONE KNOWS HOW TO TURN MOD DETECTION OFF?! I GOT BUSTED TWICE BECAUSE OF THAT...
Riotday
05-02-2012, 03:04 PM
All thanks to Kyle. <3 Video of 40k points shortly.
http://puu.sh/syzb
Kyle Undefined
05-02-2012, 03:06 PM
========Kyles Esswraith Extractor=========
Time Running: 9 Minutes and 34 Seconds
Experience Earned: 17248
Experience/Hour: 108000
========================================
******** FOUND MOD ********
Logging out, waiting 1-2 minutes until mod leaves
I am hating this logging out if find mod so much ;)
But the new version is awesome!! I am running with 100k/h now (on the best spot in runespan with 99 rc)! But sadly there is nearly always a mod training there and the script shut down every few minutes :(
Haha really? That's a shame :/
All thanks to Kyle. <3 Video of 40k points shortly.
http://puu.sh/syzb
And nice! I almost have enough for the staff!
bots420
05-02-2012, 03:07 PM
Seems to be running great now, I think it was just a problem on my end. Thanks alot for this quick script. Means alot to us noobs!!
I'll post a proggy later, So far its,
========Kyles Esswraith Extractor=========
Time Running: 19 Minutes and 12 Seconds
Experience Earned: 13356
Experience/Hour: 39600
========================================
*EDIT*
Spoke too soon, after I posted this it just quit.
========Kyles Esswraith Extractor=========
Time Running: 23 Minutes and 10 Seconds
Experience Earned: 21056
Experience/Hour: 54000
Masterstroke
05-02-2012, 03:08 PM
========Kyles Esswraith Extractor=========
Time Running: 9 Minutes and 34 Seconds
Experience Earned: 17248
Experience/Hour: 108000
========================================
******** FOUND MOD ********
Logging out, waiting 1-2 minutes until mod leaves
I am hating this logging out if find mod so much ;)
But the new version is awesome!! I am running with 100k/h now (on the best spot in runespan with 99 rc)! But sadly there is nearly always a mod training there and the script shut down every few minutes :(
ANYONE KNOWS HOW TO TURN MOD DETECTION OFF?! I GOT BUSTED TWICE BECAUSE OF THAT...
How on earth can you get that much xp an hour? What monsters do you use?
I'm currently at
Time Running: 2 Hours, 5 Minutes and 33 Seconds
Experience Earned: 128563
Experience/Hour: 57856
--> lvl 91 rc on an island with soul ess wraith
Hazzah
05-02-2012, 03:09 PM
Started using the newest version, debug is set to on now. I think Max/Completionist capes are returning values for nodes.
Living Soul
4
Soul esswraith
144
Bloody Skulls
Blood Pool
Blood esswraith
7
5
1
Skulls
Death esswraith
86
31
Jumper
Shifter
Nebula
Living Soul
1
Soul esswraith
156
This was right away these values were returned.
And nice! I almost have enough for the staff!
Guess I've beaten you for this one time. I have got like 30k points ;) Just that I don't have that stupid 90 RC to wield it so I haven't even claimed the staff yet.
Still botting at law esshounds at 75 :P Guess I'll have to camp here for the next day or so :)
On another note I'm botting some characters of my f2p bot squad in RC as well. It is ridiculously fast to raise F2p 50 RC with Runespan. I have raised one from lv1 RC in some 3 hours and I'm working a 2nd one, currently lv41 already.
Looks like oldschool air running as with many other oldschool RC running is becoming totally obsolete with runespan...
Riotday
05-02-2012, 03:17 PM
Video will be up shortly. Getting 40,000 Runespan points using this script and getting 88-90 Runecraft. Read video description.
YF2hgmeKA00
Imanoobbot
05-02-2012, 03:17 PM
How on earth can you get that much xp an hour? What monsters do you use?
So i am on the small Island with 2 Soul Esswraiths on it and a bugged spawn of nodes i think. Lots of mods on this island which taking videos to make the spawn of the nodes better.
http://i48.tinypic.com/jgnrj9.png
This is the spot I am training at. Oh and I am 99 rc btw which makes my exp/h a bit higher but you should get like 80k/h.
Kyle Undefined
05-02-2012, 03:28 PM
Guess I've beaten you for this one time. I have got like 30k points ;) Just that I don't have that stupid 90 RC to wield it so I haven't even claimed the staff yet.
Still botting at law esshounds at 75 :P Guess I'll have to camp here for the next day or so :)
On another note I'm botting some characters of my f2p bot squad in RC as well. It is ridiculously fast to raise F2p 50 RC with Runespan. I have raised one from lv1 RC in some 3 hours and I'm working a 2nd one, currently lv41 already.
Looks like oldschool air running as with many other oldschool RC running is becoming totally obsolete with runespan...
Haha yeah, I've only ran the script long enough to test :p Actually hardcore running it now :p
Wow, really? that's insane! I'll have to do that on my f2p accounts!
So i am on the small Island with 2 Soul Esswraiths on it and a bugged spawn of nodes i think. Lots of mods on this island which taking videos to make the spawn of the nodes better.
http://i48.tinypic.com/jgnrj9.png
This is the spot I am training at. Oh and I am 99 rc btw which makes my exp/h a bit higher but you should get like 80k/h.
I haven't gotten any bugged nodes yet :(
Video will be up shortly. Getting 40,000 Runespan points using this script and getting 88-90 Runecraft. Read video description.
YF2hgmeKA00
Nice video! Going up on the first page! Congrats man! :D
http://i49.tinypic.com/1hox3n.png
All the stuff, recolored, and greater staff :) o and 2 pouches :)
btw the pouches last for 42 "empties"
ADR1234
05-02-2012, 03:40 PM
New version fixed, Nevermind.
Masterstroke
05-02-2012, 03:42 PM
Time Running: 2 Hours, 40 Minutes and 31 Seconds
Experience Earned: 170529
Experience/Hour: 61200
Successfully executed.
Will turn to new version now, script just stopped :p
Mjordan
05-02-2012, 03:51 PM
This is working quite well for Air Esslings if anybody want's to use it...
with Objects[objAirEss] do
begin
Name := 'Air Essling';
UpText := ['ir ess', 'iphon Air', 'Siphon Air essling'];
Color := 15187588;
Tol := 20;
Hue := 0.05;
Sat := 2.04;
LvlReq := 1;
end;
stinkysocks
05-02-2012, 03:55 PM
http://i49.tinypic.com/1hox3n.png
All the stuff, recolored, and greater staff :) o and 2 pouches :)
btw the pouches last for 42 "empties"
So thats only about 1 hour of Rcing then? kinda dissapointing but i guess if you used runespan till 90 rc u would have alot of points to spend on pouches
lol! thats 2 days of SOLID botting at 99 rc. it would take a lot longer otherwise :P
O and is there any chance we could include ashaman88's waiting in SRL? maybe name it WaitNoXpGain?
Haha yeah, I've only ran the script long enough to test :p Actually hardcore running it now :p
Wow, really? that's insane! I'll have to do that on my f2p accounts!
For an F2p fresh account I think it is some 3-4 hours to raise to 50, give and take 1 hour. I usually babysit the first hour to lv33 for body esshound, then I move onto level 2 and put it in the body esshound spot. As we speak, I think it's already 3 hours since I started the 2nd account, and I'm at 45 RC.
I guess goldfarmers will never find a shortage of high leveled RC accounts in the short future. GF rune prices? :P
Guess I'll camp my main overnight tonight. Can't wait to get 78-80, so that people wont call me a noob when asked my RC level anymore :P
shstiger2009
05-02-2012, 04:16 PM
For an F2p fresh account I think it is some 3-4 hours to raise to 50, give and take 1 hour. I usually babysit the first hour to lv33 for body esshound, then I move onto level 2 and put it in the body esshound spot. As we speak, I think it's already 3 hours since I started the 2nd account, and I'm at 45 RC.
I guess goldfarmers will never find a shortage of high leveled RC accounts in the short future. GF rune prices? :P
Guess I'll camp my main overnight tonight. Can't wait to get 78-80, so that people wont call me a noob when asked my RC level anymore :P
If rune prices crash because of this, I'm going to cry...
hmmm any1 else noticed that the script stopt siphoning nodes before they run disappear ?
Riotday
05-02-2012, 04:26 PM
[BR]RuneScript- *** [ TRACKER ]: Exp gains for MyRunescapeName in last 1day: Overall(+3) +928,974 | Att(104) +990 | Agil(99) +1 | RC(88->90) +923,556 |
All Runecrafting gains are from the use of this script in a 18 hours period time or so.
Mjordan
05-02-2012, 04:38 PM
Er1k wanna give me the ACA specs you're using for body esslings? I can't seem to get it working good like I did for air.
Ashaman88
05-02-2012, 04:53 PM
Added support to get the xp bonus when the yellow wizard is on your island, just testing it now.
Kyle Undefined
05-02-2012, 04:56 PM
Added support to get the xp bonus when the yellow wizard is on your island, just testing it now.
How do you tell if the wizard is on your island? Are you checking for the red text and looking around the screen for him?
Ashaman88
05-02-2012, 04:59 PM
How do you tell if the wizard is on your island? Are you checking for the red text and looking around the screen for him?
Well for now i'm cheating and have only my island visible. Pretty much just searches for him every loop, if it finds him, does it's thing, then won't look again for another 10 minutes, then start looking every loop again.
procedure MainLoop();
var
fObj : TObj;
x, y, i ,InitialXP,UpdateXP,t: Integer;
begin
repeat
if not loggedin then loginplayer;
if(TakeBreaks)then BreakHandler(BreakIn, BreakFor, Bir, Bfr);
if(TimeFromMark(TP) > 120000)then
Proggy;
if(TimeFromMark(TW) > 600000)then
FindWizard;
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(K_FindObj(x, y, i))then
begin
Wait(RandomRange(500, 750));
InitialXP:=GetXPBarTotal;
MarkTime(T);
repeat
Wait(100);
FindNormalRandoms;
If TimeFromMark(T)>RandomRange(7000,7200) Then
Break;
AntiBan;
UpdateXP:=GetXPBarTotal;
If UpdateXP>InitialXP Then
Begin
InitialXP:=GetXPBarTotal;
T:=0;
MarkTime(T);
End;
until(false);
end;
end;
end;
FindNormalRandoms;
until(not(LoggedIn));
end;
Riotday
05-02-2012, 05:01 PM
I must say ashaman88, you do bring in great updates for the script. Props
Saw a player mod with a 1 letter name while at runespan. lol
http://puu.sh/szDt
Mjordan
05-02-2012, 05:25 PM
What would be causing this to lag really bad and not be able to find Nature esshounds? I've used the ACA numbers that ashaman provided.
Kyle Undefined
05-02-2012, 05:39 PM
Well for now i'm cheating and have only my island visible. Pretty much just searches for him every loop, if it finds him, does it's thing, then won't look again for another 10 minutes, then start looking every loop again.
procedure MainLoop();
var
fObj : TObj;
x, y, i ,InitialXP,UpdateXP,t: Integer;
begin
repeat
if not loggedin then loginplayer;
if(TakeBreaks)then BreakHandler(BreakIn, BreakFor, Bir, Bfr);
if(TimeFromMark(TP) > 120000)then
Proggy;
if(TimeFromMark(TW) > 600000)then
FindWizard;
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(K_FindObj(x, y, i))then
begin
Wait(RandomRange(500, 750));
InitialXP:=GetXPBarTotal;
MarkTime(T);
repeat
Wait(100);
FindNormalRandoms;
If TimeFromMark(T)>RandomRange(7000,7200) Then
Break;
AntiBan;
UpdateXP:=GetXPBarTotal;
If UpdateXP>InitialXP Then
Begin
InitialXP:=GetXPBarTotal;
T:=0;
MarkTime(T);
End;
until(false);
end;
end;
end;
FindNormalRandoms;
until(not(LoggedIn));
end;
Ahh ok, do you change the angle at all while looking? Or just what's visible already? Bah, I'll be home later and we'll talk on Skype :p
I must say ashaman88, you do bring in great updates for the script. Props
Saw a player mod with a 1 letter name while at runespan. lol
http://puu.sh/szDt
I agree, he's done awesome work! And that's pretty cool! Lol.
What would be causing this to lag really bad and not be able to find Nature esshounds? I've used the ACA numbers that ashaman provided.
I haven't experienced any lag at all, that is weird.
========Kyles Esswraith Extractor=========
Time Running: 2 Hours, 51 Minutes and 13 Seconds
Experience Earned: 116772
Experience/Hour: 39600
========================================
^ Latest version, almost 80 RC :)
b_lone
05-02-2012, 05:41 PM
More people at Runespan = A LOT more high level runecrafting
More people at Runespan = less runes being created
A LOT more high level runecrafting = more runes being created
As you can see, it will balance out.
Enslaved
05-02-2012, 05:47 PM
may i ask what the debug output is? i think it is outputting the available nodes+wraiths in area but im not quite sure on the outputted number,
If Debug Then
WriteLn(name);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
If Debug Then
Writeln(tostr(Length(atpa[a]))); ;
brilliant script btw though it does randomly stop on mine at times when i bring smart back on, as it redraws the frame, it thinks it has logged out. and ends the script. the way i got past it was enclosing it in another set of brackets with a delay in it so instead of ending the script straight away, it gives it another chance to see it its redrawn yet
Original script
repeat
if not loggedin then loginplayer;
if(TakeBreaks)then BreakHandler(BreakIn, BreakFor, Bir, Bfr);
if(TimeFromMark(TP) > 120000)then
Proggy;
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(K_FindObj(x, y, i))then
begin
Wait(RandomRange(500, 750));
InitialXP := GetXPBarTotal;
MarkTime(T);
repeat
Wait(100);
FindNormalRandoms;
If TimeFromMark(T) > RandomRange(7000, 7200) Then
Break;
AntiBan;
UpdateXP := GetXPBarTotal;
If UpdateXP > InitialXP Then
Begin
InitialXP := GetXPBarTotal;
T := 0;
MarkTime(T);
End;
until(false);
end;
end;
end;
FindNormalRandoms;
until(not(LoggedIn));
Edited part of main loop
repeat
repeat
if not loggedin then loginplayer;
if(TakeBreaks)then BreakHandler(BreakIn, BreakFor, Bir, Bfr);
if(TimeFromMark(TP) > 120000)then
Proggy;
if(TimeFromMark(RCt) > (3600000 + RandomRange(-1800000, 1800000)))then
begin
RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
MarkTime(RCt);
end;
... ... ...
... ... ...
end;
FindNormalRandoms;
until(not(LoggedIn));
wait(1500)
until(not(LoggedIn));
any other suggestions to this problem? as this is just a quick fix for me but its messy and not all that reliable
Punjabi3
05-02-2012, 06:07 PM
Amazing script thanks Kyle :) I went from 16-66 runecrafting just to use this script.
b_lone
05-02-2012, 06:08 PM
^ I'm guessing you modified it to do esshounds? Death Esswraiths are at 66 RC...?
Robot91292
05-02-2012, 06:11 PM
Just ran it over night and got a pretty nice proggie! thankyou very much! was doing death by the way.
Time Running: 6 Hours, 58 Minutes and 41 Seconds
Experience Earned: 271653
Experience/Hour: 36000
Mjordan
05-02-2012, 06:29 PM
All the esshounds right by the bone ladder to level 3 is a pretty good place for those that don't have level 66 RC yet. Just modify the script for esshounds like it says in the first post, then put the uptext for chaos, cosmic, nature, and astral. I'm getting about 22k xp/hour right now.
Evaporation
05-02-2012, 06:52 PM
Would you consider adding support for floor 1-2? Just a thought that would give you a killer script. I don't assume it would be that much more work because I've added a couple myself, such as body and chaos ess hounds, but I just assume that if you made it, it would become the #1 script for 1-99.
Kyle Undefined
05-02-2012, 06:55 PM
I plan on adding them all, but there's a lot of objects to add. That's why I posted on the first post asking people to post what objects they add ;)
Enslaved
05-02-2012, 07:08 PM
kyle, any tips on changing the priorities of the script?
Kyle Undefined
05-02-2012, 07:09 PM
kyle, any tips on changing the priorities of the script?
It will be a future update, based on XP gained from the objects.
Quick question, I'm on a big island and have been doing Blood esswraiths from 75-80. Should I stick with this, or move to something else?
Nice job community. Here comes super noob. Where I should go to use this script. And what are the requirements :redface:
~Home
Imanoobbot
05-02-2012, 07:12 PM
========Kyles Esswraith Extractor=========
Time Running: 5 Hours, 57 Minutes and 37 Seconds
Experience Earned: 505127
Experience/Hour: 84100
========================================
The latest proggy I got! This script is amazing!!
Enslaved
05-02-2012, 07:21 PM
im currently messing around with the level definitions for each object, dont know if it works yet
Riotday
05-02-2012, 07:27 PM
http://puu.sh/sAPi Thanks everyone who put effort into making this script what it is.
derik
05-02-2012, 07:34 PM
Is this bot highly buggy? im stood on a island with 1 soul essling, stood there and it will stay on the soul essling, even when a living soul comes up and im like, change, come on, change? and it just keeps on soul, and doesnt go to best thing, also some times clicks the soul essling every 10 seconds?
this just buggy for me?
Mjordan
05-02-2012, 07:34 PM
Nice job community. Here comes super noob. Where I should go to use this script. And what are the requirements :redface:
~Home
Go to The Runespan of course. You can use it from level 1-99. However, that requires a few little edits. As is, you can only use from level 66+. I'm on level 2 right now siphoning various different esshounds that I edited in.
swanniie
05-02-2012, 07:57 PM
========Kyles Esswraith Extractor=========
Time Running: 5 Hours, 57 Minutes and 37 Seconds
Experience Earned: 505127
Experience/Hour: 84100
========================================
The latest proggy I got! This script is amazing!!
Wow...! 84k an hour? What's this, souls?
Imanoobbot
05-02-2012, 07:58 PM
Wow...! 84k an hour? What's this, souls?
2 Soul Esswraith´s + noodes. It seems their is a glitch on that small island that they are too much of high lvl noodes there. If i play legit just on that island im gaining 100k/h.
And 99 rc which makes quite good exp too.
Go to The Runespan of course. You can use it from level 1-99. However, that requires a few little edits. As is, you can only use from level 66+. I'm on level 2 right now siphoning various different esshounds that I edited in.
Ok. Great thanks mate!
~Home
Velozity
05-02-2012, 08:10 PM
Wow, this script have improved a lot! I love it, will go for longer runs with it!
Ashaman88
05-02-2012, 08:12 PM
Think I've the always looking for higher xp options working. Kyle needs to get on skype :P
derik
05-02-2012, 08:15 PM
Im on the island with the 2 souls but like a living soul is up, and its still getting the soul? when i can do the living soul?
how do i change this?
Kyle Undefined
05-02-2012, 08:15 PM
Think I've the always looking for higher xp options working. Kyle needs to get on skype :P
I'm off in a few hours! Chillax! xD
Ashaman88
05-02-2012, 08:24 PM
I'm off in a few hours! Chillax! xD
No rush :) but now we can add all possible xp gaining objects to the array and it will automatically go for the highest xp gaining object, even while waiting for your current object to die. Will be pretty sweet eh!
Kyle Undefined
05-02-2012, 08:26 PM
I like the sound of that! That is pretty shweet :)
Riotday
05-02-2012, 08:40 PM
Yeah Kyle, I added you on Skype as well.. lol
swanniie
05-02-2012, 09:11 PM
Im on the island with the 2 souls but like a living soul is up, and its still getting the soul? when i can do the living soul?
how do i change this?
There's an island with 2 souls? Where?
Enslaved
05-02-2012, 09:12 PM
For the detection and interuption, cant u just iterate through the find object command from the current one your doing and the highest available? once it detects, it automaticly triggers a ClickObject function. not that difficult to do, i got a trial version going atm, but im a begginer at this language-havent gotten to grips with the library yet.
things to consider:
including an if statement in the checking loop to exclude wraiths if stated in loading,
this way you can guarantee u wont run out of essence, and it wont greatly affect the exp rate as there is not much difference exp wise about wraiths
Enslaved
05-02-2012, 09:26 PM
oh another problem i had, the may splash screen messed the program up and didnt logg me off ethier=[
Kyle Undefined
05-02-2012, 09:31 PM
You have to click the "Learn more" link, it won't show up again.
rougarou
05-02-2012, 09:37 PM
Does this support clicking on the creature every 9th rune to keep the ess creature alive and reset the counter? Because eevery 10th rune siphoned the creature dies
I've watched YoHoJo's tutorial on ACA's and everything, but whenever I try to add my own object to the script, it always ends up hovering over rocks or not clicking at all. Any advice?
Evaporation
05-02-2012, 09:41 PM
I've watched YoHoJo's tutorial on ACA's and everything, but whenever I try to add my own object to the script, it always ends up hovering over rocks or not clicking at all. Any advice?
Pick a new color. Try turning up your RS brightness. Your colors are too similar.
Enslaved
05-02-2012, 09:44 PM
another suggestion- for node detection you could try dtm models
as they have the rune symbol around it, should make it easier to look for nodes like jumper as it moves around quite a bit and sometimes doesnt detect
Imanoobbot
05-02-2012, 09:50 PM
There's an island with 2 souls? Where?
http://i46.tinypic.com/264l1jt.png
You should read through the thread. I posted this like 4 times with the island. :)
Whateva it is like 90k/h average there. Have fun and enjoy.
Benny
05-02-2012, 09:58 PM
Loving this bud, keep the updates and look forward to the destruction of rc!
Evaporation
05-02-2012, 10:03 PM
3rd post and already contriboooooting; basic esshounds and these colors work for me.. you may have to adjust them.
objCosmic = 2;
objChaos = 3;
objAstral = 4;
objNature = 5;
with Objects[objCosmic] do
begin
Name := 'Cosmic Esshound';
UpText := ['osmic', 'osmic ess', 'Cosmic', 'Siphon Cosmic']; // This is the text in the upper left hand corner. every quote is text the script will look for. separate them with commas.
Color := 16557980;
Tol := 4;
Hue := 0.03;
Sat := 0.65;
LvlReq := 27; //when can you use it
Min := 20;
Max := 200;
end;
with Objects[objChaos] do
begin
Name := 'Chaos Esshound';
UpText := ['haos', 'haos ess', 'Chaos', 'Siphon Chaos']; // This is the text in the upper left hand corner. every quote is text the script will look for. separate them with commas.
Color := 16557980;
Tol := 4;
Hue := 0.03;
Sat := 0.65;
LvlReq := 35; //when can you use it
Min := 20;
Max := 300;
end;
with Objects[objAstral] do
begin
Name := 'Astral Esshound';
UpText := ['stral', 'stral ess', 'Astral', 'Siphon Astral']; // This is the text in the upper left hand corner. every quote is text the script will look for. separate them with commas.
Color := 16557980;
Tol := 4;
Hue := 0.03;
Sat := 0.65;
LvlReq := 40; //when can you use it
Min := 20;
Max := 200;
end;
with Objects[objNature] do
begin
Name := 'Nature Esshound';
UpText := ['ature', 'ature ess', 'Nature', 'Siphon Nature']; // This is the text in the upper left hand corner. every quote is text the script will look for. separate them with commas.
Color := 16557980;
Tol := 4;
Hue := 0.03;
Sat := 0.65;
LvlReq := 44; //when can you use it
Min := 20;
Max := 400;
end
swanniie
05-02-2012, 10:06 PM
http://i46.tinypic.com/264l1jt.png
You should read through the thread. I posted this like 4 times with the island. :)
Whateva it is like 90k/h average there. Have fun and enjoy.
Thanks, the rs wiki map only shows 1 soul esswraith.
Only 89 atm but will be 90 soon!
stoffel
05-02-2012, 10:08 PM
Nodes above monsters as priority would be nice
Riotday
05-02-2012, 10:13 PM
Achieved Full recolored wicked set and Greater Runic Staff.
http://puu.sh/sCos
Kyle Undefined
05-02-2012, 10:27 PM
Nodes above monsters as priority would be nice
Good idea, I think ash has this working, but I'll check when I get home from the office :)
Achieved Full recolored wicked set and Greater Runic Staff.
http://puu.sh/sCos
Very nice! :D I'm jealous!
Here's a quick report
========Kyles Esswraith Extractor=========
Time Running: 2 Hours, 36 Minutes and 42 Seconds
Experience Earned: 134576
Experience/Hour: 50400
========================================
bluez
05-02-2012, 10:27 PM
just a heads up..ive spotted several people dressed as the yellow and blue mages.not sure if this will cause any problems
Evaporation
05-02-2012, 10:33 PM
just a heads up..ive spotted several people dressed as the yellow and blue mages.not sure if this will cause any problems
its because RC robes give more xp
Ashaman88
05-02-2012, 10:39 PM
Nodes above monsters as priority would be nice
Yes I have it working very well
just a heads up..ive spotted several people dressed as the yellow and blue mages.not sure if this will cause any problems
No it won't mess anything up
montana305
05-02-2012, 11:13 PM
I really need help, iam just getting 36k ex hr idk why atm lvl 99 can someone please help me thank why :)
Er1k wanna give me the ACA specs you're using for body esslings? I can't seem to get it working good like I did for air.
Body esshound refer to first post. I just used the generic blue for all esshounds and uptext to filter for the correct esshound.
Tiggy
05-02-2012, 11:39 PM
it doesnt chip off for more ess?
Whatmatters
05-02-2012, 11:43 PM
========Kyles Esswraith Extractor=========
Time Running: 3 Hours, 3 Minutes and 40 Seconds
Experience Earned: 184096
Experience/Hour: 57600
========================================
Seems like I'll be closing in on 98.5 RC after all (keeping my untrimmed constitution cape for a while). Thanks for the script.
Time Running: 43 Minutes and 55 Seconds
Experience Earned: 63870
Experience/Hour: 86400
Feelsgoodman
b_lone
05-03-2012, 12:23 AM
its because RC robes give more xp
RC robes do NOT give more xp. MASTER Runecrafting Robes give more xp.
TheWord
05-03-2012, 12:31 AM
Can't believe there still aren't f2p options on this ._.
No, I don't know how to find colors, and if I were able to, they wouldn't be accurate.
Can't believe there still aren't f2p options on this ._.
No, I don't know how to find colors, and if I were able to, they wouldn't be accurate.
Go read an ACA tutorial for god's sake ;)
Evaporation
05-03-2012, 12:38 AM
RC robes do NOT give more xp. MASTER Runecrafting Robes give more xp.
same thing ;p
Kyle Undefined
05-03-2012, 12:58 AM
Can't believe there still aren't f2p options on this ._.
No, I don't know how to find colors, and if I were able to, they wouldn't be accurate.
We are trying to get people to post theirs, it's a pain getting them all. If you can't do it, then just be patient ;)
it doesnt chip off for more ess?
New update does ;)
========Kyles Esswraith Extractor=========
Time Running: 3 Hours, 3 Minutes and 40 Seconds
Experience Earned: 184096
Experience/Hour: 57600
========================================
Seems like I'll be closing in on 98.5 RC after all (keeping my untrimmed constitution cape for a while). Thanks for the script.
Nice! Glad it's helped! :)
Go read an ACA tutorial for god's sake ;)
I agree!
NEW UPDATE!!!
Please read first post for changes, and some cool facts! :)
b_lone
05-03-2012, 01:17 AM
Script can't run for long. It randomly logs out? I'm never there to witness it but it's happened 4 times now. ):
Kyle Undefined
05-03-2012, 01:19 AM
Make sure you have the correct graphic settings, been running the latest version for over an hour now.
Ashaman88
05-03-2012, 01:20 AM
Script can't run for long. It randomly logs out? I'm never there to witness it but it's happened 4 times now. ):
if you are minimizing at the wrong time it could screw it up
Evaporation
05-03-2012, 01:22 AM
Make sure you have the correct graphic settings, been running the latest version for over an hour now.
Hey, Do you have a skype? I've added some IDs for esshounds, ie:
(some of these are yours)
objShifter = 0;
objJump = 1;
objLaw = 2;
objNebula = 3;
objCosmic = 4;
objChaos = 5;
objAstral = 6;
objNature = 7;
objCCloud = 8; // chaotic cloud
shstiger2009
05-03-2012, 01:45 AM
Working great! Can't wait to get higher XP/hr though. Proggy soon.
Edit- Yaaaay Jr. Member haha.
bots420
05-03-2012, 01:57 AM
========Kyles Esswraith Extractor=========
Time Running: 2 Hours, 37 Minutes and 22 Seconds
Experience Earned: 114711
Experience/Hour: 43200
========================================
Startin to run good now, thanks man XD
Evaporation
05-03-2012, 03:25 AM
Edited to use Esshounds, which will be implemented next, via additions from me, but here's my proggy with 58 RC using Law Hounds + Nodes
======== Kyle's Esswraith Extractor =========
Time Running: 20 Minutes and 16 Seconds
Experience Earned: 22509
Experience/Hour: 64800
=============================================
Hazzah
05-03-2012, 03:25 AM
2x Soul EssWraith Island with newest Version (Really needs version numbers!)
======== Kyle's Esswraith Extractor =========
Time Running: 32 Minutes and 13 Seconds
Experience Earned: 39108
Experience/Hour: 72000
=============================================
This will be use to get me 99 Runecrafting :garfield:
0blivian
05-03-2012, 04:24 AM
please teach me how to change what esswratih it gets?
Tlachtli
05-03-2012, 04:33 AM
For whatever reason, the script seems to close out on me every five minutes or so. I put the MainLoop() in an infinite repeat, and now it works pretty well.
Doing Death esswraiths:
Time Running: 1 Hours, 31 Minutes and 32 Seconds
Experience Earned: 59910
Experience/Hour: 36000
0blivian
05-03-2012, 04:33 AM
does this work on resisable or only fixed
bots420
05-03-2012, 04:37 AM
Loving the script Kyle, was just wondering if I was able to edit which skill it chooses for lamps, or is that a simba thing?
0blivian
05-03-2012, 04:45 AM
this does not detect chaotic clouds but detects nebulas so its good but would be better if detected all
Ashaman88
05-03-2012, 04:56 AM
For whatever reason, the script seems to close out on me every five minutes or so. I put the MainLoop() in an infinite repeat, and now it works pretty well.
Doing Death esswraiths:
Time Running: 1 Hours, 31 Minutes and 32 Seconds
Experience Earned: 59910
Experience/Hour: 36000
Are you minimizing smart? That can mess scripts up depending on when you do it. I just always keep it in the background.
does this work on resisable or only fixed
All simba scripts run on fixed, safe mode, min settings, brightest etc...
Loving the script Kyle, was just wondering if I was able to edit which skill it chooses for lamps, or is that a simba thing?
I don't think the script specifies what random event reward it gets, but yet that can be put in
this does not detect chaotic clouds but detects nebulas so its good but would be better if detected all
As stated in OP if you want something added use ACA and help us out :). Although I think I have an ACA file saved for chaotic. Also per your other question it will automatically go for the highest xp object you can use at your lvl on screen as long as it is included in the array (still a lot of the lower level objects missing)
onilika
05-03-2012, 05:13 AM
This is what I'm getting so far!
======== Kyle's Esswraith Extractor =========
Time Running: 47 Minutes and 55 Seconds
Experience Earned: 67559
Experience/Hour: 82800
=============================================
Island with 2 souls Esswraith and 2 Living Souls!
Kyle Undefined
05-03-2012, 05:31 AM
Expect an update tomorrow! :) Been doing some cool changes ;)
onilika
05-03-2012, 05:38 AM
Expect an update tomorrow! :) Been doing some cool changes ;)
Sweet! Can't wait to see it ! :D
btw, script stopped. CAUSE: run out of essence.
Perhaps was out of range or something? Cause I still had essence!
Does it rotates de camera to look for a wraith, when doesn't see one?
Imanoobbot
05-03-2012, 05:39 AM
Expect an update tomorrow! :) Been doing some cool changes ;)
Great to hear! I love it how far the script is already. And the first day you told me we need the uptext etc. and we are already out of it :)
I am wondering where this script will be in 2 weeks?!
b_lone
05-03-2012, 05:39 AM
:) Not minimizing SMART REALLY helped. Running FLAWLESSLY now! Thanks guys! I'd run it while I'm at school but...randoms are killing me... :/
Kyle Undefined
05-03-2012, 05:47 AM
Sweet! Can't wait to see it ! :D
btw, script stopped. CAUSE: run out of essence.
Perhaps was out of range or something? Cause I still had essence!
Does it rotates de camera to look for a wraith, when doesn't see one?
I've never had that issue, and I've been running the latest version for several hours now.
Great to hear! I love it how far the script is already. And the first day you told me we need the uptext etc. and we are already out of it :)
I am wondering where this script will be in 2 weeks?!
Thanks! I'm sure by then it will be an AIO ;)
:) Not minimizing SMART REALLY helped. Running FLAWLESSLY now! Thanks guys! I'd run it while I'm at school but...randoms are killing me... :/
Randoms are working for me :) Gotten from 75 to 82 RC, 11k blood runes, and 42k points.
Latest from the stats!
Kyle's Esswraith Extractor has total running time of 19 days, 20:00:00 with 4752 individual commits.
Decision
05-03-2012, 05:55 AM
I use these settings on my f2p account:
with Objects[objLivingSoul] do
begin
Name := 'Water pool';
UpText := ['Siphon Water', 'on Wat', 'ater pool', 'water'];
Color := 11184246;
Tol := 9;
Hue := 0.51;
Sat := 0.99;
LvlReq := 60;
Min := 2;
Max := 25;
end;
with Objects[objJumper] do
begin
Name := 'Fire storm';
UpText := ['Siphon Fire storm', 're Storm', 'Storm', 'on fire'];
Color := 1252992;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 54;
Min := 2;
Max := 42;
end;
with Objects[objBloodPool] do
begin
Name := 'Vine';
UpText := ['Siphon Vine', 'on vin', 'vine', 'ine'];
Color := 1252488;
Tol := 10;
Hue := 0.02;
Sat := 1.70;
LvlReq := 45;
Min := 2;
Max := 35;
end;
with Objects[objNebula] do
begin
Name := 'Body esshound';
UpText := ['Siphon Body esshound', 'on Bod', 'Body', 'hound'];
Color := 16626087;
Tol := 7;
Hue := 0.54;
Sat := 1.05;
LvlReq := 40;
Min := 2;
Max := 23;
end;
with Objects[objSkulls] do
begin
Name := 'Fleshy growth';
UpText := ['Siphon Fleshy', 'on Fle', 'Fleshy', 'growth'];
Color := 6452403;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 40;
Min := 2;
Max := 46;
end;
Not everything is set right (levelreq and min max) but it works for me and I get a lot of exp!
Will post proggies soon!
Imanoobbot
05-03-2012, 06:05 AM
Thanks! I'm sure by then it will be an AIO ;)
We could let it check for options with Rightclick. Seems like in some situations as the im posting below it can´t find the colors because of too many different things there. It moved to the other Soul Esswraith on the island.
http://i45.tinypic.com/2m2coit.png
ne lg
05-03-2012, 06:17 AM
Yea, Randoms are killing me too. Im getting them literally every 30 minutes, and not just easy ones, always like mazes or helping molly
Recursive
05-03-2012, 07:54 AM
WOOOT
http://i48.tinypic.com/20h816r.jpg
Harry
05-03-2012, 08:27 AM
Do you guys suggest staying at bloods when you hit 90, or go over to double souls? I'm a couple hours away from 90.
Recursive
05-03-2012, 09:45 AM
Do you guys suggest staying at bloods when you hit 90, or go over to double souls? I'm a couple hours away from 90.
Depends on what happens after this update :s
Current vine values seems to false positive with all the ground in runespan level1. Disable it if you have problems.
Btw I am level 80, should I camp deaths or bloods instead?
Solitude
05-03-2012, 10:24 AM
Apparently optimus just occured, I didn't notice anything. ^_^
Script's working great - one problem though - I levelled from 89-90 overnight on an island with a blood esswraith and a soul esswraith on an adjacent island and it periodically tried to siphon that soul from the wrong island - I guess I should have foreseen it :\
======== Kyle's Esswraith Extractor =========
Time Running: 1 Hours, 47 Minutes and 37 Seconds
Experience Earned: 130539
Experience/Hour: 72000
=====================================
kingob
05-03-2012, 11:04 AM
========Kyles Esswraith Extractor=========
Time Running: 10 Hours, 1 Minutes and 25 Seconds
Experience Earned: -3911213
Experience/Hour: -388800
========================================
Successfully executed.
Awesome script, well done everybody! I dont know why the proggy messed up though, maybe because of the randoms, below?
I had an onion and a diamond in my inventory when I logged in, along with 2k bloods and 10k ess, so assume I had a few randoms which got solved which is always nice.
Furthermore this was like a spin ticket farmer to me haha when I logged in I had 6 spins to do :spot:
bluez
05-03-2012, 11:06 AM
======== Kyle's Esswraith Extractor =========
Time Running: 59 Minutes and 50 Seconds
Experience Earned: 86990
Experience/Hour: 86400
=============================================
thanks to everyone involved in this project..also got 3 squeels=p..il run this as long as i can..this wasnt in runesphere mode!
======== Kyle's Esswraith Extractor =========
Time Running: 1 Hours, 58 Minutes and 23 Seconds
Experience Earned: 173829
Experience/Hour: 86400
=============================================
***** Found Random: Evil Bob *****.......failed random so logged out.had to reload smart so ive restarted
momotron
05-03-2012, 11:20 AM
========Kyles Esswraith Extractor=========
Time Running: 6 Hours, 40 Minutes and 8 Seconds
Experience Earned: 480268
Experience/Hour: 72000
========================================
Successfully executed.
Not gonna lie, this has made getting 99rc getting 38k ph at ZMI a waste of timr and a joke, im getting wicked robes and the staff which should leave me at 15m+ xp
Kyle Undefined
05-03-2012, 11:43 AM
Wow, look at these stats!
Kyle's Esswraith Extractor has total running time of 27 days, 3:42:00 with 6544 individual commits.
======== Kyle's Esswraith Extractor =========
Time Running: 20 Minutes and 0 Seconds
Experience Earned: 22237
Experience/Hour: 64800
=============================================
(will post longer proggy, this is at the 2 souls :D)
Hazzah
05-03-2012, 01:10 PM
Wow, look at these stats!
Nice Stats Kyle!
======== Kyle's Esswraith Extractor =========
Time Running: 59 Minutes and 17 Seconds
Experience Earned: 64179
Experience/Hour: 64800
=============================================
Gestapo
05-03-2012, 01:13 PM
========Kyles Esswraith Extractor=========
Time Running: 6 Hours, 40 Minutes and 8 Seconds
Experience Earned: 480268
Experience/Hour: 72000
========================================
Successfully executed.
Not gonna lie, this has made getting 99rc getting 38k ph at ZMI a waste of timr and a joke, im getting wicked robes and the staff which should leave me at 15m+ xp
May i know which script u used? there are 3 dl links
Juggalo812
05-03-2012, 01:18 PM
Don't know why I'm having so many issues. I have to check it every 30 minutes or so to restart it. Can't get it to keep running.
Gestapo
05-03-2012, 01:19 PM
It doesnt siphon nodes :(:(
Juggalo812
05-03-2012, 01:29 PM
[Error] (585:12): Unknown identifier 'WaitFindDTMEX' at line 584
Compiling failed.
Mjordan
05-03-2012, 01:33 PM
@Kyle, I suggest adding a version number to the name when you upload to keep the confusion down. Personally, I always get confused as to whether I have the newest version when people just upload it with the same name everytime.
honeyhoney
05-03-2012, 01:37 PM
Change logs and version numbers would help a bit.
Especially as I have to keep modifying it for the F2P Options I have. [which have been posted previously]
Keep it up. (Y)
Edit: haha, Mjordan beat me to it^
Kyle Undefined
05-03-2012, 01:41 PM
@Kyle, I suggest adding a version number to the name when you upload to keep the confusion down. Personally, I always get confused as to whether I have the newest version when people just upload it with the same name everytime.
I guess I could do that :p Just testing these changes before uploading :)
Change logs and version numbers would help a bit.
Especially as I have to keep modifying it for the F2P Options I have. [which have been posted previously]
Keep it up. (Y)
Edit: haha, Mjordan beat me to it^
If you're gonna whine about it :p
[Error] (585:12): Unknown identifier 'WaitFindDTMEX' at line 584
Compiling failed.
Make sure you have SRL installed correctly.
It doesnt siphon nodes :(:(
The colors might need to be updated.
Don't know why I'm having so many issues. I have to check it every 30 minutes or so to restart it. Can't get it to keep running.
I don't know why you're having issues, I ran it overnight with no issues.
May i know which script u used? there are 3 dl links
There is only one ;)
Solitude
05-03-2012, 01:45 PM
Gah, have to babysit at the moment, which isn't a problem with the managers random pop-up and i'm doing work on my laptop anyway, but on one account i'm getting a random every 20-30 minutes >_>
bots420
05-03-2012, 01:52 PM
Wow, look at these stats!
WOW, that is impressive for only being out what? 4 days?
Loving the script. At lvl 75 or 76 now.
Cant wait for the new version.
I really appreciate this script man, you ROCK!:spot:
Also every now and again i get a msg in RS saying, "you have no received a message to which you can reply"
Anyone know what the bot is trying to do?
*EDIT*
To everyone that is having the problem with the script not running very long, I had the same problem and now I dont. I noticd that hitting Disable script sometimes will stop the script, so once I stopped hitting disable SMART, it started to run fine.
Also try not to keep opening and minimizing the bot, I noticed that can stop the script as well.
Hope this helps some of you guys.
bluez
05-03-2012, 01:53 PM
running for over 4 hours so far averaging around 85k ph.had 1 random which i did manually
Juggalo812
05-03-2012, 01:56 PM
Make sure you have SRL installed correctly.
Got it. Needed to update the ODTM extension.
Ashaman88
05-03-2012, 02:18 PM
It doesnt siphon nodes :(:(
Which nodes? None of them?
Blackdeath
05-03-2012, 02:24 PM
This thing is working so good. Here is a short proggy. Your getting me 91 RC today!
======== Kyle's Esswraith Extractor =========
Time Running: 1 Hours, 3 Minutes and 28 Seconds
Experience Earned: 65131
Experience/Hour: 61200
=============================================
Kyle Undefined
05-03-2012, 02:26 PM
New update! Please read first post! :)
We still need F2P objects!
We have the esswraiths, and esshounds down pat. We need esslings and f2p nodes! This is so close to an AIO script!
Ashaman88
05-03-2012, 02:34 PM
New update! Please read first post! :)
We still need F2P objects!
We have the esswraiths, and esshounds down pat. We need esslings and f2p nodes! This is so close to an AIO script!
Very nice kyle :)
http://puu.sh/sIji got 85 overnight
Blackdeath
05-03-2012, 02:37 PM
Quick question, do nodes spawn more on more populated worlds? Or is it just random all around?
Kyle Undefined
05-03-2012, 02:41 PM
Very nice kyle :)
http://puu.sh/sIji got 85 overnight
Wow, nice! I'm closing in on 84! :)
Quick question, do nodes spawn more on more populated worlds? Or is it just random all around?
I honestly don't know :p
Blackdeath
05-03-2012, 02:57 PM
Bug with newest version, it is not finding the soul esswraith at all, finds the nodes fine. Also there is no one around me to mess it up by looking for other colors.
Zerkeronrs7
05-03-2012, 02:59 PM
======== Kyle's Esswraith Extractor =========
Time Running: 5 Hours, 14 Minutes and 43 Seconds
Experience Earned: 251554
Experience/Hour: 46800
=============================================
Only 70 rc. Pretty flawless script, i love you kyle! :)
Ashaman88
05-03-2012, 03:06 PM
Bug with newest version, it is not finding the soul esswraith at all, finds the nodes fine. Also there is no one around me to mess it up by looking for other colors.
I don't think that was changed at all with the update. Might be rs color changes. Try logging in or restarting client
Also kyle I had to update the colors for the yellow wizard again.
SetColorSpeed2Modifiers(0.07, 1.25);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3849434, 74, 20, MSX2, MSY2, 24);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
superbuster4
05-03-2012, 03:07 PM
those Goliath gloves make me cry. i miss mine so much. getting 65k ph with bloods right now cant wait for souls. thanks for the grate script.
Kyle Undefined
05-03-2012, 03:09 PM
Bug with newest version, it is not finding the soul esswraith at all, finds the nodes fine. Also there is no one around me to mess it up by looking for other colors.
I'll update the colors in a bit :)
======== Kyle's Esswraith Extractor =========
Time Running: 5 Hours, 14 Minutes and 43 Seconds
Experience Earned: 251554
Experience/Hour: 46800
=============================================
Only 70 rc. Pretty flawless script, i love you kyle! :)
Nice! Make sure you try the newest version, it slightly bumps up xp/hr ;) I'm getting 58k xp/hr at 83 RC.
I don't think that was changed at all with the update. Might be rs color changes. Try logging in or restarting client
Also kyle I had to update the colors for the yellow wizard again.
SetColorSpeed2Modifiers(0.07, 1.25);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3849434, 74, 20, MSX2, MSY2, 24);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
Ah ok, I'll update those later too, thanks! :)
those Goliath gloves make me cry. i miss mine so much. getting 65k ph with bloods right now cant wait for souls. thanks for the grate script.
You are welcome! :)
Mjordan
05-03-2012, 03:09 PM
New update! Please read first post! :)
We still need F2P objects!
We have the esswraiths, and esshounds down pat. We need esslings and f2p nodes! This is so close to an AIO script!
I'm sure you have it, but just in case...
Here's an air essling that I used, it would also find the water pool so I added uptext for that too.
with Objects[objAirEss] do
begin
Name := 'Air Essling';
UpText := ['ir ess', 'iphon Air', 'Siphon Air essling', 'ater pool'];
Color := 15187588;
Tol := 20;
Hue := 0.05;
Sat := 2.04;
LvlReq := 1;
Max := 250;
Min := 50;
end;
Blackdeath
05-03-2012, 03:10 PM
Restarted the client, tried it, still didn't work. Went back to the previous version of the script, works perfectly, not sure what would cause this.
shstiger2009
05-03-2012, 03:11 PM
program KylesEsswraithExtractor;
{$DEFINE SMART}
{$i srl/srl.simba}
const
{* 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;
(* Break settings *)
SwitchWorlds = True; // Switch worlds after a break?
TakeBreaks = False; // Take Breaks during runtime?
BreakIn = 180; // 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
Debug = False;
WhichXPBar = 1;
type
{* TObj Type *}
TObj = record
Hue, Sat : Extended;
Name: string;
UpText : TStringArray;
Color, Tol, LvlReq, Max, Min, IXP: Integer;
end;
var
{* Script Variables *}
StartXP, TP, RCt, RCLvl, TW, CurrentXP, EssenceDTM, EX, EY: Integer;
Objects : array of TObj;
Higher : Boolean;
(* 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.
end;
end;
procedure SetDTM;
begin
EssenceDTM := DTMFromString('mrAAAAHic42BgYHBkYmDwAGIXILYBYksodg diXyB+DlTzCIgfQvEzIP4AxG+A+CkQW5ibMRjo64ExiG1tZcHg 6uLE4O7mwmBsZMjABVSDDzMSwDAAAJ3CDvU=');
end;
procedure Fr33DTM;
begin
FreeDTM(EssenceDTM);
end;
procedure DebugThis(s : string);
begin
if(Debug)then
WriteLn(s);
end;
procedure SetupObjects();
begin
SetLength(Objects, 13);
with Objects[objBloodWraith] do
begin
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
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
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 := 107;
end;
with Objects[objLivingSoul] do
begin
Name := 'Living Soul';
UpText := ['Siphon Living', 'on Liv', 'iving', 'oul'];
Color := 12867973;
Tol := 9;
Hue := 0.51;
Sat := 0.99;
LvlReq := 90;
Min :=0;
Max := 1000;
IXP := 213;
end;
with Objects[objJumper] do
begin
Name := 'Jumper';
UpText := ['Siphon Jumper', 'on Jum', 'Jumper', 'mper'];
Color := 16624975;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 54;
Min :=10;
Max := 50;
IXP := 107;
end;
with Objects[objBloodPool] do
begin
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
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
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
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
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
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
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
Name := 'Vine';
UpText := ['Vine', 'phon V', 'on v'];
Color := 1200463;
Tol := 18;
Hue := 0.28;
Sat := 1.75;
LvlReq := 17;
Max := 900;
Min := 60;
IXP := 35;
end;
end;
function GetObject(vObj : Integer) : TObj;
begin
Result := Objects[vObj];
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;
fObj := GetObject(vObj);
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
with fObj do
begin
SetColorSpeed2Modifiers(Hue, Sat);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, MSX1, MSY1, MSX2, MSY2, 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']))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 FindWizard: Boolean;
var
a, h : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
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;
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 .. 14 : HoverSkill('Runecrafting', False);
15 .. 40 : Wait(RandomRange(750, 2000));
41: 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;
var
XP, XpHr: Integer;
begin
XP := GetXPBar(WhichXPBar) - StartXP;
FindNormalRandoms;
try
XpHr := ((3600*XP)/(PlayerWorked(0)/1000));
except
//dbug('tried to divide by zero', 'Proggy');
end;
writeln('======== Kyle''s Esswraith Extractor =========');
writeln(' Time Running: ' + MsToTime(PlayerWorked(0), Time_Abbrev));
writeln(' Experience Earned: ' + ToStr(XP));
writeln(' Experience/Hour: ' + ToStr(XpHr));
writeln('========================================= ====');
end;
Procedure GetMoreEssence;
var
a, h, t: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
MarkTime(T);
repeat
if(not(LoggedIn))then Exit;
if(TimeFromMark(t) > 30000)then
begin
WriteLn('failed to get more essence');
TerminateScript;
end;
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 MainLoop();
var
fObj : TObj;
x, y, i, InitialXP, UpdateXP, t: Integer;
Label
Waiting;
begin
repeat
if not loggedin then loginplayer;
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(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
TerminateScript;
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(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
TerminateScript;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('N');
end;
until(not(LoggedIn));
end;
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
SetupSRL();
SetupSRLStats(1036, SRLStats_Username, SRLStats_Password);
SetupObjects();
{* 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);
SetAngle(SRL_ANGLE_HIGH);
StartXP := GetXPBar(WhichXPBar);
RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
Gametab(tab_Inv);
if(not(WaitFindDTMEX(EssenceDTM, EX, EY, MIX1, MIY1, MIX2, MIY2, 100, 2000)))then
GetMoreEssence;
Higher := False;
MainLoop;
end.
Ashaman, I've been meaning to tell you, your progress report on your Salamander and this one seem to be inaccurate on the Xp/hr. No worries though! Here's the script with an accurate xp/hr counter. Just trying to help. :)
And Kyle, maybe use this proggy on your next update? :)
Kyle Undefined
05-03-2012, 03:12 PM
I'm sure you have it, but just in case...
Here's an air essling that I used, it would also find the water pool so I added uptext for that too.
Thanks! I'll add those, and I'll split them up into two different objects.
I don't think that was changed at all with the update. Might be rs color changes. Try logging in or restarting client
Restarted the client, tried it, still didn't work. Went back to the previous version of the script, works perfectly, not sure what would cause this.
I don't see why the Soul would work on one, and not the other. I didn't touch the colors :/
kingob
05-03-2012, 03:14 PM
========Kyles Esswraith Extractor=========
Time Running: 2 Hours, 28 Minutes and 16 Seconds
Experience Earned: 137773
Experience/Hour: 54000
========================================
Here is a nice little progyy, manually stopped. On blood esswraiths at 89 rc. Thanks guys!
superbuster4
05-03-2012, 03:18 PM
ohh forgot to say im almost at 200k points so il probably get an esteem rank of 1 soon. best part is im nowhere near a comp cape.
Blackdeath
05-03-2012, 03:18 PM
Thanks! I'll add those, and I'll split them up into two different objects.
I don't see why the Soul would work on one, and not the other. I didn't touch the colors :/
I don't know either :( Minus downloading the new one, I didn't change anything anywhere. Does simba have to have the lastest Sps? Cause I am still using the old version for other scripts.
Kyle Undefined
05-03-2012, 03:20 PM
========Kyles Esswraith Extractor=========
Time Running: 2 Hours, 28 Minutes and 16 Seconds
Experience Earned: 137773
Experience/Hour: 54000
========================================
Here is a nice little progyy, manually stopped. On blood esswraiths at 89 rc. Thanks guys!
Sweet! :)
ohh forgot to say im almost at 200k points so il probably get an esteem rank of 1 soon. best part is im nowhere near a comp cape.
Haha nice! Let me know how it goes! :) Good luck autoing to rank 1! :D
I don't know either :( Minus downloading the new one, I didn't change anything anywhere. Does simba have to have the lastest Sps? Cause I am still using the old version for other scripts.
I'm still using the old SPS, and it wouldn't matter since this doesn't use it ;)
Ashaman88
05-03-2012, 03:26 PM
Kyle do you have the aca file saved for the soul one?
Edit* 1k posts :P nbd :)
Kyle Undefined
05-03-2012, 03:27 PM
Kyle do you have the aca file saved for the soul one?
Edit* 1k posts :P nbd :)
I didn't make the soul one, I used the colors ggzz sent me :)
Also, grats!
Esslings are a bit difficult to support IMO due to changing colors and bigger chance of false positive. Maybe try limit it to air esslings and water? The earth/fire brown might false positive forever if on high tolerance.
As with the low level storms as well. The black color false positives with many of the borders at higher tolerances and with lower colors it breaks after some time, which is quite annoying.
I have the values but they either false-positive on a 2nd account or 3rd, which pisses me off quite badly. and by the way, this is the 4th level 50 RC I have raised in 2 days. ;)
xtrapsp
05-03-2012, 03:42 PM
Im genuinly really ¿!?/@'d off that the community only really jumps to help the better coders.
However, as this has demotivated me it would be pointless to carry on with my project. THerefore when im home im pm'ing you my list of all colours tolerance hue's etc
For my latest version not released it works. So hopefully you can fill in the blanks.
Goodluck with this project
Also Er1k. All nodes have the same ring colour. Make it look for diff uptext instead?
nokkasiili
05-03-2012, 03:42 PM
Name := 'Body Esshound';
UpText := ['Body esshound', 'dy ess', 'Body','Siphon Body'];
Color := 15110791;
Tol := 16;
Hue := 0.11;
Sat := 1.88;
LvlReq := 20;
min := 4;
max := 150;
works for me
Im genuinly really ¿!?/@'d off that the community only really jumps to help the better coders.
However, as this has demotivated me it would be pointless to carry on with my project. THerefore when im home im pm'ing you my list of all colours tolerance hue's etc
For my latest version not released it works. So hopefully you can fill in the blanks.
Goodluck with this project
Also Er1k. All nodes have the same ring colour. Make it look for diff uptext instead?
AFAIK the current node detection is not based on the ring color but the node feature. uptext works if you just check the white ring, but it kinda defeats the point of it. Also I am thinking the false positive comes from one of the objects but I just can't find out which because there's quite a number.
Don't feel like ACAing the nodes just to fix something that might come back another day ;) I'll just relogin and be done with it
PS. IMO Maybe it's because of the recent bot update, I am thinking the colors might have changed slightly more rapidly than it used to be.
E: By all means don't be discouraged. There's a lot of unfilled gaps in other sections, I am sure you can do something about it.
Blackdeath
05-03-2012, 03:47 PM
Honestly I am lost as far as why the newer version doesn't work and the previous version works. But this is still awesome so I am going to keep using the previous version. Thank you a lot for this script :D
Kyle Undefined
05-03-2012, 04:02 PM
Esslings are a bit difficult to support IMO due to changing colors and bigger chance of false positive. Maybe try limit it to air esslings and water? The earth/fire brown might false positive forever if on high tolerance.
As with the low level storms as well. The black color false positives with many of the borders at higher tolerances and with lower colors it breaks after some time, which is quite annoying.
I have the values but they either false-positive on a 2nd account or 3rd, which pisses me off quite badly. and by the way, this is the 4th level 50 RC I have raised in 2 days. ;)
Hmm ok, I'll just play around with it ;) And nice! That's insane!
Im genuinly really ¿!?/@'d off that the community only really jumps to help the better coders.
However, as this has demotivated me it would be pointless to carry on with my project. THerefore when im home im pm'ing you my list of all colours tolerance hue's etc
For my latest version not released it works. So hopefully you can fill in the blanks.
Goodluck with this project
Also Er1k. All nodes have the same ring colour. Make it look for diff uptext instead?
Aww, don't be discouraged! There's plenty of room for both of ours :) I've seen some good feedback on yours!
works for me
Thanks, it was added in the latest release.
AFAIK the current node detection is not based on the ring color but the node feature. uptext works if you just check the white ring, but it kinda defeats the point of it. Also I am thinking the false positive comes from one of the objects but I just can't find out which because there's quite a number.
Don't feel like ACAing the nodes just to fix something that might come back another day ;) I'll just relogin and be done with it
PS. IMO Maybe it's because of the recent bot update, I am thinking the colors might have changed slightly more rapidly than it used to be.
E: By all means don't be discouraged. There's a lot of unfilled gaps in other sections, I am sure you can do something about it.
The nodes in this script is of the actual node itself, I kept getting false positives with the ring.
There's only 20 objects as of now :p
I agree with the last point :)
Honestly I am lost as far as why the newer version doesn't work and the previous version works. But this is still awesome so I am going to keep using the previous version. Thank you a lot for this script :D
You're welcome, I'll dig into the Souls later and see what's going on.
xtrapsp
05-03-2012, 04:29 PM
Aww, don't be discouraged! There's plenty of room for both of ours :) I've seen some good feedback on yours!
Just seems more logical to help make yours perfect haha
Hound:
SetColorSpeed2Modifiers(0.13, 2.67);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 16035754, MSX1, MSY1, MSX2, MSY2, 7);
Death Esswraith:
SetColorSpeed2Modifiers(0.27, 0.63);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 5471842, MSX1, MSY1, MSX2, MSY2, 22);
Bloodpool Node:
SetColorSpeed2Modifiers(0.00, 0.00);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 1252231, MSX1, MSY1, MSX2, MSY2, 0);
Fleshy Growth:
SetColorSpeed2Modifiers(0.07, 0.49);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 4082573, MSX1, MSY1, MSX2, MSY2, 11);
Fire Storm:
SetColorSpeed2Modifiers(0.19, 4.75);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 2571174, MSX1, MSY1, MSX2, MSY2, 3);
Earth Essling:
SetColorSpeed2Modifiers(0.04, 0.32);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 4744582, MSX1, MSY1, MSX2, MSY2, 15);
WatersColor = 13672820;
WatersTol = 10;
EarthColor= 5138826;
EarthTol = 4;
MindColor = 8960468;
MindTol = 10;
AirColor = 13019251;
AirTol = 9;
NatureColor = 14847356;
NatureTol = 15;
BlackColor = 1381660;
BlackTol = 5;
FireColor = 3293861; // + Fleshy
FireTol = 11;
SoulColor = 9270570;
SoulTol = 20;
HoundColor = 15639448;
HoundTol = 7;
RockColor = 4560258;
RockTol = 11;
ChaoticColor = 1904925;
ChaoticTol = 8;
NebulaColor = 8853122;
NebulaTol = 6;
DeathWraithColor = 6860702;
DeathWraithTol = 13;
SkullsColor = 11579579;
SkullsTol = 11;
I know some of them are different so pick and choose :)
Air ones need redoing
Kyle Undefined
05-03-2012, 04:34 PM
Quick report!
======== Kyle's Esswraith Extractor =========
You are using Version 1.3
Time Running: 2 Hours, 17 Minutes and 31 Seconds
Experience Earned: 154455
Experience/Hour: 64800
=============================================
Recursive
05-03-2012, 04:39 PM
SEc
Recursive
05-03-2012, 04:45 PM
program KylesEsswraithExtractor_F2p;
{$DEFINE SMART}
{$i srl/srl.simba}
const
{* SRL Stats *}
SRLStats_Username = '';
SRLStats_Password = '';
{* Object Constants *}
objWaterEssling = 0;
objVine = 1;
objWatPool = 2;
objFirestorm = 3;
objBodHound = 4;
objFleshy = 5;
objRockFrag = 6;
objFireball = 7;
objAirEssling = 8;
objMindEssling = 9;
objEarthEssling = 10;
objCyclone = 11;
(* Break settings *)
SwitchWorlds = False; // Switch worlds after a break?
TakeBreaks = False; // Take Breaks during runtime?
BreakIn = 180; // 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
Debug = False;
type
{* TObj Type *}
TObj = record
Hue, Sat : Extended;
Name: string;
UpText : TStringArray;
Color, Tol, LvlReq, Max, Min, IXP: Integer;
end;
var
{* Script Variables *}
StartXP, XPH, XP, TP, RCt, RCLvl, TW, CurrentXP, EssenceDTM, EX, EY: Integer;
Objects : array of TObj;
Higher : Boolean;
(* 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.
end;
end;
procedure SetDTM;
begin
EssenceDTM := DTMFromString('mrAAAAHic42BgYHBkYmDwAGIXILYBYksodg diXyB+DlTzCIgfQvEzIP4AxG+A+CkQW5ibMRjo64ExiG1tZcHg 6uLE4O7mwmBsZMjABVSDDzMSwDAAAJ3CDvU=');
end;
procedure Fr33DTM;
begin
FreeDTM(EssenceDTM);
end;
procedure DebugThis(s : string);
begin
if(Debug)then
WriteLn(s);
end;
procedure SetupObjects();
begin
SetLength(Objects, 12);
with Objects[objWaterEssling] do
begin
Name := 'Water Essling';
UpText := ['Water Essling', 'ater', 'er essl', 'ssling'];
Color := 12168060;
Tol := 17;
Hue := 0.10;
Sat := 2.17;
LvlReq := 5;
Max := 150;
Min := 15;
IXP := 13;
end;
with Objects[objVine] do
begin
Name := 'Vine';
UpText := ['Vine', 'phon V', 'on v'];
Color := 1200463;
Tol := 18;
Hue := 0.28;
Sat := 1.75;
LvlReq := 17;
Max := 900;
Min := 60;
IXP := 35;
end;
with Objects[objWatPool] do
begin
Name := 'Water pool';
UpText := ['Siphon Water', 'on Wat', 'ater pool', 'water'];
Color := 11184246;
Tol := 9;
Hue := 0.51;
Sat := 0.99;
LvlReq := 60;
Min := 80;
Max := 900;
IXP := 26;
end;
with Objects[objFirestorm] do
begin
Name := 'Fire storm';
UpText := ['Siphon Fire storm', 're Storm', 'Storm', 'on fire'];
Color := 1252992;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 54;
Min := 80;
Max := 900;
end;
with Objects[objBodHound] do
begin
Name := 'Body esshound';
UpText := ['Siphon Body esshound', 'on Bod', 'Body', 'hound'];
Color := 16626087;
Tol := 7;
Hue := 0.54;
Sat := 1.05;
LvlReq := 40;
Min := 2;
Max := 150;
IXP := 24;
end;
with Objects[objFleshy] do
begin
Name := 'Fleshy growth';
UpText := ['Siphon Fleshy', 'on Fle', 'Fleshy', 'growth'];
Color := 6452403;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 40;
Min := 60;
Max := 900;
IXP := 46;
end;
with Objects[objRockFrag] do
begin
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
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[objAirEssling] do
begin
Name := 'Air Essling';
UpText := ['Air Essling', 'ir', 'ir essl', 'ssling'];
Color := 13487548;
Tol := 10;
Hue := 4.82;
Sat := 1.05;
LvlReq := 1;
Max := 150;
Min := 2;
IXP := 10;
end;
with Objects[objMindEssling] do
begin
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 := 29;
end;
with Objects[objEarthEssling] do
begin
Name := 'Earth Essling';
UpText := ['Earth Essling', 'arth', 'rth essl', 'ssling'];
Color := 6268591;
Tol := 25;
Hue := 0.44;
Sat := 0.24;
LvlReq := 9;
Max := 150;
Min := 2;
IXP := 14;
end;
with Objects[objCyclone] do
begin
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 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;
fObj := GetObject(vObj);
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
with fObj do
begin
SetColorSpeed2Modifiers(Hue, Sat);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, MSX1, MSY1, MSX2, MSY2, 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(['essling', 'sling', 'ling']))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 FindWizard: Boolean;
var
a, h : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
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;
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 .. 14 : HoverSkill('Runecrafting', False);
15 .. 40 : Wait(RandomRange(750, 2000));
41: 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('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
MarkTime(T);
repeat
if(not(LoggedIn))then Exit;
if(TimeFromMark(t) > 30000)then
begin
WriteLn('failed to get more essence');
TerminateScript;
end;
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 MainLoop();
var
fObj : TObj;
x, y, i, InitialXP, UpdateXP, t: Integer;
Label
Waiting;
begin
repeat
if not loggedin then loginplayer;
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(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
TerminateScript;
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(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
TerminateScript;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('N');
end;
until(not(LoggedIn));
end;
begin
Smart_Server := 10;
Smart_Members := false;
Smart_Signed := True;
SetupSRL();
SetupSRLStats(1036, SRLStats_Username, SRLStats_Password);
SetupObjects();
{* 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);
SetAngle(SRL_ANGLE_HIGH);
StartXP := GetXPBarTotal;
RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
Gametab(tab_Inv);
if(not(WaitFindDTMEX(EssenceDTM, EX, EY, MIX1, MIY1, MIX2, MIY2, 100, 2000)))then
GetMoreEssence;
Higher := False;
MainLoop;
end.
xtrapsp
05-03-2012, 04:46 PM
I added loads of stuff in my previous post kyle
Kyle Undefined
05-03-2012, 04:51 PM
Sweet, I'll take a look at both of yours :)
lorenzo
05-03-2012, 05:06 PM
when i open the script i wanna do blod wraith essence and those pools what do i need to fill and where do i need to do it before it works thanks
Ashaman88
05-03-2012, 05:07 PM
when i open the script i wanna do blod wraith essence and those pools what do i need to fill and where do i need to do it before it works thanks
put your character wherever you want to run it, press play.
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.