/* -*- LPC -*- */
/*
* $Locker: $
* $Id: surr_ender.c,v 1.3 1998/02/23 23:50:08 sin Exp $
* $Log: surr_ender.c,v $
* Revision 1.3 1998/02/23 23:50:08 sin
* Ok, everything is working with the surrender command now.
*
* Revision 1.2 1998/02/23 23:18:17 sin
* *blush* I made a boo-boo
*
* Revision 1.1 1998/02/23 23:17:06 sin
* Initial revision
*
*
*/
inherit "/cmds/base";
mixed cmd(int mode, int val) {
if (!mode) {
int surr = this_player()->query_surrender();
if (surr)
write(sprintf("You will surrender at %d%% of your max hps.\n", surr));
else
write("You will not surrender.\n");
return 1;
} else {
if (val < 0 || val > 100)
return notify_fail("Your surrender must be between 0 and 100.\n");
this_player()->set_surrender(val);
write(sprintf("Surrender set to %d%%\n", this_player()->query_surrender()));
return 1;
}
} /* cmd() */
mixed *query_patterns()
{
return ({ "", (: cmd(0, 0) :),
"<number>", (: cmd(1, $4[0]) :) });
}
