Log in

View Full Version : i need help to set up this bot


i need help
11-21-2007, 08:37 PM
here is the instructions: my email is anthonytarantola9@hotmail.com, give me urs and ills end u the bot so u can use it if u help me with this

ankSymbol = 6282738; // Color of banksymbol on mini-map //
TreeColor = 3168336; //Color of leaves on tree //
Username = 'missmolly187'; // Your Username //
Password = 'westy'; // Your Password //
FHHTries = 5; // Number of time to look for head //
////////////////////////////////////////////////////////////

var
iLamp,TalkW,TalkY,BNorth,EB1,HeadColor:integer;
Stop,HeadFO:boolean;
Talked,Ran,Banked,Ents,Broke,Lamps,xx,yy,TempTree: integer;

procedure ProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt; Time:String;
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if 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';
end;
Writeln('Worked For '+Time);
Writeln('Banked '+inttostr(Banked)+' Time[s], '+inttostr(Banked*27)+' Log[s]');
Writeln('Talked '+inttostr(Talked)+' Time[s]');
Writeln('Ran '+inttostr(Ran)+' Time[s]');
Writeln('Ran From '+inttostr(Ents)+' Ent[s]');
Writeln('Got '+inttostr(Lamps)+' Lamp[s]');
Writeln(inttostr(Broke)+' Hatchet[s] Broke');
end;

function EntFound:boolean;
begin
if(FindBitmapToleranceIn(EB1,x,y,5,5,514,336,20))t hen
begin
Stop:=true;
Result:=true;
Ents:=Ents+1;
end;
end;

procedure AxeDamaged;
begin
if(GetColor(593,222)=65536)then
begin
Stop:=true;
HeadFO:=true;
Broke:=Broke+1;
end;
end;

procedure HeadGone;
var SFH:integer;
begin
if(GetColor(589,220)=4345174)then
begin
Stop:=true;
repeat
wait(10);
SFH:=SFH+1;
if(FindObjColorTol('Take A',HeadColor,20))then
MouseFlag(x,y,0,0);
until(SFH>=FHHTries)
HeadFO:=true;
Broke:=Broke+1;
end;
end;

procedure LoginifNeeded(Username,Password:string);
begin
if(notlogedin)then
begin
Mouse(461,295,9,9,true);
wait(600);
Mouse(373,255,0,0,true);
wait(200);
Say(username);
wait(400);
Say(password);
wait(200);
Mouse(302,320,9,9,true);
repeat
wait(50);
until(GetColor(457,62)=8421504)
wait(500);
Mouse(457,62,1,1,true);
Stop:=true;
end;
end;

procedure CheckLeveled;
begin
if(FindColor(x,y,16711680,114,358,494,454))or
(FindColor(x,y,16777215,114,358,494,454))then
begin
Mouse(x,y,0,0,true);
wait(500);
Stop:=true;
if(FindColor(x,y,16711680,114,358,494,454))or
(FindColor(x,y,16777215,114,358,494,454))then
begin
Mouse(x,y,0,0,true);
wait(300);
end;
end;
end;

procedure FindText;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(100)
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)th en
begin
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,0,0,false);
Wait(200+random(100));
if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y)) then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
(FindColor(x,y,16777215,5,345,510,465)))and
(not(GetColor(20,434)=0))and(c<=10)do
begin
Mouse(x,y,50,2,true);
wait(2000+random(1000));
c:=c+1;
end;
Talked2Rand:=true;
end;
end;
until(counter>=250)or(Talked2Rand);
Talked:=Talked+1;
Stop:=true;
end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200, 745,470,100)) do
begin
Mouse(x+random(2),y+random(2),10,10,true);
wait(3000+random(1000));
Mouse(157+random(2),220+random(2),12,12,true)
wait(3000+random(1000));
Mouse(248+random(2),255+random(2),10,2,true);
wait(3000+random(1000));
Mouse(226+random(2),442+random(2),10,3,true);
wait(3000+random(1000));
Stop:=true;
Lamps:=Lamps+1;
end;
end;

