Adapting my mining script

[jibber]

ok so earlier i couldnt even get the script to walk -:duh:

then suddenly BAMM

ill all clicked into place and and all started to make sence, so i made a script to mine coal and iron and bank it, with anti bans like checking mining stats, random mouse movements taken from tuts and stuff.

i want to make a rune ore miner, thinking about heros guild, or wildy but with both of them u either have to go down a ladder, or cross a wildy ditch. could this script be adapted? the only problem i have is crossing wildy ditch\ladder and then world switching arrh! i know theres an out of date runeminer which i have been looking through the script of, can anyone tell me where i could find a tut of walking --> object -->walking--->mine... return to bank --> object -->bank

[Mark]

here you go bud ive just recently started to use this and i rate it A*
http://villavu.com/forum/showthread.php?t=68112

[jibber]

arh nice one mate. it does look like a need to learn alot more... arrghh just when i thought i was getting the hang of it haha

[Mark]

you could use DTM with the main point tolerance of 255 and use tree's as subpoints very similar to objectDTM

[go9090go]

try to use dtm`s, if you try some there comes a time it works.
i made this to walk a dtm path its search from the last dtm to the first.
and works grate for my self:

make those vars:
moved :boolean;
lastStep:integer;
WayBank: Array [0..4] of Integer; // 4 =5 dtms : [0],[1],[2],[3],[4]. 0 dtm to walk from start point and [4] last dtm to walk. This procedure ends if he @ last point.
and a array of dtms. Make the dtms for start to end.



Procedure WalkBank;
begin
moved:=false;
LastStep:=0;
repeat
For i := 0 to High(Waybank) do
begin
if i=0 then
i:=lastStep;
if i<0 then
i:=0;
//WriteLn('I: '+inttostr(High(Waybank)-i));
wait(600);
if FindDTMRotated(Waybank[High(Waybank)-i], x, y, 565, 10, 690, 160, -Pi/10, Pi/10, Pi/30, aFound) then
begin
if Distance(MMCX, MMCY, X, Y)>20 then
begin
//WriteLn('Found: '+inttostr(High(Waybank)-i));
MMouse(x+5, y, 1, 1);
if WaitUpTextMulti(['alk','ere'],1200) then
begin
Mouse(x+5, y, 1, 1, True);
if i = 0 then
Moved:=true;
runsleep;
lastStep:=i-2;
i:=High(Waybank);
end;
end;
end;
end;
until moved
end;


this is the runsleep i made:



Procedure runSleep;
begin
done:=false;
wait(700);
EndTime:=GetTimeRunning+5000;
if FindColorSpiralTolerance(x, y, 727294, 550, 10, 700, 160, 14) then
begin
y:=y+9;
x:=x+3;
if Distance(MMCX, MMCY, X, Y)>35 then
begin
repeat
//MMouse(x, y, 0, 0);
if FindColorSpiralTolerance(x, y, 727294, 550, 10, 700, 160, 14) then
begin
y:=y+9;
x:=x+3;
EndTime:=GetTimeRunning+10000;
//WriteLn('Dis: '+intToStr(Distance(MMCX, MMCY, X, Y))+'.');
if Distance(MMCX, MMCY, X, Y)<35 then
begin
done:=true;
end;
wait(300);
end else
begin
EndTime:=GetTimeRunning+10000;
repeat
if GetTimeRunning>EndTime then
begin
done:=true;
end;
wait(300);
//WriteLn(IntToStr(EndTime-GetTimeRunning));
until FindColorSpiralTolerance(x, y, 727294, 550, 10, 700, 160, 14)
end;
wait(400);
until done or (GetTimeRunning>EndTime)
//WriteLn('Done.');
end
end;
end;


this runsleeps wait till whe like 6 tiles away from the flagmap, like fflag(6), but fflag is broken so i made this.

gl by making ure script. pm for more info or help. Btw dont forget to set end free the dtms every time after u used it.

[Mark]

yeah but i suggest starting with it more simple and building on that test about with this

Procedure WalkBank;
var
aFound:extended;
DTM,x,y:integer;
begin
if FindDTMRotated(DTM, x, y, 565, 10, 690, 160, -Pi/10, Pi/10, Pi/30, aFound) then
begin
MMouse(x+5, y, 1, 1);
ClickMouse2(Mouse_Left);
end;
end;

[go9090go]

tip: always check if the option contains "alk here"

[jibber]

thanks guys, trying it now, with alot of errors of course :S