Удалять нужно не только установленные, но и все щиты которые совместим...

Удалять нужно не только установленные, но и все щиты которые совместимы с данным кораблем.

Код: $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