Dall Sphere is set to 'withDall ; but in the Globals it is " (eq theStatus 'withDal) "
It still works, but I just noticed and find it funny I did not catch it earlier

Code: Select all
<GetGlobalAchievements>
(block (theList theStatus)
(setq theStatus (typGetGlobalData &itDallSphere; "status"))
(switch
(eq theStatus 'found)
(if (objGetItems gPlayerShip "* +unid:&itDallSphere;")
(setq theList (list (list "Found Professor Dall's alien sphere" Nil "achievements & regrets")))
(setq theList (list (list "Found and lost Professor Dall's alien sphere" Nil "achievements & regrets")))
)
(eq theStatus 'withDal)
(setq theList (list (list "Found and delivered Professor Dall's alien sphere" Nil "achievements & regrets")))
)
theList
)
</GetGlobalAchievements>