type Give_Ammo_Event is new Event with private;
type Give_Drops_Event is new Event with private;
type Give_Points_Event is new Event with private;
type A_Give_Ammo_Event is access all Give_Ammo_Event'Class;
type A_Give_Drops_Event is access all Give_Drops_Event'Class;
type A_Give_Points_Event is access all Give_Points_Event'Class;
GIVE_AMMO_ID : constant Event_Id := To_Event_Id( "Give_Ammo" );
GIVE_DROPS_ID : constant Event_Id := To_Event_Id( "Give_Drops" );
GIVE_POINTS_ID : constant Event_Id := To_Event_Id( "Give_Points" );