Log in

View Full Version : Kyle's Esswraith Extractor



Pages : 1 2 3 4 5 6 7 8 9 [10]

n33d scripts
06-07-2012, 12:07 PM
hey its a really good script thanks kyle!

YoHoJo
06-08-2012, 12:33 AM
bla bla bla
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 5 Hours, 53 Minutes and 41 Seconds
Experience Earned: 273352
Experience/Hour: 43200
Runecrafting Level: 87
Floor: 0
=============================================

deadskillz45
06-08-2012, 02:02 AM
can somebody please make a video showing how to setup this script and how to select to siphon wraiths/nodes please

YoHoJo
06-08-2012, 02:09 AM
can somebody please make a video showing how to setup this script and how to select to siphon wraiths/nodes please

A video is really not ncessary read the first post.
Just fine the Integers line and put in all of the objects/nodes/etc you want it to find separated by a commah.

deadskillz45
06-08-2012, 04:11 PM
it keeps failing randoms for me

YoHoJo
06-08-2012, 04:33 PM
it keeps failing randoms for me

randoms handled by SRL, not individual scripts.
See status of random solvers here: http://villavu.com/forum/forumdisplay.php?f=460

deadskillz45
06-08-2012, 04:34 PM
randoms handled by SRL, not individual scripts.
See status of random solvers here: http://villavu.com/forum/forumdisplay.php?f=460

you sir, are my god <3
will post again when i get a decent proggy

Alldatime
06-09-2012, 01:48 AM
Error: Out Of Range at line 2359
The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

helppp

Threshold
06-09-2012, 05:26 AM
Spam clicks the wraiths so I don't get essence. I have "Lots" on my counter.

deadskillz45
06-09-2012, 01:33 PM
finally got it working, sometimes you have to move when you enable smart or be already siphoning something

Asphalt
06-09-2012, 07:28 PM
How did you deal with the randoms cause i keep getting randoms keep coming back only to find that i've been stuck in a random for 2+ hrs

runescaper1991
06-10-2012, 11:18 AM
So far I have no problems with this script.

Working flawless thanks alot

tassutin
06-10-2012, 08:37 PM
Hello
Can someone please help me with that nice script?
My problem is: it just logg on and do nothing... just stand and click only spin to off and check inventory...

Hmmm when i put to false it works but... if its true that do nothing ''Booleans[0] := true; // Set to False if you want to search for all Objects''

What i should do to fix it? ( i'm sure someone have asked this before... but i dont have now time to search)
And sorry my english...

Thanks

Thanatos
06-10-2012, 10:33 PM
Hello
Can someone please help me with that nice script?
My problem is: it just logg on and do nothing... just stand and click only spin to off and check inventory...

Hmmm when i put to false it works but... if its true that do nothing ''Booleans[0] := true; // Set to False if you want to search for all Objects''

What i should do to fix it? ( i'm sure someone have asked this before... but i dont have now time to search)
And sorry my english...

Thanks

Setting it true makes it look for the objects you put in yourself. You want it to be false in order to work well. Unless you take the time to add objects in.

Skyx
06-11-2012, 12:29 PM
add me to that 99 list :))))

http://imgur.com/3Luom

satanas002
06-12-2012, 05:50 AM
I need the 1.6 version. Is it possible to download it?

limmuri
06-12-2012, 10:13 AM
Do this script work with none editing?
Because i tried thid first time its only collect ess and then stop.

why I have to pay epicbot that I can get a fully functional bot?



- I have using like all bots, none villavus bot work over week -.-

forfudgesake
06-12-2012, 10:28 AM
Epic script, thnx Kyle so much for the effort


======== Kyle's Esswraith Extractor =========
You are using Version 1.3
Time Running: 9 Minutes and 5 Seconds
Experience Earned: 15475
Experience/Hour: 100800
=============================================

(I'm aware I'm still on v1.3, working fine though :P)

runescaper1991
06-12-2012, 11:24 AM
Ok i had a problem today, the bot was working fine for a few hours. Then when a random occurred it completed it successfully and be returned back but the script would just hover over the runes made in the inventory and idle for a while.

Elrond1
06-12-2012, 02:46 PM
got 99 :) did a lot with this script and a bit with others! Thanks kyle!

bambozas
06-13-2012, 03:22 AM
I read first post an still do not understand how to make it work. How to setup this script? Can anyone help me out? I need to setup it for 70rc. Thanks alot for assistance.

ryhgoalie37
06-13-2012, 01:42 PM
Just got 99 =) Thanks so much Kyle!

gablax
06-14-2012, 12:04 AM
Its look like its having an hard time finding blood esswraith. Do I have to change something to the code or its normal ?

Thanatos
06-14-2012, 12:59 AM
Its look like its having an hard time finding blood esswraith. Do I have to change something to the code or its normal ?

Does it say anything in debug box or is it just slow?

Flight
06-14-2012, 01:05 AM
My-oh-my, look at that bulk 99 list! This script is golden, something like this is worth quite a bit. Kyle put a lot of hard work into making & maintaining it so be sure, everyone, to thank him for all his effort. :)

jaymckenzie
06-14-2012, 02:52 AM
nothings happening. my guy just stands there

chris91
06-14-2012, 02:58 AM
I'm going to run this or the other script for runespan. Always wanted 99 runecrafting. Hopefully I can get it running from all the comments about it not working.

Kyle Undefined
06-14-2012, 03:21 AM
My-oh-my, look at that bulk 99 list! This script is golden, something like this is worth quite a bit. Kyle put a lot of hard work into making & maintaining it so be sure, everyone, to thank him for all his effort. :)

It wasn't just me, I got lots of help from many people :) It's needing an update right now, so I've slowly been working on one.

bambozas
06-14-2012, 02:17 PM
lol.

======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 2 Minutes and 54 Seconds
Experience Earned: 71736703
Experience/Hour: 1484204400
Runecrafting Level: 74
Floor: 3

Asphalt
06-14-2012, 04:21 PM
Best proggy i ever had, to bad prison pete ended it

======== Kyle's Esswraith Extractor =========
You are using Version 1.6
Time Running: 3 Hours, 15 Minutes and 47 Seconds
Experience Earned: 313112
Experience/Hour: 93600
=============================================

Divus
06-14-2012, 05:05 PM
http://i1169.photobucket.com/albums/r507/Divus_Mortem/Untitled-2.png

Thank you so much Kyle. :) Going to be getting 99 in 2 days.

xShadow
06-15-2012, 10:11 AM
I'm sure this has probably been spammed on this thread, but I'm too lazy to read 92 pages ;)

My char stands there when I start the script.
Turned on DEBUG and it spams this in the debug box.


-[DEBUG]- Searching for Wizard
Wizard
66
33
13
1
-[DEBUG]- fObj.Name = Undead Soul.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 95.
-[DEBUG]- fObj.Name = Living Soul.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 90.
-[DEBUG]- fObj.Name = Bloody Skulls.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 83.
-[DEBUG]- fObj.Name = Blood Pool.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 77.
-[DEBUG]- fObj.Name = Skulls.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 65.
-[DEBUG]- fObj.Name = Soul esswraith.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 90.
-[DEBUG]- fObj.Name = Jumper.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 54.
-[DEBUG]- fObj.Name = Shifter.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 54.
-[DEBUG]- fObj.Name = Nebula.
-[DEBUG]- RCLvl = -1.
-[DEBUG]- fObj.LvlReq = 40.
-[DEBUG]- Checking for randoms
-[DEBUG]- In second repeat loop.
-[DEBUG]- Checking for randoms
-[DEBUG]- Checking for randoms

Hope you can fix soon, there are other scripts, but this one looks 10 times better tbh.
Cheers :D

Clairvoyance
06-15-2012, 10:31 AM
O my god after seeing all these 99's I so envy you for having the levels to run this script...

Rouids
06-15-2012, 04:41 PM
I start the script, it logs in, then checks the level "book" and then the inventory "book", then it just stops, and moves the mouse once and a while... I have debug enabled, I'll have a log in a sec...

E: Never mind, I see it's being updated. I really need to look at previous posts before posting myself -.-. Sorry

bomzene
06-15-2012, 09:13 PM
Best proggy i ever had, to bad prison pete ended it

======== Kyle's Esswraith Extractor =========
You are using Version 1.6
Time Running: 3 Hours, 15 Minutes and 47 Seconds
Experience Earned: 313112
Experience/Hour: 93600
=============================================

Which Island are you on?

http://images1.wikia.nocookie.net/__cb20120507014625/runescape/images/b/b7/Runespan_upper_level_map.png

thanks.

Loving the script Kyle, thank you.

Kyle Undefined
06-15-2012, 09:35 PM
Might push out an update this weekend, if I can find the time to. Sorry all.

xShadow
06-16-2012, 10:54 AM
Might push out an update this weekend, if I can find the time to. Sorry all.

Haha, take your time Kyle, we'll be waiting all the same.

Also, I accidently ran the script again today, and it seemed to actually do some things. It was slow and very inaccurate, but the script actually ran, and found the best EXP esswraith/node/etc. The debug box was still spammed though (this caused a lot of unnecessary RAM consumption).

Hope this helps :D

Neverhaveb4
06-16-2012, 02:03 PM
it seems to be having trouble recognizing some wraiths, specifically the blood wraith, however it immediately responded when a node popped up

YoHoJo
06-17-2012, 07:33 AM
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 6 Hours, 1 Minutes and 14 Seconds
Experience Earned: 307057
Experience/Hour: 50400
Runecrafting Level: 89
Floor: 0

deadskillz45
06-17-2012, 10:06 AM
works perfectly, will post a proggy thats hopefully bigger than yohojos :3

kieran350
06-17-2012, 01:36 PM
when ever i try to run this it says this

Exception in Script: Unable to find file 'srl/srl.simba' used from ''
Exception in Script: Unable to find file 'srl/srl.simba' used from ''

what do i do?

Asphalt
06-17-2012, 01:48 PM
Thanks for 99 rc! Used from 55-99 in a couple of weeks. Again! Thanks a lot!

http://img845.imageshack.us/img845/3713/dontsavethis.png

agilemaster
06-17-2012, 03:27 PM
mine doesnt work when i run it it just says unable to find file

deadskillz45
06-17-2012, 05:32 PM
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 6 Hours, 6 Minutes and 34 Seconds
Experience Earned: 434154
Experience/Hour: 68400
Runecrafting Level: 93
Floor: 3
little proggy

darkgun33
06-19-2012, 08:19 AM
Voila 99 RC :) Thanks!

mchawk99
06-19-2012, 01:07 PM
OMG I LOVE THIS SCRIPT!!! 93 RC now going for 99 :D

Fraudnew
06-21-2012, 04:09 AM
Add me 2 the 99 list :)

bambozas
06-24-2012, 07:16 AM
Hello, i dont know why but i cannot get long lifetime of this script. It always log out and said in debug message " ** Set False ** Reason := Not logged in ". Btw longest progy ~2hrs.

zunkill
06-24-2012, 10:29 AM
dude you make an update to where it grabs more rune ess if it runs out of it... my guy just keeps clicking and it says in my chatlog you've run out of rune ess.... very bot like if it does that =/

Mat
06-24-2012, 02:06 PM
dude you make an update to where it grabs more rune ess if it runs out of it... my guy just keeps clicking and it says in my chatlog you've run out of rune ess.... very bot like if it does that =/

Try changing it your self Kyle is a busy, man your lucky he even made this script.

bambozas
06-24-2012, 07:14 PM
How can i make it work for longer? :(
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 4 Minutes and 58 Seconds
Experience Earned: 2962
Experience/Hour: 32400
Runecrafting Level: 86
Floor: 3
=============================================
** SetFalse ** Reason := Not Logged in
Successfully executed.

dvander222
06-25-2012, 03:04 AM
How can i make it work for longer? :(
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 4 Minutes and 58 Seconds
Experience Earned: 2962
Experience/Hour: 32400
Runecrafting Level: 86
Floor: 3
=============================================
** SetFalse ** Reason := Not Logged in
Successfully executed.


when mine dont work correct i always make sure everything is fully updated (ie. srl & simba) and recheck the code or check forms for any known bugs. aswell as the rs settings. if your using smart should already be in the right setting. low detail all that jazzz:f:

Dkong
06-26-2012, 01:21 AM
anyone get this problem where it says "The following DTMs were not freed: "?

this problem seems to make me lag..idk if its this script or simba

bambozas
06-26-2012, 02:52 AM
Just found why it logging out. It cannot find bloodesswraight just right click them sometimes until it run out of time for auto log out.

gunman82
06-26-2012, 12:43 PM
fix the script ASAP kyle pls...the other script is no match compared to yours..

padlockcode
06-27-2012, 04:47 AM
as of 6/26, i could not get this script to work. Any one else?

Imanoobbot
06-29-2012, 02:22 PM
as of 6/26, i could not get this script to work. Any one else?

I just started v1.8 and everything is working perfect. Getting around 90-100k/h and im happy with it. I think you are doing something wrong in your setup. The script is working.

FuturenavySEAL
06-29-2012, 04:53 PM
Yeah i cant get it to work either. It will log on and everything but it wont do anything. It wont attack the wraith it will only
attack nodes.

MistSpray
06-30-2012, 02:40 PM
Scripts works great, currently got from 1 to 62. Thanks

gunman82
07-01-2012, 05:01 PM
I just started v1.8 and everything is working perfect. Getting around 90-100k/h and im happy with it. I think you are doing something wrong in your setup. The script is working.

Which island you siphoning from dude?

Imanoobbot
07-01-2012, 05:23 PM
Which island you siphoning from dude?

I posted a screenshot of the island a few days after the script was out. Just check the pages for the spot. ;)


Also you will learn alot about the script if you read the beginning of it.


*EDIT

I was bored so I decided to look myself for the screenshot. Here it is.

http://i48.tinypic.com/jgnrj9.png


In my opinion this is the best spot.

Becks
07-01-2012, 11:37 PM
ah I'm excited just discovered this 0.o. Thanks Kyle!

Edit: Not working for me, will try again later.

gunman82
07-02-2012, 04:19 AM
I posted a screenshot of the island a few days after the script was out. Just check the pages for the spot. ;)


Also you will learn alot about the script if you read the beginning of it.


*EDIT

I was bored so I decided to look myself for the screenshot. Here it is.

http://i48.tinypic.com/jgnrj9.png


In my opinion this is the best spot.


Script working for me too albeit after a delay of 2 minutes or so...mistook it for non functionality earlier :P thanks for the pic :)


*EDIT:I see why you chose this spot...those 2 soul Esswraiths are beautiful :)

Dkong
07-02-2012, 02:01 PM
add me to the 99 list!!! great script

Kyle Undefined
07-03-2012, 08:29 PM
Ok, I've added the recent 99's to the first page, as well as a sexy banner made by Run S Kape! I have an update that I've been working on, and it seems much, much more accurate. I'll try to get it finished tonight!

Sorry for being a slacker.

Carlito
07-04-2012, 09:09 PM
Ok, I've added the recent 99's to the first page, as well as a sexy banner made by Run S Kape! I have an update that I've been working on, and it seems much, much more accurate. I'll try to get it finished tonight!

Sorry for being a slacker.

Just discovered this script, ill definitely give it a go as i'm trying to get some rc levels on my main. But i have never really used this place before so im not sure what are all the things mean in

// This is for searching for specific Objects, add / remove as needed. Order doesn't matter
Integers := [objUndeadSoul, objLivingSoul, objSoulWraith, objBloodySkulls
, objBloodPool, objSkulls, objJumper, objShifter, objNebula];

Currently lvl 67, what would be the best setup? Thank you

DreamDog
07-06-2012, 12:39 AM
I have filled out DeclarePlayers and I am on an island with a Death esswraith yet the script just idles. graphic settings are all on minimum + fixed. what am I doing wrong?

0blivian
07-13-2012, 11:08 PM
hey may you please fix it with the new cords ty kyle

Firefru
07-19-2012, 03:53 AM
Having very strange problem...

I've used this script before, for a long time but today, all of a sudden... the script will log in and do nothing. literally sits and idles. setting are all to custom minimum. never had this problem before.

did something change within simba in the past month or with srl? i have simba .990 so im not sure if it has to do with extensions.

the script compiles fine. just idles and doesnt even show red cursor. need help please

also: i noticed it doesnt show anything in the script black box...nothing is going on.

Benge
07-27-2012, 01:41 PM
I changed the code so that it works after the update for people who don't know how to (took me about 3 days haha) so here

program KylesEsswraithExtractor;

{$DEFINE SMART}
{$i srl/srl.simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$Define Smart}

