Repalce:
define procedure <CountRooms>
if not property <quest.currentroom; entered> then inc <score; 1>
end define
define procedure <RoomCounted>
if not property <"quest.current.room; entered> then property <quest.currentroom; entered>
end define
With:
define procedure <CountRooms>
if not property <#quest.currentroom#; entered> then inc <score; 1>
end define
define procedure <RoomCounted>
if not property <#quest.current.room#; entered> then property <#quest.currentroom#; entered>
end define
You can put the two procedures into one btw:
define procedure <CountRooms>
if not property <#quest.currentroom#; entered> then {
inc <score; 1>
property <#quest.currentroom#; entered>
}
end define