Suche Script, der eine Schiffsklasse von einer Rasse, im Uni killt

[thomas1205]

Hallo Gemeinde,

ich suche wie im Titel beschrieben einen Script, der von einer Rasse eine gewählte Schiffsklasse komplett aus dem Uni killt. Hier mal mein Versuch, funktioniert leider gar nicht!

Code: Select all

001   $AnzSek = 0
002   $MaxX = get max sectors in x direction
003   $MaxY = get max sectors in y direction
004   
005   $x = 0
006   while $x < $MaxX
007   |$y = 0
008   |while $y < $MaxY
009   ||$Sek = get sector from universe index: x=$x, y=$y
010   ||if $Sek != null
011   |||$AnzSek = $AnzSek + 1
012   |||if $kill2 != null
013   ||||$kill2 = $kill2 + 1
014   ||||$kill2 = find ship: sector=$Sek class or type=M5 race=Boronen flags=0 refobj=0 maxdist=0 maxnum=0 refpos=null
015   ||||$kill2 ->destruct: show no explosion=[TRUE]
016   ||||$kill2 = $kill2 + 1
017   |||end
018   ||end
019   ||$y = $y + 1
020   |end
021   |$x = $x + 1
022   end
023   return null

Vielleicht könntet ihr mir mal wieder helfen...

[X2-Illuminatus]

Mit dem Befehl <RetVar> = get ship array: of race <Var/Race> class/type=<Value> (zu finden in den Universe and Sector Commands) erhälst du alle Schiffe einer Klasse oder eines Schiffstyps und eines Volkes in einem Array. Anschließend musst du das Array nur noch durchlaufen und jedes Element darin zerstören.

Das könnte z.B. wie folgt aussehen:

Code: Select all

001   $ship.arr =  get ship array: of race Boron class/type=M5
002   $size = size of array $ship.arr
003   while $size
004   |dec $size = 
005   |$ship = $ship.arr[$size]
006   |$ship ->destruct: show no explosion=[TRUE]
007   end
008   return null

Was deinen Code ganz allgemein angeht, so wird der eigentliche "finden und zerstören"-Teil nie ausgeführt werden, da deiner Variable "$kill2" kein Wert zugewiesen ist und somit die entsprechende If-Abfrage nie durchlaufen wird. Zeilen wie

Code: Select all

$y = $y + 1

kann man auch mit

Code: Select all

inc $y = 

ersetzen. Die Variable $AnzSek wird nicht verwendet, wodurch die Zeilen 1 und 11 unnötig sind. Die Zeile

Code: Select all

$kill2 = find ship: sector=$Sek class or type=M5 race=Boronen flags=0 refobj=0 maxdist=0 maxnum=0 refpos=null

wird zudem immer nur ein Schiff finden. Damit mehrere gefunden werden, musst du unter flags [Find.Multiple] angeben und als maxnum (maximale Anzahl an Schiffen, die gefunden wird) eine Zahl größer 0 eintragen.

[thomas1205]

Danke für deine schnelle Antwort, funzt!
Wie kann ich mir ins Logbuch schreiben lassen, wie viele Schiff zerstört wurden?
Und mal ne andere Frage, wie kann ich den Titeltext editieren, wenn ein Problem gelöst ist?

Danke dir

Thomas

[ubuntufreakdragon]

write to player logbook <Value>
Oben rechts an jedem deiner Beiträge klebt son Editbutton.

[UniTrader]

ich bin mal so frei das Script von X2 mit der Logmöglichkeit die ubuntu aufgezeigt hat auf die effizienteste art zu erweitern:

001 $ship.arr = get ship array: of race Boron class/type=M5
002 $size = size of array $ship.arr
000 write to player logbook: $size
003 while $size
004 |dec $size =
005 |$ship = $ship.arr[$size]
006 |$ship ->destruct: show no explosion=[TRUE]
007 end
008 return null

sonst nimmst du möglicherweise unnötig noch ne zusätzliche Zählervariable ^^

[thomas1205]

Danke euch allen klappt jetzt so wie ich es wollte.
Kennt sich jemand von euch mit C++ bzw. KC aus???

Grüße Thomas

[ubuntufreakdragon]

C++ ich ein wenig, was genau?