Here is the code:
Code: Select all
Program shortQuickyTamed;
var
bullType : Array of Cardinal;
currentBull: Cardinal;
function findTameType : boolean;
Begin
bullType := [$00E8, $00E9];
finddistance := 16;
currentBull := FindType(bullType[0],Ground);
If currentBull > 0 then
begin
NewMoveXY(GetX(currentBull),GetY(currentBull),true ,0,True);
result := true;
AddToSystemJournal('Found a bull, start moving.');
end
else
begin
result := false;
AddToSystemJournal('Couldn Find any bulls.');
end;
end;
begin
findTameType;
End.
BTW: I get an error when starting Stealth with razor.
Thats the error:
Code: Select all
Client Window not Found! Dll is not Working now