const
{* Don't touch *}
Version = '1.8';

{* SRL Stats *}
SRLStats_Username = '';
SRLStats_Password = '';

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

(* 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

{* Script Constants *}
ClickAnywhere = False; // Turns off the island detection, will click any object, no matter what island it's on
// True turns this option off, False makes it click only on your island.

Debug = False; // If things aren't working, set this to true and tell us what it says
// Or if you want to narrow down colors to make script even better :)

Misclick = False; // Use the misclick failsafe (Clicks under your character)
AutoUpdate = True; // Auto Update object data from database

type
{* TObj Type *}
TObj = record
Hue, Sat : Extended;
Name: string;
UpText : TStringArray;
ObjID, Color, Tol, LvlReq, Max, Min, IXP: Integer;
end;

type
{* TObjectArray Type *}
TObjectArray = array of TObj;

var
{* Script Variables *}
StartXP, XPH, XP, TP, RCt, RCLvl, TW, CurrentXP, EssenceDTM, EX, EY, IslandColor, IslandTol : Integer;
TI, Floors: Integer;
Objects : TObjectArray;
IslandHue, IslandSat : Extended;
Higher, SafeNub, FirstIsland : Boolean;
TB : Tbox;

(* Break variables *)
w, x, y, z, RealBTime, CurrentBTime, BreakRounds : Integer;

procedure DeclarePlayers();
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin
Name := ''; // Your RuneScape Account Name
Pass := ''; // Your RuneScape Account Password
Active := True; // Use in the Script. True / False.
Booleans[0] := True; // Set to False if you want to search for all Objects
Booleans[1] := False; // Logout if a random is found

// This is for searching for specific Objects, add / remove as needed. Order doesn't matter
Integers := [objUndeadSoul, objLivingSoul, objSoulWraith, objBloodySkulls
, objBloodPool, objSkulls, objJumper, objShifter, objNebula];
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
DebugThis('-[DEBUG]- Setup Objects');
SetLength(Objects, 30);

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

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

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

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

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

with Objects[objBloodPool] do
begin
ObjID := objBloodPool;
Name := 'Blood Pool';
UpText := ['Siphon Blood Pool', 'on blo', 'blood', 'od poo'];
Color := 1252488;
Tol := 10;
Hue := 0.02;
Sat := 1.70;
LvlReq := 77;
Min := 80;
Max := 250;
IXP := 146;
end;

with Objects[objNebula] do
begin
ObjID := objNebula;
Name := 'Nebula';
UpText := ['Siphon Nebula', 'on Neb', 'Nebula', 'bula'];
Color := 8988293;
Tol := 6;
Hue := 1.15;
Sat := 3.71;
LvlReq := 40;
Min := 55;
Max := 1000;
IXP := 85;
end;

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

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

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

with Objects[objShifter] do
begin
ObjID := objShifter;
Name := 'Shifter';
UpText := ['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'];
Color := 1830421;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 54;
Max := 900;
Min := 400;
IXP := 87;
end;

with Objects[objWaterEssling] do
begin
ObjID := objWaterEssling;
Name := 'Water Essling';
UpText := ['Water Essling', 'ater', 'er essl', 'ssling'];
Color := 12085388;
Tol := 17;
Hue := 1.29;
Sat := 0.99; //messed up for now
LvlReq := 5;
Max := 0;
Min := 0;
IXP := 13;
end;

with Objects[objVine] do
begin
ObjID := objVine;
Name := 'Vine';
UpText := ['Siphon Vine', 'phon V', 'hon v'];
Color := 534306;
Tol := 8;
Hue := 0.62;
Sat := 3.69;
LvlReq := 17;
Max := 900;
Min := 150;
IXP := 36;
end;

with Objects[objCCloud] do
begin
ObjID := objCCloud;
Name := 'Chaotic Cloud';
UpText := ['Siphon Chaotic', 'on Chaotic', 'Chaotic', 'haotic Cloud'];
Color := 2167590;
Tol := 4;
Hue := 2.03;
Sat := 2.57;
LvlReq := 35;
Min := 20;
Max := 1000;
IXP := 62;
end;

with Objects[objCosmicHound] do
begin
ObjID := objCosmicHound;
Name := 'Cosmic Esshound';
UpText := ['osmic', 'osmic essh', 'Cosmic', 'Siphon Cosmic', 'ic esshound', 'Siphon Cosmic esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 27;
Min := 250;
Max := 700;
IXP := 27;
end;

with Objects[objChaosHound] do
begin
ObjID := objChaosHound;
Name := 'Chaos Esshound';
UpText := ['haos', 'haos essh', 'Chaos', 'Siphon Chaos', 'os esshound', 'Siphon Chaos esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 35;
Min := 250;
Max := 700;
IXP := 31;
end;

with Objects[objAstralHound] do
begin
ObjID := objAstralHound;
Name := 'Astral Esshound';
UpText := ['stral', 'stral ess', 'Astral', 'Siphon Astral', 'ral esshound', 'Siphon Astral esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 40;
Min := 250;
Max := 700;
IXP := 36;
end;

with Objects[objNatureHound] do
begin
ObjID := objNatureHound;
Name := 'Nature Esshound';
UpText := ['ature', 'ature ess', 'Nature', 'Siphon Nature', 'ture esshound', 'Siphon Nature esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 44;
Min := 250;
Max := 700;
IXP := 44;
end;

with Objects[objLawHound] do
begin
ObjID := objLawHound;
Name := 'Law esshound';
UpText := ['Siphon Law', 'on Law', 'Law', 'aw ess', 'aw esshound', 'Siphon Law esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 54;
Min := 250;
Max := 700;
IXP := 54;
end;

with Objects[objBodyHound] do
begin
ObjID := objBodyHound;
Name := 'Body esshound';
UpText := ['Siphon Body', 'on Bod', 'Body', 'ody ess', 'ody esshound', 'Siphon Body esshound'];
Color := 14584962;
Tol := 19;
Hue := 0.10;
Sat := 2.02;
LvlReq := 20;
Min := 250;
Max := 700;
IXP := 24;
end;

with Objects[objAirEss] do
begin
ObjID := objAirEss;
Name := 'Air essling';
UpText := ['ir ess', 'iphon Air', 'Siphon Air essling'];
Color := 13934680;
Tol := 21;
Hue := 0.07;
Sat := 1.98;
LvlReq := 1;
Max := 600;
Min := 50;
IXP := 10;
end;

with Objects[objWaterPool] do
begin
ObjID := objWaterPool;
Name := 'Water Pool';
UpText := ['ter poo', 'iphon Wat', 'Siphon Water pool', 'ater pool'];
Color := 15187588;
Tol := 20;
Hue := 0.05;
Sat := 2.04;
LvlReq := 5;
Max := 900;
Min := 50;
IXP := 25;
end;

with Objects[objFleshyGrowth] do
begin
ObjID := objFleshyGrowth;
Name := 'Fleshy Growth';
UpText := ['eshy', 'on Fle', 'rowth', 'shy gro'];
Color := 4082573;
Tol := 11;
Hue := 0.07;
Sat := 0.49;
LvlReq := 20;
Max := 5000;
Min := 900;
IXP := 47;
end;

with Objects[objFireStorm] do
begin
ObjID := objFireStorm;
Name := 'Fire Storm';
UpText := ['ire sto', 'iphon Fir', 'Siphon Fire storm', 'sto'];
Color := 1780091;
Tol := 18;
Hue := 0.09;
Sat := 1.29;
LvlReq := 27;
Max := 700;
Min := 200;
IXP := 42;
end;

with Objects[objEarthEss] do
begin
ObjID := objEarthEss;
Name := 'Earth essling';
UpText := ['rth ess', 'iphon Ear', 'Siphon Earth essling', 'arth essl'];
Color := 4744582;
Tol := 15;
Hue := 0.04;
Sat := 0.32;
LvlReq := 1;
Max := 250;
Min := 50;
IXP := 15;
end;

with Objects[objRockFrag] do
begin
ObjID := objRockFrag;
Name := 'Rock Fragment';
UpText := ['Siphon Rock', 'on Roc', 'Rock', 'Fragment'];
Color := 3434345;
Tol := 13;
Hue := 0.41;
Sat := 0.46;
LvlReq := 9;
Min := 150;
Max := 900;
IXP := 29;
end;

with Objects[objFireball] do
begin
ObjID := objFireball;
Name := 'Fireball';
UpText := ['Siphon Fireball', 'on Fire', 'reball', 'fireball'];
Color := 2055350;
Tol := 14;
Hue := 0.41;
Sat := 1.20;
LvlReq := 14;
Min := 120;
Max := 900;
IXP := 35;
end;

with Objects[objMindEssling] do
begin
ObjID := objMindEssling;
Name := 'Mind Essling';
UpText := ['Mind Essling', 'ind', 'nd essl', 'ssling'];
Color := 7905200;
Tol := 17;
Hue := 0.21;
Sat := 0.40;
LvlReq := 1;
Max := 150;
Min := 2;
IXP := 12;
end;

with Objects[objCyclone] do
begin
ObjID := objCyclone;
Name := 'Cyclone';
UpText := ['Siphon Cyclone', 'clone', 'yclone', 'cyclone'];
Color := 2698292;
Tol := 6;
Hue := 0.51;
Sat := 1.10;
LvlReq := 1;
Min := 80;
Max := 900;
IXP := 19;
end;

with Objects[objMindStorm] do
begin
ObjID := objMindStorm;
Name := 'Mind Storm';
UpText := ['nd sor', 'iphon Min', 'Mind', 'Siphon Mind Storm'];
Color := 1645086;
Tol := 6;
Hue := 0.56;
Sat := 0.84;
LvlReq := 1;
Min := 100;
Max := 800;
IXP := 20;
end;

DebugThis('-[DEBUG]- Objects are setup');
end;

function GetObject(vObj : Integer) : TObj;
begin
Result := Objects[vObj];
end;

function GetObjectByXP(xp : Integer) : TObj;
var
i : Integer;
begin
for i := 0 to High(Objects) do
if(Objects[i].IXP = xp)then
Result := Objects[i];
end;

function GetObjectData(ID : Integer) : TObj;
var
webClient, i : Integer;
postData, objDataStr : string;
objDataStrArray : TStringArray;
tmpObj : TObj;
begin
try
webClient := InitializeHTTPClient(False, False);
postData := 'http://srl.kyleundefined.com/Scripts/KEE/?ObjID=' + IntToStr(ID);
objDataStr := GetHTTPPage(webClient, postData);
DebugThis('-[DEBUG]- Object Data String = ' + objDataStr);
objDataStrArray := Explode('|', objDataStr);

if(objDataStr = '0')then
begin
DebugThis('-[DEBUG]- Failed to grab Object data!');
Exit;
end;

if(Debug)then
for i := 0 to High(objDataStrArray) do
WriteLn('-[DEBUG]- ObjDataStrArray[' + IntToStr(i) + '] = ' + objDataStrArray[i]);

with tmpObj do
begin
ObjID := ID;
Name := objDataStrArray[0];
UpText := [objDataStrArray[1]];
Color := StrToIntDef(objDataStrArray[2], Objects[ID].Color);
Tol := StrToIntDef(objDataStrArray[3], Objects[ID].Tol);
Hue := StrToFloatDef(objDataStrArray[4], Objects[ID].Hue);
Sat := StrToFloatDef(objDataStrArray[5], Objects[ID].Sat);
LvlReq := StrToIntDef(objDataStrArray[6], Objects[ID].LvlReq);
Max := StrToIntDef(objDataStrArray[7], Objects[ID].Max);
Min := StrToIntDef(objDataStrArray[8], Objects[ID].Min);
IXP := StrToIntDef(objDataStrArray[9], Objects[ID].IXP);
end;

Result := tmpObj;
except
DebugThis('-[ERROR]- Failed to grab Object Data! : ' + exceptionToString(exceptionType, exceptionParam));
finally
FreeHTTPClient(webClient);
end;
end;

procedure AddObject(var objArr : TObjectArray; ObjID : Integer);
begin
SetLength(objArr, Length(objArr) + 1);
objArr[High(objArr)] := GetObject(ObjID);
end;

procedure FilterObjects();
var
tmpObjects : TObjectArray;
i : Integer;
begin
if(not(Players[CurrentPlayer].Booleans[0]))then
Exit;

DebugThis('-[DEBUG]- Filtering Objects');
for i := 0 to High(Objects) do
if(InIntArray(Players[CurrentPlayer].Integers, Objects[i].ObjID))then
AddObject(tmpObjects, Objects[i].ObjID);

SetLength(Objects, High(tmpObjects));
Objects := tmpObjects;
DebugThis('-[DEBUG]- Objects are filtered');
end;

procedure SortObjects();
var
tmpObjects : TObjectArray;
TIA : TIntegerArray;
i : Integer;
begin
DebugThis('-[DEBUG]- Sorting Objects');
SetLength(TIA, Length(Objects));

for i := 0 to High(Objects) do
TIA[i] := Objects[i].IXP;

Quicksort(TIA);
InvertTIA(TIA);

SetLength(tmpObjects, Length(Objects));

for i := 0 to High(TIA) do
tmpObjects[i] := GetObjectByXP(TIA[i]);

Objects := tmpObjects;
DebugThis('-[DEBUG]- Objects are sorted');
end;

procedure UpdateObjects();
var
tmpObjects : TObjectArray;
i : Integer;
begin
if(not(AutoUpdate))then Exit;

DebugThis('-[DEBUG]- Updating Objects');

SetLength(tmpObjects, Length(Objects));

for i := 0 to High(Objects) do
tmpObjects[i] := GetObjectData(Objects[i].ObjID);

DebugThis('-[DEBUG]- Objects are updated');
end;

procedure SetFalse(reason : string; logOutPlayer : Boolean);
begin
WriteLn('** SetFalse ** Reason := ' + reason);
Players[CurrentPlayer].Active := False;

if(logOutPlayer)then
Logout;

if(HowManyPlayers = 1)then
TerminateScript();
end;

function CheckForRandoms() : Boolean;
var
i : Integer;
begin
DebugThis('-[DEBUG]- Checking for randoms');

if(Players[CurrentPlayer].Booleans[1])then
begin
for i := 0 to High(SRL_Randoms) do
begin
if (SRL_Randoms[i].detect <> nil) and (SRL_Randoms[i].detect()) then
begin
Result := True;
Break;
end;
end;

if(Result)then
SetFalse('Random Detected', True);
end else
FindNormalRandoms();
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;
CheckForRandoms();
DebugThis('-[DEBUG]- Starting Object search');

fObj := GetObject(vObj);

tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

with fObj do
begin
DebugThis('-[DEBUG]- Searching for Object - ' + Name);
SetColorSpeed2Modifiers(Hue, Sat);

FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, TB.X1, TB.Y1, TB.X2, TB.Y2, Tol);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);

H := High(ATPA);

for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);

DebugThis('-[DEBUG]- Length(ATPA[a]) = ' + ToStr(Length(ATPA[a])));

if((Length(atpa[a]) < Min) or (Length(atpa[a]) > Max))then
Continue;

MMouse(X, Y, 5, 5);

DebugThis('-[DEBUG]- GetUpText = ' + GetUpText);

if(WaitUpTextMulti(UpText, RandomRange(350, 450)))then
begin
ClickMouse2(True);

if(DidRedClick)then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if(Misclick)then
begin
Wait(RandomRange(600, 700));
If IsMoving Then
Begin
Mouse(249, 177, 2, 2, True);
Wait(RandomRange(300, 400));
Repeat
Wait(100);
Until (Not(Ismoving));
FirstIsland := True;
Exit;
End;
end;
Result := True;
Exit;
end else
begin
Higher := True;

if(Misclick)then
begin
Mouse(249, 177, 2, 2, True);
Wait(RandomRange(300, 400));
Repeat
Wait(100);
Until (Not(Ismoving));
FirstIsland := True;
Exit;
end;
end;
end else
if(IsUptextMultiCustom(['esswraith', 'wraith', 'raith', 'Floating ess', 'Float', 'ing ess', 'Floating essence', 'lan vex', 'ead Clan', 'an vexillum', 'Read Clan vexillum']))then
begin
Clickmouse2(False);

if(WaitOptionMulti(UpText, 800))then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

Result := True;
Exit;
end;
end;
end;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;

Function FindObjectPlatform : Boolean;
var
CTS, I, L : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
begin
Result := False;

If (TimeFromMark(TI) < 60000) And (Not FirstIsland) Then
Begin
Result:=True;
Exit;
End;

DebugThis('-[DEBUG]- Searching for Object platform');

If SafeNub Then
Begin
TB := IntToBox(MSX1, MSY1, MSX2, MSY2);
Result := True;
Exit;
End;

CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(IslandHue, IslandSat);
FindColorsTolerance(TPA, IslandColor, MSX1, MSY1, MSX2, MSY2, IslandTol);
ATPA := FloodFillTPA(TPA);
SortATPASize(ATPA, True);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If Debug Then
DebugATPABounds(ATPA);

DebugThis('-[DEBUG]- ATPA = ' + ToStr(ATPA));

If Length(TPA) < 1 then
Exit;

L := High(ATPA);
For I := 0 To L do
Begin
TB:= GetTPABounds(ATPA[I]);
If Not (PointInBox(Point(MSCX, MSCY), TB)) then
begin
if I = L then
begin
DebugThis('-[DEBUG]- at high, point is not inside');
exit;
end else
continue;
end else break;
end;

DebugThis('-[DEBUG]- TB = ' + ToStr(TB));
Result := True;

MarkTime(TI);
FirstIsland:=False;
end;

function FindWizard: Boolean;
var
a, h : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Searching for Wizard');

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;

function FindMayScreen() : Boolean;
var
TPA : TPointArray;
tmpCTS : Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(0.44, 1.62);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1013212, MSX1, MSY1, MSX2, MSY2, 8);

Result := (Length(TPA) > 1500);

if(Result)then
MouseBox(494, 16, 503, 24, mouse_Left);

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;

procedure AntiBan();
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Performing Antiban');

case (Random(1000)) of
0 : RandomRClick;
1 : HoverSkill('random', False);
2 : ExamineInv;
3 : MouseSpeed := (RandomRange(10, 12));
4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
7 .. 100 : Wait(RandomRange(750, 2000));
101: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
end;
end;

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
if(not(Debug))then
ClearDebug();
Stats_Commit;
XP := (GetXPBarTotal - StartXP);
XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
Writeln('======== Kyle''s Esswraith Extractor =========');
WriteLn('Version ' + Version);
Writeln('Time Running: ' + TimeRunning);
Writeln('Experience Earned: ' + IntToStr(XP));
Writeln('Experience/Hour: ' + IntToStr(XPH));
WriteLn('Runecrafting Level: ' + IntToStr(RCLvl));
WriteLn('Floor: ' + IntToStr(Floors));
Writeln('========================================= ====');
MarkTime(TP);
end;

Procedure GetMoreEssence;
var
a, h, t: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Getting more essence');
MarkTime(T);

repeat
if(not(LoggedIn))then Exit;

if(TimeFromMark(t) > 30000)then
SetFalse('Failed to get more essence.', True);

tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(0.60, 0.10);

FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4408645, MSX1, MSY1, MSX2, MSY2, 14);
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('-[DEBUG]- Length(ATPA[a]) = ' + ToStr(Length(ATPA[a])));

if((Length(atpa[a]) < 50) Or (Length(atpa[a]) > 2000))then
Continue;

MMouse(X, Y, 5, 5);

if(WaitUpTextMulti(['Collect', 'llect', 'Float'], 750))then
begin
ClickMouse2(True);

if(DidRedClick)then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
end else
if(not(IsUptextMultiCustom(['Walk', 'lk here', 'here'])))then
begin
Clickmouse2(False);

if(WaitOptionMulti(['Collect', 'llect', 'Float'], 800))then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
until FindDTM(EssenceDTM, X, Y, MIX1, MIY1, MIX2, MIY2);
end;

procedure ScriptSetup();
var
Floor1, Floor2, Floor3, X, Y: Integer;
begin
SetupObjects();
UpdateObjects();
Filterobjects;
SortObjects();

if(FindMayScreen())then
Wait(RandomRange(500, 750));

SetAngle(SRL_ANGLE_HIGH);
StartXP := GetXPBarTotal;
RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
Gametab(tab_Inv);

Higher := False;
SafeNub:= False;
FirstIsland := True;

Floor1 := DTMFromString('mbQAAAHicY2VgYLBjZGBwBWIjILYEYi8g/ggUfw7Er4D4LxD/AOKepcwMZemKDJOrnRkMpLkZ/B11GESA4uiYEQsGAwD8Rgr4');
Floor2 := DTMFromString('mbQAAAHicY2VgYMhlZGAoBeIsIE4G4nIgFg SK8wExFxBLQvHWhUcYdrWdYbjQ/pTBwy+AQZRPkEEEKI6OGbFgMAAAtVQKcQ==');
Floor3 := DTMFromString('mbQAAAHicY2VgYFACYlkg1gZiSShdBMTNQF wFxMVAXALEpz58ZehasASMt508w3Dx7n0GEaA4OmbEgsEAAHWJ DpY=');

If FindDTM(Floor1, X, Y, 9, 99, 52, 146) Then
Floors := 1
Else If FindDTM(Floor2, X, Y, 9, 99, 52, 146) Then
Floors := 2
Else If FindDTM(Floor3, X, Y, 9, 99, 52, 146) Then
Floors := 3
Else
Floors := 0;

If ClickAnywhere Then
Floors := 0;

FreeDTM(Floor1);
FreeDTM(Floor2);
FreeDTM(Floor3);
Case Floors Of
0 : SafeNub := True;
1 : Begin IslandHue := 0.19; IslandSat := 0.71; IslandColor := 3112315; IslandTol := 12; End;
2 : Begin IslandHue := 3.58; IslandSat := 0.43; IslandColor := 8224087; IslandTol := 14; End;
3 : Begin IslandHue := 0.12; IslandSat := 0.73; IslandColor := 9145506; IslandTol := 12; End;
End;
end;

procedure MainLoop();
var
fObj : TObj;
x, y, i, InitialXP, UpdateXP, t: Integer;
Label
Waiting;
begin
repeat
DebugThis('-[DEBUG]- In first repeat loop.');
repeat
DebugThis('-[DEBUG]- In second repeat loop.');
if not loggedin then loginplayer;
CheckForRandoms();

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);

DebugThis('-[DEBUG]- fObj.Name = ' + fObj.Name + '.');
DebugThis('-[DEBUG]- RCLvl = ' + IntToStr(RCLvl) + '.');
DebugThis('-[DEBUG]- fObj.LvlReq = ' + IntToStr(fObj.LvlReq) + '.');

if(RCLvl >= fObj.LvlReq)then
begin
DebugThis('-[DEBUG]- RCLvl > fObj.LvlReq');
if(FindObjectPlatform)then
if(K_FindObj(x, y, i))then
begin
DebugThis('-[DEBUG]- Found platform and Object');
Waiting:

if(TimeFromMark(TP) > 60000)then
Proggy;

Wait(RandomRange(500, 750));
InitialXP := GetXPBarTotal;
CurrentXP := fObj.IXP;

DebugThis('-[DEBUG]- InitialXP = ' + IntToStr(InitialXP));
DebugThis('-[DEBUG]- CurrentXP = ' + IntToStr(CurrentXP));

MarkTime(T);
repeat
DebugThis('-[DEBUG]- In third repeat loop');
Wait(1000);
CheckForRandoms();

if(TimeFromMark(T) > RandomRange(7000, 7200))then
Break;

AntiBan;
DebugThis('-[DEBUG]- Searching for better XP Objects');
for i := 0 to High(Objects) do
begin
fObj := GetObject(i);
CheckForRandoms();

DebugThis('-[DEBUG]- fObj.Name = ' + fObj.Name + '.');
DebugThis('-[DEBUG]- fObj.LvlReq = ' + IntToStr(fObj.LvlReq) + '.');
DebugThis('-[DEBUG]- fObj.IXP = ' + IntToStr(fObj.IXP) + '.');

if(RCLvl >= fObj.LvlReq) And (CurrentXP < fObj.IXP)then
begin
if(FindObjectPlatform)then
if(K_FindObj(x, y, i))then
begin
DebugThis('-[DEBUG]- (RCLvl >= fObj.LvlReq) AND (CurrentXP < fObj.IXP)');
DebugThis('-[DEBUG]- Found higher XP Object, breaking for loop');
Higher := True;
Break;
end;
end;
end;

if(Higher)then
Break;

UpdateXP := GetXPBarTotal;
CheckForRandoms();

DebugThis('-[DEBUG]- UpdateXP = ' + IntToStr(UpdateXP));

if(UpdateXP > InitialXP)then
begin
DebugThis('-[DEBUG]- UpdateXP > InitialXP');
InitialXP := GetXPBarTotal;
T := 0;
MarkTime(T);
CheckForRandoms();
end;
until(False);

if(Higher)then
begin
DebugThis('-[DEBUG]- Higher = True');
Higher := False;
Goto Waiting;
end;
end;
end;
end;

CheckForRandoms();
until(not(LoggedIn));

if(Players[CurrentPlayer].Active)then
SetFalse('Not Logged in', False);

NextPlayer(Players[CurrentPlayer].Active);
ScriptSetup();
MainLoop();
until(AllPlayersInactive);
end;

begin
{$IFDEF SMART}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}