procedure Run;
begin
SetRun(true);
MouseFlag(706,87,1,1);
StandStill;
MouseFlag(595,85,1,1);
Ran:=Ran+1;
end;

function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
begin
Result:=true;
Stop:=true;
end;
end;

procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;

procedure Randoms;
begin
LogInIfneeded(username,password);
if(Fight)then
Run;
if(EntFound)then
StandStill;
AxeDamaged;
HeadGone;
CheckLeveled;
FindMiscRandoms;
FindText;
FindLamp;
FindStrangeBox;
end;

Procedure FaceNorth;
begin
If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then
while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))d o
SendArrowSilentWait(1,2+random(2));
end;

Function FlagGone:boolean;
var flagimage:integer;
begin
flagimage:=BitmapFromString(2,2,'FF00005D3311C6560 45D3311');
if(not(findbitmapin(flagimage,x,y,570,5,725,162))) then result:=true;
freebitmap(flagimage);
end;

function FindObj(objtext:string; objcolor,tol:integer):boolean;
var ax,ay:integer;
begin
repeat
wait(10);
ax:=random(514); ay:=random(336);
if(FindColorTolerance(x,y,objcolor,ax-10,ay-10,ax+10,ay+10,tol))then
begin
MMouse(x,y,1,1);
wait(350);
if(IsTextAt2(9,9,objtext,100))then
Result:=true;
end;
until(result=true)
end;

function FindTree:boolean;
begin
if(FindObj('Chop down W',TreeColor,5))then
begin
result:=true;
TempTree:=GetColor(x,y);
end;
end;

function TreeChopped:boolean;
begin
if(not(FindColorTolerance(x,y,TempTree,xx-30,yy-30,xx+30,yy+30,5)))then
Result:=true;
end;

procedure CutTree;
var TreeLoop:integer;
begin
Stop:=false;
if(FindTree)then
begin
Mouse(x,y,1,1,true);
repeat
FindColorTolerance(x,y,TempTree,x-30,y-30,x+30,y+30,5)
wait(10);
until(FlagGone)
for TreeLoop:=0 to 10 do
begin
FindColorTolerance(x,y,TempTree,x-30,y-30,x+30,y+30,5)
wait(10);
end;
xx:=x; yy:=y;
repeat
wait(150);
Randoms;
until(TreeChopped)or(InvinFull)or(Stop)
end;
end;

procedure ToBank;
begin
Randoms;
FaceNorth;
SetRun(true);
if(not(FindColor(x,y,BankSymbol,573,8,723,160)))th en
MouseFlag(669,51,4,4);
if(FindColor(x,y,BankSymbol,573,8,723,160))then
MouseFlag(x,y,2,2);
wait(500);
SetRun(false);
end;

Function OpenBank2:boolean;
var c:integer;
begin
if(rcmQuickBank=0)then
LoadBankBmps;
if(FindObj('Use Bank',2710643,15))then
begin
Mouse(x,y,1,1,false);
wait(75+random(25));
if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQ uickBankY,x,y))then
begin
Mouse(x,y,5,2,true);
MapFlag;
end else
MMouse(5,5,60,60);
while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
begin
wait(50+random(25));
c:=c+1;
end;
end;
if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254)) then
Mouse(472,81,4,10,true);
wait(200+random(100));
if(IsTextAt2(185,36,'The Bank of RuneScape',100))then
result:=true;
end;

procedure Bank;
begin
Randoms;
OpenBank2;
Deposit(0,0,0);
Withdraw(1,1,1);
CloseBank;
HeadFO:=false;
Banked:=Banked+1;
ProgressReport;
end;

procedure ToTrees;
begin
SetRun(true);
Randoms;
FaceNorth;
MouseFlag(637,114,4,4);
MouseFlag(643,97,2,2);
Randoms;
SetRun(false);
end;

