Verfolgungstorpedo

/*-- Verfolgungs-Torpedo --*/

#strict

local befehlsverzoegerung;
local clonkfound;
local thetarget;
local isexplodingornot;
local clonkfoundistarget;

/* Initialisierung */

protected func Initialize()
{
  SetAction("Walk");
  SetComDir(COMD_Stop());
  ScriptGo();
}

public func Launch (object by) {
  SetAction ("Swim");
  SetDir(GetDir(by));
  SetXDir(GetXDir(by));
  SetYDir(0);
  if (GetDir()==DIR_Right()) SetComDir(COMD_Right());
  if (GetDir()==DIR_Left()) SetComDir(COMD_Left());
  return(1);
}

/* Einsammeln */

func Entrance (object container) {
  SetAction("Walk");
}

/* Effekte */

private func Swimming() {
  var iDir=(GetDir()*2-1);
  Bubble(-16*iDir,0);
  Bubble(-16*iDir,0);
  if (GetActTime() > 25) SetYDir(0);
}

/* Aufschlag */

public func Hit() { Explode(30); }

/* Produkteigenschaften */

public func IsChemicalProduct() { return(1); }

/* Torpedorichtungswechsel */

protected func Findingtarget()
{
clonkfound = FindObject(0, GetX(this()) - 20, GetY(this()) - 20, 40, 40, OCF_CrewMember, 0, NoContainer(), 0);
clonkfoundistarget = Hostile( GetOwner(), GetOwner(clonkfound));
if (clonkfoundistarget == true)
{
// clonkfound = thetarget; //Das hier hast du übrigens vertauscht!
thetarget = clonkfound;
}
if (!befehlsverzoegerung--)
{
FinishCommand(this());
SetCommand (this(),"Follow",thetarget);
befehlsverzoegerung = 35;
}
isexplodingornot = FindObject(thetarget, GetX() - 2, GetY() - 2, 4, 4);
if isexplodingornot != false
{
Explode(30)
}
return(1);
}



/* Status */

public func IsTorpedo() { return(1); }

/* Forschung */

public func GetResearchBase() { return(SUB1); }

/*-- Verfolgungstorpedo --*/

#strict

local target;

func Initialize() {
 
  //StandartAction setzen
  SetAction("NoWater");
  return(1);
}



func Water(){

      //Wenn kein Ziel dann eins Suchen oder?  250 pixel suchradius als Parameter übergeben.
      if(target==0){target=FindTarget(250);return(1);}

      //Ziel erreicht? dann explodieren aber nur wenn man net selbst das Ziel ist
      if(target!=0)
            if(ObjectDistance(this(),target)<15)Explode(30);

      //Wenn nicht im Wasser dann abstürzen
      if(!InLiquid()){SetAction("NoWater");return(1);}

      //Winkel ans Ziel anpassen und geschwindigkeit setzen
      SetR(Angle(GetX(),GetY(),GetX(target),GetY(target))+90);
      SetXDir(Cos(GetR()-180,60));
      SetYDir(Sin(GetR()-180,60));

      }

//Funktion zum Ziel ermitteln
func FindTarget(Distance){

//Gibt ein Ziel zurück
return(FindObject2(Find_OCF(OCF_Alive()),Find_Distance(Distance)),Find_NoContainer(),Find_OCF(OCF_InLiquid()));

}


//Bei Contact explodieren
func ContactBottom(){
Explode(30);
}

//Die erste Action in der Actmap brauchen wir für die bewgeungen im Wasser:

[Action]
Name=Water
Procedure=FLOAT
Directions=4
Delay=1
FacetBase=1
StartCall=Water
NextAction=Water

//Die zweite ist ein Warte Action(Rufen wir im script auf wenn der Torpedo das Wasser verlassen würde)

[Action]
Name=NoWater
Procedure=FLIGHT
Directions=2
Delay=1
FacetBase=1
NextAction=NoWater
InLiquidAction=Water

//Funktion zum Ziel ermitteln
func FindTarget(Distance){

//Gibt ein Ziel zurück
var obj;
while (obj=FindObject(0, -Distance,-Distance,Distance*2,Distance*2, OCF_Alive() | OCF_InLiquid(), 0,0, NoContainer(), obj))
if(ObjectDistance (obj)<= Distance) return(obj);
}

/*-- Verfolgungstorpedo --*/

#strict

local target;

func Initialize() {
 
  //StandartAction setzen
  SetAction("Wait");
  return(1);
}

public func Launch(object by) {

SetAction("Water");
return(1);
}

