home *** CD-ROM | disk | FTP | other *** search
-
- with Occupants;
- use Occupants;
-
- package Creatures is
- type Creature is abstract new Occupant with private;
- type Creature_Access is access Creature'Class;
- private
- type Creature is abstract new Occupant with null record;
- end Creatures;
-