Food Maker

Food Maker!

Renato falou para eu nao deixar o topico esculaxado emtao vo arrumar belezura!!

Const

Monster = 'Chiken' //pode ser alterado para o bixo que vc quizer


function GetCreatureByName(Name: string): TCreature;

var

x: integer;

begin

Result := nil;

for x := 0 to Creatures.Count - 1 do

begin

if x >= Creatures.Count then Break;

if Creatures.Creature[x].Z <> Self.Z then Continue;

if Creatures.Creature[x].Name = Name then

begin

Result := Creatures.Creature[x];

Exit;

end;

end;

end;


while not Terminated do

begin

UpdateWorld;

if not Self.Attacking then

begin

Creature := GetCreatureByName(Monster);

if Creature <> nil then Creature.Attacking := True;

end;

Sleep(1000);

end;

Monster = 'Chiken' //Onde ta chiken voce coloca qualquer bicho que nao te ataque tipo Derr,rabit..

Gostou ?? de um Rep+