;*******************************************************************************
;*        Minor bug in penguin colony map fixed Jan. 02, 87  (BIM)             *
;*******************************************************************************

(basic-thing penguinmap
   (noun map paper)
   (adjective lined note)
   (property
       $LDESC "There is a piece of lined note paper here."
       $SDESC "piece of lined note paper"
       $EDESC "There's something written on the lined note paper.\n"
       $RDESC "
...........................................................................\n
.......................Map of Antarctic Penguin Colony.....................\n
..........................................................EXIT!............\n
.......................___._______.___._______.___._______..^..............\n
.....................//...\\\\.....//...\\\\.....//---\\\\.....//...\\\\...........\n
....................//.....\\\\___//.....\\\\___//.....\\\\___//.....\\\\..........\n
....................\\\\...../----\\....../----\\\\.....//---\\......//..........\n
......N..............\\\\___/......\\____/......\\\\___//.....\\____//...........\n
......^..............//...\\\\.....//---\\......//...\\....../----\\\\...........\n
...../|\\............//.....\\\\___//..*..\\____//.....\\____/......\\\\..........\n
......|.............\\\\...../----\\\\...../----\\\\.....//---\\......//..........\n
......|..............\\\\___/......\\\\___/......\\\\___//.....\\____//...........\n
.....................//---\\\\...../----\\\\...../....\\\\...../----\\\\...........\n
....................//..*..\\\\___/......\\\\___/......\\\\___/......\\\\..........\n
....................\\\\...../----\\......//...\\\\...../----\\\\.....//..........\n
.....................\\\\___/......\\____//.....\\\\___/......\\\\___//...........\n
.....................//...\\\\...../----\\....../----\\\\...../....\\\\...........\n
....................//.....\\\\___/......\\____/......\\\\___/...*..\\\\..........\n
....................\\\\.....//---\\\\.....//---\\\\.....//---\\\\.....//..........\n
.....................\\\\...//_____\\\\___//_____\\\\___//_____\\\\___//...........\n
........................^..................................................\n
......................ENTER................................................\n
..........................................................................."
            initial-location GARAGE
            $onfloor? 2
            $invisible? T
            $weight 1))


(location DROWN)

(location FLOE1)

(location FLOE2)

(location FLOE3)

(location FLOE4)

(location FLOE5)

(location FLOE6)

(location FLOE7)

(location FLOE8)

(location FLOE9)

(location FLOE10
    (noun cottage room garden stems petals))

(location FLOE11)

(location FLOE12
    (noun corral))

(location FLOE13
    (noun barn))

(location FLOE14)

(location FLOE15)

(location FLOE16)

(location FLOE17)

(location FLOE18)

(location FLOE19)

(location FLOE20)

(location FLOE21)

(location FLOE22
   (noun hall))

(location FLOE23
   (noun pole))

(location FLOE24)

(location FLOE25)