here is another way
Type Thing Field X#,Y#,Z# Field VX#,VY#,VZ# Field Entity Field RB Field Center Field Man.Man Field Ship.Ship End Type Type ManFields Field O2 Field Health End Type Type ShipFields Field Speed Field Fuel# Field Pilot Field Landed Field ThrustSound End Type Joe.Thing=New Thing Joe\ManFields=New ManFields Joe\ManFields\Health=45 Joe\Entity=CreateCube() Voyager.Thing=New Thing Voyager\ShipFields=New ShipFields Voyager\ShipFields\Feul=12.6 Voyager\Entity=CreateCone() Repeat ;Update Ships For Thing.Thing=New Thing ;Update Ships only right now If Thing\ShipFields<>Null Then MoveEntity Thing\Entity, Thing\VX...... UpdateFunction(Thing) EndIf Next Function UpdateFunction(Thing.Thing) PointEntity camera,Thing\Entity Print Thing\x ;etc.