$race = Аргон
$ware = Ракета "Москит"
$allstation = get station array: of race $race class/type = null
$arraystationsize = size of array $allstation
$cont = 0
// проверяем продает ли станция наш товар
while $cont <= $arraystationsize
@ = wait 100 ms
$station = $allstation [$cont]
$trader = $station can sell $ware
if $trader = [FALSE]
remove element from array $allstation at index $cont
dec $cont
end
$arraystationsize = size of array $allstation
inc $cont
end
// считаем общее кол-во товара
$cont = 0
$arraystationsize = size of array $allstation
$obshcolvo = 0
while $cont <= $arraystationsize
@ = wait 100 ms
$station = $allstation [$cont]
$colvo = $station get amount of ware $ware in cargo bay
$obshcolvo = $obscolvo + $colvo
inc $cont
end
// считаем общее кол-во станций продающих товар ниже средней цены
$arraystationsize = size of array $allstation
$midprice = get average price of ware $ware
$cont = 0
while $cont <= $arraystationsize
@ = wait 100 ms
$station = $allstation [$cont]
$price = $station get price of $ware
if $price > $midprice
remove element from array $allstation at index $cont
dec $cont
end
$arraystationsize = size of array $allstation
inc $cont
end
// считаем общее кол-во товара ниже средней цены
$cont = 0
$arraystationsize = size of array $allstation
$obshcolvomid = 0
while $cont <= $arraystationsize
@ = wait 100 ms
$station = $allstation [$cont]
$colvo = $station get amount of ware $ware in cargo bay
$obshcolvomid = $obscolvomid + $colvo
inc $cont
end
// считаем общее кол-во станций торгующих по минимальной цене
$arraystationsize = size of array $allstation
$minprice = get min price of ware $ware
$cont = 0
while $cont <= $arraystationsize
@ = wait 100 ms
$station = $allstation [$cont]
$price = $station get price of $ware
if $price != $minprice
remove element from array $allstation at index $cont
dec $cont
end
$arraystationsize = size of array $allstation
inc $cont
end
// считаем общее кол-во товара по мин цене
$cont = 0
$arraystationsize = size of array $allstation
$obshcolvomin = 0
while $cont <= $arraystationsize
@ = wait 100 ms
$station = $allstation [$cont]
$colvo = $station get amount of ware $ware in cargo bay
$obshcolvomin = $obscolvomin + $colvo
inc $cont
end
write to player logbook: printf: fmt= "%sОбщее количество товара %s", $obshcolvo,"%s средняя цена %s", $midprice,"%s товарa по цене ниже средней %s", $obshcolvomid, "%s минимальная цена %s", $minprice,"товарa по минимальной цене %s", $obshcolvomin