SetupSRL;
SetupSRLStats(1036, SRLStats_Username, SRLStats_Password);
ClearDebug();

{* 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);

_SetRandoms();
ScriptSetup();

if(not(WaitFindDTMEX(EssenceDTM, EX, EY, MIX1, MIY1, MIX2, MIY2, 100, 2000)))then
GetMoreEssence;

MainLoop;
end.

Kyle Undefined
07-27-2012, 01:47 PM
What exactly did you change? If you offset everything by 50 pixels, SRL and Simba was just updated to take care of that :p

Benge
07-27-2012, 01:55 PM
3 DAYS :'( :p thanks for the quote fix

Kyle Undefined
07-27-2012, 06:00 PM
Hey, it wasn't time wasted, you learned some new things I bet :)

YoHoJo
07-27-2012, 07:34 PM
I updated all of my SRL/Simba/SMART and this works just fine with no edits made to the script at all, just saying.

0blivian
07-28-2012, 07:51 AM
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;

[Error] C:\Users\myname\Desktop\KylesEsswraithExtractorV1. 8.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318

Waffle
07-28-2012, 08:01 AM
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;

[Error] C:\Users\myname\Desktop\KylesEsswraithExtractorV1. 8.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318

I'm guessing leeches don't know what IFDEF's are, lul

YoHoJo
07-28-2012, 08:03 AM
Remove those 3 lines, then try.

Kyle Undefined
07-30-2012, 03:17 PM
I should stop being lazy and finally update this, huh?

Sean
07-30-2012, 05:39 PM
I should stop being lazy and finally update this, huh?

Please do, Ive been trying to get this to work and cannot get it to start.. it clicks my stats then invy and freezes..

satkan
08-01-2012, 08:11 PM
So, hows the update comming along?

Jamesyy
08-06-2012, 01:13 PM
Great script, thanks Kyle! :P

Paradox The Divine
08-07-2012, 03:52 AM
Sorry to cause trouble, but I am getting a strange error everytime I run the client... I log in, and then nothing happens, the cursor doesn't even move around the screen, and then it says

'One minute has passed... Debug: 0'

and it attempts to type my username and password into the chat box. I tried to let it log me in, but it just sits there. Also, it worked fine yesterday, and got me from 76-80 in one night. Am I doing something wrong?

shstiger2009
08-07-2012, 04:43 AM
Sorry to cause trouble, but I am getting a strange error everytime I run the client... I log in, and then nothing happens, the cursor doesn't even move around the screen, and then it says

'One minute has passed... Debug: 0'

and it attempts to type my username and password into the chat box. I tried to let it log me in, but it just sits there. Also, it worked fine yesterday, and got me from 76-80 in one night. Am I doing something wrong?

Sounds like you aren't on safe mode. And if you are make sure your brightness is all the way maxed out.

Paradox The Divine
08-07-2012, 02:43 PM
Sounds like you aren't on safe mode. And if you are make sure your brightness is all the way maxed out.

Well, I redownloaded the script, and double checked all of that stuff and my settings seemed fine. When I started the script, it began siphoning as usual. I'm still not sure what the problem actually was, but thank you anyways.

Solar
08-11-2012, 10:11 AM
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 54 Minutes and 6 Seconds
Experience Earned: 53549
Experience/Hour: 57600
Runecrafting Level: 76
Floor: 2
=============================================
** SetFalse ** Reason := Not Logged in
Seems to prematurely logout.

======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 2 Hours, 1 Minutes and 16 Seconds
Experience Earned: 128549
Experience/Hour: 61200
Runecrafting Level: 78
Floor: 3
=============================================

thomas1116
08-13-2012, 07:40 AM
thanks alot good script ! , but its slow finding :P

Solar
08-13-2012, 06:37 PM
Pretty good proggy. Terminated because of a random.
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 4 Hours, 23 Minutes and 33 Seconds
Experience Earned: 3299705
Experience/Hour: 748800
Runecrafting Level: 81
Floor: 3
=============================================

hfbrads2
08-15-2012, 02:00 PM
I'm having an issue where the script will keep clicking on the esswraith even while its siphoning it. This resets the 10 siphon counter so that the esswraith never dies and I never get any more essence.

What am I doing wrong?

imthecactus
08-17-2012, 02:48 AM
Used this before, pretty damn good.

Getting a problem now...


Compiling failed.
[Error] C:\Users\noobisnoobandnoob\Downloads\KylesEsswrait hExtractorV1.8.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
Compiling failed.