procedure LoadBmps;
begin
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF0000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF0000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' );
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000000000000 00000' +
'000000000000000000000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF000000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF000000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000000000000000F FFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' );
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159 C9A12' +
'9291128C8A1275740E000001000001000001000001000001D 0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A 3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C 5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A 3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C 0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E129 99712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918B AB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A129594128 1800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B 8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E7 5740E' +
'000001000001C2C118');
BNorth := BitmapFromString(8, 11,
'640000640000640000000001640000790E006400006400006 40000' +
'790E00640000640000790E003F00003F0000790E00790E003 F0000' +
'3F0000790E00851B003F00003F0000851B00851B003F00003 F0000' +
'3F0000790E003F00003F00009622009622003F00003F00003 F0000' +
'790E003F00003F00009622009622003F00003F0000790E003 F0000' +
'3F00003F00009622009622003F00003F00009622003F00003 F0000' +
'3F00009622009622003F00003F00009622009622003F00003 F0000' +
'9C36009C36003F00003F0000AB4601AB46013F00003F00009 C3600' +
'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601A B4601' +
'AB4601AB46010000019C3600BA5604BA5604BA5604');
EB1 := BitmapFromString(7, 6,
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F8 05F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F8 05F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F8 05F2F' +
'7D5B2D805F2F805F2F805F2F805F2F805F2F805F2F7D5B2D8 05F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F');
end;

begin
Setuposi
BoxOpenerSetup;
LoadBmps;
LoginifNeeded(Username,Password);
ChatFixer;
HeadColor:=GetColor(589,220);
FaceNorth;
repeat
repeat
CutTree;
until(InvinFull)or(HeadFO)
ToBank;
Bank;
ToTrees;
until(false)
end.
[S]paz
11-21-2007, 08:41 PM
ok first the bitmpas are huiggge make them smaller.. someone once said to me... even a superdupa computer would lag :p lol yerso make them much much smaller... secondly.... u dont need to paste the funcitons included uin srl.. like the open bank booth.. jst say
[scar]
openbankquiet; or something like that

things like findobj are not needed jst say findobj(x, y, [objexct shit...) and thats it ok? as long as u include srl :p

if u need any more help pm me

spaz
Submersal
11-21-2007, 08:48 PM
BankSymbol = 6282738; // Color of banksymbol on mini-map //
TreeColor = 3168336; //Color of leaves on tree //
Username = 'missmolly187'; // Your Username //
Password = 'westy'; // Your Password //
FHHTries = 5; // Number of time to look for head //
////////////////////////////////////////////////////////////

var
iLamp,TalkW,TalkY,BNorth,EB1,HeadColor:integer;
Stop,HeadFO:boolean;
Talked,Ran,Banked,Ents,Broke,Lamps,xx,yy,TempTree: integer;

procedure ProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt; Time:String;
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if 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';
end;
Writeln('Worked For '+Time);
Writeln('Banked '+inttostr(Banked)+' Time[s], '+inttostr(Banked*27)+' Log[s]');
Writeln('Talked '+inttostr(Talked)+' Time[s]');
Writeln('Ran '+inttostr(Ran)+' Time[s]');
Writeln('Ran From '+inttostr(Ents)+' Ent[s]');
Writeln('Got '+inttostr(Lamps)+' Lamp[s]');
Writeln(inttostr(Broke)+' Hatchet[s] Broke');
end;

function EntFound:boolean;
begin
if(FindBitmapToleranceIn(EB1,x,y,5,5,514,336,20))t hen
begin
Stop:=true;
Result:=true;
Ents:=Ents+1;
end;
end;

procedure AxeDamaged;
begin
if(GetColor(593,222)=65536)then
begin
Stop:=true;
HeadFO:=true;
Broke:=Broke+1;
end;
end;

procedure HeadGone;
var SFH:integer;
begin
if(GetColor(589,220)=4345174)then
begin
Stop:=true;
repeat
wait(10);
SFH:=SFH+1;
if(FindObjColorTol('Take A',HeadColor,20))then
MouseFlag(x,y,0,0);
until(SFH>=FHHTries)
HeadFO:=true;
Broke:=Broke+1;
end;
end;

procedure LoginifNeeded(Username,Password:string);
begin
if(notlogedin)then
begin
Mouse(461,295,9,9,true);
wait(600);
Mouse(373,255,0,0,true);
wait(200);
Say(username);
wait(400);
Say(password);
wait(200);
Mouse(302,320,9,9,true);
repeat
wait(50);
until(GetColor(457,62)=8421504)
wait(500);
Mouse(457,62,1,1,true);
Stop:=true;
end;
end;

procedure CheckLeveled;
begin
if(FindColor(x,y,16711680,114,358,494,454))or
(FindColor(x,y,16777215,114,358,494,454))then
begin
Mouse(x,y,0,0,true);
wait(500);
Stop:=true;
if(FindColor(x,y,16711680,114,358,494,454))or
(FindColor(x,y,16777215,114,358,494,454))then
begin
Mouse(x,y,0,0,true);
wait(300);
end;
end;
end;

procedure FindText;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(100)
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)th en
begin
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,0,0,false);
Wait(200+random(100));
if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y)) then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
(FindColor(x,y,16777215,5,345,510,465)))and
(not(GetColor(20,434)=0))and(c<=10)do
begin
Mouse(x,y,50,2,true);
wait(2000+random(1000));
c:=c+1;
end;
Talked2Rand:=true;
end;
end;
until(counter>=250)or(Talked2Rand);
Talked:=Talked+1;
Stop:=true;
end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200, 745,470,100)) do
begin
Mouse(x+random(2),y+random(2),10,10,true);
wait(3000+random(1000));
Mouse(157+random(2),220+random(2),12,12,true)
wait(3000+random(1000));
Mouse(248+random(2),255+random(2),10,2,true);
wait(3000+random(1000));
Mouse(226+random(2),442+random(2),10,3,true);
wait(3000+random(1000));
Stop:=true;
Lamps:=Lamps+1;
end;
end;

