/* -*- LPC -*- */
/*
* $Id: bright.c,v 1.16 2003/02/21 01:10:27 pinkfish Exp $
*/
inherit "/cmds/base";
#include <dirs.h>
#define THRESHOLDS ({ 10, 30, 200, 300 })
/* No easy way to get this information from the race object as yet.
Everyone is human, though, so it doesn't yet matter. */
string illumination( int number ) {
if ( number < 0 ) {
return "in the darkness that lies beyond darkness";
}
if ( number < THRESHOLDS[ 0 ] ) {
return "in pitch darkness";
}
if ( number < THRESHOLDS[ 1 ] ) {
return "in near darkness";
}
if ( number > THRESHOLDS[ 3 ] ) {
return "too brightly lit to see";
}
if ( number > THRESHOLDS[ 2 ] ) {
return "too brightly lit to see clearly";
}
number = ( 100 * ( number - THRESHOLDS[ 1 ] ) ) /
( THRESHOLDS[ 2 ] - THRESHOLDS[ 1 ] );
switch ( number ) {
case 0 .. 5 :
return "very poorly lit";
case 6 .. 10 :
return "poorly lit";
case 11 .. 20 :
return "dimly lit";
case 21 .. 30 :
return "quite well lit";
case 31 .. 40 :
return "well lit";
case 41 .. 50 :
return "brightly lit";
default :
return "very brightly lit";
}
} /* illumination() */
string intensity(int number, object thing) {
int flag = (thing == this_player());
if (number < 0) {
return (flag?"are":"is") + " dark beyond darkness";
}
if (number < THRESHOLDS[0]) {
return "produce" + (flag?"":"s") + " a faint light";
}
if ( number < THRESHOLDS[ 1 ] ) {
return "produce" + (flag?"":"s") + " a bit of light";
}
if ( number > THRESHOLDS[ 3 ] ) {
return (flag?"are":"is") + " so bright you can't bear to look";
}
if ( number > THRESHOLDS[ 2 ] ) {
return (flag?"are":"is") + " so bright it hurts to look";
}
number = ( 100 * ( number - THRESHOLDS[ 1 ] ) ) /
( THRESHOLDS[ 2 ] - THRESHOLDS[ 1 ] );
switch ( number ) {
case 0 .. 24 :
return "produce" + (flag?"":"s") + " quite a bit of light";
case 25 .. 49 :
return (flag?"are":"is") + " very bright";
default :
return (flag?"are":"is") + " extremely bright";
}
} /* intensity() */
int check_exists(string file) {
int retval;
if ( objectp( find_object( file ) ) )
return 1;
if (file_size(file+".c") > 0) {
retval = 1;
} else {
retval = 0;
}
return retval;
} /* check_exists() */
mixed cmd(object *things) {
int its_light;
string results;
string no_light_results;
object thing;
object* no_light;
int result_light;
results = "";
if (environment(this_player())->query_light() < THRESHOLDS[0]) {
results += "Wherever you are, it's ";
} else {
results += "$C$"+ environment(this_player())->the_short(1) + " is ";
}
results += illumination(environment(this_player())->query_light()) + ".\n";
if (!things) {
write(results);
return 1;
}
no_light_results = "";
no_light = ({ });
foreach(thing in things) {
its_light = (int)thing->query_light();
if (its_light) {
results += "$C$" + thing->the_short(1) + " " +
intensity(its_light, thing) + ".\n";
result_light = 1;
} else {
no_light += ({ thing });
}
}
//if (results == "") {
if (sizeof(no_light) && !result_light) {
write("$C$" + query_multiple_short(no_light, "one", 0, 1) +
((sizeof(no_light) == 1 && no_light[0] != this_player()) ?
" produces" : " produce") + " no light at all.\n");
}
write(results);
//} else {
//write(results);
//}
return 1;
} /* cmd() */
int cmd_exit(string arg) {
object room;
string other;
room = environment(this_player());
if (room->query_mirror_room()) {
room = room->query_mirror_room();
}
if (LENGTHEN[arg]) {
arg = LENGTHEN[arg];
}
if(!room->query_exit(arg)) {
arg = (string)this_player()->find_abs(arg);
}
if ( room->query_exit( arg ) ) {
other = room->query_destination(arg);
if ( check_exists( other )) {
object door;
door = room->query_door_control(arg);
if(room->query_door_open(arg) ||
door->query_transparent()) {
write(other->the_short(1) + " is " +
illumination(other->query_light()) + ".\n");
return 1;
} else {
add_failed_mess("The exit " + arg + " is not open.\n");
return 0;
}
} else {
add_failed_mess("The exit " + arg + " does not exist.\n");
return 0;
}
}
add_failed_mess("Unable to find the exit " + arg + ".\n");
return 0;
} /* cmd_exit() */
mixed *query_patterns() {
return ({ "<indirect:object>", (: cmd($1) :),
"exit <string'exit name'>", (: cmd_exit($4[0]) :),
"", (: cmd(0) :) });
}