:(

NKN
08-17-2012, 02:59 AM
http://villavu.com/forum/showthread.php?t=88578

Just going to leave that here...

Ragex
08-18-2012, 06:07 AM
I've been having trouble with actually starting to script. I keep getting this error, any help to resolve this problem is much appreciated.

Exception in Script: Unable to find file 'srl/srl.simba'

Solar
08-18-2012, 07:37 AM
I've been having trouble with actually starting to script. I keep getting this error, any help to resolve this problem is much appreciated.

Exception in Script: Unable to find file 'srl/srl.simba'

Have you updated your SRL? The error is pretty obvious when you read it.
Try updating Simba or even reinstalling.

krushsawa
08-20-2012, 07:45 PM
Still going well , Heres a quick proggy.
The session is not yet complete too , expect another post in around 3-5 hours =P

======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 2 Hours, 54 Minutes and 57 Seconds
Experience Earned: 190923
Experience/Hour: 64800
Runecrafting Level: 89
Floor: 3
=============================================

Mylo
08-21-2012, 11:28 PM
This is most likely a simple one for most: Version 1.8

How do I get around this one please?

Unknown identifier 'DebugATPABounds' at line 882


Active := True; // Use in the Script. True / False.
Booleans[0] := True; // Set to False if you want to search for all Objects
Booleans[1] := False; // Logout if a random is found

// This is for searching for specific Objects, add / remove as needed. Order doesn't matter
Integers := [objWaterEssling, objVine, objAirEss, objWaterPool,
objFireStorm, objEarthEss, objRockFrag, objFireball,
objMindEssling, objCyclone, objMindStorm];
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
DebugThis('-[DEBUG]- Setup Objects');
SetLength(Objects, 30);

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

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

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

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

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

with Objects[objBloodPool] do
begin
ObjID := objBloodPool;
Name := 'Blood Pool';
UpText := ['Siphon Blood Pool', 'on blo', 'blood', 'od poo'];
Color := 1252488;
Tol := 10;
Hue := 0.02;
Sat := 1.70;
LvlReq := 77;
Min := 80;
Max := 250;
IXP := 146;
end;

with Objects[objNebula] do
begin
ObjID := objNebula;
Name := 'Nebula';
UpText := ['Siphon Nebula', 'on Neb', 'Nebula', 'bula'];
Color := 8988293;
Tol := 6;
Hue := 1.15;
Sat := 3.71;
LvlReq := 40;
Min := 55;
Max := 1000;
IXP := 85;
end;

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

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

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

with Objects[objShifter] do
begin
ObjID := objShifter;
Name := 'Shifter';
UpText := ['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'];
Color := 1830421;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 54;
Max := 900;
Min := 400;
IXP := 87;
end;

with Objects[objWaterEssling] do
begin
ObjID := objWaterEssling;
Name := 'Water Essling';
UpText := ['Water Essling', 'ater', 'er essl', 'ssling'];
Color := 12085388;
Tol := 17;
Hue := 1.29;
Sat := 0.99; //messed up for now
LvlReq := 5;
Max := 0;
Min := 0;
IXP := 13;
end;

with Objects[objVine] do
begin
ObjID := objVine;
Name := 'Vine';
UpText := ['Siphon Vine', 'phon V', 'hon v'];
Color := 534306;
Tol := 8;
Hue := 0.62;
Sat := 3.69;
LvlReq := 17;
Max := 900;
Min := 150;
IXP := 36;
end;

with Objects[objCCloud] do
begin
ObjID := objCCloud;
Name := 'Chaotic Cloud';
UpText := ['Siphon Chaotic', 'on Chaotic', 'Chaotic', 'haotic Cloud'];
Color := 2167590;
Tol := 4;
Hue := 2.03;
Sat := 2.57;
LvlReq := 35;
Min := 20;
Max := 1000;
IXP := 62;
end;

with Objects[objCosmicHound] do
begin
ObjID := objCosmicHound;
Name := 'Cosmic Esshound';
UpText := ['osmic', 'osmic essh', 'Cosmic', 'Siphon Cosmic', 'ic esshound', 'Siphon Cosmic esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 27;
Min := 250;
Max := 700;
IXP := 27;
end;

with Objects[objChaosHound] do
begin
ObjID := objChaosHound;
Name := 'Chaos Esshound';
UpText := ['haos', 'haos essh', 'Chaos', 'Siphon Chaos', 'os esshound', 'Siphon Chaos esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 35;
Min := 250;
Max := 700;
IXP := 31;
end;

with Objects[objAstralHound] do
begin
ObjID := objAstralHound;
Name := 'Astral Esshound';
UpText := ['stral', 'stral ess', 'Astral', 'Siphon Astral', 'ral esshound', 'Siphon Astral esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 40;
Min := 250;
Max := 700;
IXP := 36;
end;

with Objects[objNatureHound] do
begin
ObjID := objNatureHound;
Name := 'Nature Esshound';
UpText := ['ature', 'ature ess', 'Nature', 'Siphon Nature', 'ture esshound', 'Siphon Nature esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 44;
Min := 250;
Max := 700;
IXP := 44;
end;

with Objects[objLawHound] do
begin
ObjID := objLawHound;
Name := 'Law esshound';
UpText := ['Siphon Law', 'on Law', 'Law', 'aw ess', 'aw esshound', 'Siphon Law esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 54;
Min := 250;
Max := 700;
IXP := 54;
end;

with Objects[objBodyHound] do
begin
ObjID := objBodyHound;
Name := 'Body esshound';
UpText := ['Siphon Body', 'on Bod', 'Body', 'ody ess', 'ody esshound', 'Siphon Body esshound'];
Color := 14584962;
Tol := 19;
Hue := 0.10;
Sat := 2.02;
LvlReq := 20;
Min := 250;
Max := 700;
IXP := 24;
end;

with Objects[objAirEss] do
begin
ObjID := objAirEss;
Name := 'Air essling';
UpText := ['ir ess', 'iphon Air', 'Siphon Air essling'];
Color := 13934680;
Tol := 21;
Hue := 0.07;
Sat := 1.98;
LvlReq := 1;
Max := 600;
Min := 50;
IXP := 10;
end;

with Objects[objWaterPool] do
begin
ObjID := objWaterPool;
Name := 'Water Pool';
UpText := ['ter poo', 'iphon Wat', 'Siphon Water pool', 'ater pool'];
Color := 15187588;
Tol := 20;
Hue := 0.05;
Sat := 2.04;
LvlReq := 5;
Max := 900;
Min := 50;
IXP := 25;
end;

with Objects[objFleshyGrowth] do
begin
ObjID := objFleshyGrowth;
Name := 'Fleshy Growth';
UpText := ['eshy', 'on Fle', 'rowth', 'shy gro'];
Color := 4082573;
Tol := 11;
Hue := 0.07;
Sat := 0.49;
LvlReq := 20;
Max := 5000;
Min := 900;
IXP := 47;
end;

with Objects[objFireStorm] do
begin
ObjID := objFireStorm;
Name := 'Fire Storm';
UpText := ['ire sto', 'iphon Fir', 'Siphon Fire storm', 'sto'];
Color := 1780091;
Tol := 18;
Hue := 0.09;
Sat := 1.29;
LvlReq := 27;
Max := 700;
Min := 200;
IXP := 42;
end;

with Objects[objEarthEss] do
begin
ObjID := objEarthEss;
Name := 'Earth essling';
UpText := ['rth ess', 'iphon Ear', 'Siphon Earth essling', 'arth essl'];
Color := 4744582;
Tol := 15;
Hue := 0.04;
Sat := 0.32;
LvlReq := 1;
Max := 250;
Min := 50;
IXP := 15;
end;

with Objects[objRockFrag] do
begin
ObjID := objRockFrag;
Name := 'Rock Fragment';
UpText := ['Siphon Rock', 'on Roc', 'Rock', 'Fragment'];
Color := 3434345;
Tol := 13;
Hue := 0.41;
Sat := 0.46;
LvlReq := 9;
Min := 150;
Max := 900;
IXP := 29;
end;

with Objects[objFireball] do
begin
ObjID := objFireball;
Name := 'Fireball';
UpText := ['Siphon Fireball', 'on Fire', 'reball', 'fireball'];
Color := 2055350;
Tol := 14;
Hue := 0.41;
Sat := 1.20;
LvlReq := 14;
Min := 120;
Max := 900;
IXP := 35;
end;

with Objects[objMindEssling] do
begin
ObjID := objMindEssling;
Name := 'Mind Essling';
UpText := ['Mind Essling', 'ind', 'nd essl', 'ssling'];
Color := 7905200;
Tol := 17;
Hue := 0.21;
Sat := 0.40;
LvlReq := 1;
Max := 150;
Min := 2;
IXP := 12;
end;

with Objects[objCyclone] do
begin
ObjID := objCyclone;
Name := 'Cyclone';
UpText := ['Siphon Cyclone', 'clone', 'yclone', 'cyclone'];
Color := 2698292;
Tol := 6;
Hue := 0.51;
Sat := 1.10;
LvlReq := 1;
Min := 80;
Max := 900;
IXP := 19;
end;

with Objects[objMindStorm] do
begin
ObjID := objMindStorm;
Name := 'Mind Storm';
UpText := ['nd sor', 'iphon Min', 'Mind', 'Siphon Mind Storm'];
Color := 1645086;
Tol := 6;
Hue := 0.56;
Sat := 0.84;
LvlReq := 1;
Min := 100;
Max := 800;
IXP := 20;
end;

DebugThis('-[DEBUG]- Objects are setup');
end;

function GetObject(vObj : Integer) : TObj;
begin
Result := Objects[vObj];
end;

function GetObjectByXP(xp : Integer) : TObj;
var
i : Integer;
begin
for i := 0 to High(Objects) do
if(Objects[i].IXP = xp)then
Result := Objects[i];
end;

function GetObjectData(ID : Integer) : TObj;
var
webClient, i : Integer;
postData, objDataStr : string;
objDataStrArray : TStringArray;
tmpObj : TObj;
begin
try
webClient := InitializeHTTPClient(False, False);
postData := 'http://srl.kyleundefined.com/Scripts/KEE/?ObjID=' + IntToStr(ID);
objDataStr := GetHTTPPage(webClient, postData);
DebugThis('-[DEBUG]- Object Data String = ' + objDataStr);
objDataStrArray := Explode('|', objDataStr);

if(objDataStr = '0')then
begin
DebugThis('-[DEBUG]- Failed to grab Object data!');
Exit;
end;

if(Debug)then
for i := 0 to High(objDataStrArray) do
WriteLn('-[DEBUG]- ObjDataStrArray[' + IntToStr(i) + '] = ' + objDataStrArray[i]);

with tmpObj do
begin
ObjID := ID;
Name := objDataStrArray[0];
UpText := [objDataStrArray[1]];
Color := StrToIntDef(objDataStrArray[2], Objects[ID].Color);
Tol := StrToIntDef(objDataStrArray[3], Objects[ID].Tol);
Hue := StrToFloatDef(objDataStrArray[4], Objects[ID].Hue);
Sat := StrToFloatDef(objDataStrArray[5], Objects[ID].Sat);
LvlReq := StrToIntDef(objDataStrArray[6], Objects[ID].LvlReq);
Max := StrToIntDef(objDataStrArray[7], Objects[ID].Max);
Min := StrToIntDef(objDataStrArray[8], Objects[ID].Min);
IXP := StrToIntDef(objDataStrArray[9], Objects[ID].IXP);
end;

Result := tmpObj;
except
DebugThis('-[ERROR]- Failed to grab Object Data! : ' + exceptionToString(exceptionType, exceptionParam));
finally
FreeHTTPClient(webClient);
end;
end;

procedure AddObject(var objArr : TObjectArray; ObjID : Integer);
begin
SetLength(objArr, Length(objArr) + 1);
objArr[High(objArr)] := GetObject(ObjID);
end;

procedure FilterObjects();
var
tmpObjects : TObjectArray;
i : Integer;
begin
if(not(Players[CurrentPlayer].Booleans[0]))then
Exit;

DebugThis('-[DEBUG]- Filtering Objects');
for i := 0 to High(Objects) do
if(InIntArray(Players[CurrentPlayer].Integers, Objects[i].ObjID))then
AddObject(tmpObjects, Objects[i].ObjID);

SetLength(Objects, High(tmpObjects));
Objects := tmpObjects;
DebugThis('-[DEBUG]- Objects are filtered');
end;

procedure SortObjects();
var
tmpObjects : TObjectArray;
TIA : TIntegerArray;
i : Integer;
begin
DebugThis('-[DEBUG]- Sorting Objects');
SetLength(TIA, Length(Objects));

for i := 0 to High(Objects) do
TIA[i] := Objects[i].IXP;

Quicksort(TIA);
InvertTIA(TIA);

SetLength(tmpObjects, Length(Objects));

for i := 0 to High(TIA) do
tmpObjects[i] := GetObjectByXP(TIA[i]);

Objects := tmpObjects;
DebugThis('-[DEBUG]- Objects are sorted');
end;

procedure UpdateObjects();
var
tmpObjects : TObjectArray;
i : Integer;
begin
if(not(AutoUpdate))then Exit;

DebugThis('-[DEBUG]- Updating Objects');

SetLength(tmpObjects, Length(Objects));

for i := 0 to High(Objects) do
tmpObjects[i] := GetObjectData(Objects[i].ObjID);

DebugThis('-[DEBUG]- Objects are updated');
end;

procedure SetFalse(reason : string; logOutPlayer : Boolean);
begin
WriteLn('** SetFalse ** Reason := ' + reason);
Players[CurrentPlayer].Active := False;

if(logOutPlayer)then
Logout;

if(HowManyPlayers = 1)then
TerminateScript();
end;

function CheckForRandoms() : Boolean;
var
i : Integer;
begin
DebugThis('-[DEBUG]- Checking for randoms');

if(Players[CurrentPlayer].Booleans[1])then
begin
for i := 0 to High(SRL_Randoms) do
begin
if (SRL_Randoms[i].detect <> nil) and (SRL_Randoms[i].detect()) then
begin
Result := True;
Break;
end;
end;

if(Result)then
SetFalse('Random Detected', True);
end else
FindNormalRandoms();
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;
CheckForRandoms();
DebugThis('-[DEBUG]- Starting Object search');

fObj := GetObject(vObj);

tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

with fObj do
begin
DebugThis('-[DEBUG]- Searching for Object - ' + Name);
SetColorSpeed2Modifiers(Hue, Sat);

FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, TB.X1, TB.Y1, TB.X2, TB.Y2, Tol);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);

H := High(ATPA);

for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);

DebugThis('-[DEBUG]- Length(ATPA[a]) = ' + ToStr(Length(ATPA[a])));

if((Length(atpa[a]) < Min) or (Length(atpa[a]) > Max))then
Continue;

MMouse(X, Y, 5, 5);

DebugThis('-[DEBUG]- GetUpText = ' + GetUpText);

if(WaitUpTextMulti(UpText, RandomRange(350, 450)))then
begin
ClickMouse2(True);

if(DidRedClick)then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if(Misclick)then
begin
Wait(RandomRange(600, 700));
If IsMoving Then
Begin
Mouse(249, 177, 2, 2, True);
Wait(RandomRange(300, 400));
Repeat
Wait(100);
Until (Not(Ismoving));
FirstIsland := True;
Exit;
End;
end;
Result := True;
Exit;
end else
begin
Higher := True;

if(Misclick)then
begin
Mouse(249, 177, 2, 2, True);
Wait(RandomRange(300, 400));
Repeat
Wait(100);
Until (Not(Ismoving));
FirstIsland := True;
Exit;
end;
end;
end else
if(IsUptextMultiCustom(['esswraith', 'wraith', 'raith', 'Floating ess', 'Float', 'ing ess', 'Floating essence', 'lan vex', 'ead Clan', 'an vexillum', 'Read Clan vexillum']))then
begin
Clickmouse2(False);

if(WaitOptionMulti(UpText, 800))then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

Result := True;
Exit;
end;
end;
end;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;

Function FindObjectPlatform : Boolean;
var
CTS, I, L : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
begin
Result := False;

If (TimeFromMark(TI) < 60000) And (Not FirstIsland) Then
Begin
Result:=True;
Exit;
End;

DebugThis('-[DEBUG]- Searching for Object platform');

If SafeNub Then
Begin
TB := IntToBox(MSX1, MSY1, MSX2, MSY2);
Result := True;
Exit;
End;

CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(IslandHue, IslandSat);
FindColorsTolerance(TPA, IslandColor, MSX1, MSY1, MSX2, MSY2, IslandTol);
ATPA := FloodFillTPA(TPA);
SortATPASize(ATPA, True);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If Debug Then
DebugATPABounds(ATPA);

DebugThis('-[DEBUG]- ATPA = ' + ToStr(ATPA));

If Length(TPA) < 1 then
Exit;

L := High(ATPA);
For I := 0 To L do
Begin
TB:= GetTPABounds(ATPA[I]);
If Not (PointInBox(Point(MSCX, MSCY), TB)) then
begin
if I = L then
begin
DebugThis('-[DEBUG]- at high, point is not inside');
exit;
end else
continue;
end else break;
end;

DebugThis('-[DEBUG]- TB = ' + ToStr(TB));
Result := True;

MarkTime(TI);
FirstIsland:=False;
end;

function FindWizard: Boolean;
var
a, h : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Searching for Wizard');

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;

function FindMayScreen() : Boolean;
var
TPA : TPointArray;
tmpCTS : Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(0.44, 1.62);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1013212, MSX1, MSY1, MSX2, MSY2, 8);

Result := (Length(TPA) > 1500);

if(Result)then
MouseBox(494, 16, 503, 24, mouse_Left);

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;

procedure AntiBan();
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Performing Antiban');

case (Random(1000)) of
0 : RandomRClick;
1 : HoverSkill('random', False);
2 : ExamineInv;
3 : MouseSpeed := (RandomRange(10, 12));
4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
7 .. 100 : Wait(RandomRange(750, 2000));
101: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
end;
end;

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
if(not(Debug))then
ClearDebug();
Stats_Commit;
XP := (GetXPBarTotal - StartXP);
XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
Writeln('======== Kyle''s Esswraith Extractor =========');
WriteLn('Version ' + Version);
Writeln('Time Running: ' + TimeRunning);
Writeln('Experience Earned: ' + IntToStr(XP));
Writeln('Experience/Hour: ' + IntToStr(XPH));
WriteLn('Runecrafting Level: ' + IntToStr(RCLvl));
WriteLn('Floor: ' + IntToStr(Floors));
Writeln('========================================= ====');
MarkTime(TP);
end;

Procedure GetMoreEssence;
var
a, h, t: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Getting more essence');
MarkTime(T);

repeat
if(not(LoggedIn))then Exit;

if(TimeFromMark(t) > 30000)then
SetFalse('Failed to get more essence.', True);

tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(0.60, 0.10);

FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4408645, MSX1, MSY1, MSX2, MSY2, 14);
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('-[DEBUG]- Length(ATPA[a]) = ' + ToStr(Length(ATPA[a])));

if((Length(atpa[a]) < 50) Or (Length(atpa[a]) > 2000))then
Continue;

MMouse(X, Y, 5, 5);

if(WaitUpTextMulti(['Collect', 'llect', 'Float'], 750))then
begin
ClickMouse2(True);

if(DidRedClick)then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
end else
if(not(IsUptextMultiCustom(['Walk', 'lk here', 'here'])))then
begin
Clickmouse2(False);

if(WaitOptionMulti(['Collect', 'llect', 'Float'], 800))then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
until FindDTM(EssenceDTM, X, Y, MIX1, MIY1, MIX2, MIY2);
end;

procedure ScriptSetup();
var
Floor1, Floor2, Floor3, X, Y: Integer;
begin
SetupObjects();
UpdateObjects();
Filterobjects;
SortObjects();

if(FindMayScreen())then
Wait(RandomRange(500, 750));

SetAngle(SRL_ANGLE_HIGH);
StartXP := GetXPBarTotal;
RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
Gametab(tab_Inv);

Higher := False;
SafeNub:= False;
FirstIsland := True;

Floor1 := DTMFromString('mbQAAAHicY2VgYLBjZGBwBWIjILYEYi8g/ggUfw7Er4D4LxD/AOKepcwMZemKDJOrnRkMpLkZ/B11GESA4uiYEQsGAwD8Rgr4');
Floor2 := DTMFromString('mbQAAAHicY2VgYMhlZGAoBeIsIE4G4nIgFg SK8wExFxBLQvHWhUcYdrWdYbjQ/pTBwy+AQZRPkEEEKI6OGbFgMAAAtVQKcQ==');
Floor3 := DTMFromString('mbQAAAHicY2VgYFACYlkg1gZiSShdBMTNQF wFxMVAXALEpz58ZehasASMt508w3Dx7n0GEaA4OmbEgsEAAHWJ DpY=');

If FindDTM(Floor1, X, Y, 9, 99, 52, 146) Then
Floors := 1
Else If FindDTM(Floor2, X, Y, 9, 99, 52, 146) Then
Floors := 2
Else If FindDTM(Floor3, X, Y, 9, 99, 52, 146) Then
Floors := 3
Else
Floors := 0;

If ClickAnywhere Then
Floors := 0;

FreeDTM(Floor1);
FreeDTM(Floor2);
FreeDTM(Floor3);
Case Floors Of
0 : SafeNub := True;
1 : Begin IslandHue := 0.19; IslandSat := 0.71; IslandColor := 3112315; IslandTol := 12; End;
2 : Begin IslandHue := 3.58; IslandSat := 0.43; IslandColor := 8224087; IslandTol := 14; End;
3 : Begin IslandHue := 0.12; IslandSat := 0.73; IslandColor := 9145506; IslandTol := 12; End;
End;
end;

procedure MainLoop();
var
fObj : TObj;
x, y, i, InitialXP, UpdateXP, t: Integer;
Label
Waiting;
begin
repeat
DebugThis('-[DEBUG]- In first repeat loop.');
repeat
DebugThis('-[DEBUG]- In second repeat loop.');
if not loggedin then loginplayer;
CheckForRandoms();

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);

