121 lines
4.0 KiB
C
121 lines
4.0 KiB
C
// /d/standard/setter.c
|
|
// Starting room for new characters choosing races
|
|
// from the Nightmare Mudlib
|
|
// created by Shadowwolf@Nightmare july 1992
|
|
// modified by Descartes of Borg for the race daemon 10 june 1993
|
|
|
|
#include <lib.h>
|
|
#include ROOMS_H
|
|
#include <daemons.h>
|
|
|
|
inherit LIB_ROOM;
|
|
|
|
void do_rolls();
|
|
|
|
void create() {
|
|
::create();
|
|
SetProperty("light", 2);
|
|
SetProperty("indoors", 1);
|
|
SetLong(
|
|
"You are in a small box of both infinite and no dimensions. "
|
|
"Reality is black and without material. You are being created. "
|
|
"You intuit a list of possible races you might become, and even "
|
|
"read it. Once you pick your race, you can begin your journey "
|
|
"through the reality of Nightmare! Type <read list> to see "
|
|
"the list of races.");
|
|
SetItems(
|
|
(["room" : "The nothingness from which you will be born "
|
|
"into Nightmare.",
|
|
"list" : "A list of races that exist in the world of Nightmare."]) );
|
|
}
|
|
|
|
void init() {
|
|
::init();
|
|
add_action("read", "read");
|
|
add_action("pick","pick");
|
|
if (this_player()->query_exp() != 0) {
|
|
write("\nWelcome to Nightmare!\n"
|
|
"Please choose a race for yourself. Your race determines your main "
|
|
"genetic attributes, strength, intelligence, dexterity, constitution, "
|
|
"and charisma.");
|
|
this_player()->set_rolls(0);
|
|
}
|
|
}
|
|
int pick(string str) {
|
|
string *which;
|
|
mapping borg;
|
|
int tmp, i;
|
|
string Class;
|
|
|
|
Class = "child";
|
|
if(!str) {
|
|
write("To pick a race, type \"pick whatever\", where whatever is the race.");
|
|
return 1;
|
|
}
|
|
str = lower_case(str);
|
|
if(str == "satyr" &&
|
|
this_player()->query_gender() != "male") {
|
|
write("You must be a male to be a satyr!\nPick again.");
|
|
return 1;
|
|
}
|
|
else if(str == "nymph" && this_player()->query_gender()
|
|
!= "female") {
|
|
write("You must be a female to be a nymph!\nPick again.");
|
|
return 1;
|
|
}
|
|
if(member_array(str, RACES_D->query_races()) == -1) {
|
|
write("You must pick a race from the list!\nType <read list>\n");
|
|
return 1;
|
|
}
|
|
this_player()->SetRace(str);
|
|
this_player()->new_body();
|
|
this_player()->SetClass(Class);
|
|
if( this_player()->query_gender() == "male") this_player()->setenv("TITLE", "Newbie $N the boy");
|
|
else this_player()->setenv("TITLE", "Newbie $N the girl");
|
|
this_player()->init_skills(Class);
|
|
write("You can roll your stats up to three times.");
|
|
write("You do this in the hall of the class you will soon choose.");
|
|
do_rolls();
|
|
write("You are now transfered to the village square.");
|
|
this_player()->eventMoveLiving(ROOM_START);
|
|
return 1;
|
|
}
|
|
|
|
void do_rolls() {
|
|
string *which;
|
|
mapping borg;
|
|
int i, tmp;
|
|
|
|
if(this_player()->query_rolls() >3) {
|
|
write("You can roll your stats no more.");
|
|
return;
|
|
}
|
|
write("You roll your stats.");
|
|
for(i=0, tmp=sizeof(which=keys(borg=RACES_D->do_rolls(this_player()->query_race()))); i<tmp; i++)
|
|
this_player()->SetStat(which[i], borg[which[i]]);
|
|
this_player()->set_rolls(this_player()->query_rolls()+1);
|
|
return;
|
|
}
|
|
|
|
int read(string str) {
|
|
string *res;
|
|
int i, j, tmp;
|
|
if(!str) {
|
|
notify_fail("What do you want to read? A list?\n");
|
|
return 0;
|
|
}
|
|
if(str != "list") {
|
|
notify_fail("That is not here to be read.\n");
|
|
return 0;
|
|
}
|
|
write("These are the following races available in our reality:");
|
|
write("-----------------------------------------------------------");
|
|
message("Ninfo", format_page(RACES_D->query_races(), 4),
|
|
this_player());
|
|
write("----------------------------------------------------------");
|
|
write("Only males may be satyrs, and only females may be nymphs.");
|
|
write("pick <race> will forever make you one of these races");
|
|
write("Type <help races> for more information.");
|
|
return 1;
|
|
}
|