procedure Run;
begin
SetRun(true);
MouseFlag(706,87,1,1);
StandStill;
MouseFlag(595,85,1,1);
Ran:=Ran+1;
end;

function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
begin
Result:=true;
Stop:=true;
end;
end;

procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;

procedure Randoms;
begin
LogInIfneeded(username,password);
if(Fight)then
Run;
if(EntFound)then
StandStill;
AxeDamaged;
HeadGone;
CheckLeveled;
FindMiscRandoms;
FindText;
FindLamp;
FindStrangeBox;
end;

Procedure FaceNorth;
begin
If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then
while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))d o
SendArrowSilentWait(1,2+random(2));
end;

Function FlagGone:boolean;
var flagimage:integer;
begin
flagimage:=BitmapFromString(2,2,'FF00005D3311C6560 45D3311');
if(not(findbitmapin(flagimage,x,y,570,5,725,162))) then result:=true;
freebitmap(flagimage);
end;

function FindObj(objtext:string; objcolor,tol:integer):boolean;
var ax,ay:integer;
begin
repeat
wait(10);
ax:=random(514); ay:=random(336);
if(FindColorTolerance(x,y,objcolor,ax-10,ay-10,ax+10,ay+10,tol))then
begin
MMouse(x,y,1,1);
wait(350);
if(IsTextAt2(9,9,objtext,100))then
Result:=true;
end;
until(result=true)
end;

function FindTree:boolean;
begin
if(FindObj('Chop down W',TreeColor,5))then
begin
result:=true;
TempTree:=GetColor(x,y);
end;
end;

function TreeChopped:boolean;
begin
if(not(FindColorTolerance(x,y,TempTree,xx-30,yy-30,xx+30,yy+30,5)))then
Result:=true;
end;

procedure CutTree;
var TreeLoop:integer;
begin
Stop:=false;
if(FindTree)then
begin
Mouse(x,y,1,1,true);
repeat
FindColorTolerance(x,y,TempTree,x-30,y-30,x+30,y+30,5)
wait(10);
until(FlagGone)
for TreeLoop:=0 to 10 do
begin
FindColorTolerance(x,y,TempTree,x-30,y-30,x+30,y+30,5)
wait(10);
end;
xx:=x; yy:=y;
repeat
wait(150);
Randoms;
until(TreeChopped)or(InvinFull)or(Stop)
end;
end;