DebugThis('-[DEBUG]- fObj.Name = ' + fObj.Name + '.');
DebugThis('-[DEBUG]- RCLvl = ' + IntToStr(RCLvl) + '.');
DebugThis('-[DEBUG]- fObj.LvlReq = ' + IntToStr(fObj.LvlReq) + '.');

if(RCLvl >= fObj.LvlReq)then
begin
DebugThis('-[DEBUG]- RCLvl > fObj.LvlReq');
if(FindObjectPlatform)then
if(K_FindObj(x, y, i))then
begin
DebugThis('-[DEBUG]- Found platform and Object');
Waiting:

if(TimeFromMark(TP) > 60000)then
Proggy;

Wait(RandomRange(500, 750));
InitialXP := GetXPBarTotal;
CurrentXP := fObj.IXP;

DebugThis('-[DEBUG]- InitialXP = ' + IntToStr(InitialXP));
DebugThis('-[DEBUG]- CurrentXP = ' + IntToStr(CurrentXP));

MarkTime(T);
repeat
DebugThis('-[DEBUG]- In third repeat loop');
Wait(1000);
CheckForRandoms();

if(TimeFromMark(T) > RandomRange(7000, 7200))then
Break;

AntiBan;
DebugThis('-[DEBUG]- Searching for better XP Objects');
for i := 0 to High(Objects) do
begin
fObj := GetObject(i);
CheckForRandoms();

DebugThis('-[DEBUG]- fObj.Name = ' + fObj.Name + '.');
DebugThis('-[DEBUG]- fObj.LvlReq = ' + IntToStr(fObj.LvlReq) + '.');
DebugThis('-[DEBUG]- fObj.IXP = ' + IntToStr(fObj.IXP) + '.');

if(RCLvl >= fObj.LvlReq) And (CurrentXP < fObj.IXP)then
begin
if(FindObjectPlatform)then
if(K_FindObj(x, y, i))then
begin
DebugThis('-[DEBUG]- (RCLvl >= fObj.LvlReq) AND (CurrentXP < fObj.IXP)');
DebugThis('-[DEBUG]- Found higher XP Object, breaking for loop');
Higher := True;
Break;
end;
end;
end;

if(Higher)then
Break;

UpdateXP := GetXPBarTotal;
CheckForRandoms();

DebugThis('-[DEBUG]- UpdateXP = ' + IntToStr(UpdateXP));

if(UpdateXP > InitialXP)then
begin
DebugThis('-[DEBUG]- UpdateXP > InitialXP');
InitialXP := GetXPBarTotal;
T := 0;
MarkTime(T);
CheckForRandoms();
end;
until(False);

if(Higher)then
begin
DebugThis('-[DEBUG]- Higher = True');
Higher := False;
Goto Waiting;
end;
end;
end;
end;

CheckForRandoms();
until(not(LoggedIn));

if(Players[CurrentPlayer].Active)then
SetFalse('Not Logged in', False);

NextPlayer(Players[CurrentPlayer].Active);
ScriptSetup();
MainLoop();
until(AllPlayersInactive);
end;

begin

SetupSRL;
SetupSRLStats(1036, SRLStats_Username, SRLStats_Password);
ClearDebug();

{* 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);

_SetRandoms();
ScriptSetup();

if(not(WaitFindDTMEX(EssenceDTM, EX, EY, MIX1, MIY1, MIX2, MIY2, 100, 2000)))then
GetMoreEssence;

MainLoop;
end.

Mylo
08-22-2012, 06:33 PM
This is most likely a simple one for most: Version 1.8

How do I get around this one please?

Unknown identifier 'DebugATPABounds' at line 882


Active := True; // Use in the Script. True / False.
Booleans[0] := True; // Set to False if you want to search for all Objects
Booleans[1] := False; // Logout if a random is found

// This is for searching for specific Objects, add / remove as needed. Order doesn't matter
Integers := [objWaterEssling, objVine, objAirEss, objWaterPool,
objFireStorm, objEarthEss, objRockFrag, objFireball,
objMindEssling, objCyclone, objMindStorm];
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
DebugThis('-[DEBUG]- Setup Objects');
SetLength(Objects, 30);

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

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

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

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

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

with Objects[objBloodPool] do
begin
ObjID := objBloodPool;
Name := 'Blood Pool';
UpText := ['Siphon Blood Pool', 'on blo', 'blood', 'od poo'];
Color := 1252488;
Tol := 10;
Hue := 0.02;
Sat := 1.70;
LvlReq := 77;
Min := 80;
Max := 250;
IXP := 146;
end;

with Objects[objNebula] do
begin
ObjID := objNebula;
Name := 'Nebula';
UpText := ['Siphon Nebula', 'on Neb', 'Nebula', 'bula'];
Color := 8988293;
Tol := 6;
Hue := 1.15;
Sat := 3.71;
LvlReq := 40;
Min := 55;
Max := 1000;
IXP := 85;
end;

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

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

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

with Objects[objShifter] do
begin
ObjID := objShifter;
Name := 'Shifter';
UpText := ['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'];
Color := 1830421;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 54;
Max := 900;
Min := 400;
IXP := 87;
end;

with Objects[objWaterEssling] do
begin
ObjID := objWaterEssling;
Name := 'Water Essling';
UpText := ['Water Essling', 'ater', 'er essl', 'ssling'];
Color := 12085388;
Tol := 17;
Hue := 1.29;
Sat := 0.99; //messed up for now
LvlReq := 5;
Max := 0;
Min := 0;
IXP := 13;
end;

with Objects[objVine] do
begin
ObjID := objVine;
Name := 'Vine';
UpText := ['Siphon Vine', 'phon V', 'hon v'];
Color := 534306;
Tol := 8;
Hue := 0.62;
Sat := 3.69;
LvlReq := 17;
Max := 900;
Min := 150;
IXP := 36;
end;

with Objects[objCCloud] do
begin
ObjID := objCCloud;
Name := 'Chaotic Cloud';
UpText := ['Siphon Chaotic', 'on Chaotic', 'Chaotic', 'haotic Cloud'];
Color := 2167590;
Tol := 4;
Hue := 2.03;
Sat := 2.57;
LvlReq := 35;
Min := 20;
Max := 1000;
IXP := 62;
end;

with Objects[objCosmicHound] do
begin
ObjID := objCosmicHound;
Name := 'Cosmic Esshound';
UpText := ['osmic', 'osmic essh', 'Cosmic', 'Siphon Cosmic', 'ic esshound', 'Siphon Cosmic esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 27;
Min := 250;
Max := 700;
IXP := 27;
end;

with Objects[objChaosHound] do
begin
ObjID := objChaosHound;
Name := 'Chaos Esshound';
UpText := ['haos', 'haos essh', 'Chaos', 'Siphon Chaos', 'os esshound', 'Siphon Chaos esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 35;
Min := 250;
Max := 700;
IXP := 31;
end;

with Objects[objAstralHound] do
begin
ObjID := objAstralHound;
Name := 'Astral Esshound';
UpText := ['stral', 'stral ess', 'Astral', 'Siphon Astral', 'ral esshound', 'Siphon Astral esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 40;
Min := 250;
Max := 700;
IXP := 36;
end;

with Objects[objNatureHound] do
begin
ObjID := objNatureHound;
Name := 'Nature Esshound';
UpText := ['ature', 'ature ess', 'Nature', 'Siphon Nature', 'ture esshound', 'Siphon Nature esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 44;
Min := 250;
Max := 700;
IXP := 44;
end;

with Objects[objLawHound] do
begin
ObjID := objLawHound;
Name := 'Law esshound';
UpText := ['Siphon Law', 'on Law', 'Law', 'aw ess', 'aw esshound', 'Siphon Law esshound'];
Color := 14448236;
Tol := 24;
Hue := 0.06;
Sat := 1.43;
LvlReq := 54;
Min := 250;
Max := 700;
IXP := 54;
end;

with Objects[objBodyHound] do
begin
ObjID := objBodyHound;
Name := 'Body esshound';
UpText := ['Siphon Body', 'on Bod', 'Body', 'ody ess', 'ody esshound', 'Siphon Body esshound'];
Color := 14584962;
Tol := 19;
Hue := 0.10;
Sat := 2.02;
LvlReq := 20;
Min := 250;
Max := 700;
IXP := 24;
end;

with Objects[objAirEss] do
begin
ObjID := objAirEss;
Name := 'Air essling';
UpText := ['ir ess', 'iphon Air', 'Siphon Air essling'];
Color := 13934680;
Tol := 21;
Hue := 0.07;
Sat := 1.98;
LvlReq := 1;
Max := 600;
Min := 50;
IXP := 10;
end;

with Objects[objWaterPool] do
begin
ObjID := objWaterPool;
Name := 'Water Pool';
UpText := ['ter poo', 'iphon Wat', 'Siphon Water pool', 'ater pool'];
Color := 15187588;
Tol := 20;
Hue := 0.05;
Sat := 2.04;
LvlReq := 5;
Max := 900;
Min := 50;
IXP := 25;
end;

with Objects[objFleshyGrowth] do
begin
ObjID := objFleshyGrowth;
Name := 'Fleshy Growth';
UpText := ['eshy', 'on Fle', 'rowth', 'shy gro'];
Color := 4082573;
Tol := 11;
Hue := 0.07;
Sat := 0.49;
LvlReq := 20;
Max := 5000;
Min := 900;
IXP := 47;
end;

with Objects[objFireStorm] do
begin
ObjID := objFireStorm;
Name := 'Fire Storm';
UpText := ['ire sto', 'iphon Fir', 'Siphon Fire storm', 'sto'];
Color := 1780091;
Tol := 18;
Hue := 0.09;
Sat := 1.29;
LvlReq := 27;
Max := 700;
Min := 200;
IXP := 42;
end;

with Objects[objEarthEss] do
begin
ObjID := objEarthEss;
Name := 'Earth essling';
UpText := ['rth ess', 'iphon Ear', 'Siphon Earth essling', 'arth essl'];
Color := 4744582;
Tol := 15;
Hue := 0.04;
Sat := 0.32;
LvlReq := 1;
Max := 250;
Min := 50;
IXP := 15;
end;

with Objects[objRockFrag] do
begin
ObjID := objRockFrag;
Name := 'Rock Fragment';
UpText := ['Siphon Rock', 'on Roc', 'Rock', 'Fragment'];
Color := 3434345;
Tol := 13;
Hue := 0.41;
Sat := 0.46;
LvlReq := 9;
Min := 150;
Max := 900;
IXP := 29;
end;

with Objects[objFireball] do
begin
ObjID := objFireball;
Name := 'Fireball';
UpText := ['Siphon Fireball', 'on Fire', 'reball', 'fireball'];
Color := 2055350;
Tol := 14;
Hue := 0.41;
Sat := 1.20;
LvlReq := 14;
Min := 120;
Max := 900;
IXP := 35;
end;

with Objects[objMindEssling] do
begin
ObjID := objMindEssling;
Name := 'Mind Essling';
UpText := ['Mind Essling', 'ind', 'nd essl', 'ssling'];
Color := 7905200;
Tol := 17;
Hue := 0.21;
Sat := 0.40;
LvlReq := 1;
Max := 150;
Min := 2;
IXP := 12;
end;

with Objects[objCyclone] do
begin
ObjID := objCyclone;
Name := 'Cyclone';
UpText := ['Siphon Cyclone', 'clone', 'yclone', 'cyclone'];
Color := 2698292;
Tol := 6;
Hue := 0.51;
Sat := 1.10;
LvlReq := 1;
Min := 80;
Max := 900;
IXP := 19;
end;

with Objects[objMindStorm] do
begin
ObjID := objMindStorm;
Name := 'Mind Storm';
UpText := ['nd sor', 'iphon Min', 'Mind', 'Siphon Mind Storm'];
Color := 1645086;
Tol := 6;
Hue := 0.56;
Sat := 0.84;
LvlReq := 1;
Min := 100;
Max := 800;
IXP := 20;
end;

DebugThis('-[DEBUG]- Objects are setup');
end;

function GetObject(vObj : Integer) : TObj;
begin
Result := Objects[vObj];
end;

function GetObjectByXP(xp : Integer) : TObj;
var
i : Integer;
begin
for i := 0 to High(Objects) do
if(Objects[i].IXP = xp)then
Result := Objects[i];
end;

function GetObjectData(ID : Integer) : TObj;
var
webClient, i : Integer;
postData, objDataStr : string;
objDataStrArray : TStringArray;
tmpObj : TObj;
begin
try
webClient := InitializeHTTPClient(False, False);
postData := 'http://srl.kyleundefined.com/Scripts/KEE/?ObjID=' + IntToStr(ID);
objDataStr := GetHTTPPage(webClient, postData);
DebugThis('-[DEBUG]- Object Data String = ' + objDataStr);
objDataStrArray := Explode('|', objDataStr);

if(objDataStr = '0')then
begin
DebugThis('-[DEBUG]- Failed to grab Object data!');
Exit;
end;

if(Debug)then
for i := 0 to High(objDataStrArray) do
WriteLn('-[DEBUG]- ObjDataStrArray[' + IntToStr(i) + '] = ' + objDataStrArray[i]);

with tmpObj do
begin
ObjID := ID;
Name := objDataStrArray[0];
UpText := [objDataStrArray[1]];
Color := StrToIntDef(objDataStrArray[2], Objects[ID].Color);
Tol := StrToIntDef(objDataStrArray[3], Objects[ID].Tol);
Hue := StrToFloatDef(objDataStrArray[4], Objects[ID].Hue);
Sat := StrToFloatDef(objDataStrArray[5], Objects[ID].Sat);
LvlReq := StrToIntDef(objDataStrArray[6], Objects[ID].LvlReq);
Max := StrToIntDef(objDataStrArray[7], Objects[ID].Max);
Min := StrToIntDef(objDataStrArray[8], Objects[ID].Min);
IXP := StrToIntDef(objDataStrArray[9], Objects[ID].IXP);
end;

Result := tmpObj;
except
DebugThis('-[ERROR]- Failed to grab Object Data! : ' + exceptionToString(exceptionType, exceptionParam));
finally
FreeHTTPClient(webClient);
end;
end;

procedure AddObject(var objArr : TObjectArray; ObjID : Integer);
begin
SetLength(objArr, Length(objArr) + 1);
objArr[High(objArr)] := GetObject(ObjID);
end;

procedure FilterObjects();
var
tmpObjects : TObjectArray;
i : Integer;
begin
if(not(Players[CurrentPlayer].Booleans[0]))then
Exit;

DebugThis('-[DEBUG]- Filtering Objects');
for i := 0 to High(Objects) do
if(InIntArray(Players[CurrentPlayer].Integers, Objects[i].ObjID))then
AddObject(tmpObjects, Objects[i].ObjID);

SetLength(Objects, High(tmpObjects));
Objects := tmpObjects;
DebugThis('-[DEBUG]- Objects are filtered');
end;

procedure SortObjects();
var
tmpObjects : TObjectArray;
TIA : TIntegerArray;
i : Integer;
begin
DebugThis('-[DEBUG]- Sorting Objects');
SetLength(TIA, Length(Objects));

for i := 0 to High(Objects) do
TIA[i] := Objects[i].IXP;

Quicksort(TIA);
InvertTIA(TIA);

SetLength(tmpObjects, Length(Objects));

for i := 0 to High(TIA) do
tmpObjects[i] := GetObjectByXP(TIA[i]);

Objects := tmpObjects;
DebugThis('-[DEBUG]- Objects are sorted');
end;

procedure UpdateObjects();
var
tmpObjects : TObjectArray;
i : Integer;
begin
if(not(AutoUpdate))then Exit;

DebugThis('-[DEBUG]- Updating Objects');

SetLength(tmpObjects, Length(Objects));

for i := 0 to High(Objects) do
tmpObjects[i] := GetObjectData(Objects[i].ObjID);

DebugThis('-[DEBUG]- Objects are updated');
end;

procedure SetFalse(reason : string; logOutPlayer : Boolean);
begin
WriteLn('** SetFalse ** Reason := ' + reason);
Players[CurrentPlayer].Active := False;

if(logOutPlayer)then
Logout;

if(HowManyPlayers = 1)then
TerminateScript();
end;

function CheckForRandoms() : Boolean;
var
i : Integer;
begin
DebugThis('-[DEBUG]- Checking for randoms');

if(Players[CurrentPlayer].Booleans[1])then
begin
for i := 0 to High(SRL_Randoms) do
begin
if (SRL_Randoms[i].detect <> nil) and (SRL_Randoms[i].detect()) then
begin
Result := True;
Break;
end;
end;

if(Result)then
SetFalse('Random Detected', True);
end else
FindNormalRandoms();
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;
CheckForRandoms();
DebugThis('-[DEBUG]- Starting Object search');

fObj := GetObject(vObj);

tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

with fObj do
begin
DebugThis('-[DEBUG]- Searching for Object - ' + Name);
SetColorSpeed2Modifiers(Hue, Sat);

FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, TB.X1, TB.Y1, TB.X2, TB.Y2, Tol);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);

H := High(ATPA);

for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);

DebugThis('-[DEBUG]- Length(ATPA[a]) = ' + ToStr(Length(ATPA[a])));

if((Length(atpa[a]) < Min) or (Length(atpa[a]) > Max))then
Continue;

MMouse(X, Y, 5, 5);

DebugThis('-[DEBUG]- GetUpText = ' + GetUpText);

if(WaitUpTextMulti(UpText, RandomRange(350, 450)))then
begin
ClickMouse2(True);

if(DidRedClick)then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if(Misclick)then
begin
Wait(RandomRange(600, 700));
If IsMoving Then
Begin
Mouse(249, 177, 2, 2, True);
Wait(RandomRange(300, 400));
Repeat
Wait(100);
Until (Not(Ismoving));
FirstIsland := True;
Exit;
End;
end;
Result := True;
Exit;
end else
begin
Higher := True;

if(Misclick)then
begin
Mouse(249, 177, 2, 2, True);
Wait(RandomRange(300, 400));
Repeat
Wait(100);
Until (Not(Ismoving));
FirstIsland := True;
Exit;
end;
end;
end else
if(IsUptextMultiCustom(['esswraith', 'wraith', 'raith', 'Floating ess', 'Float', 'ing ess', 'Floating essence', 'lan vex', 'ead Clan', 'an vexillum', 'Read Clan vexillum']))then
begin
Clickmouse2(False);

if(WaitOptionMulti(UpText, 800))then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

Result := True;
Exit;
end;
end;
end;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;

Function FindObjectPlatform : Boolean;
var
CTS, I, L : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
begin
Result := False;

If (TimeFromMark(TI) < 60000) And (Not FirstIsland) Then
Begin
Result:=True;
Exit;
End;

DebugThis('-[DEBUG]- Searching for Object platform');

If SafeNub Then
Begin
TB := IntToBox(MSX1, MSY1, MSX2, MSY2);
Result := True;
Exit;
End;

CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(IslandHue, IslandSat);
FindColorsTolerance(TPA, IslandColor, MSX1, MSY1, MSX2, MSY2, IslandTol);
ATPA := FloodFillTPA(TPA);
SortATPASize(ATPA, True);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If Debug Then
DebugATPABounds(ATPA);

DebugThis('-[DEBUG]- ATPA = ' + ToStr(ATPA));

If Length(TPA) < 1 then
Exit;

L := High(ATPA);
For I := 0 To L do
Begin
TB:= GetTPABounds(ATPA[I]);
If Not (PointInBox(Point(MSCX, MSCY), TB)) then
begin
if I = L then
begin
DebugThis('-[DEBUG]- at high, point is not inside');
exit;
end else
continue;
end else break;
end;

DebugThis('-[DEBUG]- TB = ' + ToStr(TB));
Result := True;

MarkTime(TI);
FirstIsland:=False;
end;

function FindWizard: Boolean;
var
a, h : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Searching for Wizard');

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;

function FindMayScreen() : Boolean;
var
TPA : TPointArray;
tmpCTS : Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(0.44, 1.62);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1013212, MSX1, MSY1, MSX2, MSY2, 8);

