Code:
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
program JokersEssMiner;
Var
EssRock,report2,report,Seconds,Minutes,RHours,orecount,RSeconds,RMinutes,Talk,Talky,Runs,randomtime,YellowText,iLamp,Talked,tele,Lamps,teley,store,ladder,use,usey,storey,log,bankq,bankqy:Integer;
Corner,Time:String;
LoadedOARPBmps,Walked,invfull:Boolean;
Const
username='';
password='';
BankSymbol=378079; {The yellow part or the bank symbol}
RuneFloor=1188393; {The floor of the rune shop}
Aubry=9280411; {Aubry's shirt color is best}
EssRockNw=7040116; {Essence ROCK color (on screen in NW Corner)}
EssRockNe=7040116; {Essence ROCK color (on screen in NE Corner)}
EssRockSw=7040116; {Essence ROCK color (on screen in SW Corner)}
EssRockSe=7040116; {Essence ROCK color (on screen in SE Corner)}
LadderColor=4878977; {The ladder in the SW room, on the floor}
TeleColor=11851226; {Color of the portal}
RuneOre=6974324; {Color or the ess in ur inventory}
BankBooth=2576993; {go here http://img132.exs.cx/my.php?loc=img132I=here1vj.png}
{ .include OSi.txt}
{ .include BoxBreaker.txt}
Procedure LoadOARPBmps;
begin
LoadedOARPBmps:=true;
Talk := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
//Lamp pic by Chriz
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'000001000001C2C118');
end;
Procedure LoadBMPs;
begin
storey := BitmapFromString(20, 4,
'FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
'0000005A52425A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
'0000005A5242FFFF00FFFF00FFFF00FFFF000000000000005A5242' +
'FFFF00FFFF000000005A52425A5242FFFF00FFFF000000005A5242' +
'FFFF00FFFF000000005A5242FFFF00000000000000000000000000' +
'5A52425A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00' +
'0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00' +
'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A52425A5242' +
'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242');
store := BitmapFromString(18, 4,
'5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
'5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
'FFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF0000005A5242' +
'5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
'0000000000000000005A52425A5242FFFFFFFFFFFF0000005A5242' +
'5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
'FFFFFFFFFFFFFFFFFF5A52425A5242FFFFFFFFFFFF0000005A5242' +
'5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
'');
use := BitmapFromString(25, 2,
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
'5D54475D54475D54475D54475D54475D544700FFFFFFFFFFFFFFFF' +
'0000005D5447FFFFFFFFFFFF000000000000000000000000000000' +
'5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447' +
'5D54475D54475D54475D544700FFFF');
useY := BitmapFromString(25, 2,
'FFFF00FFFF000000005D5447FFFF00FFFF00000000000000000000' +
'0000000000005D5447FFFF00FFFF00000000000000FFFF00FFFF00' +
'5D54475D54475D54475D54475D54475D544700FFFFFFFF00FFFF00' +
'0000005D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
'5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447' +
'5D54475D54475D54475D544700FFFF');
bankqy := BitmapFromString(41, 6,
'000000000000FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
'5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
'FFFF00FFFF000000005A52425A52425A52425A5242FFFF00FFFF00' +
'FFFF000000000000005A52425A5242FFFF00FFFF000000005A5242' +
'FFFF00FFFF000000005A5242FFFF000000005A5242FFFF00FFFF00' +
'0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
'5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
'5A52425A52425A5242FFFF00FFFF00FFFF00FFFF005A52425A5242' +
'5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
'FFFF00FFFF005A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
'0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
'5A5242FFFF00FFFF000000005A52425A52425A52425A5242FFFF00' +
'FFFF00000000FFFF00FFFF005A52425A5242FFFF00FFFF00000000' +
'5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00000000' +
'0000005A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00' +
'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A5242FFFF00' +
'FFFF005A5242FFFF00FFFF000000005A52425A52425A5242000000' +
'000000FFFF005A5242000000FFFF00FFFF000000005A52425A5242' +
'5A52420000000000000000000000005A52425A52425A5242000000' +
'0000005A52425A52425A52420000000000000000000000005A5242' +
'5A52420000000000005A52425A52420000000000005A5242000000' +
'0000005A52425A52425A52425A52425A5242FFFF005A52425A5242' +
'FFFF00FFFF000000005A52425A52425A52425A52425A52425A5242' +
'5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
'5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
'5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
'5A52425A5242FFFF00');
ladder := BitmapFromString(24, 6,
'00FFFF00FFFF0000005A52425A52425A52425A524200FFFF00FFFF' +
'00000000000000FFFF00FFFF5A52425A52425A524200FFFF00FFFF' +
'00000000FFFF00FFFF0000005A52425A524200FFFF00FFFF000000' +
'5A52425A52425A52425A52425A524200FFFF00FFFF00FFFF00FFFF' +
'00FFFF0000005A524200FFFF00FFFF00000000000000FFFF00FFFF' +
'0000005A524200FFFF00FFFF00FFFF0000005A52425A52425A5242' +
'5A524200FFFF00FFFF00000000000000FFFF00FFFF0000005A5242' +
'00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
'00FFFF00FFFF0000005A52425A52425A52425A524200FFFF00FFFF' +
'0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF000000' +
'5A524200FFFF00FFFF0000005A524200FFFF00FFFF00FFFF00FFFF' +
'00FFFF00FFFF00FFFF5A52425A524200FFFF00FFFF00FFFF00FFFF' +
'00FFFF0000005A52425A524200FFFF00FFFF00FFFF00FFFF00FFFF' +
'0000005A52425A52425A5242000000000000000000000000000000' +
'0000005A52425A52420000000000000000000000000000005A5242' +
'5A52425A52420000000000000000000000000000005A52425A5242' +
'');
bankq := BitmapFromString(24, 4,
'0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
'5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
'FFFFFFFFFFFF0000005A52425A52425A5242FFFFFF5A5242FFFFFF' +
'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
'0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
'5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF0000005A5242' +
'5A5242FFFFFFFFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFF' +
'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF5A5242' +
'5A5242000000FFFFFFFFFFFF0000005A52425A52425A5242000000' +
'0000000000000000005A52425A52425A52420000000000005A5242' +
'5A52425A5242000000000000000000000000');
log := BitmapFromString(18, 3,
'00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
'00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
'00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
'00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
'00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
'00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
'');
tele := BitmapFromString(35, 5,
'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005A5242' +
'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFF' +
'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
'0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFF' +
'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'0000000000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF000000' +
'5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF' +
'0000005A52425A5242FFFFFFFFFFFF000000000000000000000000' +
'5A52425A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
'0000000000000000005A52425A5242FFFFFFFFFFFF0000005A5242' +
'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5A5242' +
'5A5242FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFF5A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'0000000000005A52425A5242FFFFFF5A52420000000000005A5242' +
'5A52425A52425A52420000000000000000000000000000005A5242' +
'5A52420000000000005A52425A52425A5242000000000000000000' +
'0000000000005A5242FFFFFFFFFFFF000000000000000000000000' +
'5A52425A52425A52425A5242');
teley := BitmapFromString(31, 5,
'5A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00000000' +
'5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00' +
'FFFF000000005A5242FFFF005A5242FFFF00FFFF000000005A5242' +
'5A5242FFFF00FFFF00FFFF00FFFF00FFFF000000000000005A5242' +
'FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00FFFF00FFFF00' +
'0000000000005A5242FFFF00FFFF000000005A5242FFFF005A5242' +
'FFFF00FFFF000000005A52425A5242FFFF00FFFF00000000000000' +
'0000000000005A52425A5242FFFF00FFFF000000005A5242FFFF00' +
'FFFF000000000000000000000000005A52425A5242FFFF00FFFF00' +
'0000005A5242FFFF005A5242FFFF00FFFF000000005A52425A5242' +
'5A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242FFFF00' +
'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00' +
'5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242' +
'0000000000005A52425A52425A52425A5242000000000000000000' +
'0000000000005A52425A52420000000000005A52425A52425A5242' +
'0000000000000000000000000000005A5242FFFF00FFFF00000000' +
'000000000000');
end;
Procedure LoginIfNeeded;
begin
if(Getcolor(274,291)=16777215) then
begin
mouse(461,293,75,15,true)
wait(500 + random(250))
SendKeysSilentSmooth(username,50+random(50))
wait(300 + random(250))
Mouse(405,271,50,5,true)
wait(500 + random(1000))
SendKeysSilentSmooth(password,50+random(50))
wait(1000 + random(500))
mouse(317,325,20,10,true)
repeat
wait(2500 + random(100))
until(Getcolor(201,67)=65535)
if(findcolorspiraltolerance(x,y,8684676,421,54,495,150,5))then
begin
Mouse(x,y,0,0,true)
wait(1000 + random(250))
end;
end;
end;
procedure findportalarea;
begin
SetRun(true)
if(corner='NW')then
begin
Mouse(616,75,1,1,true)
wait(8000+random(1000))
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
begin
MMouse(x,y,1,1)
wait(100+random(100))
if(IsTextAt2(9,9,'Use',200))then
Begin
Mouse(x,y,1,1,true)
wait(8000+random(3000))
end;
end;
end;
if(corner='NE')or(corner='centerNE')then
begin
if(corner='centerNE')then
begin
mouse(681,32,2,2,true)
wait(8000+random(3000))
corner:='NE'
end;
if(corner='NE')then
begin
Mouse(678,51,1,1,true)
Wait(8000+random(1000))
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
begin
MMouse(x,y,1,1)
wait(100+random(100))
end;
if(IsTextAt2(9,9,'Use',200))then
Begin
Mouse(x,y,1,1,true)
Wait(8000+random(1000))
end;
end;
end;
if(corner='SW')or(corner='centerSW')then
begin
if(corner='centerSW')then
begin
mouse(615,115,5,5,true)
wait(6000+random(1000))
corner:='SW'
end;
if(corner='SW')and(Walked=True)then
begin
Mouse(618,72,1,1,true)
wait(8000+random(1000))
end;
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
begin
MMouse(x,y,1,1)
wait(100+random(100))
end;
if(IsTextAt2(9,9,'Use',200))then
Begin
Mouse(x,y,1,1,true)
Wait(8000+random(1000))
end;
if(corner='SW')then
begin
Mouse(618,72,1,1,true)
wait(8000+random(1000))
end;
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
begin
MMouse(x,y,1,1)
wait(100+random(100))
end;
if(IsTextAt2(9,9,'Use',200))then
Begin
Mouse(x,y,1,1,true)
Wait(8000+random(1000))
end;
end;
if(corner='SE')then
begin
wait(100+random(25))
Mouse(674,103,1,1,true)
wait(8000+random(1000))
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
begin
MMouse(x,y,1,1)
wait(100+random(100))
if(IsTextAt2(9,9,'Use',200))then
begin
Mouse(x,y,1,1,true)
Wait(8000+random(1000))
end;
end;
end;
end;
Procedure Checkinv;
begin
Mouse(648,183,5,5,true)
if(FindColorSpiralTolerance(x,y,RuneOre,693,431,746,465,15))then
begin
invfull:=true
end;
end;
Procedure Randomtalk;
var
ran:integer;
begin
ran:=Random(10)
if(ran=1)then
begin
Say('Whats everybodys woodcutting level?')
wait(1000+random(50))
Say('Mines 50.')
end;
if(ran=2)then
begin
Say('How much money does everybody have?')
wait(1000+random(500))
Say('I have...')
wait(1000+random(500))
Say('Around 300k')
end;
if(ran=3)then
begin
Say('I have mind ' +inttostr(orecount)+ ' Essence.')
wait(1000+random(500))
Say('mined*')
end;
if(ran=4)then
begin
Say('Whats everybodys mining level?')
wait(1000+random(500))
end;
if(ran=5)then
begin
Say('This is SOOOO borng...')
wait(1000+random(50))
Say('oops, I meant boring')
end;
if(ran=6)then
begin
Say('I wish I had a better way to make money...')
wait(1000+random(50))
end;
if(ran=8)then
begin
Say('Ive been at this for like two hours...')
wait(1000+random(50))
end;
if(ran=9)then
begin
Say('How much Pure Essence does everybody have?')
wait(1000+random(50))
end;
if(ran=10)then
begin
Say('Im going to get around 140k from all this Essence...')
wait(1000+random(50))
end;
end;
Procedure ProgressReport;
var
avg:integer;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+ ' Seconds'
if(not(Minutes=0))then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if(RHours<>0) then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
avg:=(Minutes div 60)*28
end;
begin
writeln(' ');
writeln(' ');
writeln(' ');
writeln('<=================Progress Report================>');
writeln('Worked for '+Time);
writeln('Mined '+inttostr(orecount)+' '+'Ores');
writeln('Currently Mining '+inttostr(avg)+' '+' Ores and hour');
writeln('Handled: '+inttostr(YellowText)+' Talking Randoms, and ran from '+inttostr(runs)+' random events');
Writeln('<================================================>');
Report2:=GetSystemTime;
end;
end;
end;
procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
If(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Runs:=Runs+1;
SetRun(true);
Wait(50+random(10));
findportalarea;
end;
end;
procedure TalkToRand;
begin
Writeln('Talking to Random Event.')
repeat
if(FindColorSpiral(x,y,16711680,5,345,510,465))or(FindColorSpiral(x,y,16777215,5,345,510,465))then
begin
Mouse(x,y,50,2,true);
wait(2000+random(1000));
end;
until(GetColor(20,434)=0)
end;
procedure FindText;
var counter:integer;
begin
if(FindColor(x,y,65535,5,5,514,337))then
begin
wait(200)
if(FindColor(x,y,65535,5,5,514,337))then
begin
Writeln('Found Yellow Text.')
Yellowtext:=Yellowtext+1;
GetScreenShot('YellowtextFound',Yellowtext);
repeat
counter:=counter+2+random(1);
if((x+counter) < 515)and((y+18) < 338)then
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
wait(5);
if(FindColorSpiral(x,y,65280,180,90,320,230))then
break;
if(IsTextAt2(9,9,'Ta',100))then
begin
GetMousePos(x,y);
Mouse(x,y,1,1,false);
Wait(200+random(100));
if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
TalkToRand;
Talked:=Talked+1
end;
end;
until(counter>=250);
end;
end;
end;
Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
begin
Writeln('Lamp Found in invintory. Rubbing Lamp...')
Lamps:=Lamps+1;
GetScreenshot('Lamp',Lamps);
Mouse(x,y,10,10,true);
wait(3000+random(1000));
Mouse(157,220,12,12,true)
wait(3000+random(1000));
Mouse(248,255,10,2,true);
wait(3000+random(1000));
Mouse(226,442,10,3,true);
wait(3000+random(1000));
end;
end;
Procedure FindMod;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
end;
Procedure CheckIfDead;
begin
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
end;
end;
Procedure FindMime;
var ax,ay:integer;
begin
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;
Procedure CheckRandoms;
begin
randomtime:=getsystemtime+5000
if(not LoadedOARPBmps)then
LoadOARPBmps;
LoginIfNeeded;
FindText;
FindFight;
FindLamp;
FindMod;
FindMime;
CheckIfDead;
repeat
LookForBox(true)
getquestion;
getanswer;
answerquestion;
wait(1500+random(500));
until(not(FindBitmapSpiralTolerance(RandomBox,x,y,570,200,745,465,100)))
FreeBoxBmps;
end;
Procedure FindRockTopLeft;
begin
if(FindObjColorTol('Mine',Essrock,100))then
Mouse(x,y,1,1,true)
wait(100)
Uberwait(2500+random(1000))
CheckRandoms;
Mouse(648,184,1,1,true)
Checkinv;
end;
Procedure FindRockTopRight;
begin
if(FindObjColorTol('Mine',Essrock,100))then
Mouse(x,y,1,1,true)
wait(100)
Uberwait(2500+random(1000))
CheckRandoms;
Mouse(648,184,1,1,true)
Checkinv;
end;
Procedure FindRockBottomRight;
begin
if(FindObjColorTol('Mine',Essrock,100))then
Mouse(x,y,1,1,true)
wait(100)
Uberwait(2500+random(1000))
CheckRandoms;
Mouse(648,184,1,1,true)
end;
Procedure FindRockBottomLeft;
begin
if(FindObjColorTol('Mine',Essrock,100))then
Mouse(x,y,1,1,true)
wait(100)
Uberwait(2500+random(1000))
CheckRandoms;
Mouse(648,184,1,1,true)
Checkinv;
end;
Procedure MineEssence;
begin
Writeln('Mining Essence...')
repeat
Mouse(648,184,1,1,true)
wait(250+random(250))
if(corner='SE')then
begin
EssRock:=EssRockSE
FindRockTopRight;
wait(100+random(100))
FindRockTopLeft;
wait(100+random(100))
FindRockBottomLeft;
wait(100+random(100))
CheckRandoms;
wait(250+random(250))
end;
if(corner='SW')and(Walked=True)then
begin
EssRock:=EssRockSW
FindRockBottomLeft;
wait(100+random(100))
CheckRandoms;
wait(250+random(250))
end;
if(corner='SW')and(Walked=False)then
begin
EssRock:=EssRockSw
FindRockBottomLeft;
wait(100+random(100))
CheckRandoms;
wait(250+random(250))
end;
if(corner='NW')then
begin
EssRock:=EssRockNW
FindRockTopRight;
wait(100+random(100))
FindRockTopLeft;
wait(100+random(100))
FindRockBottomLeft;
wait(100+random(100))
CheckRandoms;
wait(250+random(250))
end;
if(corner='NE')then
begin
EssRock:=EssRockNE
FindRockTopRight;
wait(100+random(100))
FindRockTopLeft;
wait(100+random(100))
FindRockBottomLeft;
wait(100+random(100))
CheckRandoms;
end;
wait(250+random(250))
wait(250+random(250))
until(invfull=true)
FindPortalArea;
corner:=''
end;
Procedure WalkToAubry;
begin
Writeln('Walkin To Aubry...')
Writeln('Finding Bank Symbol..')
repeat
wait(100+random(25))
until(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))
if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))then
begin
SetRun(true)
Mouse(684,99,1,1,true)
wait(500+random(25))
Mouse(711,482,1,1,true)
wait(3000+random(25))
if(FindColorspiraltolerancE(x,y,1579123,561,249,597,284,5))then
begin
wait(14000+random(2000))
end else
begin
wait(8000+random(2000))
end;
Mouse(616,140,1,1,true)
wait(8000+random(1000))
repeat
wait(250+random(200))
until(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,15))
if(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,15))then
begin
Mouse(x,y,2,2,true)
wait(4000+random(2000))
end;
end;
end;
Procedure Teleport;
Begin
Writeln('Finding Aubry...')
repeat
if(FindColorSpiralTolerance(x,y,Aubry,5,5,517,338,5))then
MMouse(x,y,4,4)
Uberwait(250+random(250))
if(IsTextAt2(9,9,'Talk',100))then
begin
Writeln('Found Aubry... Teleporting...')
GetMousePos(x,y)
Uberwait(100+random(50))
Mouse(x,y,0,0,false)
uberwait(100+random(50))
end;
until(findbitmapspiraltolerance(tele,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,25)))
if(findbitmapspiraltolerance(tele,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,25)))then
begin
uberwait(250+random(50))
Mouse(x,y,3,3,true)
end;
end;
{====================================================]
[================Jokers's Ingenious==================]
[==============Area Finding Procedure================]
[=====================JIAFP==========================}
procedure findcornerSW;
begin
if(corner='')then
begin
if(findcolorspiraltolerance(x,y,LadderColor,128,160,291,243,5))then
begin
mouse(x,y,2,2,false)
end;
if(findbitmap(ladder,x,y))then
begin
corner:='SW'
mouse(x,y,5,5,true)
end;
end;
end;
procedure findcornerSE;
begin
if(corner='')then
begin
mmouse(467,152,5,10)
if(IsTextAt2(9,9,'Mine Rune Essence',200))then
begin
corner:='SE'
end;
end;
end;
procedure findcornercenterSW;
begin
if(corner='')then
begin
if(findcolorspiraltolerance(x,y,538962,270,100,320,150,5))then
begin
mmouse(x,y,0,0)
if(IsTextAt2(9,9,'Chop down Dead tree',200))then
begin
corner:='centerSW'
Mouse(608,124,1,1,true)
corner:='SW'
Walked:=True
end;
end;
end;
end;
procedure findcornerNW;
begin
if(corner='')then
begin
mmouse(165,81,10,10)
wait(100+random(250))
if(IsTextAt2(9,9,'Mine Rune Essence',200))then
begin
corner:='NW'
end;
end;
end;
procedure findcornerNE;
begin
if(corner='')then
begin
mmouse(370,85,15,15)
if(IsTextAt2(9,9,'Mine Rune Essence',200))then
begin
corner:='NE'
end;
end;
end;
procedure findcornercenterNE;
begin
if(corner='')then
begin
if(findcolorspiraltolerance(x,y,2708083,5,50,50,125,5))then
begin
mouse(x,y,2,2,false)
end;
if(findbitmap(log,x,y))then
begin
corner:='centerNE'
mouse(684,30,5,5,true)
wait(5000+random(2500))
corner:='NE'
Walked:=True
end;
end;
end;
Procedure AubryToBank;
begin
setrun(true)
Mouse(670,60,4,4,true)
wait(9000+random(2000))
repeat
loginifneeded;
wait(250+random(250))
until(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))
if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))then
begin
Mouse(x,y,5,5,true)
MapFlag;
end;
end;
Procedure BankEssence;
begin
Writeln('Looking for bank...')
repeat
UberWait(2000+random(200))
if(FindColorSpiralTolerance(x,y,BankBooth,5,5,515,340,10))then
begin
Writeln('Opening Bank...')
MMouse(x,y,2,2)
if(IsTextAt2(9,9,'Use Bank',100))then
begin
Mouse(x,y,4,4,False)
UberWait(200+random(200))
end;
end;
until(findbitmapspiraltolerance(bankq,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340,25)))
if(findbitmapspiraltolerance(bankq,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340,25)))then
begin
Mouse(x,y,2,2,true)
Uberwait(6000+random(1000))
if(FindColorSpiralTolerance(x,y,RuneOre,693,431,746,465,15))then
begin
MMouse(x,y,1,1)
wait(100+random(100))
if(IsTextAt2(9,9,'Store 1 Rune',200))then
begin
Mouse(x,y,3,3,false)
uberwait(250+random(250))
if(FindBitmapSpiralTolerance(Store,x,y,557,201,748,475,15))then
begin
Mouse(x,y,3,3,true)
uberwait(1000+random(1000))
OreCount:=OreCount+27
ProgressReport;
Mouse(459,42,10,1,true)
wait(1000+random(250))
end;
end;
end;
end;
end;
begin
LoginIfNeeded;
SetupOSi;
LoadBankBmps;
LoadBoxBmps;
LoadBMPs;
ChatFixer;
Report:=1;
ST:=GetSystemTime;
repeat
WalkToAubry;
wait(1000+random(500))
Teleport;
wait(10000+random(1000))
repeat
findcornerSE
wait(100+random(50))
findcornerNE
wait(100+random(50))
findcornercenterSW
wait(100+random(50))
findcornerSW
wait(100+random(50))
findcornercenterNE
wait(100+random(50))
findcornerNW
wait(100+random(50))
until(not(corner=''))
Writeln('Your in the ' +corner + ' corner')
wait(100+random(50))
MineEssence;
AubryToBank;
wait(100+random(50))
BankEssence;
wait(100+random(50))
x:=random(5)
if(x=1)then
begin
Randomtalk;
ChatFixer;
end;
Walked:=False
until(false)
end.
And the current error that I have is: