#include <player.h>
inherit COMMAND_BASE;
int cmd(string str) {
write("Change finger information.\n");
write("Pressing return at the prompts will take the default. The default "
"is the option in []'s.\n");
write("What real name do you wish to use ["+TP->query_real_name()+"] ? ");
input_to("real_name");
return 1;
} /* chfn() */
int real_name(string str) {
string real_name;
str = strip_colours(str);
real_name = TP->query_real_name();
if (str && str != "") {
if (str == "none") {
real_name = 0;
} else {
real_name = str;
}
}
if (real_name && strlen(real_name) > 30) {
write("Real name is too long, a maximum of 30 characters is allowed.\n");
write("What real name do you wish to use ["+TP->query_real_name()+"] ? ");
input_to("real_name");
return 1;
}
if (real_name && real_name != "") {
write("Ok real name set to "+real_name+".\n");
} else {
write("Real name cleared.\n");
}
TP->set_real_name(real_name);
write("Enter your location (ie Perth, oz, whatever) ["+
TP->query_where()+"]\n(none for none) : ");
input_to("get_where");
return 1;
} /* real_name() */
int get_where(string str) {
string where;
str = strip_colours(str);
where = TP->query_where();
if (str && str != "") {
if (str == "none") {
where = 0;
} else {
where = str;
}
}
if (where && where != "") {
write("Ok location set to "+where+".\n");
} else {
write("Location cleared.\n");
}
if (where && strlen(where) > 30) {
write("Your location is too long, maximum of 30 characters allowed.\n");
write("Enter your location (ie Perth, oz, whatever) ["+
TP->query_where()+"]\n(none for none) : ");
input_to("get_where");
return 1;
}
TP->set_where(where);
write("What icq number do you wish to use. Set to none to clear.\n");
write("["+TP->query_icq()+"] : ");
input_to("get_icq");
return 1;
} /* get_where() */
int get_icq(string str) {
string icq;
str = strip_colours(str);
icq = TP->query_icq();
if (str && str != "") {
if (str == "none") {
icq = 0;
} else {
icq = str;
}
}
if (icq && icq != "") {
write("Ok icq number set to "+icq+".\n");
} else {
write("ICQ number cleared.\n");
}
TP->set_icq(icq);
if(TP->query_birthday() == UNKNOWN_BIRTHDAY) {
write("Enter your birthday (ddmm) ["+TP->query_birthday()+
"] (none for none) : ");
input_to("birthday");
} else {
write("What email address do you wish to use. Set to none to clear.\n");
write("Putting a : in front of it means that only the creators and lords "
"can read it.\n");
write("["+TP->query_email()+"] : ");
input_to("get_email");
}
return 1;
} /* get_icq() */
string convert_birthday(string str) {
#undef MONTHS
#define MONTHS ({ "January", "February", "March", "April", "May", "June", \
"July", "August", "September", "October", "November", "December" })
/* we assume it is 4 characters long */
int day, month, tot;
string retval;
sscanf(str, "%d", tot);
day = tot / 100;
month = tot % 100;
switch(day) {
case 11:
retval = "11th"; break;
case 12:
retval = "12th"; break;
case 13:
retval = "13th"; break;
default:
switch(day%10) {
case 1:
retval = day+"st"; break;
case 2:
retval = day+"nd"; break;
case 3:
retval = day+"rd"; break;
default:
retval = day+"th";
}
}
return retval + " of " + MONTHS[month-1];
} /* convert_birthday() */
int valid_birthday(string str) {
#define LENGTHS ({ 0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 })
int tot, month, day;
if(strlen(str) != 4) {
return 0;
}
if(!sscanf(str, "%d", tot)) {
return 0;
}
month = tot % 100;
day = tot / 100;
if(month > 12 || month < 1) {
return 0;
}
if(day < 1) {
return 0;
}
return day <= LENGTHS[month];
} /* valid_birthday() */
void birthday(string str) {
string birth_day;
birth_day = TP->query_birthday();
if (str == "") {
if (birth_day)
write("Birthday unchanged from "+birth_day+".\n");
else
write("Birthday left as blank.\n");
} else {
if( birth_day != UNKNOWN_BIRTHDAY ) {
write("You can't change when you were born! Please ask a Creator or "
"a Lord to change it if you made an error.\n");
} else if( !valid_birthday(str) ) {
write("Invalid Birthday. Birthday cleared.\n");
birth_day = 0;
} else {
birth_day = convert_birthday(str);
write("Birthday set to " + birth_day + ".\n");
TP->birthday_gifts();
}
}
TP->set_birthday(birth_day);
write("What email address do you wish to use. Set to none to clear.\n");
write("Putting a : in front of it means that only the creators and lords "
"can read it.\n");
write("["+TP->query_email()+"] : ");
input_to("get_email");
} /* birthday() */
void get_email(string str) {
string email;
email = TP->query_email();
str = strip_colours(str);
if (str == "") {
if (!email || email == "") {
write("Email address left blank.\n");
} else {
write("Email address left as "+email+".\n");
}
} else if (str == "none") {
email = 0;
write("Email address cleared.\n");
} else {
email = str;
write("Email address set to "+email+".\n");
}
if (email && strlen(email) > 50) {
write("Your email address is too long, maximum of 30 characters allowed.\n");
write("What email address do you wish to use. Set to none to clear.\n");
write("Putting a : in front of it means that only the creators and lords "
"can read it.\n");
write("["+TP->query_email()+"] : ");
input_to("get_email");
return ;
}
TP->set_email(email);
write("Please enter your home page (World Wide Web page address), "
"type 'none' to clear it.\n");
if (!TP->query_homepage()) {
write("[none] : ");
} else {
write("["+TP->query_homepage()+"] : ");
}
input_to("get_home_page");
} /* get_email() */
void get_home_page(string str) {
str = strip_colours(str);
if (str == "") {
if (!TP->query_homepage()) {
write("Home page left as blank.\n");
} else {
write("Home page left as "+TP->query_homepage()+"\n");
}
} else if (str == "none") {
TP->set_homepage("");
write("Home page cleared.\n");
} else if (strlen(str) <= 50) {
TP->set_homepage(str);
write("Home page set to "+str+"\n");
} else {
write("Your home page address is too long, maximum of 50 characters allowed.\n");
write("Please enter your home page (World Wide Web page address), "
"type 'none' to clear it.\n");
if (!TP->query_homepage()) {
write("[none] : ");
} else {
write("["+TP->query_homepage()+"] : ");
}
input_to("get_home_page");
return ;
}
TP->save_me();
} /* get_home_page() */
