Originally Posted by
Magicjerk
Here is my script, I am not sure where to put the 07
program HPowerFish;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var
x,y,shopDTM: Integer;
procedure DTMFree;
begin
FreeDTM(ShopDTM);
end;
procedure chopOak;
begin
repeat
if P07_FindObjCustom(x,y, ['Oak'], [1199684, 3300694], 5) Then
ClickMouse2(mouse_left);
Wait (RandomRange(5000,6000))
until(P07_InvFull)
end;
procedure dropOak;
begin
If P07_InvFull then
P07_DropAllExcept([1]);
Wait(200+Random(100))
end;
procedure walkShop;
begin
if P07_InvFull then
P07_MakeCompassNorth;
if(findDTM(ShopDTM, x, y, 565, 7, 717, 157)) then
begin
Mouse(x, y, random(10), random(10), true);
end;
P07_FFlag;
wait (1000+Random(200));
end;
procedure openShop;
begin
if P07_FindObjCustom(x,y, ['hop', 'assistant'], [3367053, 5728897], 5) then
begin
Mouse(x,y, Random(2), Random(2), false);
P07_ChooseOptionMulti(['rade']);
end
else
begin
walkShop;
end;
P07_FFlag;
wait(10+Random(5));
MMouse(623, 448,random(20),random(20));
ClickMouse2(mouse_right);
wait(1000+Random(200));
P07_ChooseOptionMulti(['10']);
MMouse(623, 448,random(20),random(20));
ClickMouse2(mouse_right);
wait(1000+Random(200));
P07_ChooseOptionMulti(['10']);
MMouse(623, 448,random(20),random(20));
ClickMouse2(mouse_right);
wait(1000+Random(200));
P07_ChooseOptionMulti(['10']);
end;
procedure walkOak;
begin
MMouse(608, 84, random(1),random(1));
ClickMouse2(mouse_left);
end;
procedure DTMZ;
begin
shopDTM := DTMFromString('mQwAAAHicY2ZgYJjGxMAwFYgnAnEikB8LxD FA3GDIyJAToMMQrCPGgAwYkTAQAADoeQUS');
end;
procedure FREEDTMZ;
begin
FreeDTM(shopDTM);
end;
begin
SetupP07Include;
DTMZ;
AddOnTerminate('DTMFree');
repeat
chopOak;
walkShop;
openShop;
walkOak;
until(not P07_Loggedin);
end.