with Stringhandling;                 use Stringhandling;
package Herohandling is
   type Hero_Type is private;


   type eye_Type is(Blue,Green,Brown,Gray,Yellow,Red,Black,Crazy);

   -------------------------------------------------------------------
   type Species_Type is(Human,Elf,Orc,Halfling,Ogre,Lizardman);

   procedure Get (Hero : out Hero_Type);
   procedure Put (Hero : in Hero_Type);
   function Get_age(Hero : in Hero_Type) return Integer;
private

   type Hero_Type is
      record
     Name : String_Type;
     Age  : Integer;
     Gender: Integer;
     Weight : float;
     Hair : String_Type;
     Race : Species_Type;
     Eyes: Eye_Type;
      end record;
end Herohandling;