Result := (Length(TPA) > 1500);

if(Result)then
MouseBox(494, 16, 503, 24, mouse_Left);

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;

procedure AntiBan();
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Performing Antiban');

case (Random(1000)) of
0 : RandomRClick;
1 : HoverSkill('random', False);
2 : ExamineInv;
3 : MouseSpeed := (RandomRange(10, 12));
4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
7 .. 100 : Wait(RandomRange(750, 2000));
101: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
end;
end;

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
if(not(Debug))then
ClearDebug();
Stats_Commit;
XP := (GetXPBarTotal - StartXP);
XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
Writeln('======== Kyle''s Esswraith Extractor =========');
WriteLn('Version ' + Version);
Writeln('Time Running: ' + TimeRunning);
Writeln('Experience Earned: ' + IntToStr(XP));
Writeln('Experience/Hour: ' + IntToStr(XPH));
WriteLn('Runecrafting Level: ' + IntToStr(RCLvl));
WriteLn('Floor: ' + IntToStr(Floors));
Writeln('========================================= ====');
MarkTime(TP);
end;

Procedure GetMoreEssence;
var
a, h, t: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
CheckForRandoms();
DebugThis('-[DEBUG]- Getting more essence');
MarkTime(T);

repeat
if(not(LoggedIn))then Exit;

if(TimeFromMark(t) > 30000)then
SetFalse('Failed to get more essence.', True);

tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);

SetColorSpeed2Modifiers(0.60, 0.10);

FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4408645, MSX1, MSY1, MSX2, MSY2, 14);
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('-[DEBUG]- Length(ATPA[a]) = ' + ToStr(Length(ATPA[a])));

if((Length(atpa[a]) < 50) Or (Length(atpa[a]) > 2000))then
Continue;

MMouse(X, Y, 5, 5);

if(WaitUpTextMulti(['Collect', 'llect', 'Float'], 750))then
begin
ClickMouse2(True);

if(DidRedClick)then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
end else
if(not(IsUptextMultiCustom(['Walk', 'lk here', 'here'])))then
begin
Clickmouse2(False);

if(WaitOptionMulti(['Collect', 'llect', 'Float'], 800))then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
until FindDTM(EssenceDTM, X, Y, MIX1, MIY1, MIX2, MIY2);
end;

procedure ScriptSetup();
var
Floor1, Floor2, Floor3, X, Y: Integer;
begin
SetupObjects();
UpdateObjects();
Filterobjects;
SortObjects();

if(FindMayScreen())then
Wait(RandomRange(500, 750));

SetAngle(SRL_ANGLE_HIGH);
StartXP := GetXPBarTotal;
RCLvl := GetSkillLevel(SKILL_RUNECRAFTING);
Gametab(tab_Inv);

Higher := False;
SafeNub:= False;
FirstIsland := True;

Floor1 := DTMFromString('mbQAAAHicY2VgYLBjZGBwBWIjILYEYi8g/ggUfw7Er4D4LxD/AOKepcwMZemKDJOrnRkMpLkZ/B11GESA4uiYEQsGAwD8Rgr4');
Floor2 := DTMFromString('mbQAAAHicY2VgYMhlZGAoBeIsIE4G4nIgFg SK8wExFxBLQvHWhUcYdrWdYbjQ/pTBwy+AQZRPkEEEKI6OGbFgMAAAtVQKcQ==');
Floor3 := DTMFromString('mbQAAAHicY2VgYFACYlkg1gZiSShdBMTNQF wFxMVAXALEpz58ZehasASMt508w3Dx7n0GEaA4OmbEgsEAAHWJ DpY=');

If FindDTM(Floor1, X, Y, 9, 99, 52, 146) Then
Floors := 1
Else If FindDTM(Floor2, X, Y, 9, 99, 52, 146) Then
Floors := 2
Else If FindDTM(Floor3, X, Y, 9, 99, 52, 146) Then
Floors := 3
Else
Floors := 0;

If ClickAnywhere Then
Floors := 0;

FreeDTM(Floor1);
FreeDTM(Floor2);
FreeDTM(Floor3);
Case Floors Of
0 : SafeNub := True;
1 : Begin IslandHue := 0.19; IslandSat := 0.71; IslandColor := 3112315; IslandTol := 12; End;
2 : Begin IslandHue := 3.58; IslandSat := 0.43; IslandColor := 8224087; IslandTol := 14; End;
3 : Begin IslandHue := 0.12; IslandSat := 0.73; IslandColor := 9145506; IslandTol := 12; End;
End;
end;

procedure MainLoop();
var
fObj : TObj;
x, y, i, InitialXP, UpdateXP, t: Integer;
Label
Waiting;
begin
repeat
DebugThis('-[DEBUG]- In first repeat loop.');
repeat
DebugThis('-[DEBUG]- In second repeat loop.');
if not loggedin then loginplayer;
CheckForRandoms();

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);

DebugThis('-[DEBUG]- fObj.Name = ' + fObj.Name + '.');
DebugThis('-[DEBUG]- RCLvl = ' + IntToStr(RCLvl) + '.');
DebugThis('-[DEBUG]- fObj.LvlReq = ' + IntToStr(fObj.LvlReq) + '.');

if(RCLvl >= fObj.LvlReq)then
begin
DebugThis('-[DEBUG]- RCLvl > fObj.LvlReq');
if(FindObjectPlatform)then
if(K_FindObj(x, y, i))then
begin
DebugThis('-[DEBUG]- Found platform and Object');
Waiting:

if(TimeFromMark(TP) > 60000)then
Proggy;

Wait(RandomRange(500, 750));
InitialXP := GetXPBarTotal;
CurrentXP := fObj.IXP;

DebugThis('-[DEBUG]- InitialXP = ' + IntToStr(InitialXP));
DebugThis('-[DEBUG]- CurrentXP = ' + IntToStr(CurrentXP));

MarkTime(T);
repeat
DebugThis('-[DEBUG]- In third repeat loop');
Wait(1000);
CheckForRandoms();

if(TimeFromMark(T) > RandomRange(7000, 7200))then
Break;

AntiBan;
DebugThis('-[DEBUG]- Searching for better XP Objects');
for i := 0 to High(Objects) do
begin
fObj := GetObject(i);
CheckForRandoms();

DebugThis('-[DEBUG]- fObj.Name = ' + fObj.Name + '.');
DebugThis('-[DEBUG]- fObj.LvlReq = ' + IntToStr(fObj.LvlReq) + '.');
DebugThis('-[DEBUG]- fObj.IXP = ' + IntToStr(fObj.IXP) + '.');

if(RCLvl >= fObj.LvlReq) And (CurrentXP < fObj.IXP)then
begin
if(FindObjectPlatform)then
if(K_FindObj(x, y, i))then
begin
DebugThis('-[DEBUG]- (RCLvl >= fObj.LvlReq) AND (CurrentXP < fObj.IXP)');
DebugThis('-[DEBUG]- Found higher XP Object, breaking for loop');
Higher := True;
Break;
end;
end;
end;

if(Higher)then
Break;

UpdateXP := GetXPBarTotal;
CheckForRandoms();

DebugThis('-[DEBUG]- UpdateXP = ' + IntToStr(UpdateXP));

if(UpdateXP > InitialXP)then
begin
DebugThis('-[DEBUG]- UpdateXP > InitialXP');
InitialXP := GetXPBarTotal;
T := 0;
MarkTime(T);
CheckForRandoms();
end;
until(False);

if(Higher)then
begin
DebugThis('-[DEBUG]- Higher = True');
Higher := False;
Goto Waiting;
end;
end;
end;
end;

CheckForRandoms();
until(not(LoggedIn));

if(Players[CurrentPlayer].Active)then
SetFalse('Not Logged in', False);

NextPlayer(Players[CurrentPlayer].Active);
ScriptSetup();
MainLoop();
until(AllPlayersInactive);
end;

begin

SetupSRL;
SetupSRLStats(1036, SRLStats_Username, SRLStats_Password);
ClearDebug();

{* 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);

_SetRandoms();
ScriptSetup();

if(not(WaitFindDTMEX(EssenceDTM, EX, EY, MIX1, MIY1, MIX2, MIY2, 100, 2000)))then
GetMoreEssence;

MainLoop;
end.

I assume i need to set this as a global variable. Unsure what it would need to be set at.

I apologize if this seems ridiculously easy to some but this is my first time looking at pascal for a long time.

Thanks

Solar
08-24-2012, 07:14 PM
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 3 Hours, 27 Minutes and 49 Seconds
Experience Earned: 233835
Experience/Hour: 64800
Runecrafting Level: 91
Floor: 3
=============================================
** SetFalse ** Reason := Failed to get more essence.
Successfully executed.
Running better on a smaller island so NPC's are more crowded.

Assassin x42
08-26-2012, 08:02 PM
Should put me down for a 99 ;D

rodrigomafia
08-27-2012, 09:05 PM
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\randomtool.simba(215:3): Variable 'T' never used at line 214
[Error] C:\Users\Careca\Desktop\KylesEsswraithExtractorV1. 8.simba(1318:3): Unknown identifier 'Smart_Server' at line 1317
Compiling failed.

any idea of what i can do to fix this?

rodrigomafia
08-27-2012, 09:46 PM
when i try to use it
it says that i dont have an account at RSL and asks if i want to register it
i press yess and put the informations, then it says ERROR and says that it's already registered
any idea?

minimarley0
08-28-2012, 06:09 AM
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\randomtool.simba(215:3): Variable 'T' never used at line 214
[Error] C:\Users\Careca\Desktop\KylesEsswraithExtractorV1. 8.simba(1318:3): Unknown identifier 'Smart_Server' at line 1317
Compiling failed.

any idea of what i can do to fix this?

i keep having this problem too!!!

Solar
08-28-2012, 07:17 PM
After the Runespan nerf update;
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 1 Hours, 27 Minutes and 29 Seconds
Experience Earned: 88099
Experience/Hour: 57600
Runecrafting Level: 93
Floor: 3
=============================================

krushsawa
08-28-2012, 07:49 PM
After the Runespan nerf update;
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 1 Hours, 27 Minutes and 29 Seconds
Experience Earned: 88099
Experience/Hour: 57600
Runecrafting Level: 93
Floor: 3
=============================================

Not as nerfed as I originally thought =P
Nothing to worry about then

Solar
08-28-2012, 07:59 PM
Yeah it's not as bad as I first thought either. I was a bit worried after the first 15 mins when the xp/hr rate was about 20k.

Valeyard
08-30-2012, 05:48 AM
Great proggy, I hope that wasn't just flukey though :p . Glad to see this is still up and running. What island do you guys go on, per the wiki map?

Solar
08-30-2012, 08:04 AM
It wasn't just a fluke, I've been getting 58-68k xp/hr consistantly.
I'm on island 32.

satkan
08-30-2012, 10:47 AM
It's now 1/3 slower then before i guess?

Solar
08-30-2012, 10:48 AM
Not really made much difference for me. If anything I seem to be getting more, which is a bit weird.

rockskater89
08-30-2012, 06:56 PM
I just want to bot air runes on f2p, but i have no idea what I'm doing. I can't even get the scrip to start :/

Valeyard
08-30-2012, 07:16 PM
Big confusion, moving post content.

Valeyard
08-30-2012, 07:25 PM
Wrong thread.

Solar
08-30-2012, 07:31 PM
Try reducing how many objects to look for, it tells you how to in the script. I think by default it might be set to search for all objects.

Valeyard
08-30-2012, 07:52 PM
Try reducing how many objects to look for, it tells you how to in the script. I think by default it might be set to search for all objects.

Thanks Solar,

I removed over half of the nodes/wraiths and it doesn't seem to have made much difference. I think the problem now is, when the wraith dies, it starts spitting out "not guaranteed" into the console maybe 7 or 8 times and then it starts clicking. I am having a look to see why it keeps doing this but I am not sure yet

E, Just saw it fail to switch to a living soul while doing a soul esswraith. Esswraith died and it picked another one, rather than the soul. My search order isn't messed up so I have no idea why it did that.

I just seen it work correctly now in the same situation, seems strange

Solar
08-30-2012, 08:11 PM
"not guaranteed"? Isn't that in zmon's Preemptible RuneSpan?

Valeyard
08-30-2012, 08:44 PM
Oh dear this is Kyles, I have so many tabs open I can't see their names anymore. In that case I will brb while I edit some posts.

[F]aceless
08-31-2012, 01:08 AM
it logs in but after that doesnt do anything. someone have a fix or something?

Solar
08-31-2012, 08:18 AM
aceless;1093009']it logs in but after that doesnt do anything. someone have a fix or something?

It takes a few seconds to set everything up, but as long as you start in a suitable position it should work.

[F]aceless
08-31-2012, 10:41 AM
Nice script :)

Andres
08-31-2012, 03:24 PM
The script is working very well. The xp per hour is obviously lower after the nerf, but I'm not complaining. Especially since I have less than 1m xp to 99 ;)

======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 2 Hours, 26 Seconds
Experience Earned: 127417
Experience/Hour: 61200
Runecrafting Level: 98
Floor: 3
=============================================

[F]aceless
08-31-2012, 11:39 PM
Proggy:

======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 4 Hours, 28 Minutes and 53 Seconds
Experience Earned: 174134
Experience/Hour: 36000
Runecrafting Level: 79
Floor: 3
=============================================

I think 36k is a bit low. im doing blood wraiths in a small island

