Guys, any reason Smart 07 is a bit buggy?
program Chopper;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
{$DEFINE SMART}
var
Willow1,BankBooth,BankIcon,Tree,x,y:integer;
Banking:boolean;
Procedure DTMs;
begin
BankIcon := DTMFromString('mQwAAAHicY2ZgYGhnYmBoA+IuIA4E8iOgeM8cJzCuS2BmQAaMSBgIAB6JBro=');
BankBooth := DTMFromString('mWAAAAHicY2FgYMgD4gwgbgHiDiBuB+JFQLwGiCcDsYONDUOQPSeDsyEDg68VJwM6YETDIAAAlAkGqQ==');
Tree := DTMFromString('mWAAAAHicY2FgYKhkYmAoA+IqIK4FsYFiVUBcC5IDYosYEQZ9Tz4GR002MBsdMKJhEAAAdRUGIw==');
Willow1 := DTMFromString('mGQAAAHicY2RgYHBjZGCYDaSLijMZQIARRAAAIAUCMw==');
end;
Procedure FreeDTMss;
begin
FreeDTM(Willow1);
FreeDTM(BankIcon);
FreeDTM(BankBooth);
FreeDTM(Tree);
end;
Procedure ClickTree;
begin
if P07_InvFull then
exit;
ClickDTMRotatedIn(Willow1, MSX1,MSY1,MSX2,MSY2, -Pi, Pi, Pi/30, [], mouse_Right);
if P07_IsUpTextMultiCustom(['Willow', 'illow', 'Chop', 'down']) then
wait(2000+random(500));
P07_ChooseOptionMulti(['Chop down', 'Chop', 'down'])
writeln('Chopping down the tree');
sleep(1000+random(1000));
end;
procedure Walkbank;
begin
repeat
WriteLn('Walking to bank');
if ClickDTMRotatedIn(BankIcon, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left)then
Banking:=true;
Wait(2500);
while (IsMoving) do
wait(100);
until (Banking)
end;
procedure bank;
begin
if (Banking) then
begin
repeat
if ClickDTMRotatedIn(BankBooth, MSX1,MSY1,MSX2,MSY2, -Pi, Pi, Pi/30, [], mouse_Right)then
begin
Writeln('Bank found')
wait(500+random(500));
P07_ChooseOptionMulti(['se-q']);
Wait(2500);
while (IsMoving) do
wait(100);
end;
until(P07_BankScreen);
if P07_BankScreen then P07_Deposit(0,27,true);
end;
end;
Procedure WalkToTree;
begin
If P07_InvEmpty then
begin
ClickDTMRotatedIn(Tree, 600,120, 650,150, -Pi, Pi, Pi/30, [], mouse_Left);
WriteLn('Walking to tree');
Wait(2500);
while (IsMoving) do
wait(100);
end;
end;
Function IsChopping: Boolean;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Result := (AveragePixelShift(PBox, 500, 650) > 350);
Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
end;
Procedure ChopWait;
begin
If (IsChopping) then
begin
WriteLn('We are already cutting, lets wait');
wait(100+random(500));
end else
begin
WriteLn('Looking for another tree');
ClickTree;
end;
end;
Procedure Botting;
begin
If (Not P07_LoggedIn) Then
Begin
Writeln('Not Loggedin');
P07_LogInPlayer;
End;
Repeat
WalkToTree;
IsChopping;
ChopWait;
If P07_InvFull then
Walkbank;
bank;
Until(false);
end;
Begin
SetupP07Include;
ActivateClient;
SetupSRL;
DTMs;
repeat
Botting;
until(False);
FreeDTMss;
end.
Someone elses script which won't boot in SMART…
Compiled successfully in 686 ms.
Checking P07Include VersionNumber
Local : 1.5 / Latest : 1.5
You Have The Latest Version of P07Include
SRL Compiled in 0 msec
Not Loggedin
Says it's compiled and just starts script :/