Imagine
04-28-2012, 01:20 PM
function Eating:Boolean;
var
x,y,Shark:Integer;
begin
Shark := DTMFromString('mggAAAHicY2NgYChnYmDIBeJ6IG4F4jogLg ViH0YGhhAgjgTiaCD2BWI3IA6y02Xg5eFhiHUzZnA0VGHoK45j yAx1Y+AHmoUNM+LAEAAARuYJ7A==');
if HPPercent < 25 then
while HPPercent < 75 do
begin
writeln('Need to eat');
GameTab(25);
if FindDTM(Shark, x, y,MIX1,MIY2,MIX2,MIY2) then
begin
writeln('Found Shark');
Mouse(x,y,3,3,True);
Result := True;
end
else begin
LogOut;
TerminateScript
end;
end;
FreeDTM(Shark);
end;
For some reason, this never eats. The DTM has enough matches when I use it on the DTM editor, so I'm really puzzled.
var
x,y,Shark:Integer;
begin
Shark := DTMFromString('mggAAAHicY2NgYChnYmDIBeJ6IG4F4jogLg ViH0YGhhAgjgTiaCD2BWI3IA6y02Xg5eFhiHUzZnA0VGHoK45j yAx1Y+AHmoUNM+LAEAAARuYJ7A==');
if HPPercent < 25 then
while HPPercent < 75 do
begin
writeln('Need to eat');
GameTab(25);
if FindDTM(Shark, x, y,MIX1,MIY2,MIX2,MIY2) then
begin
writeln('Found Shark');
Mouse(x,y,3,3,True);
Result := True;
end
else begin
LogOut;
TerminateScript
end;
end;
FreeDTM(Shark);
end;
For some reason, this never eats. The DTM has enough matches when I use it on the DTM editor, so I'm really puzzled.