Установить любую Станцию Игроку (себе) Arguments: StationType, Sector ...

Установить любую Станцию Игроку (себе)
Arguments: StationType, Sector and SectorPos

001   infinite loop detection enabled=[TRUE]
003   $Race = [PLAYERSHIP] -> get true owner
005   $x = $SectorPos[0]
006   $y = $SectorPos[1]
007   $z = $SectorPos[2]
009   $NewStation = create station: type=$StationType owner=$Race addto=$Sector x=$x y=$y z=$z
010   $NewStation ->add default wares to station/dock
011   $NewStation ->add money: 1500000
012   $tmp ->factory production task: on=[TRUE]
013   $StationRace = $NewStation -> get maker race
016   $Wares = $NewStation -> get tradeable ware array from station
017   $WareCount = size of array $Wares
018   while $WareCount >= 0
019    dec $WareCount =
021    $Ware = $Wares[$WareCount]
022    if $NewStation -> uses ware $Ware as product
023     remove element from array $Wares at index $WareCount
024    else
026     $WareSt = $NewStation -> get max. store amount of ware $Ware
027     $WareST = $WareSt / 3
028     = $NewStation -> add $WareSt units of $Ware
031    end
034   end
035   return $NewStation