with Hashed_Strings; use Hashed_Strings;
package Keen_Directives is
UP : constant Hashed_String := To_Hashed_String( "up" );
DOWN : constant Hashed_String := To_Hashed_String( "down" );
LEFT : constant Hashed_String := To_Hashed_String( "left" );
RIGHT : constant Hashed_String := To_Hashed_String( "right" );
JUMP : constant Hashed_String := To_Hashed_String( "jump" );
SHOOT : constant Hashed_String := To_Hashed_String( "shoot" );
POGO : constant Hashed_String := To_Hashed_String( "pogo" );
FINISH_TELEPORT : constant Hashed_String := To_Hashed_String( "finish_teleport" );
FACE_UP : constant Hashed_String := To_Hashed_String( "face_up" );
FACE_DOWN : constant Hashed_String := To_Hashed_String( "face_down" );
FACE_LEFT : constant Hashed_String := To_Hashed_String( "face_left" );
FACE_RIGHT : constant Hashed_String := To_Hashed_String( "face_right" );
end Keen_Directives;