Stealth Client Forum

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.

Code: Select all

Client Window not Found! Dll is not Working now