void do_grab(struct char_data *ch, char *argument, int cmd)
{
char arg1[MAX_STRING_LENGTH];
char arg2[MAX_STRING_LENGTH];
char buffer[MAX_STRING_LENGTH];
struct obj_data *obj_object;
int keyword = 13;
argument_interpreter(argument, arg1, arg2);
if (*arg1) {
obj_object = get_obj_in_list(arg1, ch->carrying);
if (obj_object) {
if (obj_object->obj_flags.type_flag == ITEM_LIGHT)
wear(ch, obj_object, WEAR_LIGHT);
else
wear(ch, obj_object, 13);
} else {
sprintf(buffer, "You do not seem to have the '%s'.\n\r",arg1);
send_to_char(buffer,ch);
}
} else {
send_to_char("Hold what?\n\r", ch);
}
}
void do_wear(struct char_data *ch, char *argument, int cmd) {
char arg1[MAX_STRING_LENGTH];
char arg2[MAX_STRING_LENGTH];
char buf[256];
char buffer[MAX_STRING_LENGTH];
struct obj_data *obj_object;
int keyword;
static char *keywords[] = {
"finger",
"neck",
"body",
"head",
"legs",
"feet",
"hands",
"arms",
"about",
"waist",
"wrist",
"shield",
"\n"
};
argument_interpreter(argument, arg1, arg2);
if (*arg1) {
obj_object = get_obj_in_list_vis(ch, arg1, ch->carrying);
if (obj_object) {
if (*arg2) {
keyword = search_block(arg2, keywords, FALSE); /* Partial Match */
if (keyword == -1) {
sprintf(buf, "%s is an unknown body location.\n\r", arg2);
send_to_char(buf, ch);
} else {
wear(ch, obj_object, keyword+1);
}
} else {
keyword = -2;
if (CAN_WEAR(obj_object,ITEM_WEAR_SHIELD)) keyword = 14;
if (CAN_WEAR(obj_object,ITEM_WEAR_FINGER)) keyword = 1;
if (CAN_WEAR(obj_object,ITEM_WEAR_NECK)) keyword = 2;
if (CAN_WEAR(obj_object,ITEM_WEAR_WRIST)) keyword = 11;
if (CAN_WEAR(obj_object,ITEM_WEAR_WAISTE)) keyword = 10;
if (CAN_WEAR(obj_object,ITEM_WEAR_ARMS)) keyword = 8;
if (CAN_WEAR(obj_object,ITEM_WEAR_HANDS)) keyword = 7;
if (CAN_WEAR(obj_object,ITEM_WEAR_FEET)) keyword = 6;
if (CAN_WEAR(obj_object,ITEM_WEAR_LEGS)) keyword = 5;
if (CAN_WEAR(obj_object,ITEM_WEAR_ABOUT)) keyword = 9;
if (CAN_WEAR(obj_object,ITEM_WEAR_HEAD)) keyword = 4;
if (CAN_WEAR(obj_object,ITEM_WEAR_BODY)) keyword = 3;
wear(ch, obj_object, keyword);
}
} else {
sprintf(buffer, "You do not seem to have the '%s'.\n\r",arg1);
send_to_char(buffer,ch);
}
} else {
send_to_char("Wear what?\n\r", ch);
}
}
(: smart_fight() :),
}) );
setup();
carry_object("/obj/weapon/blade",([
"name": HIC"明月"NOR,
]))->wear();
carry_object("/obj/armor/cloth",([
"name": "牛之衣",
]))->wear();
}
(: smart_fight() :),
}) );
set_skill("fork", 90);
set_skill("parry", 70);
set_skill("dodge", 50);
set_skill("move", 70);
set_skill("hunting-fork",70);
set_skill("notracesnow",70);
map_skill("dodge","notracesnow");
map_skill("fork","hunting-fork");
map_skill("parry","hunting-fork");
setup();
carry_object(__DIR__"obj/golden_armor",
([ "name" : HIR BLK"灰白衣装"NOR,
"id":"cloth",
"value" : 0,
"long" : "",
"armor_prop/armor" : 20, ])
)->wear();
/* carry_object(__DIR__"obj/golden_sword",
([ "name" : HIR BLK"无常铁锁"NOR,
"id" : "wuchang hammer",
"long" : "",
"value" : 0, ])
)->wield();*/
}
void do_wield(struct char_data *ch, char *argument, int cmd) {
char arg1[MAX_STRING_LENGTH];
char arg2[MAX_STRING_LENGTH];
char buffer[MAX_STRING_LENGTH];
struct obj_data *obj_object;
int keyword = 12;
argument_interpreter(argument, arg1, arg2);
if (*arg1) {
obj_object = get_obj_in_list_vis(ch, arg1, ch->carrying);
if (obj_object) {
wear(ch, obj_object, keyword);
} else {
sprintf(buffer, "You do not seem to have the '%s'.\n\r",arg1);
send_to_char(buffer,ch);
}
} else {
send_to_char("Wield what?\n\r", ch);
}
}
void create() {
seteuid(getuid());
::create();
set("short", "Frank");
enable_commands();
set("long", @ENDLONG
This is Frank. Frank is a 7ft. tall human. Frank is not happy.
Frank wants you to try somthing.
ENDLONG
);
set_name("frank");
set("id", ({
"frank",
"Frank",
"human",
}));
set_alignment(-10);
arm(WEAPONS(lallai), "dagger");
credit(380 );
set("weapon_name", "dagger");
wear( ARMOR(bshield), "shield");
set("damage", ({10, 15 }) );
bool player::create(game *g, character_type type, std::string tempname)
{
weapon = item(g->itypes["null"], 0);
g->u.prof = profession::generic();
WINDOW* w = newwin(FULL_SCREEN_HEIGHT, FULL_SCREEN_WIDTH,
(TERMY > FULL_SCREEN_HEIGHT) ? (TERMY-FULL_SCREEN_HEIGHT)/2 : 0,
(TERMX > FULL_SCREEN_WIDTH) ? (TERMX-FULL_SCREEN_WIDTH)/2 : 0);
int tab = 0, points = 38, max_trait_points = 12;
if (type != PLTYPE_CUSTOM) {
switch (type) {
case PLTYPE_RANDOM: {
str_max = rng(6, 12);
dex_max = rng(6, 12);
int_max = rng(6, 12);
per_max = rng(6, 12);
points = points - str_max - dex_max - int_max - per_max;
if (str_max > HIGH_STAT)
points -= (str_max - HIGH_STAT);
if (dex_max > HIGH_STAT)
points -= (dex_max - HIGH_STAT);
if (int_max > HIGH_STAT)
points -= (int_max - HIGH_STAT);
if (per_max > HIGH_STAT)
points -= (per_max - HIGH_STAT);
int num_gtraits = 0, num_btraits = 0, rn, tries;
while (points < 0 || rng(-3, 20) > points) {
if (num_btraits < max_trait_points && one_in(3)) {
tries = 0;
do {
rn = random_bad_trait();
tries++;
} while ((has_trait(rn) ||
num_btraits - traits[rn].points > max_trait_points) && tries < 5);
if (tries < 5) {
toggle_trait(rn);
points -= traits[rn].points;
num_btraits -= traits[rn].points;
}
} else {
switch (rng(1, 4)) {
case 1: if (str_max > 5) { str_max--; points++; } break;
case 2: if (dex_max > 5) { dex_max--; points++; } break;
case 3: if (int_max > 5) { int_max--; points++; } break;
case 4: if (per_max > 5) { per_max--; points++; } break;
}
}
}
while (points > 0) {
switch (rng((num_gtraits < max_trait_points ? 1 : 5), 9)) {
case 1:
case 2:
case 3:
case 4:
rn = random_good_trait();
if (!has_trait(rn) && points >= traits[rn].points &&
num_gtraits + traits[rn].points <= max_trait_points) {
toggle_trait(rn);
points -= traits[rn].points;
num_gtraits += traits[rn].points;
}
break;
case 5:
switch (rng(1, 4)) {
case 1: if (str_max < HIGH_STAT) { str_max++; points--; } break;
case 2: if (dex_max < HIGH_STAT) { dex_max++; points--; } break;
case 3: if (int_max < HIGH_STAT) { int_max++; points--; } break;
case 4: if (per_max < HIGH_STAT) { per_max++; points--; } break;
}
break;
case 6:
case 7:
case 8:
case 9:
rn = random_skill();
Skill *aSkill = Skill::skill(rn);
int level = skillLevel(aSkill);
if (level < points) {
points -= level + 1;
skillLevel(aSkill).level(level + 2);
}
break;
}
}
} break;
case PLTYPE_TEMPLATE: {
std::ifstream fin;
std::stringstream filename;
filename << "data/" << tempname << ".template";
fin.open(filename.str().c_str());
if (!fin.is_open()) {
debugmsg("Couldn't open %s!", filename.str().c_str());
return false;
}
std::string(data);
getline(fin, data);
load_info(g, data);
points = 0;
} break;
}
tab = NEWCHAR_TAB_MAX;
} else
points = OPTIONS[OPT_INITIAL_POINTS];
max_trait_points = OPTIONS[OPT_MAX_TRAIT_POINTS];
do {
werase(w);
wrefresh(w);
switch (tab) {
case 0: tab += set_stats (w, g, this, points); break;
case 1: tab += set_traits (w, g, this, points, max_trait_points); break;
case 2: tab += set_profession (w, g, this, points); break;
case 3: tab += set_skills (w, g, this, points); break;
case 4: tab += set_description(w, g, this, points); break;
}
} while (tab >= 0 && tab <= NEWCHAR_TAB_MAX);
delwin(w);
if (tab < 0)
return false;
// Character is finalized. Now just set up HP, &c
for (int i = 0; i < num_hp_parts; i++) {
hp_max[i] = calc_HP(str_max, has_trait(PF_TOUGH));
hp_cur[i] = hp_max[i];
}
if (has_trait(PF_HARDCORE)) {
for (int i = 0; i < num_hp_parts; i++) {
hp_max[i] = int(hp_max[i] * .25);
hp_cur[i] = hp_max[i];
}
} if (has_trait(PF_GLASSJAW)) {
hp_max[hp_head] = int(hp_max[hp_head] * .80);
hp_cur[hp_head] = hp_max[hp_head];
}
if (has_trait(PF_SMELLY))
scent = 800;
if (has_trait(PF_ANDROID)) {
bionic_id first_bio;
do {
first_bio = g->random_good_bionic();
} while (bionics[first_bio]->power_cost > 10);
add_bionic(first_bio);
add_bionic(bionic_id(power_source_bionics[rng(0,power_source_bionics.size()-1)])); // Power Source
max_power_level = 10;
power_level = 10;
}
if (has_trait(PF_MARTIAL_ARTS)) {
itype_id ma_type;
do {
int choice = menu(false, _("Pick your style:"),
_("Karate"), _("Judo"), _("Aikido"), _("Tai Chi"),
_("Taekwondo"), NULL);
if (choice == 1)
ma_type = "style_karate";
if (choice == 2)
ma_type = "style_judo";
if (choice == 3)
ma_type = "style_aikido";
if (choice == 4)
ma_type = "style_tai_chi";
if (choice == 5)
ma_type = "style_taekwondo";
item tmpitem = item(g->itypes[ma_type], 0);
full_screen_popup(tmpitem.info(true).c_str());
} while (!query_yn(_("Use this style?")));
styles.push_back(ma_type);
style_selected=ma_type;
}
if (has_trait(PF_MARTIAL_ARTS2)) {
itype_id ma_type;
do {
int choice = menu(false, _("Pick your style:"),
_("Capoeira"), _("Krav Maga"), _("Muay Thai"),
_("Ninjutsu"), _("Zui Quan"), NULL);
if (choice == 1)
ma_type = "style_capoeira";
if (choice == 2)
ma_type = "style_krav_maga";
if (choice == 3)
ma_type = "style_muay_thai";
if (choice == 4)
ma_type = "style_ninjutsu";
if (choice == 5)
ma_type = "style_zui_quan";
item tmpitem = item(g->itypes[ma_type], 0);
full_screen_popup(tmpitem.info(true).c_str());
} while (!query_yn(_("Use this style?")));
styles.push_back(ma_type);
style_selected=ma_type;
}
if (has_trait(PF_MARTIAL_ARTS3)) {
itype_id ma_type;
do {
int choice = menu(false, _("Pick your style:"),
_("Tiger"), _("Crane"), _("Leopard"), _("Snake"),
_("Dragon"), NULL);
if (choice == 1)
ma_type = "style_tiger";
if (choice == 2)
ma_type = "style_crane";
if (choice == 3)
ma_type = "style_leopard";
if (choice == 4)
ma_type = "style_snake";
if (choice == 5)
ma_type = "style_dragon";
item tmpitem = item(g->itypes[ma_type], 0);
full_screen_popup(tmpitem.info(true).c_str());
} while (!query_yn(_("Use this style?")));
styles.push_back(ma_type);
style_selected=ma_type;
}
if (has_trait(PF_MARTIAL_ARTS4)) {
itype_id ma_type;
do {
int choice = menu(false, _("Pick your style:"),
_("Centipede"), _("Viper"), _("Scorpion"), _("Lizard"),
_("Toad"), NULL);
if (choice == 1)
ma_type = "style_centipede";
if (choice == 2)
ma_type = "style_venom_snake";
if (choice == 3)
ma_type = "style_scorpion";
if (choice == 4)
ma_type = "style_lizard";
if (choice == 5)
ma_type = "style_toad";
item tmpitem = item(g->itypes[ma_type], 0);
full_screen_popup(tmpitem.info(true).c_str());
} while (!query_yn(_("Use this style?")));
styles.push_back(ma_type);
style_selected=ma_type;
}
ret_null = item(g->itypes["null"], 0);
weapon = get_combat_style();
item tmp; //gets used several times
std::vector<std::string> prof_items = g->u.prof->items();
for (std::vector<std::string>::const_iterator iter = prof_items.begin(); iter != prof_items.end(); ++iter)
{
tmp = item(item_controller->find_template(*iter), 0);
inv.push_back(tmp);
}
std::vector<addiction> prof_addictions = g->u.prof->addictions();
for (std::vector<addiction>::const_iterator iter = prof_addictions.begin(); iter != prof_addictions.end(); ++iter)
{
g->u.addictions.push_back(*iter);
}
// Grab the skills from the profession, if there are any
profession::StartingSkillList prof_skills = g->u.prof->skills();
for (profession::StartingSkillList::const_iterator iter = prof_skills.begin();
iter != prof_skills.end(); ++iter)
{
assert(Skill::skill(iter->first));
if (Skill::skill(iter->first))
{
g->u.boost_skill_level(iter->first, iter->second);
}
}
// Those who are both near-sighted and far-sighted start with bifocal glasses.
if (has_trait(PF_HYPEROPIC) && has_trait(PF_MYOPIC))
{
tmp = item(g->itypes["glasses_bifocal"], 0);
inv.push_back(tmp);
}
// The near-sighted start with eyeglasses.
else if (has_trait(PF_MYOPIC))
{
tmp = item(g->itypes["glasses_eye"], 0);
inv.push_back(tmp);
}
// The far-sighted start with reading glasses.
else if (has_trait(PF_HYPEROPIC))
{
tmp = item(g->itypes["glasses_reading"], 0);
inv.push_back(tmp);
}
// Likewise, the asthmatic start with their medication.
if (has_trait(PF_ASTHMA)) {
tmp = item(g->itypes["inhaler"], 0);
inv.push_back(tmp);
}
// Basic starter gear, added independently of profession.
tmp = item(g->itypes["pockknife"], 0);
inv.push_back(tmp);
tmp = item(g->itypes["matches"], 0);
inv.push_back(tmp);
// make sure we have no mutations
for (int i = 0; i < PF_MAX2; i++)
if (!has_base_trait(i))
my_mutations[i] = false;
// Equip any armor from our inventory. If we are unable to wear some of it due to encumberance, it will silently fail.
std::vector<item*> tmp_inv;
inv.dump(tmp_inv);
for(std::vector<item*>::iterator i = tmp_inv.begin(); i != tmp_inv.end(); ++i)
{
if( (*i)->is_armor())
{
if( (*i)->has_flag("VARSIZE"))
{
(*i)->item_tags.insert("FIT");
}
// It might be more elegant to use player::wear_item, but then we have to implement our own inventory removal.
wear(g, (*i)->invlet, false);
}
}
// Ensure that persistent morale effects (e.g. Optimist) are present at the start.
apply_persistent_morale();
return true;
}
void ImportTracker::link()
{
if(linkset.size() == 256)
{
LLMessageSystem* msg = gMessageSystem;
msg->newMessageFast(_PREHASH_ObjectLink);
msg->nextBlockFast(_PREHASH_AgentData);
msg->addUUIDFast(_PREHASH_AgentID, gAgent.getID() );
msg->addUUIDFast(_PREHASH_SessionID, gAgent.getSessionID());
LLSD::array_iterator prim = linkset.beginArray();
++prim;
for (; prim != linkset.endArray(); ++prim)
{
msg->nextBlockFast(_PREHASH_ObjectData);
msg->addU32Fast(_PREHASH_ObjectLocalID, (*prim)["LocalID"].asInteger());
}
msg->sendReliable(gAgent.getRegion()->getHost());
LLMessageSystem* msg2 = gMessageSystem;
msg2->newMessageFast(_PREHASH_ObjectLink);
msg2->nextBlockFast(_PREHASH_AgentData);
msg2->addUUIDFast(_PREHASH_AgentID, gAgent.getID() );
msg2->addUUIDFast(_PREHASH_SessionID, gAgent.getSessionID());
LLSD prim2 = linkset[0];
msg2->nextBlockFast(_PREHASH_ObjectData);
msg2->addU32Fast(_PREHASH_ObjectLocalID, (prim2)["LocalID"].asInteger());
prim2 = linkset[1];
msg2->nextBlockFast(_PREHASH_ObjectData);
msg2->addU32Fast(_PREHASH_ObjectLocalID, (prim2)["LocalID"].asInteger());
msg2->sendReliable(gAgent.getRegion()->getHost());
}
else
{
LLMessageSystem* msg = gMessageSystem;
msg->newMessageFast(_PREHASH_ObjectLink);
msg->nextBlockFast(_PREHASH_AgentData);
msg->addUUIDFast(_PREHASH_AgentID, gAgent.getID() );
msg->addUUIDFast(_PREHASH_SessionID, gAgent.getSessionID());
for (LLSD::array_iterator prim = linkset.beginArray(); prim != linkset.endArray(); ++prim)
{
msg->nextBlockFast(_PREHASH_ObjectData);
msg->addU32Fast(_PREHASH_ObjectLocalID, (*prim)["LocalID"].asInteger());
}
msg->sendReliable(gAgent.getRegion()->getHost());
}
llinfos << "FINISHED IMPORT" << llendl;
if (linkset[0].has("Attachment"))
{
llinfos << "OBJECT IS ATTACHMENT, WAITING FOR POSITION PACKETS.." << llendl;
state = POSITIONING;
wear(linkset[0]);
}
else
cleanUp();
}
/*
* parse()
*
* get and execute a command
*/
static void parse(void)
{
int i, j, k, flag;
while (1)
{
k = yylex();
switch(k) /* get the token from the input and switch on it */
{
case 'h': moveplayer(4); return; /* west */
case 'H': run(4); return; /* west */
case 'l': moveplayer(2); return; /* east */
case 'L': run(2); return; /* east */
case 'j': moveplayer(1); return; /* south */
case 'J': run(1); return; /* south */
case 'k': moveplayer(3); return; /* north */
case 'K': run(3); return; /* north */
case 'u': moveplayer(5); return; /* northeast */
case 'U': run(5); return; /* northeast */
case 'y': moveplayer(6); return; /* northwest */
case 'Y': run(6); return; /* northwest */
case 'n': moveplayer(7); return; /* southeast */
case 'N': run(7); return; /* southeast */
case 'b': moveplayer(8); return; /* southwest */
case 'B': run(8); return; /* southwest */
case '.': /* stay here */
if (yrepcount)
viewflag=1;
return;
case 'c':
yrepcount=0;
cast();
return; /* cast a spell */
case 'd':
yrepcount=0;
if (c[TIMESTOP]==0)
dropobj();
return; /* to drop an object */
case 'e':
yrepcount=0;
if (c[TIMESTOP]==0)
if (!floor_consume( OCOOKIE, "eat" ))
consume( OCOOKIE, "eat", showeat );
return; /* to eat a fortune cookie */
case 'g':
yrepcount = 0 ;
cursors();
lprintf("\nThe stuff you are carrying presently weighs %d pounds",(long)packweight());
break ;
case 'i': /* inventory */
yrepcount=0;
nomove=1;
showstr(FALSE);
return;
case 'p': /* pray at an altar */
yrepcount = 0;
pray_at_altar();
return;
case 'q': /* quaff a potion */
yrepcount=0;
if (c[TIMESTOP]==0)
if (!floor_consume( OPOTION, "quaff"))
consume( OPOTION, "quaff", showquaff );
return;
case 'r':
yrepcount=0;
if (c[BLINDCOUNT])
{
cursors();
lprcat("\nYou can't read anything when you're blind!");
}
else if (c[TIMESTOP]==0)
if (!floor_consume( OSCROLL, "read" ))
if (!floor_consume( OBOOK, "read" ))
consume( OSCROLL, "read", showread );
return; /* to read a scroll */
case 's':
yrepcount = 0 ;
sit_on_throne();
return ;
case 't': /* Tidy up at fountain */
yrepcount = 0 ;
wash_fountain() ;
return ;
case 'v':
yrepcount=0;
nomove = 1;
cursors();
lprintf("\nLarn, Version %d.%d.%d, Diff=%d",(long)VERSION,(long)SUBVERSION,(long)PATCHLEVEL,(long)c[HARDGAME]);
if (wizard)
lprcat(" Wizard");
if (cheat)
lprcat(" Cheater");
return;
case 'w': /* wield a weapon */
yrepcount=0;
wield();
return;
case 'A':
yrepcount = 0;
desecrate_altar();
return;
case 'C': /* Close something */
yrepcount = 0 ;
close_something();
return;
case 'D': /* Drink at fountain */
yrepcount = 0 ;
drink_fountain() ;
return ;
case 'E': /* Enter a building */
yrepcount = 0 ;
enter() ;
break ;
case 'I': /* list spells and scrolls */
yrepcount=0;
seemagic(0);
nomove=1;
return;
case 'O': /* Open something */
yrepcount = 0 ;
open_something();
return;
case 'P':
cursors();
yrepcount = 0;
nomove = 1;
if (outstanding_taxes>0)
lprintf("\nYou presently owe %d gp in taxes.",(long)outstanding_taxes);
else
lprcat("\nYou do not owe any taxes.");
return;
case 'Q': /* quit */
yrepcount=0;
quit();
nomove=1;
return;
case 'R' : /* remove gems from a throne */
yrepcount = 0 ;
remove_gems( );
return ;
case 'S':
/* And do the save.
*/
cursors();
lprintf("\nSaving to `%s' . . . ", savefilename);
lflush();
save_mode = 1;
savegame(savefilename);
clear();
lflush();
wizard=1;
died(-257); /* doesn't return */
break;
case 'T': yrepcount=0; cursors(); if (c[SHIELD] != -1) { c[SHIELD] = -1; lprcat("\nYour shield is off"); bottomline(); } else
if (c[WEAR] != -1) { c[WEAR] = -1; lprcat("\nYour armor is off"); bottomline(); }
else lprcat("\nYou aren't wearing anything");
return;
case 'W':
yrepcount=0;
wear();
return; /* wear armor */
case 'Z':
yrepcount=0;
if (c[LEVEL]>9)
{
oteleport(1);
return;
}
cursors();
lprcat("\nAs yet, you don't have enough experience to use teleportation");
return; /* teleport yourself */
case ' ': yrepcount=0; nomove=1; return;
case 'L'-64: yrepcount=0; drawscreen(); nomove=1; return; /* look */
#if WIZID
#ifdef EXTRA
case 'A'-64: yrepcount=0; nomove=1; if (wizard) { diag(); return; } /* create diagnostic file */
return;
#endif
#endif
case '<': /* Go up stairs or vol shaft */
yrepcount = 0;
up_stairs();
return ;
case '>': /* Go down stairs or vol shaft*/
yrepcount = 0 ;
down_stairs();
return ;
case '?': /* give the help screen */
yrepcount=0;
help();
nomove=1;
return;
case ',': /* pick up an item */
yrepcount = 0 ;
/* pickup, don't identify or prompt for action */
lookforobject( FALSE, TRUE, FALSE );
return;
case ':': /* look at object */
yrepcount = 0 ;
/* identify, don't pick up or prompt for action */
lookforobject( TRUE, FALSE, FALSE );
nomove = 1; /* assumes look takes no time */
return;
case '/': /* identify object/monster */
specify_object();
nomove = 1 ;
yrepcount = 0 ;
return;
case '^': /* identify traps */
flag = yrepcount = 0;
cursors();
lprc('\n');
for (j=playery-1; j<playery+2; j++)
{
if (j < 0)
j=0;
if (j >= MAXY)
break;
for (i=playerx-1; i<playerx+2; i++)
{
if (i < 0)
i=0;
if (i >= MAXX)
break;
switch(item[i][j])
{
case OTRAPDOOR: case ODARTRAP:
case OTRAPARROW: case OTELEPORTER:
case OPIT:
lprcat("\nIts ");
lprcat(objectname[item[i][j]]);
flag++;
};
}
}
if (flag==0)
lprcat("\nNo traps are visible");
return;
#if WIZID
case '_': /* this is the fudge player password for wizard mode*/
yrepcount=0; cursors(); nomove=1;
if (getpassword()==0)
{
scbr(); /* system("stty -echo cbreak"); */ return;
}
wizard=1; scbr(); /* system("stty -echo cbreak"); */
for (i=0; i<6; i++) c[i]=70; iven[0]=iven[1]=0;
take(OPROTRING,50); take(OLANCE,25); c[WIELD]=1;
c[LANCEDEATH]=1; c[WEAR] = c[SHIELD] = -1;
raiseexperience(6000000L); c[AWARENESS] += 25000;
{
int i,j;
for (i=0; i<MAXY; i++)
for (j=0; j<MAXX; j++) know[j][i]=KNOWALL;
for (i=0; i<SPNUM; i++) spelknow[i]=1;
for (i=0; i<MAXSCROLL; i++) scrollname[i][0]=' ';
for (i=0; i<MAXPOTION; i++) potionname[i][0]=' ';
}
for (i=0; i<MAXSCROLL; i++)
if (strlen(scrollname[i])>2) /* no null items */
{ item[i][0]=OSCROLL; iarg[i][0]=i; }
for (i=MAXX-1; i>MAXX-1-MAXPOTION; i--)
if (strlen(potionname[i-MAXX+MAXPOTION])>2) /* no null items */
{ item[i][0]=OPOTION; iarg[i][0]=i-MAXX+MAXPOTION; }
for (i=1; i<MAXY; i++)
{ item[0][i]=i; iarg[0][i]=0; }
for (i=MAXY; i<MAXY+MAXX; i++)
{ item[i-MAXY][MAXY-1]=i; iarg[i-MAXY][MAXY-1]=0; }
for (i=MAXX+MAXY; i<MAXOBJECT; i++)
{
item[MAXX-1][i-MAXX-MAXY]=i;
iarg[MAXX-1][i-MAXX-MAXY]=0;
}
c[GOLD]+=250000; drawscreen(); return;
#endif
};
}
}
/*
parse()
get and execute a command
*/
static void
parse(void)
{
int i, j, k, flag;
while (1) {
k = yylex();
switch (k) { /* get the token from the input and switch on
* it */
case 'h':
moveplayer(4);
return; /* west */
case 'H':
run(4);
return; /* west */
case 'l':
moveplayer(2);
return; /* east */
case 'L':
run(2);
return; /* east */
case 'j':
moveplayer(1);
return; /* south */
case 'J':
run(1);
return; /* south */
case 'k':
moveplayer(3);
return; /* north */
case 'K':
run(3);
return; /* north */
case 'u':
moveplayer(5);
return; /* northeast */
case 'U':
run(5);
return; /* northeast */
case 'y':
moveplayer(6);
return; /* northwest */
case 'Y':
run(6);
return; /* northwest */
case 'n':
moveplayer(7);
return; /* southeast */
case 'N':
run(7);
return; /* southeast */
case 'b':
moveplayer(8);
return; /* southwest */
case 'B':
run(8);
return; /* southwest */
case '.':
if (yrepcount)
viewflag = 1;
return; /* stay here */
case 'w':
yrepcount = 0;
wield();
return; /* wield a weapon */
case 'W':
yrepcount = 0;
wear();
return; /* wear armor */
case 'r':
yrepcount = 0;
if (c[BLINDCOUNT]) {
cursors();
lprcat("\nYou can't read anything when you're blind!");
} else if (c[TIMESTOP] == 0)
readscr();
return; /* to read a scroll */
case 'q':
yrepcount = 0;
if (c[TIMESTOP] == 0)
quaff();
return; /* quaff a potion */
case 'd':
yrepcount = 0;
if (c[TIMESTOP] == 0)
dropobj();
return; /* to drop an object */
case 'c':
yrepcount = 0;
cast();
return; /* cast a spell */
case 'i':
yrepcount = 0;
nomove = 1;
showstr();
return; /* status */
case 'e':
yrepcount = 0;
if (c[TIMESTOP] == 0)
eatcookie();
return; /* to eat a fortune cookie */
case 'D':
yrepcount = 0;
seemagic(0);
nomove = 1;
return; /* list spells and scrolls */
case '?':
yrepcount = 0;
help();
nomove = 1;
return; /* give the help screen */
case 'S':
clear();
lprcat("Saving . . .");
lflush();
savegame(savefilename);
wizard = 1;
died(-257); /* save the game - doesn't return */
case 'Z':
yrepcount = 0;
if (c[LEVEL] > 9) {
oteleport(1);
return;
}
cursors();
lprcat("\nAs yet, you don't have enough experience to use teleportation");
return; /* teleport yourself */
case '^': /* identify traps */
flag = yrepcount = 0;
cursors();
lprc('\n');
for (j = playery - 1; j < playery + 2; j++) {
if (j < 0)
j = 0;
if (j >= MAXY)
break;
for (i = playerx - 1; i < playerx + 2; i++) {
if (i < 0)
i = 0;
if (i >= MAXX)
break;
switch (item[i][j]) {
case OTRAPDOOR:
case ODARTRAP:
case OTRAPARROW:
case OTELEPORTER:
lprcat("\nIt's ");
lprcat(objectname[item[i][j]]);
flag++;
};
}
}
if (flag == 0)
lprcat("\nNo traps are visible");
return;
#if WIZID
case '_': /* this is the fudge player password for
* wizard mode */
yrepcount = 0;
cursors();
nomove = 1;
if (userid != wisid) {
lprcat("Sorry, you are not empowered to be a wizard.\n");
scbr(); /* system("stty -echo cbreak"); */
lflush();
return;
}
if (getpassword() == 0) {
scbr(); /* system("stty -echo cbreak"); */
return;
}
wizard = 1;
scbr(); /* system("stty -echo cbreak"); */
for (i = 0; i < 6; i++)
c[i] = 70;
iven[0] = iven[1] = 0;
take(OPROTRING, 50);
take(OLANCE, 25);
c[WIELD] = 1;
c[LANCEDEATH] = 1;
c[WEAR] = c[SHIELD] = -1;
raiseexperience(6000000L);
c[AWARENESS] += 25000;
{
int i, j;
for (i = 0; i < MAXY; i++)
for (j = 0; j < MAXX; j++)
know[j][i] = 1;
for (i = 0; i < SPNUM; i++)
spelknow[i] = 1;
for (i = 0; i < MAXSCROLL; i++)
scrollname[i] = scrollhide[i];
for (i = 0; i < MAXPOTION; i++)
potionname[i] = potionhide[i];
}
for (i = 0; i < MAXSCROLL; i++)
if (strlen(scrollname[i]) > 2) { /* no null items */
item[i][0] = OSCROLL;
iarg[i][0] = i;
}
for (i = MAXX - 1; i > MAXX - 1 - MAXPOTION; i--)
if (strlen(potionname[i - MAXX + MAXPOTION]) > 2) { /* no null items */
item[i][0] = OPOTION;
iarg[i][0] = i - MAXX + MAXPOTION;
}
for (i = 1; i < MAXY; i++) {
item[0][i] = i;
iarg[0][i] = 0;
}
for (i = MAXY; i < MAXY + MAXX; i++) {
item[i - MAXY][MAXY - 1] = i;
iarg[i - MAXY][MAXY - 1] = 0;
}
for (i = MAXX + MAXY; i < MAXX + MAXY + MAXY; i++) {
item[MAXX - 1][i - MAXX - MAXY] = i;
iarg[MAXX - 1][i - MAXX - MAXY] = 0;
}
c[GOLD] += 25000;
drawscreen();
return;
#endif
case 'T':
yrepcount = 0;
cursors();
if (c[SHIELD] != -1) {
c[SHIELD] = -1;
lprcat("\nYour shield is off");
bottomline();
} else if (c[WEAR] != -1) {
c[WEAR] = -1;
lprcat("\nYour armor is off");
bottomline();
} else
lprcat("\nYou aren't wearing anything");
return;
case 'g':
cursors();
lprintf("\nThe stuff you are carrying presently weighs %ld pounds", (long) packweight());
case ' ':
yrepcount = 0;
nomove = 1;
return;
case 'v':
yrepcount = 0;
cursors();
lprintf("\nCaverns of Larn, Version %ld.%ld, Diff=%ld",
(long) VERSION, (long) SUBVERSION,
(long) c[HARDGAME]);
if (wizard)
lprcat(" Wizard");
nomove = 1;
if (cheat)
lprcat(" Cheater");
lprcat(copyright);
return;
case 'Q':
yrepcount = 0;
quit();
nomove = 1;
return; /* quit */
case 'L' - 64:
yrepcount = 0;
drawscreen();
nomove = 1;
return; /* look */
#if WIZID
#ifdef EXTRA
case 'A':
yrepcount = 0;
nomove = 1;
if (wizard) {
diag();
return;
} /* create diagnostic file */
return;
#endif
#endif
case 'P':
cursors();
if (outstanding_taxes > 0)
lprintf("\nYou presently owe %ld gp in taxes.",
(long) outstanding_taxes);
else
lprcat("\nYou do not owe any taxes.");
return;
};
}
}