vladko78
09-01-2012, 12:09 AM
thanks for 99 rc man

Ashaman88
09-01-2012, 12:39 AM
Still blows my mind that this script was created the same day runespan came out and perfected in like a week? Good times

Solar
09-01-2012, 10:08 AM
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 1 Hours, 13 Minutes and 46 Seconds
Experience Earned: 100615
Experience/Hour: 79200
Runecrafting Level: 96
Floor: 3
=============================================

Still going, just thought it was a sweet proggy.

Edit: You can put me on the 99 list BTW. :)
Thank you!

iamorange12
09-11-2012, 05:09 PM
I have made a Temporary fix that you can copy and paste into Simba.

Found Here: http://pastebin.com/raw.php?i=8JXKbQ1U

I have simply corrected the script using the steps found here: http://villavu.com/forum/showthread.php?t=84334.

I in no way am affiliated with the scripts creator, nor do I have any rights to this script.

Enjoy,
Orange

Scuttler
09-13-2012, 01:36 PM
Prioritizing all nodes, body and above, gets 80k xp/hour at 98.
Undead souls are very slow until 97, until then don't bother (unless for points).
Thanks for 99.

Sean
09-15-2012, 11:51 PM
I have made a Temporary fix that you can copy and paste into Simba.

Found Here: http://pastebin.com/raw.php?i=8JXKbQ1U

I have simply corrected the script using the steps found here: http://villavu.com/forum/showthread.php?t=84334.

I in no way am affiliated with the scripts creator, nor do I have any rights to this script.

Enjoy,
Orange


I found it useful to add this line
SmartPairClient(4440);

Right with
SRL_SixHourFix := True;
Smart_FixSpeed := True;


Well, Thats how it starts with smart for me.. It wouldnt before

digitalninja
09-19-2012, 02:35 AM
Can anyone give me a hand? I am trying to run the script but get the following error: Exception in Script: Operator expected at line 164, column 7 in file "C:\Simba\Includes\SRL\SRL\Misc\Debug.Simba"

I have tried poking around in the script and the debug file but am not really sure what the problem is!?

Thanks!

Kburg711
09-19-2012, 02:48 AM
I'm also having a problem I don't know how to deal with, hoping to get a quicker answer if I post here since It was with this script I noticed it, I get error:
Unknown identifier 'Smart_Server' at line 1318
When I try and run the script, anyone know whats up?

digitalninja
09-19-2012, 03:33 AM
Or perhaps if anyone can just share their debug file I can replace mine? This seems to be whats triggering the error:


begin
FastSetPixel(ClientBMP, B.x1, y, selColor)
FastSetPixel(ClientBMP, B.x2, y, selColor)

digitalninja
09-19-2012, 04:27 AM
Well ... I uninstalled simba and reinstalled it but now for some reason I am running SMART 7.2 and getting the same error as Kburg711. I reviewed all the threads and it seems the fix is to update the beginning of the script with {$DEFINE SMART} but thats already there. And updating SMART isnt easy either ... good times! :)

Leonardo Da Vinci
09-19-2012, 06:35 AM
I'm a little confused on how I actually use the script...
I've only ever done RuneSpan once, and that was only for a little while... But I get the gist of it.

In order to use the script, what do I do? I don't mean script-wise, but as in... Where do I stand?

Solar
09-19-2012, 09:26 AM
You just start the script where you want to train, after you have entered the objects you want to train on in the script, or use the boolean line to train on all objects (that you have the level to train).
For the errors, try having a look here: http://villavu.com/forum/showthread.php?t=88578

Ashaman88
09-19-2012, 09:26 AM
I'm a little confused on how I actually use the script...
I've only ever done RuneSpan once, and that was only for a little while... But I get the gist of it.

In order to use the script, what do I do? I don't mean script-wise, but as in... Where do I stand?

Well it depends on what level you are. I'm sure the wiki has some general guides on which island to stand on for your level. Then just go to that island, setup the objects, and hit run!

eugenetang
09-20-2012, 05:09 PM
Damn script ran so well till i got this
[Error] D:\Simba2\Includes\SRL/SRL/misc/SmartParams.Simba(278:134): Invalid number of parameters at line 277
Compiling failed.

its ok now fixed.

Ashaman88
09-20-2012, 05:13 PM
Damn script ran so well till i got this
[Error] D:\Simba2\Includes\SRL/SRL/misc/SmartParams.Simba(278:134): Invalid number of parameters at line 277
Compiling failed.

Are you using smart 8.0?

if so replace line 287 with

Result:= SmartSpawnClient(ReplaceWrap(PluginPath, '\', '/', [rfReplaceAll]), Params[0], ',' + Params[1], 765, 553, 's', '', '');

[F]aceless
09-21-2012, 04:31 PM
Are you using smart 8.0?

if so replace line 287 with

Result:= SmartSpawnClient(ReplaceWrap(PluginPath, '\', '/', [rfReplaceAll]), Params[0], ',' + Params[1], 765, 553, 's', '', '');

I got the same. dunno why

Solar
09-21-2012, 04:59 PM
aceless;1102802']I got the same. dunno why

Search the forums, there are already many threads and posts on unrelated threads about this error.

markashman93
09-25-2012, 12:21 PM
:thumbsup:

I am new to the SLR community and I'm very impressed with the quality and quantity of Scripts being made for Simba. I previously had no idea what a script was, and after spending some time reading up on some instructions and especially on this particular instructional script. I've had the auto script running perfectly. No bugs after all script has been amended and altered to work the way I wanted it to. I still have a lot to learn, and dare not implement extra's into the script in case it flops and I am back to square one. But hey ho. Thanks :D

Naturiown
09-30-2012, 01:01 AM
[Error] C:\Simba\Scripts\KylesEsswraithExtractorV1.8.simba (1319:3): Unknown identifier 'Smart_Server' at line 1318
Compiling failed.

i didn't change anything..... :/ help plz? :D

whisper133
10-01-2012, 05:19 AM
I'm also having a problem I don't know how to deal with, hoping to get a quicker answer if I post here since It was with this script I noticed it, I get error:
Unknown identifier 'Smart_Server' at line 1318
When I try and run the script, anyone know whats up?

Just erase that part and it will run fine

Naturiown
10-01-2012, 10:05 PM
Just erase that part and it will run fine

lol i tried that and it doesn't work.....

x0xh3llx0x
10-02-2012, 03:21 PM
lol i tried that and it doesn't work.....

Yes it does..???

Naturiown
10-02-2012, 09:11 PM
Yes it does..???

then how come it doesn't work for me D:

Naturiown
10-02-2012, 09:14 PM
Yes it does..???

yo dude i erased
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
that and it works..... lol
maybe i misunderstood his original meaning Dx

:spot::spot::spot:
:f::f::f::f::f::f::f::f::f::f:

Ivo09
10-07-2012, 10:59 AM
You're meant to replace it with:

smart_FixSpeed := TRUE
srl_SixHourFix := TRUE

@Naturiown.

Solar
10-07-2012, 03:44 PM
Might just put this in my signature, but check out this thread, and actually read the first post. http://villavu.com/forum/showthread.php?t=88578

conancain
10-14-2012, 06:58 PM
i'm getting compiling errors for all the script:
Unknown identifier 'Smart_Server' at line 1318
Compiling failed.


how do i fix this? thanks~

Ashaman88
10-14-2012, 07:37 PM
i'm getting compiling errors for all the script:
Unknown identifier 'Smart_Server' at line 1318
Compiling failed.


how do i fix this? thanks~

Give it a search, your answers will be given to those you seek

Dangermouse
10-18-2012, 09:14 PM
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 6 Hours, 42 Minutes and 53 Seconds
Experience Earned: 759828
Experience/Hour: 111600
Runecrafting Level: 79
Floor: 3
=============================================

runs longer than 6H, nice, The exp counters were broken due to my xp button thing, EXP earned just showed the exp on the counter.

chrcoe
10-22-2012, 02:49 PM
question, does this script move you around on the island you are on or does it just stand still?

i've been running it for a couple hours and haven't seen my guy move anywhere, seems like they might notice you are botting this way?

Pipobucc
10-24-2012, 01:40 AM
got it working nvm :)

blindout
11-05-2012, 06:42 AM
well i previously posted on another script about my issue, my issue was unkown error at line 1318 for this script i found a fix;

{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}

copied from a persons script seemed to work, but now im having an issue smart doesnt seem to do anything my game loads and i make it to the load page nothing happens now, doesnt move mouse or anything stays frozen, and terminates after 3 minutes of inactivity. i had no problem before with this now all of a sudden it isnt working. i also cant use my username or password as it says unknown command when typed where the comma's are. everything is update, running on smart 7.2, reinstalled everything still not working. any help would be greatly appreciated thankyou

Ashaman88
11-05-2012, 12:03 PM
well i previously posted on another script about my issue, my issue was unkown error at line 1318 for this script i found a fix;

{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}

copied from a persons script seemed to work, but now im having an issue smart doesnt seem to do anything my game loads and i make it to the load page nothing happens now, doesnt move mouse or anything stays frozen, and terminates after 3 minutes of inactivity. i had no problem before with this now all of a sudden it isnt working. i also cant use my username or password as it says unknown command when typed where the comma's are. everything is update, running on smart 7.2, reinstalled everything still not working. any help would be greatly appreciated thankyou

You need to type your info between the '' so 'username' like that

jameskw
11-05-2012, 04:02 PM
Time Running: 59 Minutes and 20 Seconds
Experience Earned: 47799
Experience/Hour: 46800
Runecrafting Level: 83
Floor: 2

Idk what Im doin wrong I should be getting more right?

Also, Im having trouble with it attacking the ess hounds really slowly or not at all, what do i have to edit in the script to fix that?

blindout
11-08-2012, 08:52 PM
You need to type your info between the '' so 'username' like that



i should of also mentioned i tried that, tried SRL its self and still nothing,

well i got it working so dont worry heres a proggy


======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 5 Hours, 12 Minutes and 35 Seconds
Experience Earned: 316849
Experience/Hour: 57600
Runecrafting Level: 93
Floor: 3

janbricky
11-10-2012, 10:17 AM
i should of also mentioned i tried that, tried SRL its self and still nothing,

well i got it working so dont worry heres a proggy


======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 5 Hours, 12 Minutes and 35 Seconds
Experience Earned: 316849
Experience/Hour: 57600
Runecrafting Level: 93
Floor: 3

how did you solve it? I'm having the same problem.

Justin
11-10-2012, 10:19 AM
how did you solve it? I'm having the same problem.

What's your problem?

Anialator100
11-11-2012, 05:42 AM
ustin;1125234']What's your problem?

I had the same problem, turned out i didnt have my graphics set to the standards.

http://villavu.com/forum/showthread.php?t=60510

shows the standards, i followed it exactly, found 2 i missed, then it worked great

datcow
11-11-2012, 01:37 PM
whenever i try to run this i get:
[Error] C:\Documents and Settings\Eigenaar\Mijn documenten\Downloads\BloodWraithPub.simba(515:3): Unknown identifier 'Smart_Server' at line 514
Compiling failed.
and then "Smart_Server := 00; " is marked in orange
im new so i don't rly know what the fault is.

Merciless
11-11-2012, 04:55 PM
Thanks for the 99 RC :D

Sogalishis
11-12-2012, 02:02 AM
hey, so ive been looking through the past couple pages comments, and i wasnt able to get the idea is the script works or not.
so does this script work and is updated, and what island number should i be on with 95 runecrafting?

Bl!ss
11-16-2012, 05:24 AM
every time i try to run it i get this:
Exception in Script: Plugin(libsmartremote32) has not been found

Ashaman88
11-16-2012, 12:34 PM
every time i try to run it i get this:
Exception in Script: Plugin(libsmartremote32) has not been found

Make sure you try using the search bar or read the FAQ before you post about this stuff, it is a common error.

Here is the FAQ!

http://villavu.com/forum/showthread.php?p=851555#post851555

iskill4u
11-17-2012, 04:39 AM
cant wait to test it out. hopefully it will work.

CRASH_OVERRIDE
11-19-2012, 01:26 AM
yeah i cant get it to work either...

it was first the whole smart issue. so i added the updated header... and now when i run it nothing happens. yes, i am doing as the script says and am filling all the info out...

It looks at my stats, clicks on inventory and then does nothing from their on...

EDIT: Now it works... The fixes/changes i made:
Changeed the start to this:
{$DEFINE SMART}
{$I SRL/Srl.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$IFDEF SIMBAMAJOR980}
{$I SRL/SRL/Misc/Debug.Simba}
{$ENDIF}

changed the ending to this:
{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}

Changed: Booleans[0] := True; // Set to False if you want to search for all Objects
To: Booleans[0] := False; // Set to False if you want to search for all Objects

Justin
11-19-2012, 01:29 AM
yeah i cant get it to work either...

it was first the whole smart issue. so i added the updated header... and now when i run it nothing happens. yes, i am doing as the script says and am filling all the info out...

It looks at my stats, clicks on inventory and then does nothing from their on...
Make sure you have the correct things to syphon in the Array

MeepZorz
11-20-2012, 02:41 AM
Im getting this error and cant figure out how to solve

[Error] C:\Simba\Scripts - Copy\KylesEsswraithExtractorV1.8.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
Compiling failed.

any help would be great

Ashaman88
11-20-2012, 05:36 AM
Im getting this error and cant figure out how to solve

[Error] C:\Simba\Scripts - Copy\KylesEsswraithExtractorV1.8.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
Compiling failed.

any help would be great

Read through the last couple pages of comments :)

MasterXehanort
11-21-2012, 05:30 PM
Read through the last couple pages of comments :)

Why do people never do this?

Prometheus
11-26-2012, 06:30 AM
http://img716.imageshack.us/img716/9066/99rcw.png

99 rc cape, ty :) along with one of them "dage" 'es. Got this before EoC, but couldn't get a pic til now

howthefaq
12-03-2012, 10:44 AM
Hey, im kind of new to this and i was just wondering if anybody knows why i keep just logging in and standing? The script turns on, opens exp counter, looks at my stats and then just stands there. I have 69 rc and am standing right beside a Death Esswraith spawn, and my character still just stands there.

Thanks for the help :D

oldgregg
12-09-2012, 08:42 AM
Does anyone elses stop after 10 minutes with reason *failed to get more essense. (Even tho I have 20k ess in invent) and bot worked flawless from 90-95 rc?

antonmcccc
12-09-2012, 07:20 PM
failed to get essence..

iNaT
12-17-2012, 01:28 PM
I keep getting this message when trying to run this bot, any idea on a fix would be much appreciated.
'[Error] C:\Users\josh\Downloads\DeathWraithPub.simba(443:3 ): Unknown identifier 'SMART_SERVER' at line 442
Compiling failed.

xtrapsp
12-17-2012, 01:29 PM
I keep getting this message when trying to run this bot, any idea on a fix would be much appreciated.
'[Error] C:\Users\josh\Downloads\DeathWraithPub.simba(443:3 ): Unknown identifier 'SMART_SERVER' at line 442
Compiling failed.

Smart doesn't actually use SMART_SERVER anymore :) There are a few parts than can be removed.

Remove lines:

1318 - 1320

Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;

DannyRS
12-17-2012, 01:30 PM
Smart doesn't actually use SMART_SERVER anymore :) There are a few parts than can be removed.

it doesent? fml

gunman82
12-31-2012, 08:55 PM
which platform and floor are good for xp?im getting 50k xp an hour :L

Justin
01-24-2013, 11:04 AM
Kyle Undefined It seems broken :( (Wont click NPCS)

Kyle Undefined
01-24-2013, 03:42 PM
Kyle Undefined It seems broken :( (Wont click NPCS)

Lol, of course it is. It hasn't been updated in months. Come on, bro.

Thanatos
01-29-2013, 11:15 PM
Do you ever plan to update it? I got 99 rc using this script and i was hoping to do the same for my brother. It was a great script!

Ashaman88
01-29-2013, 11:31 PM
Do you ever plan to update it? I got 99 rc using this script and i was hoping to do the same for my brother. It was a great script!

I will one day ;)

Kyle Undefined
01-30-2013, 12:07 AM
I will one day ;)

Hahaha! <3 I plan to soon, but life > runescape.

Thanatos
01-30-2013, 12:38 AM
Hahaha! <3 I plan to soon, but life > runescape.

Can't argue with you there.

bud_wis_er_420
02-05-2013, 05:30 PM
It's working for me, just fine. Only NPC that seems to be bugged it FireStorm. When I set it to this, the mouse goes haywire looking for it. I've only been using this script for 2 days, but only while I can watch it. I'm getting prepared for 99 rcing now that I'm almost at 99 hunter, thx to Ashaman88 hunter script.

So far with just a quick glance at the script, all this script does is search for and click on NPC and nodes and stuff. No walking methods at all. So where you start the script is where you will stay. From what little I've gathered reading guides. The best way to use this script is first find out the highest NPC you can attack, not node. Don't worry about nodes as they are random and appear everywhere. When you find your highest NPC, for example mine is Blood Esswraith, you add it's ID(Starting on line 16) to the list on line 105. Mine looks like this. The red text is the already preexisting list consisting of the nodes. Don't change this unless you only what to att NPC's. But for best XP leave it.

