1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. package Games.Sessions.Keen is 
  10.  
  11. private 
  12.  
  13.     type Keen_Session is new Game_Session with 
  14.         record 
  15.             dialogId : Integer := Integer'First;    -- current open dialog 
  16.         end record; 
  17.  
  18.     procedure Handle_Event( this : access Keen_Session; 
  19.                             evt  : in out A_Event; 
  20.                             resp : out Response_Type ); 
  21.     pragma Precondition( evt /= null ); 
  22.  
  23.     procedure On_Load_World( this : access Keen_Session; filename : String ); 
  24.  
  25.     procedure On_New_Game( this : access Keen_Session ); 
  26.  
  27.     procedure On_End_Game( this      : access Keen_Session; 
  28.                            completed : Boolean ); 
  29.  
  30. end Games.Sessions.Keen;