SCAR Code:
program New;
{.include SRL/SRL.scar}
var
Tele,Oak2,GroundColor,GroundBMP: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'lureing owns';
Players[0].Pass := '11085llkbb';
Players[0].Nick := 'ure';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure DeclareBMPS;
begin
Tele := BitmapFromString(21, 21, 'z78DACD96510E83201044AF54' +
'60557E6994FB1FA9A9FA413399CD20B5A9241B83C29B5D94C156B' +
'39427B3929E679C6DB578C6A6FFF1BE821F3FC6C20C6DB49D6B2D' +
'5DE0E62DAF3561A41A908E4FA147217628410AD1C6B8610A31563' +
'F520D983BE851B84B594ACD18250D983B541BB98CE82B410DEC0B' +
'C4AC59BE694A366F18FD3AB00AF472EBDEDA5147CF350D4AB58F9' +
'95B16D28F7BA681AD824F6FB90A1D3550BA903BA363BB837E63E5' +
'FFE0ABBBA661E48F3B9D05F69C1FED369D5EF6B59D96798DE06E4' +
'32EC3DC0D9DCE759C5E8765ABAC9C40864E176C4E5F89500D7AB2' +
'1A61296FEAA726617D5F65A640EE');
Oak2 := BitmapFromString(2, 2, '202816FF4027304006405016');
GroundBMP := BitmapFromString(5, 5, 'z78DA333535363774351D6424' +
'007EB4203B');
end;
//////////////////////////////////////////////////////////////////////
Procedure Setup;
begin
SetupSRL;
DeclareBMPS;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ClearDebug;
MakeCompass('N');
SetRun(true);
end;
////////////////////////////////////////////////////////////////////
Procedure GetToLumb;
begin
Gametab(7);
if(FindBitmap(Tele, x, y))then
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, True);
Wait(19000+random(2000));
GameTab(4);
end;
FreeBitmap(Tele);
end;
/////////////////////////////////////////////////////////////////////
procedure GetToLog;
begin
RadialRoadWalk(FindRoadColor, 55, 75, 70, 0, 0);
RadialRoadWalk(FindRoadColor, 60, 110, 70, 0, 0);
RadialRoadWalk(FindRoadColor, 95, 64, 50, 0, 0);
RadialRoadWalk(FindRoadColor, 336, 356, 64, 0, 0);
RadialRoadWalk(FindRoadColor, 300, 343, 52, 0, 0);
RadialRoadWalk(FindRoadColor, 320, 400, 64, 0, 0);
RadialRoadWalk(FindRoadColor, 296, 341, 25, 0, 0);
end;
/////////////////////////////////////////////////////////////////////
procedure GetToOak;
begin
RadialRoadWalk(FindRoadColor, 55, 75, 70, 0, 0);
RadialRoadWalk(FindRoadColor, 60, 110, 70, 0, 0);
RadialRoadWalk(FindRoadColor, 95, 64, 50, 0, 0);
end;
/////////////////////////////////////////////////////////////
procedure GetToWillow;
begin
RadialRoadWalk(FindRoadColor, 55, 75, 70, 0, 0);
GroundColor := AutoColorThis(GroundBMP,80,MMX1,MMY1,MMX2,MMY2);
RadialWalk(GroundColor, 359, 304, 65, 0, 0);
end;
/////////////////////////////////////////////////////////////
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 14 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindMod then
Result := True;
4: if FindMime then
Result := True;
5: if FindMaze then
Result := True;
6: if FindQuiz then
Result := True;
7: if FindDemon then
Result := True;
8: if FindScapeRune then
Result := True;
9: if FindTalk then // Call it twice
Result := True;
10: if FindLamp(LampSkill) then // Maybe we missed it?
Result := True;
11: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
12: if FindTrade then
Result := True;
13:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].Rand := 'No GameTab';
//Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
14: if RC then
Result := True;
end;
if Result then
Break;
Wait(1);
end;
SaveToChatLog;
end;
//////////////////////////////////////////////////////////////////////
procedure findrandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
//////////////////////////////////////////////////////////////
procedure antiban;
begin
case Random(10) of
2:begin
MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
end;
4:begin
HoverSkill('Woodcutting', False);
wait(2000+random(1000));
GameTab(4);
end;
5: PickUpMouse;
6:begin
MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
end;
8: BoredHuman;
9: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
end;
end;
/////////////////////////////////////////////////////////////
procedure choppingOak;
begin
if(FindBitmap(Oak2, x, y))then
begin
MMouse(x,y,2,2);
if(IsUpTextMulti('hop down Oa', 'down Oak', 'own O')) or (IsUpTextMulti('Oak', 'ak', 'Oa'))then
Mouse(x,y,2,2,false);
if (ChooseOption(x,y,'Chop down'))then
begin
Mouse(x,y,2,2,true);
findrandoms;
antiban;
end;
end;
end;
begin
Setup;
GetToLumb;
GetToWillow;
end.