Postado Outubro 7, 2015 9 anos Const Monster = 'Chicken' //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; Créditos: ngmax
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.