Scripting:Sektor Überprüfung

Aus STNE-Wiki

Version vom 28. April 2008, 11:36 Uhr von Moax (Diskussion | Beiträge)
(Unterschied) ? Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version ? (Unterschied)
Wechseln zu: Navigation, Suche

--Moax 13:31, 28. Apr 2008 (W. Europe Daylight Time)

Sektor Überprüfung

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; 
}

Kommentar

Das Schiff muss natürlich im gleichen Sektor sein zb. eine Sonde, dann gibt man noch die ID in CMyFlotte(xxxxx)ein das Skript ausführen und man erhält sämtlichen Daten.

Persönliche Werkzeuge