// This is for searching for specific Objects, add / remove as needed. Order doesn't matter
Integers := [objUndeadSoul, objLivingSoul, objSoulWraith, objBloodySkulls
, objBloodPool, objSkulls, objJumper, objShifter, objNebula, objBloodWraith];

Now find your selected NPC in the minigame. You will have to play a little to get the runes you need to get to your chosen island. All you need is 1 NPC, they respawn so fast that you will end up atting the same NPC over and over again. And when the random node pops up it will automatically switch to the node for better xp.

When you start the script give it about 10 sec , cause it can take some time for the script to load everything. If you don't start extracting ess from your selected NPC, then you colors or not working. I tested alot of the Monsters and the only one I found not currently working is FireStorm. If this was your selected NPC then you would need to manually reset the color to get it working. You can search for a guide on how to do that. I even think I remember seeing someone post a like on the first page.

Well hope this information helps new users of this script. I came into this script with no knowledge of the game whatsoever. I couldn't find no real guide on how to set everything up, so I had to do alot of reading to figure everything out. Things were a little confusing because I didn't know about the game. I found a few post were people where asking how to best set up this script, but no good replies, so I figured I would help simplify it for others like me having a hard time getting started.

I don't know what the average XP per hr is at my lvl but it's better than nothing
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 43 Minutes and 32 Seconds
Experience Earned: 20985
Experience/Hour: 28800
Runecrafting Level: 82
Floor: 3
=============================================

klae17
02-05-2013, 08:39 PM
It's working for me, just fine. Only NPC that seems to be bugged it FireStorm. When I set it to this, the mouse goes haywire looking for it. I've only been using this script for 2 days, but only while I can watch it. I'm getting prepared for 99 rcing now that I'm almost at 99 hunter, thx to Ashaman88 hunter script.

So far with just a quick glance at the script, all this script does is search for and click on NPC and nodes and stuff. No walking methods at all. So where you start the script is where you will stay. From what little I've gathered reading guides. The best way to use this script is first find out the highest NPC you can attack, not node. Don't worry about nodes as they are random and appear everywhere. When you find your highest NPC, for example mine is Blood Esswraith, you add it's ID(Starting on line 16) to the list on line 105. Mine looks like this. The red text is the already preexisting list consisting of the nodes. Don't change this unless you only what to att NPC's. But for best XP leave it.

// This is for searching for specific Objects, add / remove as needed. Order doesn't matter
Integers := [objUndeadSoul, objLivingSoul, objSoulWraith, objBloodySkulls
, objBloodPool, objSkulls, objJumper, objShifter, objNebula, objBloodWraith];

Now find your selected NPC in the minigame. You will have to play a little to get the runes you need to get to your chosen island. All you need is 1 NPC, they respawn so fast that you will end up atting the same NPC over and over again. And when the random node pops up it will automatically switch to the node for better xp.

When you start the script give it about 10 sec , cause it can take some time for the script to load everything. If you don't start extracting ess from your selected NPC, then you colors or not working. I tested alot of the Monsters and the only one I found not currently working is FireStorm. If this was your selected NPC then you would need to manually reset the color to get it working. You can search for a guide on how to do that. I even think I remember seeing someone post a like on the first page.

Well hope this information helps new users of this script. I came into this script with no knowledge of the game whatsoever. I couldn't find no real guide on how to set everything up, so I had to do alot of reading to figure everything out. Things were a little confusing because I didn't know about the game. I found a few post were people where asking how to best set up this script, but no good replies, so I figured I would help simplify it for others like me having a hard time getting started.

I don't know what the average XP per hr is at my lvl but it's better than nothing
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 43 Minutes and 32 Seconds
Experience Earned: 20985
Experience/Hour: 28800
Runecrafting Level: 82
Floor: 3
=============================================

Thanks for the write up. Average for me at 82 is 45-50k with blood esswraith (not on this script). Just for comparison.

Kyle Undefined
02-06-2013, 11:39 PM
It's working for me, just fine. Only NPC that seems to be bugged it FireStorm. When I set it to this, the mouse goes haywire looking for it. I've only been using this script for 2 days, but only while I can watch it. I'm getting prepared for 99 rcing now that I'm almost at 99 hunter, thx to Ashaman88 hunter script.

So far with just a quick glance at the script, all this script does is search for and click on NPC and nodes and stuff. No walking methods at all. So where you start the script is where you will stay. From what little I've gathered reading guides. The best way to use this script is first find out the highest NPC you can attack, not node. Don't worry about nodes as they are random and appear everywhere. When you find your highest NPC, for example mine is Blood Esswraith, you add it's ID(Starting on line 16) to the list on line 105. Mine looks like this. The red text is the already preexisting list consisting of the nodes. Don't change this unless you only what to att NPC's. But for best XP leave it.

// This is for searching for specific Objects, add / remove as needed. Order doesn't matter
Integers := [objUndeadSoul, objLivingSoul, objSoulWraith, objBloodySkulls
, objBloodPool, objSkulls, objJumper, objShifter, objNebula, objBloodWraith];

Now find your selected NPC in the minigame. You will have to play a little to get the runes you need to get to your chosen island. All you need is 1 NPC, they respawn so fast that you will end up atting the same NPC over and over again. And when the random node pops up it will automatically switch to the node for better xp.

When you start the script give it about 10 sec , cause it can take some time for the script to load everything. If you don't start extracting ess from your selected NPC, then you colors or not working. I tested alot of the Monsters and the only one I found not currently working is FireStorm. If this was your selected NPC then you would need to manually reset the color to get it working. You can search for a guide on how to do that. I even think I remember seeing someone post a like on the first page.

Well hope this information helps new users of this script. I came into this script with no knowledge of the game whatsoever. I couldn't find no real guide on how to set everything up, so I had to do alot of reading to figure everything out. Things were a little confusing because I didn't know about the game. I found a few post were people where asking how to best set up this script, but no good replies, so I figured I would help simplify it for others like me having a hard time getting started.

I don't know what the average XP per hr is at my lvl but it's better than nothing
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 43 Minutes and 32 Seconds
Experience Earned: 20985
Experience/Hour: 28800
Runecrafting Level: 82
Floor: 3
=============================================

Wow, I'm glad it's still working. Surprising that the only thing not working is the FireStorm node. Not bad.

I'm adding this to the first page.

bud_wis_er_420
02-07-2013, 12:43 AM
Wow, I'm glad it's still working. Surprising that the only thing not working is the FireStorm node. Not bad.

I'm adding this to the first page.

...and BloodPool. The FindWizard is not working so I just removed it, for now. It kept thinking my coin icon, at the top left of the rs screen, was the wizard. The detection for how many ess I have was bugged. It got stuck on the stats tab from the Antiban and kept trying to get more ess. So I just added a quick fix for that too. I'm getting 32k xp hr now. Plan on tweaking more later when I get time. I can post it for you if you like? ATM I building a guild fisher. I'm having to refresh my memory on alot because I haven't scripted in over 8 months.

oh and I had to tweak the blood wraith colors. It sometimes thought the walls were a blood wraith. I'm using the purplish armor color now.

======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 1 Hours, 22 Minutes and 50 Seconds
Experience Earned: 44874
Experience/Hour: 32400
Runecrafting Level: 82
Floor: 3
=============================================

I manually stopped it here because I had some thing to do.
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 3 Hours, 18 Minutes and 11 Seconds
Experience Earned: 106923
Experience/Hour: 28800
Runecrafting Level: 83
Floor: 3
=============================================

Kyle Undefined
02-07-2013, 03:44 AM
Yeah, I knew the colors would have to be updated some.

AutomaticCrazy
02-25-2013, 04:17 PM
this is still working for me atm, going for 99 with it 73 at the time of this post. I would like to know where can i change the time on the auto-turn off, for longer when im sleeping and shorter for when im awake kinda like my own way to trick the system.

al4k
02-26-2013, 09:46 PM
this is still working for me atm, going for 99 with it 73 at the time of this post. I would like to know where can i change the time on the auto-turn off, for longer when im sleeping and shorter for when im awake kinda like my own way to trick the system.

You need to code this in yourself. Use the function GetTimeRunning (in milliseconds) and compare this with a constant.
e.g.


If GetTimeRunning > (60000*RunTime) then
Begin
Logout;
TerminateScript;
End;


where RunTime is desired time in minutes. Stick it in the main loop.

Alternatively use the scheduling on SmartManager (http://villavu.com/forum/showthread.php?t=76404).

eyas
03-18-2013, 09:40 AM
hi am new here i have done every step then when i tryed to run the script it sayed to me:

Exception in Script: Unable to find file 'srl/srl.simba' used from 'C:\Users\AymanHome\Downloads\KylesEsswraithExtrac torV1.8.simba'

plz help me

cheese90291
03-27-2013, 10:54 PM
help! once i start the script it says --Unknown identifier 'Smart_Server' at line 1318-- dont know how to fix the problem.........

dzpliu
03-28-2013, 03:08 PM
those having troubles with this script, pls update it yourselves, the script is no longer maintained by the owner. those errors just need some simple fixes.

edit: attached working version of this script. will remove if asked. (edited to work better >85rc)
for those <85rc pls edit add more node/esshound to the script.

Phasmatys
04-24-2013, 10:14 AM
Hey guys got an error any idea what it is?

[Error] C:\Simba\Scripts\RuneSpan.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
Compiling failed.

Kazimx
04-24-2013, 10:10 PM
This is a great script been working flawless for me just sometimes gets errors, one thing to note. If you have the maximum of 10 spins, receive a spin ticket(which obviously you can't claim) the scrip will crash as it repeatedly keeps trying to click the ticket just noticed it happen to me now.

Im New Sry
04-29-2013, 03:27 PM
======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 2 Hours, 3 Minutes and 13 Seconds
Experience Earned: 126982
Experience/Hour: 61200
Runecrafting Level: 85
Floor: 3
=============================================

It's okay, not too fast, but it's working alright. I always leave auto clicker on Run button on Simba when I go somewhere, incase the script stops. And it does stop, I just don't know when and why. But, other than that, it's great!

UnReaL69
04-29-2013, 10:31 PM
Hey guys got an error any idea what it is?

[Error] C:\Simba\Scripts\RuneSpan.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
Compiling failed.

I've had the same problem, been wasting hours...
You need to update SMART 7.2 (that is the default currently) to version 8
Use the search function to find the link, as I can't post it.

I tried the script in 3 different places, but doesn't seem to click NPC :(
How come to others is working? Please share the knowledge, what else is needed to run? Already updated everything

alexandroff
05-06-2013, 01:25 PM
At level 98, I'm back to using the script. I noticed a few problems: it clicks WAY too often. It clicks so often that the esswraith I'm siphoning doesn't get a chance to die, so I usually end up running out of essence.

Next, the script clicks on undead souls in the wrong place (Jagex made them harder to click on) and usually I just end up standing on it. After that point the bot doesn't see it and doesn't go for it.

Has anyone have fixes to either of these problems?

Kyle Undefined
05-06-2013, 09:01 PM
This script is so outdated.

I originally had plans to update this, but with life and work stealing all my free time. I wouldn't hold your breath.

dc686
05-17-2013, 12:47 AM
works for me i was running it ealier today here is a prodgy

======== Kyle's Esswraith Extractor =========
Version 1.8
Time Running: 5 Hours, 40 Minutes and 19 Seconds
Experience Earned: 328950
Experience/Hour: 57600
Runecrafting Level: 84
Floor: 3
thanks for the great script

kumbier18
06-05-2013, 09:51 PM
This was a great script way back when, actually got 99 rc using it. Many thanks to you Kyle. Hopefully you or someone else comes back and updates it again to its full potential.

Phasmatys
06-16-2013, 08:05 AM
Hey guys I looked on the forums and everything, I saw a thread that seemed like it would help me fix the problem but it didn't, so heres the problem. When I try to run the script it does not compile properly, here is the error message:[Error] C:\Simba\Scripts\Runespan.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
When trying to compile the script it goes straight down to this set of 3 lines here:

begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;

As said before I tried replacing the following lines with the ones posted on the script that fixes the SMART errors, I'll post the lines that the thread had reccomended to help with the troubleshooting.

Towards the bottom of the script, in the setup section, you might find this:
Simba Code:
Smart_Server := 26;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
Change those lines to:
Simba Code:
SRL_SixHourFix := True;
SMART_FixSpeed := True;

If anyone has any idea how to fix this let me know =D

Thanks,

Phasmatys

Phasmatys
06-16-2013, 08:09 AM
I've had the same problem, been wasting hours...
You need to update SMART 7.2 (that is the default currently) to version 8
Use the search function to find the link, as I can't post it.

I tried the script in 3 different places, but doesn't seem to click NPC :(
How come to others is working? Please share the knowledge, what else is needed to run? Already updated everything

Hey unreal more info on the post above, hope that is enough to help you find out the problem. However knowing that the script is really outdated I have no problem if it cannot be fixed. I have all the plugins on simba updated so I have no clue why its not compiling.

tealc
06-16-2013, 08:17 AM
Hey unreal more info on the post above, hope that is enough to help you find out the problem. However knowing that the script is really outdated I have no problem if it cannot be fixed. I have all the plugins on simba updated so I have no clue why its not compiling.


Hey guys I looked on the forums and everything, I saw a thread that seemed like it would help me fix the problem but it didn't, so heres the problem. When I try to run the script it does not compile properly, here is the error message:[Error] C:\Simba\Scripts\Runespan.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
When trying to compile the script it goes straight down to this set of 3 lines here:

begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;

As said before I tried replacing the following lines with the ones posted on the script that fixes the SMART errors, I'll post the lines that the thread had reccomended to help with the troubleshooting.

Towards the bottom of the script, in the setup section, you might find this:
Simba Code:
Smart_Server := 69;//remove this
Smart_Members := False;//remove this
Smart_Signed := True;//remove this
Smart_SuperDetail := False;//remove this
Change those lines to:
Simba Code:
SRL_SixHourFix := True;//add this where you remove the previous code
SMART_FixSpeed := True;//add this where you remove the previous code

If anyone has any idea how to fix this let me know =D

Thanks,

Phasmatys

Script is out dated, others are using tweaked versions.

mynameisgeorge
06-17-2013, 02:44 PM
Script is out dated, others are using tweaked versions.

Can you or anyone post the 'tweaked' version or the codes so i can put it in my self ?

thanks

Phasmatys
06-17-2013, 07:50 PM
Script is out dated, others are using tweaked versions.

I see ok, no problem I guess I will have to continue with another skill for now

willyw0nk
06-18-2013, 09:42 PM
I am having an error on line 281

"[Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(282:145): Invalid number of parameters at line 281
Compiling failed."

anyone know whats wrong i cant figure it out :(

gooddiubro
06-23-2013, 06:54 AM
Hey guys I looked on the forums and everything, I saw a thread that seemed like it would help me fix the problem but it didn't, so heres the problem. When I try to run the script it does not compile properly, here is the error message:[Error] C:\Simba\Scripts\Runespan.simba(1319:3): Unknown identifier 'Smart_Server' at line 1318
When trying to compile the script it goes straight down to this set of 3 lines here:

begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;

As said before I tried replacing the following lines with the ones posted on the script that fixes the SMART errors, I'll post the lines that the thread had reccomended to help with the troubleshooting.

Towards the bottom of the script, in the setup section, you might find this:
Simba Code:
Smart_Server := 26;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
Change those lines to:
Simba Code:
SRL_SixHourFix := True;
SMART_FixSpeed := True;

If anyone has any idea how to fix this let me know =D

Thanks,

Phasmatys
Did you add the tags as well?
eg:


{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 26;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}

oh and of cause
{$DEFINE SMART8}

Phasmatys
06-23-2013, 07:56 PM
Did you add the tags as well?
eg:


{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 26;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}

oh and of cause
{$DEFINE SMART8}

No I did not try that, I just tested it and it compiled =D. When I get back home from school I will test the actual script. Thanks for that man =D

Ashaman88
06-23-2013, 08:19 PM
I will eventually come back and help this script out as well :)

Phasmatys
06-24-2013, 08:32 AM
Did you add the tags as well?
eg:


{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 26;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}

oh and of cause
{$DEFINE SMART8}

Just tested it now and it compiles of course, but knowing its outdated i did not expect the bot to run smoothly, and it doesnt of course. Thanks for trying to help I guess I will just wait for a fix.

gooddiubro
06-26-2013, 12:15 PM
Yea, but it will be helpful if we know where does it get stuck.

EDIT: Other than some minor outdated DTMs, scripts looks pretty solid.

Stayon
06-26-2013, 01:45 PM
I will eventually come back and help this script out as well :)

:o :O :O

preetham96
07-14-2013, 05:17 PM
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
hey kyle,
i got a prob with the above part of the script i sgives me some error line 1312
and i tried deleting that part and the script started but is just stood doing nothing