ok login works... working on finding fishing spot... any help? what is the best way to do this?
this is the old version of finding it...:
SCAR Code:
procedure Fish(HowMuch: Integer);
var FishSpotDTM, c, i, slot, tx, ty: Integer; Fishing: LongInt;
begin
if(not(Logged))then Exit;
Status('Fishing');
FishSpotDTM := DTMFromstring('78DA63FCC4C0C070910105CC38F086410E483' +
'342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE' +
'831204');
WalkToMMArrow;
GameTabs(4);
MarkTime(Fishing);
repeat
ClickToContinue2;
if (FindDTM(FishSpotDTM, tx, ty, MSX1, MSY1, MSX2, MSY2)) then
begin
MMouse (tx, ty, 5, 5);
if IsUpText('et Fishing') then Mouse (tx, ty, 5, 5, True ) else
begin
if FindMSArrow(tx, ty) then
begin
MMouse(tx, ty -5, 1, 1);
Wait(50+Random(50));
if IsUpTextMultiCustom(['Net Fishing spot', 'ishing spot', 'Net fish']) then Mouse(tx, ty, 0, 0, True);
end;
end;
end;
FFlag(0);
Slot := 0;
Slot := InvCount;
c := 0;
repeat
Wait(1000+Random(300));
c := c +1;
until ((InvCount > Slot) or (c > 15))
if c <= 15 then
begin
i := i +1;
WriteLn('We cought a fish');
end;
if (TimeFromMark(Fishing) > 180000) then
begin
WriteLn('Fishing took longer then 3 mins, Setting player to False..');
Players[CurrentPlayer].Loc := 'Fishing';
Players[CurrentPlayer].Active := False;
Logout;
Exit;
end;
until(i >= HowMuch);
FreeDtm(FishSpotDtm);
end;
any ideas on how to fix... do i need to just make a new dtm?