Zombiescript

/*-- Der Zombie --*/

#strict

#include CLNK                                                  //Macht alles, was Clonks machen


local pTarget;                                                  //Lokale für das Opfer



func Attack(object pTarget)
{
if(ObjectDistance(this(),pTarget)>15) return(0);  //Nochmal abfragen, kann ja sein das der Kerl sich weggebeamt hat oder so ;D
Sound("Growl2");                                              //Sound machen, da soll später noch ein Zombieschrei hin
DoDmg(20,DMG_Melee,pTarget);                      //Nahkampfschaden machen (Der Zombie ist für Hazard)
}



func Attack2(object pTarget)
{
if(ObjectDistance(this(),pTarget)>15) return(0);  //Nochmal abfragen, kann ja sein das der Kerl sich weggebeamt hat oder so ;D
Sound("Growl1");                                              //Sound machen, da soll später noch ein Zombieschrei hin
DoDmg(RandomX(20,30),DMG_Melee,pTarget);  //Nahkampfschaden machen (Der Zombie ist für Hazard)
pTarget -> Flying(1,1);                                      //Der getroffene Fetzt hin!
}


func MoveToTarget(object pTarget);
{
SetCommand("MoveTo",pTarget);  //Zum Ziel laufen
}

func FollowTarget(object pTarget)
{
SetCommand("Follow",pTarget);    //Ziel Folgen
}

func Timer()
{
if(pTarget==0) SearchTarget();
else if(ObjectDistance(this(),pTarget)<15) Attack(pTarget);      //Angreifen wenn Distanz kleiner als 1
else if(ObjectDistance(this(),pTarget)<200) Follow(pTarget);    //Folgen im Umkreis von 200
else if(ObjectDistance(this(),pTarget)<300) MoveTo(pTarget); //Hinlaufen wenn kleiner als 300
else if(ObjectDistance(this(),pTarget)>300) pTarget==0;        //Distanz größer als 300? Ziel vergessen!
else Laufen();
}

func Laufen();
{
SetCommand("MoveTo",GetX(this())-(RandomX(-10,10),GetY(this()));  //Rumlaufen
}

func SearchTarget()
{
pTarget=FindObject2(Find_OCF(OCF_Prey),Find_OCF(OCF_Alive),Find_Distance(300));  //Beute suchen
Timer();
}