SCAR Code:
procedure FlyFish;
begin
if (FindDTM(Fish, x, y, MSX1, MSY1, MSX2, MSY2)) then
MMouse(x, y, 5, 5);
if (IsUpText('Fly Fishing')) then
FishingSpots := FishingSpots +1
Mouse(x, y, 5, 5, True);
FindFishingEquipment;
HandleWhirlPool;
FindRandoms;
Ban;
if(invFull) then
Dropit;
end;
begin
If(not(FindDTM(Fish, x, y, MSX1, MSY1, MSX2, MSY2)))Then
if(FindSymbol(x,y, 'water source')) then
wait(300+random(110))
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
Flag;
Atempts := Atempts + 1
if(FindDTM(Fish, x, y, MSX1, MSY1, MSX2, MSY2)) then
MMouse(x, y, 5, 5);
if(IsUpText('Fly Fishing')) then
FishingSpots := FishingSpots +1
Mouse(x, y, 5, 5, True);
FindFishingEquipment;
HandleWhirlPool;
FindRandoms;
Ban;
if(invFull) then
Dropit;
or//prob here
(Atempts > 5)
end;
begin
if (Atempts > 5)then
Writeln('Couldnt Find Fishing Spot Reposition Player')
NextPlayer(False);
end;
begin
if(not(FindSymbol(x,y, 'water source')) then
Writeln('Where da Fuck are you')
NextPlayer(False);
end;