Code: Select all
$wareTech = $ship-> get tradeable ware array from ship
$sub = get number of subtypes of maintype [SSTYPE_W_TECH]
while $sub
dec $sub
$ware = get ware from maintype [SSTYPE_W_TECH] and subtype $sub
if not find $ware in array: $wareTech
if $ship-> get amount of ware $ware in cargo bay
append $ware to array $wareTech
end
end
end
$count = 0
for each $ware in array $wareTech using counter $count
$amt = $ship-> get amount of ware $ware in cargo bay
if $ware != {Triebwerkstuning}
= $newShip-> install $amt units of $ware
end
end