george, any thoughts or guidance?
Here is the segment causing the trouble:
Code: Select all
(objEnumItems gPlayerShip "sI" ItemCursor
(block Nil
->(scrSetDesc gScreen (cat (itmGetMass (itmAtCursor ItemCursor))))
(shpRemoveDevice gPlayerShip ItemCursor)
)
)
(objRemoveItem gPlayerShip gItem 1)
(objAddItem gPlayerShip newShield)
(shpInstallDevice gPlayerShip newShield)
(scrSetDesc gScreen (cat "Your shield is now set to: " (itmGetTypeData newShield)))