Simba Code:
program oakFletcher;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
var
X,Y, knifeDTM,logDTM: Integer;
//procedure P07_DeclarePlayers;
// begin
// P07_PlayerName := u;
// P07_PlayerPass := password;
// end;
Procedure DTMshere;
begin
knifeDTM := DTMFromString('mQwAAAHicY2ZgYKhlYWDoBuJWIE5iZGDwBOJQIC7MzGTISU1lyEtPZ+AEqoNhRiQMBAAPugZz');
logDTM := DTMFromString('mggAAAHicY2NgYDjExMCwG4hPA/EOID4GxFuB+AlQ7i0QvwTih0B8D8quiDFnWNYWy9CT4wCmW1JtGGbVhDFgA5xAzIgDQwAAE1ER5Q==');
//longBow := DTMFromString('mWAAAAHicY2EAAkYGBhEg5gdicSBuAeLFQDwViFcCcXY4L8PkcgGGufUCDJ35AgzogBENgwAAYo0GzQ==');
end;
Procedure ChopOak;
Begin
repeat
if p07_findobjCustom(x,y, ['Oak'], [3103827, 1123615], 5) then
writeln('Found Oak');
Wait(500 + Random(153));
P07_MouseBox(X, Y, X, Y, mouse_left); //Moves Mouse to tree
Writeln('Clicked Oak');
P07_MakeCompassDegree(RandomRange(25,260));
Wait (RandomRange(5000,6000))
until(P07_InvFull)
end;
Procedure FletchBows;
bEGIN
wait(random(1100));
if(findDTM(knifeDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
begin
p07_mousebox(x, y, x, y, mouse_left); // Found and clicked on knife
wait(random(300));
if(FindDTM(logDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
mmouse(x, y, 4, 4);
clickmouse2(mouse_left);
writeln('Found Log')
wait(random(259));
//if(findDTM(longBow, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
mmouse( x, y, 4, 4);
wait(15+random(8));
clickmouse2(mouse_right);
P07_ChooseOptionMulti(['10']);
wait(18000+random(12700));
end;
//Procedure FreeDTMs;
//begin
//(knifeDTM);
//FreeDTM(OakLogDTM);
//FreeDTM(longBow);
end;
begin
MouseSpeed := 15;
//SetupSRL();
//ClearDebug;
//writeln '- Oak Cutter and Fletcher (v0.1)
SetupP07Include;
repeat
ChopOak;
FletchBows;
//FreeDTMs;
until(not p07_loggedin);
end.