procedure Combat;
Combat1 := 1;
if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
begin
WriteLn('In Combat . . .');
end ...
Type: Posts; User: nakkimasa
procedure Combat;
Combat1 := 1;
if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
begin
WriteLn('In Combat . . .');
end ...