|
Братцы пилоты помогите пожалуйста разобраться с циклом.
Вот часть скрипта который устанавливает вооружение на все пристыкованные корабли:
$ware.ar= array alloc: size=3
002 $ware.ar[0] = 25 МДж щит
003 $ware.ar[1] = Кионный лазер КЛ-2
004 $ware.ar[2] = Игла
005 $station=[THIS]
006 $ships.ar=$station -> get ship array from sector/ship/station
007 $count= size of array $ships.ar
008 while$count
009 |dec $count=
010 |$cur.ship=$ships.ar[$count]
011 |$owner=$cur.ship -> get owner race
012 |skip if$owner == Player
013 ||continue
014 |gosub install.arm
015 end
016 install.arm:
017 $ware= size of array $ware.ar
018 while$ware
019 |dec $ware=
020 |$cur.ware=$ware.ar[$ware]
021 |=$cur.ship -> install 3 units of $cur.ware
022 end
023 endsub
024 return null
Строки с 16- 22 перебирают вооружение назначенное массивом в самом начале скрипта. Строка 21 должна поочередно его устанавливать по 3 штуки каждого. В результате в трюме каждого корабля оказывается товара в 2 раза больше. что то не так с циклом а вот что не пойму. | 
