My script just hovers over all the net fishing spots and switches between each spot really fast and doesn't click them, it also doesn't print "fishin'", why?!
SCAR Code:
program NETFisher;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var
x,y,fishDTM,logDTM,tinderDTM,test: Integer;
Text: TStringArray;
procedure DTMS;
Begin
fishDTM := DTMFromString('mFQEAAHicncsxCsJAFEXRN2AQMUoWa28jYrC2tjIwINE1iKCFYjspYoKiIEM2oIXeYhpL/XCKx+X3JHWNFKONCB20ghf9iTcStkEfF7bHA1dUKFGgDq0J3eEMe2y03HnZvdd4ddPQOqV5pUHmZLd3zdYnTfKDprTRwmm+qRXx9yvzh6/7APp8Kzs=');
logDTM := DTMFromString('maQEAAHicE2RgYNjBxMCwB4iPAfEJKD4IxLugYmeB+DQQbwXiLUB8GIiPAvE5qNq9QPwYaM59IL4HxLeB+AkQvwbil0D8AoifQtnPoXIgdbegYiB174B4RUc8Q1u6HRiXx1iAcV++M1gcRFfHWYLpWbXhDCWRZgyd2Q4MvtbKcHVTi10YWIHmUIoZqYAxAAAEpDDy');
tinderDTM:= DTMFromString('mfgEAAHicE2JgYIhnYmBIB+IyIM4F4hQgTgLiDCAuAOJSIK4E4kIgLoLSOUCcB8QVUBqk7ynQrLtAfBOIHwPxMyB+A8TvoPgFED8B4ldI8iD2R6jcHSB+AMRrFy5kaCgvZ4iLiGBYNG0aw9JZMxmWz57NsGTGdIY5EycydNTXMeSnp4PlEh054XhmXx9QNyNDTXExw/TeHgZWII8amJFKGBMAAK26MVs=');
WriteLn('Loaded DTM''s');
end;
procedure DTMFree;
Begin
FreeDTM(fishDTM);
FreeDTM(logDTM);
FreeDTM(tinderDTM);
WriteLn('Freed DTM''s');
end;
procedure goFish;
Begin
P07_TabInventoryTab(4);
repeat
If P07_FindObjCustom(x, y, ['Raw', 'et', 'Fishing', 'pot'], [13475438, 14199172, 15124146, 15252893, 15920354], 5) Then
begin
ClickMouse2(mouse_left);
WriteLn('Fishin''');
test := 1;
Wait(RandomRange(8000,10000))
end
else
P07_MakeCompassDegree(Random(360));
Wait(Random(1000));
until(P07_InvFull)
end;
//procedure toTree;
//Begin
// RadialWalk(RoadColor, 315, 22, 65, -1, 0);
//end;
procedure antiBan;
begin
case Random(200) of
0: P07_HoverSkill('Fishing',1000+Random(4000));
1: P07_HoverSkill('Cooking',1000+Random(4000));
2: P07_MakeCameraAngleLow;
3: P07_MakeCameraAngleHigh;
4: MMouse(257,183,5,5);
4: ClickMouse2(mouse_right);
4: MMouse(100+Random(300),100+Random(300),10,10);
5: P07_MakeCompassDegree(Random(360));
end;
end;
Begin
SetupSRL;
SetupP07Include;
DTMS;
AddOnTerminate('DTMFree');
repeat
antiBan;
goFish;
until(not P07_Loggedin);
end.