/* Cleaning, documentation by Hamlet. Added a few features while I
was at it. Only a little of the actual code is mine. Made most
everything #defined at the top :)
*/
#include "login.h"
inherit "std/object";
/* Undef this if you are allowing players */
//#define PLAYER_LOCKOUT 1
/* Total number of users allowed on. */
#define TOTAL_SLOTS 110
/* How many user slots are reserved for immorts */
#define IMMORT_SLOTS 4
/* # times they're allowed to try login */
#define MAX_RETRYS 3
/* minimum number of characters in name. */
#define MIN_LEN 3
/* max # characters in name. */
#define MAX_LEN 11
int test_add(object ob, int flag) { return 1; }
int test_remove(object ob, int flag) { return 1; }
static object new_copy, other_copy;
string password, title, al_title;
int cols;
int Str, Dex, gender, creator, app_creator;
string ident;
static int no_times;
static string player_ob;
static int invis_wish;
static void begin2(int new_pl);
static void begin(int new_pl);
void logon3();
void logon4(int bing);
void logon5(int new_pl);
void guest_login();
void cat(string str);
void create() {
cols = 79;
::create();
set_name("logon");
gender = -1;
Str = -1;
Dex = -1;
invis_wish = -1;
seteuid("Root");
player_ob = "/global/player";
} /* create() */
int query_cols() { return cols; }
string query_cap_name() { return "Logon"; }
string query_title() { return "the title-less"; }
int query_creator() { return creator; }
int check_valid_name(string str) {
int i;
for (i=0;i<strlen(str);i++)
if (str[i] < 'a' || str[i] > 'z') return i;
return -1;
} /* check_valid_name() */
void logon() {
int tim;
call_out("time_out",300);
if (this_player() == this_object())
cat("/doc/WELCOME");
if(find_object("/obj/shut") && ("/obj/shut"->query_time_to_crash() >= 0))
{
tim = (int)"/obj/shut"->query_time_to_crash();
if (tim < 120)
{
write(REBOOT_TOO_SOON);
dest_me();
return;
}
else
{
write(REBOOT_AT[0]+(tim/60)+REBOOT_AT[1]);
}
}
if(uptime() < 5) {
write(JUST_REBOOTED);
write("Try again in "+ (5 - uptime())+" seconds.\n");
dest_me();
return;
}
if(sizeof(users()) > TOTAL_SLOTS) {
write(MUD_FULL);
dest_me();
return;
}
write(ENTER_NAME);
input_to("logon1");
} /* logon() */
void logon1(string str);
int do_su(string str) {
object ob, tp;
ob = this_player();
tp = this_object();
exec(tp, ob);
ob->quit();
logon1(str);
return 1;
} /* do_su() */
void time_out() {
write(TIME_OUT);
destruct(this_object());
} /* time_out() */
// Checks for "five", "ten", ..."ninety" - Radix : Jan 3, 1996
int check_proper_name(string n)
{
int i;
for(i=0; i<21; i++)
if(query_num(i,100) == n)
return 0;
for(i=20; i<101; i+=10)
if(query_num(i,1000) == n)
return 0;
return 1;
}
void logon1(string str) {
int tmp;
int NEWBIE = 0;
creator = 0;
app_creator = 0;
if (str=="") {
write(TIME_SHORT);
destruct(this_object());
return ;
}
#ifdef PLAYER_LOCKOUT
if (str=="guest") {
write("Well, we can't let guests in.\n");
destruct(this_object());
return;
}
#endif
name = lower_case(str);
/* More of Hamlet's cute crap. */
if(name[0] == '#') {
invis_wish = 0;
name = name[1..strlen(name)-1];
}
else if(name[0] == '*') {
invis_wish = 1;
name = name[1..strlen(name)-1];
}
else if(name[0] == '@') {
invis_wish = 2;
name = name[1..strlen(name)-1];
}
if(strlen(name) > MAX_LEN) {
write("Name too long (max "+MAX_LEN+" chars). Please retry.\n");
write(ENTER_NAME);
input_to("logon1");
return;
}
if(strlen(name) < MIN_LEN) {
write("Name too short (Min "+MIN_LEN+" chars). Please retry.\n");
write(ENTER_NAME);
input_to("logon1");
return;
}
if(!check_proper_name(name))
{
write(NOT_PROPER_NAME);
write(ENTER_NAME);
input_to("logon1");
return;
}
if ((tmp = check_valid_name(name)) != -1) {
write("Invalid character '"+str[tmp]+"' ("+str+").\n\n");
write(ENTER_NAME);
input_to("logon1");
return;
}
/* To use when we will lock out players */
#ifdef PLAYER_LOCKOUT
if(!read_file("/w/"+name+"/workroom.c"))
{
write("\n\nFINAL REALMS MUD \n\n"+
"The mud is closed for players right now, that often mean we are " +
"either fixing a serious bug or preparing an OMIQ, please try again " +
"in a short time.\n\n");
destruct(this_object());
return;
}
#endif
if(!restore_object("/players/"+name[0..0]+"/"+name,1))
NEWBIE = 1;
player_ob = (string)"/secure/bastards"->query_player_ob(name);
/* changed next line to be stringp - Hamlet */
if (!stringp(player_ob) || !strlen(player_ob)) {
write("Try back some other time, perhaps?\n");
dest_me();
return ;
}
/* A hack while login_handler is being looked at -- Hamlet */
if(player_ob == "/global/player") {
if(sizeof(users()) > TOTAL_SLOTS - IMMORT_SLOTS) {
write("Too many players. Try back later.\n");
dest_me();
return;
}
}
/* End hack */
if (name == "guest") {
guest_login();
return;
}
if(NEWBIE) {
cat("/doc/NEW");
write(NEW_PLAYER);
write("Did you enter your name ["+name+"] correctly (y/n) ? ");
input_to("check_name");
return ;
}
else if (!password) {
logon3();
return;
}
write(ENTER_PASSWORD);
input_to("logon2",1);
} /* logon1() */
int check_name(string str) {
str = implode(explode(str," "),"");
if (str[0] == 'y') {
write(NEW_PLAYER);
write(ENTER_PASSWORD);
input_to("logon2", 1);
return 1;
}
if (str[0] == 'n') {
write("Ok, try again... Please enter your name : ");
input_to("logon1");
return 1;
}
write("No... (y/n) ? ");
input_to("check_name");
return 1;
} /* check_name() */
/* This function doesen't get called by any function in login.c ?
* Why is it here then ?
*/
int test_password(string name, string pass) {
string tmp;
if (!stringp(name) || strlen(name) < 2 || sscanf(name, "%s %s", tmp, tmp)
|| name[0] == '.' || sscanf(name, "%s..%s", tmp,tmp))
return 0;
if(!restore_object("/players/"+name[0..0]+"/"+name,1))
return 0;
return crypt(pass, password) == password;
} /* test_password() */
static void logon2(string str) {
write("\n");
if (str == "") {
write(COME_BACK);
destruct(this_object());
return ;
}
str = crypt(str,password);
if (password && str != password) {
if (++no_times > MAX_RETRYS) {
write(TOO_MANY_RETRIES);
destruct(this_object());
return ;
}
if (Dex == -1) {
write("Didn't match up with first password.\n");
write(ENTER_PASSWORD_AGAIN);
Str = -1;
input_to("logon2",1);
return ;
}
write("Wrong...\nTry again :");
input_to("logon2",1);
return ;
}
password = str;
if (Str == -1) {
Str = 13;
write(ENTER_PASSWORD_AGAIN);
input_to("logon2", 1);
return;
}
if (Dex == -1)
Dex = 10;
logon3();
} /* logon2() */
static void logon3() {
if (gender == -1) {
write("Are you male or female ? ");
input_to("get_sex");
return;
}
logon4(0);
} /* logon3() */
static void get_sex(string str) {
str = lower_case(str);
if (str != "")
if (str[0] == 'm')
gender = 1;
else if (str[0] == 'f')
gender = 2;
else {
write("Thats too wierd for even this game!\n");
write("Try male or female :");
input_to("get_sex");
return;
}
if (!query_property("guest"))
save_object("/players/"+name[0..0]+"/"+name,1);
logon4(!query_property("guest"));
} /* get_sex() */
static void logon4(int new_pl) {
if (name != "root" && name != "guest")
{
other_copy = find_player(name);
if(other_copy == this_player()) {
begin(new_pl);
return;
}
if(other_copy)
{
write("You are already playing. Throw the other copy out (y/n) ? ");
input_to("try_throw_out");
return;
}
}
begin(new_pl);
} /* logon4() */
void guest_login() {
write(GUEST_ENTER_NAME);
input_to("guest_login2");
return ;
} /* guest_login() */
void guest_login2(string str) {
int tmp;
if (!str || str == "") {
write(COME_BACK);
write("Have fun.\n");
destruct(this_object());
return ;
}
if (strlen(str) < MIN_LEN) {
write("That name is too short.\n");
write("Try again with a longer name : ");
input_to("guest_login2");
return ;
}
str = lower_case(str);
str = str[0..11];
if(str == "guest") {
write("Yes, we know you are a guest.\n" +
"Please enter a name for this visit : ");
input_to("guest_login2");
return;
}
if ((tmp = check_valid_name(str)) != -1) {
printf("Invalid character '%d'-%c\n", str[tmp], str[tmp]);
printf("Please enter your name again : ");
input_to("guest_login2");
return ;
}
if (file_size("/players/"+str[0..0]+"/"+str+".o") > 0)
{
write("Sorry that name is already used.\n");
write("Please try another name : ");
input_to("guest_login2");
return ;
}
name = str;
add_property("guest", 1);
printf("What sex do you want to be (M/F) ? ");
input_to("get_sex");
} /* guest_login2() */
static void try_throw_out(string str) {
object tmp, ob;
if (str == "restart") {
if (catch(other_copy->quit()))
if (catch(other_copy->dest_me()))
destruct(other_copy);
begin(0);
return;
}
if (str == "" || (str[0] != 'y' && str[0] != 'Y')) {
write(COME_BACK);
destruct(this_object());
return;
}
if (interactive(other_copy)) {
ob = clone_object("/std/object");
tmp = other_copy;
exec(ob, other_copy);
ob->dest_me();
}
tmp = other_copy;
ob = this_object();
exec(other_copy, ob);
/* force a look ;) */
other_copy->look_me();
tell_room(environment(other_copy), other_copy->query_cap_name()+
" has reconnected.\n", ({ other_copy }) );
/* Getting error on dested object here... Which could not be considered
* good. Hopefully the - ({ 0 }) will fix this. Though I think I will patch
* event to avoid it altogether...
*/
event(users() - ({ 0 }), "inform",
other_copy->query_cap_name() + " reconnected", "link-death");
destruct(this_object());
} /* try_throw_out() */
static void begin(int new_pl) {
player_ob = (string)"/secure/bastards"->query_player_ob(name);
if (!find_object(player_ob)) {
write(LOADING_PLAYER);
call_out("begin2", 0, new_pl);
}
else
begin2(new_pl);
} /* begin() */
static void begin2(int new_player) {
object tp;
/* clone the player object */
catch(new_copy = clone_object(player_ob));
// HACK HACK HACK!!!
//if(player_ob=="global/creator") player_ob=="global/player";
if (!new_copy) {
write("Arrggghhhh something bad happened.\n");
destruct(this_object());
return;
}
new_copy -> set_name(name);
new_copy -> set_password(password);
if( query_property("NOMULTI") )
new_copy->add_static_property("NOMULTI", query_property("NOMULTI"));
tp = this_object();
exec(new_copy, tp);
if (tp != this_object())
tp -> quit();
if (query_property("guest")) {
new_copy->add_property("guest",1);
new_copy->set_title(title);
}
/* Hamlet stuff */
if(!creator)
invis_wish = -1;
else if( (invis_wish == 2) && !"/secure/master"->query_lord(name) )
invis_wish = 1;
new_copy->move_player_to_start(name, new_player, invis_wish);
new_copy->set_gender(gender);
WHO_HANDLER->add_user(new_copy);
destruct(this_object());
} /* begin2() */
int query_level() { return 1; }
int query_gender() { return gender; }
/*
* used by the mailer to determine if bing is a real man
*/
int test_user(string str) {
string tmp;
if (!stringp(str) || !str || sscanf(str, "%s ",tmp))
return 0;
return restore_object("/players/"+str[0..0]+"/"+str,1);
} /* test_user() */
int test_creator(string str) {
if (!stringp(str) || strlen(str) < 2)
return 0;
if(!restore_object("/players/"+str[0..0]+"/"+str,1))
return 0;
return creator;
} /* test_creator() */
int new_player(object old) {
object new_one, tp;
string name;
if(!old) return 0;
name = (string)old->query_name();
tp = this_object();
exec(tp, old);
creator = (int)old->query_creator();
old->quit();
creator = (int)this_player()->query_creator();
new_one = clone_object((string)"/secure/bastards"->query_player_ob(name));
exec(new_one, tp);
new_one->move_player_to_start(name, 0, -1);
destruct(this_object());
return 1;
} /* new_player() */
int query_prevent_shadow() { return 1; }
/*
* Needed so the object actually writes things to the screen. Mildly
* embarasing otherwise.
*/
void do_efun_write(string str) {
efun::tell_object(this_object(), str);
} /* do_efun_write() */
string query_object_type() { return "X"; }
string query_gender_string() { return "blue"; }
void cat(string str) {
write(read_file(str)+"\n");
}
int query_lord() {
return "/secure/master"->query_lord(name);
}
string query_ident() { return ident; }
void terminal_type( string term ) {
log_file("terminal.type",file_name(this_object())+": "+term+"\n");
}
void window_size(int rows, int cols){
log_file("terminal.type",file_name(this_object())+": "+rows+" cols and "+cols+" rows.\n");
}