func Water(){

      //Wenn kein Ziel dann eins Suchen oder?  250 pixel suchradius als Parameter übergeben.
      if(target==0){target=FindTarget(250);return(1);}

      //Ziel erreicht? dann explodieren aber nur wenn man net selbst das Ziel ist
      if(target!=0)
            if(ObjectDistance(this(),target)<15)Explode(30);

      //Wenn nicht im Wasser dann abstürzen
      if(!InLiquid()){SetAction("NoWater");return(1);}

      //Winkel ans Ziel anpassen und geschwindigkeit setzen
      SetR(Angle(GetX(),GetY(),GetX(target),GetY(target))+90);
      SetXDir(Cos(GetR()-180,60));
      SetYDir(Sin(GetR()-180,60));

      }

//Funktion zum Ziel ermitteln
func FindTarget(Distance){

//Gibt ein Ziel zurück
var obj;
while (obj=FindObject(0, -Distance,-Distance,Distance*2,Distance*2, OCF_Alive() | OCF_InLiquid(), 0,0, NoContainer(), obj))
if(ObjectDistance (obj)<= Distance) return(obj);
}


//Bei Contact explodieren
func ContactBottom(){
Explode(30);
}

/*-- Verfolgungstorpedo --*/

#strict

local target;

func Initialize() {
 
  //StandartAction setzen
  SetAction("NoWater");
  return(1);
}



func Water(){

      //Wenn kein Ziel dann eins Suchen oder?  250 pixel suchradius als Parameter übergeben.
      if(target==0){target=FindTarget(250);return(1);}

      //Ziel erreicht? dann explodieren aber nur wenn man net selbst das Ziel ist
      if(target!=0)
            if(ObjectDistance(this(),target)<15)Explode(30);

      //Wenn nicht im Wasser dann abstürzen
      if(!InLiquid()){SetAction("NoWater");return(1);}

      //Winkel ans Ziel anpassen und geschwindigkeit setzen
      SetR(Angle(GetX(),GetY(),GetX(target),GetY(target))+90);
      SetXDir(Cos(GetR()-180,60));
      SetYDir(Sin(GetR()-180,60));

      }

//Funktion zum Ziel ermitteln
func FindTarget(Distance){

//Gibt ein Ziel zurück
return(FindObject2(Find_OCF(OCF_Alive()),Find_Distance(Distance)),Find_NoContainer(),Find_OCF(OCF_InLiquid()));

}


//Bei Contact explodieren
func ContactBottom(){
Explode(30);
}

protected func Entrance(object pObject){
if(GetID(pObject)==SUB1 && GetAction() eq "Water")Explode(30);
}

public func IsTorpedo() { return(1); }

#strict

//wird aufgerufen wenn ein Clonk beitritt
public func OnClonkCreation(pClonk){
//Uboot an zufälliger Position mit Besitzer Owner von pClonk erschaffen:
var Sub=
CreateObject(SUB1,RandomX(40,LandscapeWidth()-40),RandomX(20,LandscapeWidth()-20),GetOwner(pClonk));
//Clonk in das Uboot tuhn
pClonk->Enter(Sub);
}


protected func Initialize(){
//Scriptzähler starten
ScriptGo( true );
}

//Nach 20 Scripts gibt es einen Torpedo für jedes Uboot
protected func Script20(){
//Mit dieser Funktion
GiveTorpedo();
//zurück zu Script1
goto(1);
}


//In dieser Funktion werden wir jetzt die Torpedos verteilen
public func GiveTorpedo(){

//Eine For-Schleife die alle Uboote findet und jedem ein Torpedo gibt:
for(var Sub in FindObjects(Find_ID(SUB1)))CreateContents(TRP2,Sub);
}


//Und nun zu den Relaunches
//folgende Funktion wird immer aufgerufen wenn der letzte Clonk eines Spielers stirbt
public func RelaunchPlayer(iPlr){
//Wir nehmen für jeden Spieler die Entsprechende Globale (also die mit dem Index gleich dem Spieler)
//so haben wir für jeden Spieler eione Eigende Variable
//Es sind 10 Relaunches vorgegeben:
var MaxRelaunch=10;

//Relaunchen abrechen und Spieler Eliminieren wenn das Mass überschritten ist
if(Global(iPlr)>=MaxRelaunch){EliminatePlayer(iPlr);return(1);}

//Ansonsten Clonk erschaffen der Spieler Crewhinzufügen
//und weiter gehts mit OnClonkCreateion
var Clonk=CreateObject(CLNK,0,0,iPlr);
MakeCrewMember(Clonk,iPlr);

//Nachricht ausgeben das der Clonk gestorben ist
Log("%s hat einen Clonk verloren und hat noch:%d",GetPlayerName(iPlr),10-Global(iPlr));

//Globale Hochzählen
Global(iPlr)++;
}