Scripting:Sektor Überprüfung

Aus STNE-Wiki

(Unterschied zwischen Versionen)
Wechseln zu: Navigation, Suche
 
(Der Versionsvergleich bezieht 3 dazwischenliegende Versionen mit ein.)
Zeile 1: Zeile 1:
 +
--[[Spieler:Moax|Moax]] 13:31, 28. Apr 2008 (W. Europe Daylight Time)
 +
=Sektor Überprüfung=
==Das Skript==
==Das Skript==
  Var myschiff As CMyShip; //meine Basis  
  Var myschiff As CMyShip; //meine Basis  
Zeile 20: Zeile 22:
   Return True;  
   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.
 +
 +
 +
[[Kategorie:Scripte|Sektor Überprüfung]]

Aktuelle Version vom 28. April 2008, 11:36 Uhr

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