1/*
    2% NomicMUD: A MUD server written in Prolog
    3% Maintainer: Douglas Miles
    4% Dec 13, 2035
    5%
    6% Bits and pieces:
    7%
    8%  LogicMOO, Inform7, FROLOG, Guncho, PrologMUD and Marty's Prolog Adventure Prototype
    9% 
   10% Copyright (C) 2004 Marty White under the GNU GPL 
   11% Sept 20,1999 - Douglas Miles
   12% July 10,1996 - John Eikenberry 
   13%
   14% Logicmoo Project changes:
   15%
   16% Main file.
   17%
   18*/
   19
   20:- module(nomic_mu, [srv_mu/0,run_mu/0]).   21
   22:- ensure_loaded('./marty_white/adv_telnet').   23:- ensure_loaded('./marty_white/adv_main').   24
   25mu_port(2666).
   26
   27srv_mu(TwoSixSixSix) :-
   28  atom_concat('mu_',TwoSixSixSix,Alias),
   29  thread_property(_,alias(Alias)),!,  
   30  format('~NServer should be running on port ~w~n',[TwoSixSixSix]),
   31  threads, !.
   32
   33srv_mu(TwoSixSixSix) :- 
   34  %make,
   35  use_module(library(editline)),
   36  ignore(notrace(catch(('$toplevel':setup_readline),_,true))),
   37  % ensure_loaded('./marty_white/adv_telnet'),
   38  adv_server(TwoSixSixSix),
   39  format('~NServer is starting on port ~w~n',[TwoSixSixSix]),
   40  % thread_create(adventure,_),!,
   41  threads,
   42  % set_stream(user_output,alias('player~1')),!,
   43  % set_stream(user_input,buffer_size(1)),  
   44  !.
   45  
   46
   47
   48srv_mu:-
   49  mu_port(TwoSixSixSix),
   50  srv_mu(TwoSixSixSix),
   51  run_mu.
   52
   53run_mu:- dmust(adventure),!.
   54
   55
   56usage_mu:- format('~N
   57You may start the server with:
   58
   59 ?- srv_mu.
   60
   61',[]).
   62
   63
   64  
   65
   66:- initialization(srv_mu, main).   67
   68:- initialization(usage_mu).