procedure ToBank;
begin
Randoms;
FaceNorth;
SetRun(true);
if(not(FindColor(x,y,BankSymbol,573,8,723,160)))th en
MouseFlag(669,51,4,4);
if(FindColor(x,y,BankSymbol,573,8,723,160))then
MouseFlag(x,y,2,2);
wait(500);
SetRun(false);
end;

Function OpenBank2:boolean;
var c:integer;
begin
if(rcmQuickBank=0)then
LoadBankBmps;
if(FindObj('Use Bank',2710643,15))then
begin
Mouse(x,y,1,1,false);
wait(75+random(25));
if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQ uickBankY,x,y))then
begin
Mouse(x,y,5,2,true);
MapFlag;
end else
MMouse(5,5,60,60);
while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
begin
wait(50+random(25));
c:=c+1;
end;
end;
if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254)) then
Mouse(472,81,4,10,true);
wait(200+random(100));
if(IsTextAt2(185,36,'The Bank of RuneScape',100))then
result:=true;
end;

procedure Bank;
begin
Randoms;
OpenBank2;
Deposit(0,0,0);
Withdraw(1,1,1);
CloseBank;
HeadFO:=false;
Banked:=Banked+1;
ProgressReport;
end;

procedure ToTrees;
begin
SetRun(true);
Randoms;
FaceNorth;
MouseFlag(637,114,4,4);
MouseFlag(643,97,2,2);
Randoms;
SetRun(false);
end;

procedure LoadBmps;
begin
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF0000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF0000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' );
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000000000000 00000' +
'000000000000000000000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF000000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF000000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000000000000000F FFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' );
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159 C9A12' +
'9291128C8A1275740E000001000001000001000001000001D 0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A 3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C 5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A 3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C 0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E129 99712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918B AB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A129594128 1800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B 8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E7 5740E' +
'000001000001C2C118');
BNorth := BitmapFromString(8, 11,
'640000640000640000000001640000790E006400006400006 40000' +
'790E00640000640000790E003F00003F0000790E00790E003 F0000' +
'3F0000790E00851B003F00003F0000851B00851B003F00003 F0000' +
'3F0000790E003F00003F00009622009622003F00003F00003 F0000' +
'790E003F00003F00009622009622003F00003F0000790E003 F0000' +
'3F00003F00009622009622003F00003F00009622003F00003 F0000' +
'3F00009622009622003F00003F00009622009622003F00003 F0000' +
'9C36009C36003F00003F0000AB4601AB46013F00003F00009 C3600' +
'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601A B4601' +
'AB4601AB46010000019C3600BA5604BA5604BA5604');
EB1 := BitmapFromString(7, 6,
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F8 05F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F8 05F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F805F2F805F2F8 05F2F' +
'7D5B2D805F2F805F2F805F2F805F2F805F2F805F2F7D5B2D8 05F2F' +
'805F2F805F2F805F2F805F2F805F2F805F2F');
end;

begin
Setuposi
BoxOpenerSetup;
LoadBmps;
LoginifNeeded(Username,Password);
ChatFixer;
HeadColor:=GetColor(589,220);
FaceNorth;
repeat
repeat
CutTree;
until(InvinFull)or(HeadFO)
ToBank;
Bank;
ToTrees;
until(false)
end.

Just to help some people reading it.

Fix your standards. =]

EDIT: Remove your PW and User. :P
JuKKa
11-21-2007, 08:51 PM
dont use a old script like that. And that is not a "bot" its a "script".
Submersal
11-21-2007, 08:59 PM
I think he sort of claimed it was his?

If not, leecher.
[S]paz
11-21-2007, 09:14 PM
is it not his?? thought i was./.....
whose is it then?/

spaz
buck cakes
11-22-2007, 12:17 AM
well i dont think pws can be under 6 chars in length, but remove username and password anyways