void crash( string crash_mess, object command_giver, object current_object ) {
object thing, *things;
string str;
reset_eval_cost();
str = "\n"+ ctime( time() ) +":\n";
if( current_object )
str += "current object: "+file_name( current_object )+" ("+
(string)current_object->query_name()+")\n";
if( command_giver )
str += "command giver: "+file_name( command_giver )+" ("+
(string)command_giver->query_name()+")\n";
if( query_verb() )
str += "command given: "+query_verb()+"\n";
str += "crash reason: "+crash_mess+"\n";
things = efun::users();
str += "["+implode( (string*)things->query_name(), ", ")+"]\n";
unguarded( (: write_file, "/log/CRASH", str :) );
foreach( thing in things ) {
efun::tell_object( thing, "MudOS shouts: Oh no! I have to crash "+
"the driver now!\n("+crash_mess+")\n");
catch( thing->dest_me() );
}
} /* crash() */
