1/*  LogicMOO User Modules Setup
    2%
    3%
    4% Dec 13, 2035
    5% Douglas Miles
    6
    7*/
    8:- module(logicmoo_mud, [ ]).    9
   10% ==============================================
   11% [Required] Load the Logicmoo User System
   12% ==============================================
   13:- ensure_loaded(library(logicmoo_lib)).   14
   15%:- if( \+ exists_source(library(prologmud/mud_startup))).
   16%:- add_pack_path(packs_sys).
   17%:- endif.
   18
   19set_prologmud_home_dir:- exists_source(prologmud(mud_loader)),!.
   20set_prologmud_home_dir:- 
   21   must((absolute_file_name(library('prologmud/'),Dir,[file_type(directory),access(read)]),
   22   nonvar(Dir), asserta(user:file_search_path(prologmud,Dir)))).
   23
   24:- if(\+ exists_source(prologmud(mud_loader))).   25:- set_prologmud_home_dir,!.   26:- assertion(exists_source(prologmud(mud_loader))).   27:- endif.   28
   29% start_runtime_mud:-!.
   30% start_runtime_mud:- baseKB:lst, listing(mudAtLoc).
   31
   32% ensure_mud_startup:- !.
   33ensure_mud_startup:- 
   34   set_prologmud_home_dir,
   35   baseKB:ensure_loaded(prologmud(mud_loader)),
   36   current_prolog_flag(access_level,WAS),!,
   37   set_prolog_flag(access_level,user),
   38   baseKB:ensure_loaded(prologmud(mud_startup)),
   39   set_prolog_flag(access_level,WAS).
   40
   41:- fixup_exports.   42
   43
   44:- if( \+ app_argv('--nomud')).   45:- ensure_mud_startup.   46:- endif.