Scripting:Sektor Überprüfung

Aus STNE-Wiki

Das Skript

Var myschiff As CMyShip; //meine Basis 
Var schiff As CShip; //fremdes Schiff 
Var basisflotte As New CMyFlotte(61618); //Flotte mit Basen 

For (Each myschiff In basisflotte.Ships){ //Basisflotte durchlaufen 
  
  For (Each schiff In myschiff.SRS){ //Schiffe im SRS durchlaufen 
    
    If (schiff.Alarmstufe = EAlarmStufe.Rot and InAllianz(schiff, 'AllianzID')){ //Test auf Alarm Rot, für AllianzID ist die ID der auszublendenden Allianz einzutragen 
      WriteLine(schiff.Name & ' von ' & schiff.UserID & ' bei ' & myschiff.Name & ' in Sektor ' & myschiff.MapPosition.X & '|' & myschiff.MapPosition.Y & ' hat Alarm Rot.';}//Ausgabe 
    If (schiff.UserID = 3){ //Test auf Trümmerfeld 
      WriteLine('Trümmerfeld bei ' & myschiff.Name & ' in Sektor ' & myschiff.MapPosition.X & '|' & myschiff.MapPosition.Y);} 
  } 
} 

Function InAllianz (schiff As CShip, AllianzID As Integer){ 
  Var User As New CUser(schiff.UserID); 
  If (User.AllianzID = AllianzID) {Return False;} 
  Return True; 
}