home *** CD-ROM | disk | FTP | other *** search
-
- with Occupants;
- use Occupants;
-
- package World is
-
- procedure Setup;
- -- Setup the World; initialize the contents of the world.
-
-
- function Me return Occupant_Access;
- -- Return an access variable pointing to the current player.
-
- end World;
-