Scripting:Sektor Überprüfung - Versionsgeschichte

Moax am 28. April 2008 um 11:36 Uhr

2008-04-28T11:36:55Z

? Nächstältere Version		Version vom 28. April 2008, 11:36 Uhr
Zeile 27:		Zeile 27:


-	[[Kategorie:Scripte\| Sektor Überprüfung]]	+	[[Kategorie:Scripte\|Sektor Überprüfung]]

Moax am 28. April 2008 um 11:33 Uhr

2008-04-28T11:33:21Z

? Nächstältere Version		Version vom 28. April 2008, 11:33 Uhr
Zeile 1:		Zeile 1:
-	--[[Spieler:Moax\|Moax]] 13:31, 28. Apr 2008 (W. Europe Daylight Time)==Das Skript==	+	--[[Spieler:Moax\|Moax]] 13:31, 28. Apr 2008 (W. Europe Daylight Time)
		+	=Sektor Überprüfung=
		+	==Das Skript==
	Var myschiff As CMyShip; //meine Basis		Var myschiff As CMyShip; //meine Basis
	Var schiff As CShip; //fremdes Schiff		Var schiff As CShip; //fremdes Schiff

Moax: /* Das Skript */

2008-04-28T11:31:09Z

Das Skript

? Nächstältere Version		Version vom 28. April 2008, 11:31 Uhr
Zeile 1:		Zeile 1:
-	==Das Skript==	+	--[[Spieler:Moax\|Moax]] 13:31, 28. Apr 2008 (W. Europe Daylight Time)==Das Skript==
	Var myschiff As CMyShip; //meine Basis		Var myschiff As CMyShip; //meine Basis
	Var schiff As CShip; //fremdes Schiff		Var schiff As CShip; //fremdes Schiff

Moax: /* Das Skript */

2008-04-28T11:30:27Z

Das Skript

? Nächstältere Version		Version vom 28. April 2008, 11:30 Uhr
Zeile 20:		Zeile 20:
	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]]

Moax am 28. April 2008 um 11:18 Uhr

2008-04-28T11:18:46Z

Neue Seite

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