SCAR Code:
program LumbyAllInOne;
{.include SRL/SRL.scar}
var
hometeleport, canthometeleport, SST2, lx, ly, x, HowWeClick, SST1, FindFastRandomsTime, FindNorMalRandomsTime, woodcutting, chickens, y:integer;
ky, kx:integer;
const
Location = 'lumbridge'; //You can use Chicken Pen, Lumbridge, or Other.
Skill = 'woodcutting';//skill you want to train
{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;
end;
end;
//credits to WT-FAWAKI-----------------------------------------//
// -- Performs Wait and FindTalk. + calls FindNormalRandoms every 10 secs and
// -- FindFastRandoms every 3 secs.
//----------------------------------------------------------------------------//
Procedure WaitPlus(Time:Integer);
var T: integer;
begin
For T := 1 to Time do
begin
if not LoggedIn then exit;
Wait(200 + Random(50));
FindTalk;
RC;
end;
FindTalk;
MarkTime(FindNorMalRandomsTime);
if FindNorMalRandomsTime - SST1 >(10000 + Random(5000)) then
begin
FindNorMalRandoms;
MarkTime(SST1);
end;
MarkTime(FindFastRandomsTime);
if FindFastRandomsTime - SST2 >(1500 + Random(1500)) then
begin
FindFastRandoms;
MarkTime(SST2);
end;
end;
procedure antiban;
begin
Case Random(10) Of
1 : HoverSkill('defense', False);
2 : HoverSkill('strenght', False);
3 : begin
GameTab(1+Random(12));
Wait(2000+Random(400));
GameTab(4);
end;
4 : RandomRClick;
5 : PickUpMouse;
6 : HoverSkill('attack', False);
7 : almostlogout;
8 : begin
gametab(9);
gametab(5);
gametab(1);
gametab(2);
end;
9 :begin
mmouse(x,y,333,273);
end;
end;
end;
procedure loadbitmaps;
begin
hometeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
'3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
'58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
'6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
'5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
'E870');
canthometeleport := BitmapFromString2(False, 'a046E278DA8D534BB2C' +
'42008BC129AC1CF524D72FF233D119FC12853E3A2CB6A5AC01601' +
'C0A40F54F415C0C58BD05842E7882F8D07D260700FFAF044318C5' +
'39D09B4C70F65C37C0D8D0D2D0F92086FCAE32CD73D08BDA9E8DB' +
'299F49E92E3AE5F1263C4E62323E51DEDBF2ECDB2DBA3EDAA14C8' +
'118B8295B5D25E714F1845C22BE983366C652A998383AF8AA67A5' +
'E4A592F7AC3C6D31B1A8286AF56C73746498A2CCCBCE5BC55EF72' +
'83619B57FCEC01A815DC34C28982C2388C5B7967797CC2FD1B55B' +
'D9A15CD219CDBD8D7271E6E573D17B50DFC2E42BC1EA98F44D5B9' +
'A27DA2C6D7D189A75327BFEEFAFBC3AB69BC3AD63EB544F28BA52' +
'1D13CCD4A1E2A1F62BB5591A2FFE9A81D5B1C9B7F5B7CACE8503B' +
'D8AE4FFBD85E8A60CED2EDF1DEB3D2C7F6133E7B2BA32757FD5D');
chickens := BitmapFromString2(False, 'aF5E9278DA7D904B0EC' +
'4200C43AF9484FCBAA403DCFF484D40D3328BE9E6C9728C2D0100' +
'6815824C41D1D472C2647F9C36E91A54E024D787C74C8EBC8A7CD' +
'2C1D9D63D48CEB7BF329AC778559233A3E3B81DC39CD753527336' +
'5B2D371D3269A565C6B3C8642429FB715E71401984C8DCA9222A3' +
'160DF491D1BF27BC688C797EEC2A44B8BC63788A216831F361347' +
'8E5A817F5C8B3BF7F55DEFEBCB79DFBD00D73');
woodcutting := BitmapFromString2(False, 'aCBF7C78DABD92DD0E8' +
'33008465F0968F9F1D26A7DFF479AA0E9D8DC9665178BC9490387' +
'AF1805009C2BECD41D20464EBC93D59C327B45C4C936C8ADFB193' +
'C81E7987200F7E8D63E66D97C962C4C5E9C9B0C5FBB5FAFBC0D4A' +
'6C2553F1CAC2CE5607659BFC1CF9B2C66CECAFE4C9A23866A5F92' +
'C1637EB344B13203D0955895EF073F73F3436AA27DF3B6B38EBCF' +
'4EEE0671A98CE51B677F3AC2790E12B3E1F4E0A4FA95D929CA852' +
'0778F1CEAC4D0DEA565279B47DAF92EC73EB16D36B37F7CF15A69' +
'45CB7CF85B2ECEB53B28177EE33CF106C4D');
end;
Procedure casthometeleport;
begin
loadbitmaps;//loadsbitmaps
gametab(7);
wait(400+Random(600));
If(FindBitmap(hometeleport, lx, ly)) Then
Begin
wait(100 + Random(150));
Mouse(lx, ly, 5, 5, True);
if (FindBitmap(canthometeleport, kx, ky)) then
begin
writeln('cant use home teleport logging out');
logout;
end
else
wait(15000);
WriteLn('your in limbridge, have a nice day!');
end
else
If Not(FindBitmap(HomeTelePort, lx, ly)) Then
begin
WriteLn('couldnt fin spell.');
end;
freebitmap(hometeleport);
freebitmap(canthometeleport);
freebitmap(chickens);
freebitmap(woodcutting);
end;
procedure WalkToTree;
begin
HighestAngle;
MakeCompass('N');
FindRoadColor;
SetRun(true);
RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0); //radialroadwalking
fflag(10);
WriteLn('to bridge');
RadialRoadWalk(RoadColor, 300, 335, 75, 0, 0);
WriteLn('to shop');
RadialRoadWalk(RoadColor, 300, 335, 65, 0, 0);
WriteLn('at shop');
RadialWalk(1403451 , 260, 280, 70, 0, 0); //radial walk
WriteLn('at tree,s');
end;
procedure WalkToChickens;
begin
if Location='other' then
begin
casthometeleport;//casts home teleport
HighestAngle; //standard stuff
MakeCompass('N');
FindRoadColor;
SetRun(true);
RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);//radialroadwalking
WriteLn('to bridge');
RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
WriteLn('passed the bridge');
RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
WriteLn('almost next to goblin house');
RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
WriteLn('passed goblin house');
RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
WriteLn('next to cows');
RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
WriteLn('next to cows');
RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
WriteLn('in chickenpen');
SetRun(false);
end
if Location='Lumbridge'then
begin
HighestAngle; //standard stuff
MakeCompass('N');
FindRoadColor;
SetRun(true);
RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0); //radialroadwalking
WriteLn('to bridge');
RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
WriteLn('passed the bridge');
RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
WriteLn('almost next to goblin house');
RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
WriteLn('passed goblin house')
RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
WriteLn('next to cows');
RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
WriteLn('next to cows');
RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
WriteLn('in chickenpen');
SetRun(false);
end;
If Location='Chicken Pen' Then
Begin
Exit;
end;
end;
function WalkTo:boolean;
begin
if skill='attack'then
begin
findroadcolor;
WalkToChickens;
If (FindBitmap(chickens, lx, ly)) Then
Begin
result:=true
writeln('can find symbol at chickens exit')
end
else
result:=false
writeln('cant find symbol at chickens logging out...')
logout;
end;
if skill='WoodCutting' then
begin
findroadcolor;
WalkToTree;
If(FindBitmap(woodcutting, lx, ly)) Then
Begin
result:=true
writeln('found woodcutting place')
end
else
result:=false
writeln('cant find bitmap at woodcutting place logging out...')
logout;
end;
end;
function FindChicken(var x, y: Integer): Boolean;
begin
if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,10))or
(FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,10))or
(FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,10))then
begin
WriteLn('found chicken color')
Result:=True;
end else
begin
WriteLn('cant find chicken color')
Result:=False;
end;
end;
procedure KillChicken;
begin
if FindChicken(x,y)then
begin
case HowWeClick of
0: if findchicken(x,y)then
begin
MMouse(x,y,1,0);
Mouse(x,y,0,1,true);
end;
1: if findchicken(x,y)then
begin
MMouse(x,y,0,1);
Mouse(x,y,1,0,false);
end;
else
WriteLn('cant find chicken color')
end;
end;
end;
begin
SetupSrl;
activateclient;
WalkTo;
end.