with core, ui, ai; use ai; package body ai is ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ procedure configure is begin core.echo (core.failure, "No AI yet folk!"); end configure; ------------------------------------------------------------------------------------------ procedure action_none is begin null; end action_none; procedure action_walk is begin null; end action_walk; procedure action_talk is begin null; end action_talk; procedure action_find is begin null; end action_find; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end ai;