System Object #0

Parent #1Owner #10Flags readSource MurpgCore-0.4/MurpgCore-0.4.db

12 verbs · 103 properties · 0 children

Verbs

Properties

Ancestry

• #1 Root Class

  • #0 System Object

Ancestors (nearest first): #1 Root Class

Children: none

Call graph

Source

"#0.do_login_command([str name [str passwd]]);";
"called with no args when connection first comes in,";
"and then whenever someone types a command after getting";
"connected.  if name and password both typed (two tokens)";
"then will try to connect as player args1 with passwd args2";
"if only name is specified, then will prompt for passwd, and";
"do a force_input() with both name and passwd.  this is because";
"server doesn't allow the do_login_command to suspend, and a call";
"to read() forces a suspend().";
{?name = "", ?typedpass = ""} = args;
valid = 0;
auth = 0;
is_connected = 0;
pc = 0;
if (argstr == "")
for each in ($banner)
notify(player, each);
endfor
notify(player, "~Type your name to log in: ");
return 0;
elseif ((name != "") && (typedpass == ""))
notify(player, "~Password: ");
typedpass = read(player, 0);
if (typedpass == "")
typedpass = "crap";
endif
force_input(player, (name + " ") + typedpass, 1);
elseif ((name != "") && (typedpass != ""))
"exact match, name only";
matchlist = $utils:match(name, players(), 1, 1);
valid = length(matchlist) == 1;
if (valid)
{pc} = matchlist;
auth = crypt(typedpass, pc.password[1..2]) == pc.password;
is_connected = pc in connected_players();
endif
if ((auth && (!is_connected)) && valid)
return pc;
else
notify(player, "Either that player does not exist, is currently logged in, or the password you typed is incorrect.");
$log:add_entry("login", $log.log_levels[2], (("Failed login on " + connection_name(player)) + "  ") + name);
notify(player, "");
force_input(player, "");
return 0;
endif
endif

"#0:do_prompt_task";
targ = args[1];
prompt_str = targ.prompt_string;
maxhp = targ:max_hp();
curhp = targ.cur_hp;
maxf = targ:max_focus();
curf = targ.cur_focus;
maxe = targ:max_endurance();
cure = targ.cur_endurance;
hpdam = (curhp * 100) / maxhp;
fdam = (curf * 100) / maxf;
edam = (cure * 100) / maxe;
if (curhp == maxhp)
hpcol = targ.prompt_colors[1];
elseif (hpdam >= 75)
hpcol = targ.prompt_colors[2];
elseif (hpdam >= 50)
hpcol = targ.prompt_colors[3];
elseif (hpdam >= 25)
hpcol = targ.prompt_colors[4];
else
hpcol = targ.prompt_colors[5];
endif
if (curf == maxf)
fcol = targ.prompt_colors[6];
elseif (fdam >= 75)
fcol = targ.prompt_colors[7];
elseif (fdam >= 50)
fcol = targ.prompt_colors[8];
elseif (fdam >= 25)
fcol = targ.prompt_colors[9];
else
fcol = targ.prompt_colors[10];
endif
if (cure == maxe)
ecol = targ.prompt_colors[11];
elseif (edam >= 75)
ecol = targ.prompt_colors[12];
elseif (edam >= 50)
ecol = targ.prompt_colors[13];
elseif (edam >= 25)
ecol = targ.prompt_colors[14];
else
ecol = targ.prompt_colors[15];
endif
codes = {"%n", "%hp", "%HP", "%f", "%F", "%e", "%E", "%dhp", "%df", "%de"};
values = {targ.name, tostr(curhp), tostr(maxhp), tostr(curf), tostr(maxf), tostr(cure), tostr(maxe), hpcol, fcol, ecol};
for x in [1..length(codes)]
new = strsub(prompt_str, codes[x], values[x], 1);
prompt_str = new;
endfor
if (targ.afk)
prompt_str = "%B[%cAFK%B]%w" + prompt_str;
endif
targ:tell("");
targ:tell(("~" + "%w") + prompt_str);

"#0:user_connected this none this";
" called with args[1]=player that just connected by do_login_command ";
"  upon a valid player connecting to moo. ";
" we need it to set up the player's prompt connection option. ";
{player} = args;
$log:add_entry("connection", "[INFO]", ((((player.name + " (") + tostr(player)) + ") has connected (") + connection_name(player)) + ").");
"set $max_connected if applicable";
curlen = length(connected_players());
if (curlen >= $max_connected[1])
$max_connected = {curlen, time()};
endif
if (player.prompt_on == 1)
set_connection_option(player, "prompt", 1);
endif
player:tell("");
player:tell($welcome_msg());
player:tell("");
force_input(player, "look");
if (player.messages != {})
player:tell("%YYou have messages.  Type 'msg view' to see them.%w");
endif
player:tell();
return 0;

"called by user_connected";
return "%WWelcome to Murpg Core! Enjoy your stay, and write some damn code...%w";

"$checkpoint_started() this none this";
$log:add_entry("system", "[INFO]", "Checkpoint started.");

"$checkpoint_finished() this none this";
{success} = args;
if (success)
$log:add_entry("system", "[INFO]", "Checkpoint finished (success).");
else
$log:add_entry("system", "[ERROR]", "Checkpoint finished (failure).");
endif

{player} = args;
$log:add_entry("connection", "[WARNING]", ((((player.name + " (") + tostr(player)) + ") has redirected connection (") + connection_name(player)) + ").");
if (player.prompt_on == 1)
set_connection_option(player, "prompt", 1);
endif

if (!valid(player))
$log:add_entry("login", "[INFO]", ((connection_name(player) + " (") + tostr(player)) + ") has timed out.");
else
player:set_disconnect_info();
$log:add_entry("connection", "[INFO]", ((player.name + " (") + tostr(player)) + ") has disconnected.");
endif

player:set_disconnect_info();
$log:add_entry("connection", "[INFO]", ((player.name + " (") + tostr(player)) + ") has (client) disconnected.");

"$shutdown this none this";
{when, why} = args;
if (when == 0)
$log:add_entry("system", "[WARNING]", (player.name + " has initiated immediate server shutdown: ") + why);
"shutdown(why)";
#5:tell("server shutdown");
#4:tell("server shutdown");
else
fork pid (when)
$log:add_entry("system", "[INFO]", ((((((player.name + " has initiated server shutdown [") + tostr(when)) + "]: ") + why) + " [PID = ") + tostr(pid)) + "]");
$shutdown_pid = 0;
"shutdown(why)";
#5:tell("server shutdown");
#4:tell("server shutdown");
endfork
$shutdown_pid = pid;
"{days, hours, minutes, seconds} = $utils:dhms(when)";
for each in (connected_players())
each:tell(((((("%W" + player.name) + " has initiated server shutdown.%w  The server will be shutdown in ") + tostr(when)) + " seconds.  %Y") + why) + "%w");
endfor
$log:add_entry("system", "[INFO]", (((("Server will be shutdown in " + tostr(when)) + " seconds.  [PID = ") + tostr(pid)) + "]  ") + why);
endif

"#0:server_started this none this";
$log:add_entry("system", "[INFO]", "Server has started.");
$start_time = time();
$max_connected = {0, 0};

"$get_next_help_id this none this";
"returns the next available article num for help db topics.";
current_id = tonum($next_help_id[2..$]);
next_id = current_id + 1;
$next_help_id = "A" + tostr(next_id);
return "A" + tostr(current_id);