I'll check it out soon.Quote:
Originally Posted by Surfing
Tell me what it does wrong, it was working perfectly last week. I'll make it a download link the next time I update it.Quote:
Originally Posted by Mink
Printable View
I'll check it out soon.Quote:
Originally Posted by Surfing
Tell me what it does wrong, it was working perfectly last week. I'll make it a download link the next time I update it.Quote:
Originally Posted by Mink
This a very good script im 49 rc :D on my skiller.
Progress Report:You have been crafting for:6 Hours, 12 Minutes and 3 Seconds Exp gained:13500
It often gets lost. One time I was in Rimmington. :D
Here's where it was stuck last time(see attachment).
~Eerik.
ThanksQuote:
Originally Posted by Helper
It sounds like I need to fix the walk paths for it. I'll try and update it within 48 hours.Quote:
Originally Posted by Heavenzeyez1
You have been crafting for:38 Minutes and 35 Seconds
Exp gained:2565
This is the longest I was able to get, it gets stuck fairly often.
Sometimes when walking from bank to the musician it will rest to the north of the musician and will not find the DTM from there. Sometimes it will fail to leave the rock formation, but it thinks it did leave and will not find the next DTM.
Sometimes when having just left the rock formation it will immediately click on where the mouse is at, at that moment. Which will be the previous portal spot. From the position the character is at then it cannot find DTM.
Only one time did it make a run without rune essenece for some reason, but I wasn't paying any real attention so I haven;t got any details.
I hope this is of any use, thanks for the script :)
Progress Report:You have been crafting for:2 Hours, 24 Minutes and 1 Seconds Exp gained:7695
Let us know when you have updated it! :)
Thanks,
~Eerik.
Hi Serious,
Let me echo what Mink said. If you can make it a download. When I do the copy/paste the script goes on one line only for some strange reason. A download link eliminates these issues.
Thanks
Demon
I've attached it for you.
Made it with notepad in school, open it up with Simba.
~Eerik.
it says Exception in Script: Unable to find file 'ObjectDTM/ObjDTMInclude.Simba' used from ''Quote:
Originally Posted by Heavenzeyez1
whenever i try running this
Did you ever read the first post? :)Quote:
Originally Posted by pigggy
It was written in Bold & Red. ;)Quote:
You need to download this to be able to use the script: http://villavu.com/forum/showthread....objdtm+walking
Follow the instructions at the bottom of this page on how to download and install it correctly.
~Eerik.
its working great i have using it for like 1 week i think and now im 52 rc and i will go for 54 and use my private law rcer, the script sometimes is slow but is nice. i hope you update it soon :P.aa and sometimos it dosnt click on the altar.
Good Script Men.
why does this come?
Exception in Script: Unable to find file 'ObjectDTM/ObjDTMInclude.Simba' used from ''
HELLLLPPPPP!!!!!!!!!
hey! :(
the new graphical update has done a change at banks... there is no more quickly bank option anymore :( please fix it :D
cheers
Humeruzz
Did you ever read the first post?Quote:
Originally Posted by humeruzz
It was written in Bold & Red. ;)Quote:
You need to download this to be able to use the script: http://villavu.com/forum/showthread....objdtm+walking
Follow the instructions at the bottom of this page on how to download and install it correctly.
~Eerik.
ye...i read it after i posted it... but... wtf is goin on with the bank stuff... doesnt do shit
yea fix banking ploxx
I'll try, I can't get my banking to work even if the code is correct.Quote:
Originally Posted by Heavenzeyez1
I will.Quote:
Originally Posted by Demondog
Thanks mate.Quote:
Originally Posted by Heavenzeyez1
Quote:
Originally Posted by pigggy
Thanks for helping out. I'll try and update the script when I fix my simba issues.Quote:
Originally Posted by Heavenzeyez1
Quote:
Originally Posted by Helper
Thanks, will do.Quote:
Originally Posted by Frozen Tear
Quote:
Originally Posted by humeruzz
Quote:
Originally Posted by humeruzz
Quote:
Originally Posted by Heavenzeyez1
Okay, I'll try and fix the code but I can't test it because my simba isn't functioning properly :(Quote:
Originally Posted by pigggy
What's wrong with your Simba?
~Eerik.
It is just doing everything weird, even if I've coded it correctly.Quote:
Originally Posted by Heavenzeyez1
E.g. http://villavu.com/forum/showthread.php?t=73583
I've also changed the Clickmouse(False) to Clickmouse(True) and it still right clicks. I've pretty much just given up, nothing works :(
Have you reinstalled everything? Are you running as admin and are you calling SetupSRL, are you running latest everything? Is the clicking only bug?Quote:
Originally Posted by Deadly Serious
~Eerik.
Hey Deadly, I am excited to use this bot :), looks great! Have the Object DTMs, and its fully updated and working. However I gave it a test run, and I'm not sure if the script is up to date with the recent Runescape updates? I'm referring to the banking options as you may know the other "Use-Quickly" option way taken out. Well anyway, when I started it, it was at Varrock West bank, with ess in the inv, it ran fine to the ruins went in and crafted and ran back perfectly however finding the bank it just right clicked, the options came up? It seemed to just move off or miss click bank? and then It would continue its its loop as if it withdrew the essence and was going back to craft? Not quite sure whats up? Maybe I've got an older version? Not sure, if maybe you could see whats happening here? Thanks mate looking forward to Loooong progress reports!! Take care!
I redownloaded now and it seems to be working fine but when it's going to loop again I get:Quote:
Originally Posted by Heavenzeyez1
Progress Report:Error: Exception: The given DTM Index[0] doesn't exist at line 373 The following DTMs were not freed: [1, 3, 4] The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
It appears in a new tab called "Antirandom."
I'm changing that soon. You can just change (False) to (True) for the banking option and delete the rest.Quote:
Originally Posted by RegisterFree
Can you please explain how to download it? I tried to download that add on thing that you said we need but idk how.. its really confusing lol :(
Here's a quick fix for your script:P
Code:program Deadlys_AirCrafter;
{$i srl/srl/misc/smart.simba}
{$i SRL/SRL.simba}
//{.Include SRL\SRL\Misc\Debug.simba}
//{$i SRL/SRL/misc/paintsmart.simba}
{$i ObjectDTM/ObjDTMInclude.Simba}
Const //Yoho's
SERVER = ('5'); // Enter "0" to pick a random server.
MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
Version = 1.1;
Var
Crafted:Integer;
aFound: Extended;
{*******************************************************************************
procedure DeclarePlayers;
By: SRL
Description: SRL's Player Setup
*******************************************************************************}
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(2);
CurrentPlayer := 0;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name :=''; // Name
Pass :=''; // Pass
Active := True; //True if you want this player to be ran in the script, false if not // 3-4 lowercase letters from username; used for random event detection
Active := True; // Set to true if you want to use Player 0
Pin := ''; // Leave blank if you have no pin.
with Players[1] do
begin
Name :=''; // Name
Pass :=''; // Pass
Active := False; //True if you want this player to be ran in the script, false if not // 3-4 lowercase letters from username; used for random event detection
Active := False; // Set to true if you want to use Player 1
Pin := ''; // Leave blank if you have no pin.
end;
end;
end;
Procedure ObjSetup; //Euph's
begin;
ObjDTM_Setup;
end;
Procedure StatsGuise(wat:String); //Yoho's
Begin
Status(wat);
Disguise(wat);
End;
//Function CheckAndClick(X,Y:Integer):Boolean;
//By: YoHoJo
//Description: Moves mouse to x,y, checks for uptext, and clikcs if found
//*******************************************************************************}
Function CheckAndClick(X,Y:Integer):Boolean;
Begin
MMouse(x, y, 5, 5);
{Wait(100 + Random(50));
If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
If WaitUpTextMulti(['Mine','ine'], 150) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
Procedure FailSafe(Reason:String); //Yoho's
begin
Players[CurrentPlayer].Loc:=reason;
Logout;
Terminatescript;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure Loadvars;
begin;
MouseSpeed := RandomRange(14, 18);
end;
Procedure Antiban; //I liked a few of Yoho's antibans, I implemented them here
Begin
Case Random(192) Of
0: HoverSkill('runecrafting', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: IdleTime(100+random(700), 100+Random(100), 0.2+RandomE/2);
3: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
4: HoverSkill('random', False);
5: RandomMovement;
End;
end;
Procedure ProgressReport;
begin
Cleardebug;
Writeln('You have been crafting for:' + TimeRunning);
Writeln('Exp gained:' + IntToStr(Crafted*27*5));
end;
Procedure WithdrawEss;
var
Bmp, x, y:integer;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
TimeRunning;
Inc(Crafted);
Begin;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('W');
If (FindObjCustom(x,y,['Bank','nk','booth','oot'], [1717052], 5)) Then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(True);
wait(1500);
end;
begin //Runaways'
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
end;
begin
Bmp := BitmapFromString(14, 15, 'meJyNzm0KgzAQhOFDSSVUgiWorc' +
'YPgtrS+1+kAwPLshopvD+fHTbGeZoSW5aVpbSjdfuw/f1Fr35EMc7' +
'MXPGEV103IPqLE9Q0T0R/PNE+hBb94+s6EOe8YEimsXiNvX8gjc24' +
'fHKvvMZmXH8CKdiM608gnauIzfgRQ7IcpocsS4dymJ6yKG45LF7kK' +
'dbjnP0B+hipmw==');
if FindBitmapToleranceIn(Bmp, X, Y, 35, 85, 480, 295, 20) then
begin
Writeln('Foundit');
MMouse(X, Y, 5, 5);
ClickMouse2(False);
Wait(300+random(250));
ChooseOption('All');
Wait(500+random(250));
end;
end;
FreeBitmap(Bmp);
end;
end;
end;
function Walking(Color, Tolerance: Integer; SortFrom: tpoint): Boolean;
var
i, x, y, rx, ry: Integer;
TPA: TPointArray;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
SortTPAFrom(TPA, SortFrom);
for i := 0 to High(TPA) do
begin
x := TPA[i].x;
y := TPA[i].y;
rx := RandomRange(-6, 6);
ry := RandomRange(-6, 6);
if (not rs_OnMinimap(x + rx, y + ry)) then
Continue;
Mouse(x + rx, y + ry, 0, 0, true);
FFlag(0);
Wait(200 + Random(500));
Result := True;
Break;
end;
end;
Procedure Walkies;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
if (Walking(2570554, 15, Point(583, 38))) then
begin
Wait(1800+Random(500));
end;
end;
end;
procedure Resting;
var
X,Y: Integer;
s: String;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
if (Not runenergy(50)) then
begin
If FindObjCustom(x, y, ['Talk', 'alk'], [14464635, 9469760, 4297607], 10) then
begin
Writeln('Listening to the blissful music')
Getmousepos(x, y)
begin;
MMouse(X, Y, 3, 3);
ClickMouse2(False);
Waitoption('isten', 3000);
Wait(8000+Random(5000));
RestUntil(80)
end;
end;
end;
end;
end;
procedure WalkToAlter; //Mine, that's rare
var
Path: TStringArray;
I: Integer;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
Path:= ['568:98:5:1:7:613:100:1:7:625:122:1:7:588:117:0:7:647:111:1:7:647:61'];
for I := 0 to 0 do
ObjDTM_Walk(Path[i], 0, 100, 80, True);
Wait(2000+Random(500));
begin
Resting;
end;
begin
Path:= ['570:120:4:5:7:571:77:1:7:560:99:1:7:581:94:1:7:559:78'];
for I := 0 to 0 do
ObjDTM_Walk(Path[i], 0, 100, 80, True);
Wait(2000+Random(500));
Path:= ['566:117:4:1:7:576:103:3:7:582:128:1:7:593:103:1:7:606:115'];
for I := 0 to 0 do
ObjDTM_Walk(Path[i], 0, 100, 80, True);
Wait(3500+Random(1000));
end;
end;
end;
Procedure Enter;
var
X,Y: Integer;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
If FindObjCustom(x, y, ['Ent', 'Enter'], [16631951, 16629135, 16171659, 14925721, 16499851], 15) then
begin
Writeln('Entered into the Mysterious rock formation')
Getmousepos(x, y)
if IsUpText('nter') then
Case random(11) of
0..10: begin
MMouse(X, Y, 8, 8);
ClickMouse2(True);
end;
// 9..10: begin;
// MMouse(X, Y, 5, 5);
//ClickMouse2(False);
// Waitoption('nter', 3000);
end;
end;
end;
end;
//end;
Procedure Crafting;
Var
x,y: integer;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
ProgressReport;
begin
If FindObjCustom(x, y, ['raft', 'Rune'], [5591380, 5920344, 5723222, 5525587, 5525843, 5722966, 5723222], 3) then
begin
Writeln('Crafted Air runes')
Getmousepos(x, y)
if IsUpText('raft') then
Case random(11) of
0..10: begin
MMouse(X, Y, 15, 15);
ClickMouse2(True);
end;
// 9..10: begin;
// MMouse(X, Y, 15, 15);
// ClickMouse2(False);
// Waitoption('raft', 3000);
end;
end;
end;
end;
//end;
Procedure Waiting;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
begin
Wait(5500+random(500));
end;
end;
Procedure Leave;
var
X,Y,I: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
Begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
FindColorsTolerance(TPA, 5081226, MSX1, MSY1, MSX2, MSY2, 10); // Thanks to Naums' Tutorial
ATPA := TPAToATPAEx(TPA, 28, 28);
For I := 0 To High(ATPA) Do
Begin
If MiddleTPAEx(ATPA[I], X, Y) Then
begin
MMouse(X, Y, 2, 2);
ClickMouse2(True);
Writeln('Leaving the Mysterious rock formation');
Wait(4000+random(500));
End;
End;
End;
End;
Procedure BackToTheBank;
var
Path: TStringArray;
Alterarea, X, Y, I: Integer;
Begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
AlterArea := DTMFromString('mwQAAAHic42RgYKhgYmCIBuIyIJ4GxDVAnAjEU4G4F4gzgTgcqC4CiK0YIOxiIM4F4mwgdoLiolRNhu7qIDCO9DdjiA40Z8hIUmWwNBVnqCnVAYtzAdURwoxEYDgAAF6XES8=');
if FindDTMRotated(AlterArea, x, y, 0, 0, 700, 500, -Pi, Pi, Pi/30, aFound) then
begin
leave;
end;
begin
Path:= ['685:61:4:3:7:631:39:1:7:673:69:1:7:676:39:1:7:661:77'];
for I := 0 to 0 do
ObjDTM_Walk(Path[i], 0, 100, 80, True);
Wait(2000+Random(500));
Path:= ['684:52:4:1:7:693:78:5:7:634:38:1:7:643:56:1:7:623:39'];
for I := 0 to 0 do
ObjDTM_Walk(Path[i], 0, 100, 80, True);
Wait(3000+Random(500));
begin
Resting;
end;
begin
Path:= ['675:49:4:1:7:666:69:1:7:678:90:1:7:642:85:1:7:658:104'];
for I := 0 to 0 do
ObjDTM_Walk(Path[i], 0, 100, 80, True);
Wait(1000+Random(200));
Path:= ['685:56:4:0:7:650:114:1:7:650:66:1:7:635:22:1:7:618:104'];
for I := 0 to 0 do
ObjDTM_Walk(Path[i], 0, 100, 80, True);
Wait(3000+Random(500));
end;
FreeDTM(AlterArea);
end;
end;
begin
Smart_Server := 54;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
Loadvars;
ObjSetup;
Declareplayers;
if not (LoggedIn) then
LoginPlayer;
Repeat
Repeat
Withdrawess;
Walkies;
WalkToAlter;
Enter;
Waiting;
Crafting;
Waiting;
Leave;
Waiting;
BackToTheBank;
Until(false) or (not LoggedIn);
NextPlayer(Players[CurrentPlayer].Active);
Until(false)
end.
Download the link, then open up simba file location. Locate extensions then input the downloaded file into it. Enable the extension called "ObjectDTM.sex."Quote:
Originally Posted by 1Cexyranged1
Then there should be an option next to "MSI," called "Odtm." Update that and then close simba. Reopen simba and run the script :)
Updated the script, did you just change (False) to (True) for banking?Quote:
Originally Posted by AProAdrax
I'm also doing a massive overhaul to this script and fixing up all the flaws. I'll also be introducing my Earth Crafter :D
knowing bug:
When he runs to altar and come back to bank. he opens the bank and then walk straight back to altar and does not get the new ess.
But still great script !
1 question, can you not increase the runspeed a little bit. The running is kida slow :p
Nope, all I did is added " wait(1500); " after it opens the bank and it works:PQuote:
Originally Posted by Deadly Serious
Code:Procedure WithdrawEss;
var
Bmp, x, y:integer;
begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
TimeRunning;
Inc(Crafted);
Begin;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('W');
If (FindObjCustom(x,y,['Bank','nk','booth','oot'], [1717052], 5)) Then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(True);
wait(1500);
end;
begin //Runaways'
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
end;
begin
Bmp := BitmapFromString(14, 15, 'meJyNzm0KgzAQhOFDSSVUgiWorc' +
'YPgtrS+1+kAwPLshopvD+fHTbGeZoSW5aVpbSjdfuw/f1Fr35EMc7' +
'MXPGEV103IPqLE9Q0T0R/PNE+hBb94+s6EOe8YEimsXiNvX8gjc24' +
'fHKvvMZmXH8CKdiM608gnauIzfgRQ7IcpocsS4dymJ6yKG45LF7kK' +
'dbjnP0B+hipmw==');
if FindBitmapToleranceIn(Bmp, X, Y, 35, 85, 480, 295, 20) then
begin
Writeln('Foundit');
MMouse(X, Y, 5, 5);
ClickMouse2(False);
Wait(300+random(250));
ChooseOption('All');
Wait(500+random(250));
end;
end;
FreeBitmap(Bmp);
end;
end;
end;
I could speed it up but it might screw up and run off somewhere else :(Quote:
Originally Posted by Ancient
Okay, cheers. I added in a random wait.Quote:
Originally Posted by AProAdrax
OMFG!!!!!! something is wrong... i get this on every script suddenly now... wtf should i do with it... sorry for the language but im RAGING IRL... please reply... PS: i did download and do the ObjectiveDTM.sex thingy
funtion FindNPCChatText(txt: string; action: fnct_ActionOptions): boolean;
Text := Replace(Text, '?', '.') ;
this script get me 4 account to 60 runecrafting lol, idk why u arent SRL MEMBER !
You might need to update ODTM, SRL, etc, that function isn't in my script. You should post that in the help section.Quote:
Originally Posted by humeruzz
Haha, thanks. I got denied for srl status :( I might reapply when I have some free time and I do a bit more coding.Quote:
Originally Posted by Vilenueve
It kind of sounds like I wrote that :P
how do i change the code for banking? :)
It should be functional if you copy and paste it now.Quote:
Originally Posted by humeruzz
Whens 1.7 going to be released?:)
Within the week hopefully but does anyone know what's wrong with it? Is it the walking paths, alter or bank detection?Quote:
Originally Posted by AProAdrax
Edit: I'd test it but my computer can only complete one task at once :S
I will test it also please save it as a .simba file when I copy all gets into 1 line..
Kinda confusing,
I will when I do a big update on it. Please post back if anything is screwing up, that'd be very helpful :DQuote:
Originally Posted by Gebapt
Can 't wait for the update (A)Quote:
Originally Posted by Deadly Serious
Need it as a .simba othewise not working for me.
ctrl c + ctrl v is a hard one.
i have an issue with it banking and not withdrawing ess not sure why its doing this pm me and leme know