|
Удалять нужно не только установленные, но и все щиты которые совместимы с данным кораблем.
| | Код:- $ShieldType = $obj -> get max. shield type that can be installed
- $ShieldMainType = get maintype of ware $ShieldType
- $ShieldSubType = get subtype of ware $ShieldType
- $i=0
- while $i<=$ShieldSubType
- $ShieldType = get ware from maintype $ShieldMainType and subtype $i
- $ShieldCount= $obj -> get amount of ware $ShieldType in cargo bay
- $ShieldCount=-$ShieldCount
- = $obj -> add $ShieldCount units of $ShieldType
- inc $i=
- end
|
| |
Если цель обнулить заряд щита, то:
| | Код:- $obj -> set current shield strength to 0
|
| |
|
