Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement