ok sorry about the pun, but ive been looking for a good reliable essence miner, and this is the best one ive seen so far. it gets me to the cafe mines the ess comes back, but it cant bank it even if i change that number. what am i doing wrong and can you suggest a better script.
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
program New;
{.include si.txt}
//////////////////////////////////////////////////////////////
/////////////////peanuts east varrok miner////////////////////
//////////////////////////////////////////////////////////////
//////////////////////////setup///////////////////////////////
//have map facing as north as possible and as high as possible
//pick rock color below///////////////////////////////////////
//hit go and happy autoing////////////////////////////////////
//start in mine//////////////////////////////////
//setup colors below
const rockcolor=3890561;//color of the rock
const rockwait=5000;//how long it takes to mine the rock
//stop here
// Anti Randoms: Start
procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
(FindColorSpiral(ax,ay,10658466,10,350,150,433))th en
begin
logout;
Writeln('Mod')
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
logout;
Writeln('Mime')
end;
if(GetColor(460,426)=0)and(GetColor(277,416)=0)and (GetColor(220,425)=0)or
(GetColor(502,305)=0)and(GetColor(379,43)=0)then
begin
TakeScreen('Maze',1);
logout;
end;
end;
procedure TalkToRand1;
var c:integer;
begin
repeat
c:=c+1;
if(FindColorSpiral(x,y,16711680,5,345,510,465))and (not(GetColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
if(FindColorSpiral(x,y,16777215,5,345,510,465))and (not(GetColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;
procedure FindText;
var mx,my:integer;
begin
if(FindColorSpiral(mx,my,65535,3,3,515,338))then//Find close
begin
MMouse(mx,my+15,1,1);
repeat
if(IsTextAt2(9,9,'Talk',100))then
begin
Mouse(mx,my+15,1,1,false);
ClickText('Talk',5,5,515,338);
begin
Flag;
wait(2500+Random(500));
TalkToRand1;
end;
end;
MMouse(mx,my+15,1,1);
mx:=mx+5;
wait(random(10)+10+random(10));
until(mx>=515);
if(mx>=515)then MMouse(mx+random(5),my+15,1,1);
end;
end;
Procedure Randoms;
begin
FindText;
FindStrangeBox;
FindMiscRandoms;
Uselamp('mining')
end;//end Lauras edited randoms
Procedure bank;
Begin
Openbank;
wait(300+random(300))
mouse(586,227,3,3,false)
wait(300+random(300))
mouse(586,302,3,3,true)
wait(300+random(300))
mouse(443,40,3,3,true)
End;
procedure walkfrombanktomine;
begin
mouse(685,40,4,3,true)
wait(6000+random(2000))
while(WaitTillFlag)do
flag;
mouse(716,89,4,3,true)
wait(6000+random(2000))
while(WaitTillFlag)do
flag;
mouse(656,156,4,3,true)
wait(600+random(200))
while(WaitTillFlag)do
flag;
mouse(688,126,4,3,true)
wait(600+random(200))
while(WaitTillFlag)do
flag;
mouse(657,157,4,3,true)
wait(600+random(200))
while(WaitTillFlag)do
flag;
mouse(625,134,4,3,true)
wait(600+random(200))
while(WaitTillFlag)do
flag;
mouse(660,127,4,3,true)
wait(600+random(200))
while(WaitTillFlag)do
flag;
end;
procedure walkfromminetobank;
begin
mouse(680,21,4,3,true)
wait(4000+random(4000))
while(WaitTillFlag)do
flag;
mouse(635,12,4,3,true)
wait(4000+random(4000))
while(WaitTillFlag)do
flag;
mouse(639,15,4,3,true)
wait(4000+random(4000))
while(WaitTillFlag)do
flag;
mouse(598,33,4,3,true)
wait(4000+random(4000))
while(WaitTillFlag)do
flag;
mouse(661,49,4,3,true)
wait(4000+random(4000))
while(WaitTillFlag)do
flag;
mouse(713,237,4,3,true)
wait(4000+random(4000))
while(WaitTillFlag)do
flag;
mouse(774,260,4,3,true)
wait(4000+random(4000))
while(WaitTillFlag)do
flag;
end;
procedure mine;
begin
repeat
findcolorspiral(x,y,rockcolor,3,3,515,336)
mouse(x,y,3,3,true)
wait(rockwait+random(1000))
until(invincount=28)
end;
begin
loadinclude('iTunes')
repeat
mine;
walkfromminetobank;
bank;
walkfrombanktomine;
until(false)
end.


Reply With Quote





