/*
// File : /domains/Praxis/court_room.c
// Comment : The Court where High Justice is served.
// 94-07-02 : Pallando @ Nightmare wrote it
*/
#include <lib.h>
#include ROOMS_H
#include <council.h>
#define COUNCIL_CHAMBER "/domains/Praxis/council"
inherit LIB_ROOM;
object defendant;
void create()
{
::create();
SetProperties( ([
"indoors" : 1,
"light" : 2,
"no castle" : 1,
"no teleport" : 1,
"no bump" : 1,
"no attack" : 1,
"no steal" : 1,
"no magic" : 1,
]) );
SetShort( "the court of high justice" );
// Thank you, whoever added this. However, if you have time, I have
// a few suggestions:
// We want the justice system to be intimidating. Imagine being a
// short dwarf. You have been lead up from a dank stone dungeon.
// you peer up at the dark oak furnishings (the dock has omnious
// scratches left on by the last victim dragged away for execution)
// the flickering torches leave frightning looming dark heights to
// the room, while leaving the dock harshly lit. The judges bench
// it tall, imposing, richly ornamented in legal symbols (an iron
// glove enclosing an iron fist). UNderneath it is a supply of gin.
// The place smells slightly of chalk dust used for lawyer's wigs,
// and the perspiration of bored and jeering juiries. The stone
// fllor flagstones boom ominously every time the usher bangs his
// staff to summon the next witness. A hanging on the wall,
// embroidered by the housewifes union depicts the possible sentances
// in gory detail. Occasional screams can be heard from the prison
// or execution square.
//
// You could also use interactive SetItems to show if the dock and
// bench are currently occupied.
SetLong(
"The sheer size of this room dazzles you. The ceiling cannot be viewed\n"+
"from where you stand. At one end of the room is a huge chair, in front\n"+
"of which is a desk. Both the chair and the desk are made from the finest\n"+
"wood in the land. Next to the desk lies a second chair, where witnesses\n"+
"sit. On the other side of the room are rows of chairs, and an aisle\n"+
"through the center. Two doors lead the way out of this room, north\n"+
"is the Town Hall, east is the sheriff's office.\n"
);
SetExits( ([
"north" : "/domains/Praxis/town_hall",
"east" : "/domains/Praxis/sheriff",
]) );
SetItems( ([
"view" : "A magnificent panorama of all Praxis.",
"gavel" : "A wooden hammer-like object, used for pounding.",
"chair" : "Made out of the finest wood.",
"desk" : "A large desk made out of the finest wood.",
({ "door", "doors" }) :
"Large wooden doors leading out of the room.",
"ceiling" : "The ceiling extends out of view.",
"room" : "A very large, spacious room with a "
"rather formal aura.",
"office" : "The office of the Sheriff of Praxis.",
"wood" : "The highest quality wood, made exclusivly "
"from the trees of the elven forest.",
]) );
}
varargs int justicep( mixed arg )
{
if( !arg ) arg = this_player();
if( objectp( arg ) ) arg = geteuid( arg );
return -1 != member_array( arg, JUSTICES) || member_array( arg, POLICECOM );
}
int release_objects( object ob )
{
return ob != defendant;
}
void init()
{
add_action( "cmd_law", "law" );
::init();
if( !creatorp( this_player() ) && !justicep( this_player() ) )
return;
add_action( "cmd_summon", "summon" );
add_action( "cmd_verdict", "verdict" );
add_action( "cmd_sentence", "sentence" );
}
int cmd_law( string title )
{
return COUNCIL_CHAMBER-> cmd_law( title );
}
int cmd_summon( string arg )
{
object victim;
if( !arg )
return notify_fail( "Syntax: summon <player name>\n" );
//call_other( ROOM_SHERIFF, "sighs_for_deleted_simul_efun_f.o.o.l." );
if( victim = present( arg, this_object() ) )
{
if( victim == defendant )
return notify_fail( arg + " is already in the dock.\n" );
}
//else if( victim = present( arg, find_object( ROOM_SHERIFF ) ) ) {
// ROOM_SHERIFF-> remove_prisoner( victim );
// victim-> eventMove( this_object() );
// }
else notify_fail( "The sheriffs do not have " + arg + ".\n" );
if( defendant )
tell_object( defendant, "You trial is suspended. You may leave.\n" );
defendant = victim;
say( defendant-> query_cap_name() + " is summoned to the dock.\n" );
return 1;
}
int cmd_verdict( string arg )
{
if( !arg )
return notify_fail( "Syntax: verdict guilty|innocent|none\n" );
if( !defendant )
return notify_fail( "You must summon a defendant first.\n" );
switch( arg )
{
case "innocent":
case "free":
case "insufficient evidence":
say( "VERDICT: the defendant is found to be Not Guilty.\n" );
defendant-> set_outlaw( 0 );
defendant = 0;
break;
case "guilty":
say( "VERDICT: the defendant is Guilty.\n" );
defendant-> set_outlaw( 1 );
break;
case "none":
default:
say( "VERDICT: no change in the defendant's status\n" );
defendant = 0;
break;
}
return 1;
}
int cmd_sentence( string arg )
{
mapping executions;
object criminal;
//executions = ROOM_SHERIFF-> valid_execution();
executions = ([]);
if( !arg || undefinedp( executions[arg] ) )
return notify_fail(
"Syntax: sentence <punishment>\nCurrent options:\n "+
implode( keys( executions ), "\n " ) + "\n" );
if( !defendant )
return notify_fail( "You must summon a defendant first.\n" );
say( sprintf(
"%s says: %s, you have been found guilty by due process\n"
" and now justice must be seen to be done. It is the will of law that\n"+
" you shall now be taken from here unto the place of execution,\n"+
" where you shall suffer the torments of %s until dead.\n",
this_player()-> query_cap_name(),
defendant-> query_cap_name(),
arg ) );
criminal = defendant;
defendant = 0;
//ROOM_SHERIFF-> add_prisoner( criminal );
//ROOM_SHERIFF-> execute( criminal, arg );
return 1;
}
/* EOF */
