#include <lib.h>
#include <daemons.h>
#include <message_class.h>
#include <vision.h>
#include <medium.h>
#include <position.h>
private static mixed globaltmp, tmp;
private static string desc, smell, sound, touch;
private static int i, maxi;
void eventDescribeEnvironment(int brief){
object env, transport;
string *shorts;
string altern_obvious = "";
if(!(env = environment(this_object()))){
this_object()->eventPrint("You are nowhere.", MSG_ROOMDESC);
return;
}
if(env->GetMount() || base_name(env) == LIB_CORPSE){
env = environment(environment(this_player()));
if(!env){
this_object()->eventPrint("You are in serious trouble. Ask an admin for help.");
return;
}
i = this_object()->GetEffectiveVision(env);
}
else i = this_object()->GetEffectiveVision();
switch( i ){
case VISION_BLIND:
this_object()->eventPrint("You are blind and can see nothing.");
break;
case VISION_TOO_DARK:
this_object()->eventPrint("It is much too dark to see.");
break;
case VISION_DARK:
this_object()->eventPrint("It is too dark to see.");
break;
case VISION_TOO_BRIGHT:
this_object()->eventPrint("It is much too %^YELLOW%^bright%^RESET%^ to see.");
break;
case VISION_BRIGHT:
this_object()->eventPrint("It is too %^YELLOW%^bright%^RESET%^ to see.");
break;
}
if( !brief ){
if( i == VISION_CLEAR ){
desc = (string)env->GetObviousExits() || "";
if(desc && desc != "")
desc = capitalize((string)env->GetShort() || "")
+ " [" + desc + "]\n";
else desc = capitalize((string)env->GetShort()+"\n" || "\n");
if(!NM_STYLE_EXITS){
desc = capitalize((string)env->GetShort()+"\n" || "\n");
altern_obvious = "Obvious exit$Q: "+(string)env->GetObviousExits() || "none";
}
}
else desc = "\n";
if( i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM ){
#ifdef MINIMAP
if(this_object()->GetProperty("minimapping")){
desc += simple_map(env)+"\n";
}
#endif
#if (WIZMAP && GRID)
if(MASTER_D->GetPerfOK() &&
this_object()->GetProperty("wizmapping")){
desc += MAP_D->GetMap(environment(this_object()),6)+"\n";
}
#endif
desc += (string)env->GetLong();
}
if(functionp(tmp = (mixed)env->GetSmell("default")))
tmp = (string)(*tmp)("default");
smell = tmp;
if(functionp(tmp = (mixed)env->GetListen("default")))
tmp = (string)(*tmp)("default");
sound = tmp;
if( functionp(tmp = (mixed)env->GetTouch("default")) )
tmp = evaluate(tmp, "default");
touch = tmp;
}
else {
if(i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM){
desc = (string)env->GetShort();
if(this_object()->GetProperty("minimapping")) desc += simple_map(env)+"\n";
if(NM_STYLE_EXITS){
if( (tmp = (string)env->GetObviousExits()) && tmp != "" )
desc += " [" + tmp + "]";
else desc += "\n";
}
else altern_obvious = "Obvious exits: "+(string)env->GetObviousExits() || "none";
}
else desc = "\n";
}
if( desc ) this_object()->eventPrint(desc, MSG_ROOMDESC);
if(sizeof(altern_obvious)){
int quant = sizeof(env->GetExits()) + sizeof(env->GetEnters());
if(quant > 1) altern_obvious = replace_string(altern_obvious,"$Q","s");
else altern_obvious = replace_string(altern_obvious,"$Q","");
this_object()->eventPrint(altern_obvious,MSG_ROOMDESC);
}
if( smell ) this_object()->eventPrint("%^GREEN%^" + smell, MSG_ROOMDESC);
if( sound ) this_object()->eventPrint("%^CYAN%^" + sound, MSG_ROOMDESC);
if( touch ) this_object()->eventPrint("%^YELLOW%^" + touch, MSG_ROOMDESC);
desc = "";
if( i == VISION_CLEAR ){
mapping lying = ([]);
shorts = map(filter(all_inventory(env),
function(object ob){
if( living(ob) ) return 0;
if( (int)ob->GetInvis(this_object()) && !ob->GetDoor() )
return 0;
if(ob->GetDoor() && load_object(ob->GetDoor())->GetHiddenDoor()) return 0;
if( (int)ob->isFreshCorpse() ) return 0;
return 1;
}), (: (string)$1->GetShort() :));
foreach(string s in shorts){
if( s ){
lying[s]++;
}
}
for(i=0, desc = 0, maxi = sizeof(shorts = keys(lying)); i<maxi; i++){
string key = replace_string(shorts[i],"%^RESET%^",
"%^RESET%^MAGENTA%^");
int val = lying[shorts[i]];
if( val < 2 ){
if( !desc ) desc = "%^MAGENTA%^" +
capitalize(key) + "%^RESET%^MAGENTA%^";
else desc += key + "%^RESET%^MAGENTA%^";
}
else {
if( !desc ) desc = "%^MAGENTA%^" +
capitalize(consolidate(val, key)) +
"%^RESET%^MAGENTA%^";
else desc += consolidate(val, key) +
"%^RESET%^MAGENTA%^";
}
if( i == maxi - 1 ){
if( maxi > 1 || val >1 )
desc += " are here.%^RESET%^\n";
else desc += " is here.%^RESET%^\n";
}
else if( i == maxi - 2 ){
if( maxi == 2 ){
desc += " and ";
}
else {
desc += ", and ";
}
}
else desc += ", ";
}
}
i = this_object()->GetEffectiveVision(env);
if( i == VISION_CLEAR || i == VISION_LIGHT || i == VISION_DIM ){
mapping lying = ([]), sitting = ([]), standing = ([]), flying = ([]);
mapping floating = ([]), kneeling = ([]), swimming = ([]);
mapping furniture = ([]), null = ([]);
object mount;
object *obs;
string key;
int val;
if(this_player()) mount = this_player()->GetProperty("mount");
obs = filter(all_inventory(env), function(object ob){
if( (int)ob->GetInvis(this_object()) &&
!this_object()->GetWizVision() ) return 0;
if( living(ob) ) return 1;
if( (int)ob->isFreshCorpse() )
return 1;
}) - ({ this_object(), mount });
maxi = sizeof(shorts = map(obs, (:
($1->GetInvis() ? "(invisible) " : "") +
(string)$1->GetHealthShort() :)));
foreach(object liv in obs){
int envtype = environment(liv)->GetMedium();
string s = (string)liv->GetHealthShort();
int pos = (int)liv->GetPosition();
if( !s ) continue;
if(liv->GetInvis() && this_object()->GetWizVision()){
s = "(invis) " + s;
}
if(liv->GetProperty("furniture")){
s += "BEGIN"+random(999999)+"END";
}
if(liv->GetProperty("furniture")){
furniture[s] = liv->GetProperty("furniture");
}
else if(!furniture[s]) furniture[s] = 0;
if( pos == POSITION_STANDING) standing[s]++;
else if( pos == POSITION_LYING ||
((int)liv->isFreshCorpse() && envtype == MEDIUM_LAND) )
lying[s]++;
else if( pos == POSITION_SITTING ) sitting[s]++;
else if( pos == POSITION_FLYING ) flying[s]++;
else if( pos == POSITION_FLOATING ||
((int)liv->isFreshCorpse() && envtype != MEDIUM_LAND) )
floating[s]++;
else if( pos == POSITION_SWIMMING ) swimming[s]++;
else if( pos == POSITION_KNEELING ) kneeling[s]++;
else if( pos == POSITION_NULL ) null[s]++;
else lying[s]++;
}
if( !desc ){
tmp = "";
}
else {
tmp = desc;
}
desc = "";
foreach(key, val in lying){
globaltmp = key;
if(grepp(key,"BEGIN")){
sscanf(key,"%sBEGIN%*s",key);
}
if(lying[globaltmp]>1 && !furniture[globaltmp]){
desc += capitalize(consolidate(val, globaltmp)) +
"%^RESET%^ are lying down.";
}
else if(lying[globaltmp]<2 && !furniture[globaltmp]){
desc += capitalize(key) + "%^RESET%^ is lying down.";
}
else if(furniture[globaltmp]){
desc += capitalize(key) + "%^RESET%^ is lying down"+
((furniture[globaltmp]) ? furniture[globaltmp] : "") +".";
}
else if(furniture[key]){
desc += capitalize(key) + "%^RESET%^ is lying down"+
((furniture[key]) ? furniture[key] : "") +".";
}
else {
desc += "wtf. i am "+key+", furniture["+globaltmp+"] is: "+furniture[globaltmp]+"\n"+
" furniture["+key+"] is: "+furniture[key]+", and val is: "+val;
}
desc += "\n";
}
foreach(key, val in sitting){
globaltmp = key;
if(grepp(key,"BEGIN")){
sscanf(key,"%sBEGIN%*s",key);
}
if(sitting[globaltmp]>1 && !furniture[globaltmp]){
desc += capitalize(consolidate(val, globaltmp)) +
"%^RESET%^ are sitting down.";
}
else if(sitting[globaltmp]<2 && !furniture[globaltmp]){
desc += capitalize(key) + "%^RESET%^ is sitting down.";
}
else if(furniture[globaltmp]){
desc += capitalize(key) + "%^RESET%^ is sitting down"+
((furniture[globaltmp]) ? furniture[globaltmp] : "") +".";
}
else if(furniture[key]){
desc += capitalize(key) + "%^RESET%^ is sitting down"+
((furniture[key]) ? furniture[key] : "") +".";
}
else {
desc += "wtf. i am "+key+", furniture["+globaltmp+"] is: "+furniture[globaltmp]+"\n"+
" furniture["+key+"] is: "+furniture[key]+", and val is: "+val;
}
desc += "\n";
}
foreach(key, val in standing){
if(grepp(key,"BEGIN")){
sscanf(key,"%sBEGIN%*s",key);
}
if( val<2 )
desc += capitalize(key) + "%^RESET%^ is standing here.";
else desc += capitalize(consolidate(val, key)) +
"%^RESET%^ are standing here.";
desc += "\n";
}
foreach(key, val in flying){
if( val<2 )
desc += capitalize(key) + "%^RESET%^ is hovering here.";
else desc += capitalize(consolidate(val, key)) +
"%^RESET%^ are hovering here.";
desc += "\n";
}
foreach(key, val in floating){
if( val<2 )
desc += capitalize(key) + "%^RESET%^ is floating here.";
else desc += capitalize(consolidate(val, key)) +
"%^RESET%^ are floating here.";
desc += "\n";
}
foreach(key, val in swimming){
if( val<2 )
desc += capitalize(key) + "%^RESET%^ is swimming here.";
else desc += capitalize(consolidate(val, key)) +
"%^RESET%^ are swimming here.";
desc += "\n";
}
foreach(key, val in kneeling){
if( val<2 )
desc += capitalize(key) + "%^RESET%^ is kneeling here.";
else desc += capitalize(consolidate(val, key)) +
"%^RESET%^ are kneeling here.";
desc += "\n";
}
foreach(key, val in null){
if( val<2 )
desc += capitalize(key) + "%^RESET%^ is here.";
else desc += capitalize(consolidate(val, key)) +
"%^RESET%^ are here.";
desc += "\n";
}
}
if( tmp ){
desc = tmp + desc;
}
if(this_player() && transport = this_player()->GetProperty("mount")){
string mount_inv = "Nothing";
string *mount_stuffs = ({});
object *mount_obs = filter( all_inventory(transport),
(: ( (($1->GetInvis()) && this_object()->GetWizVision() )
|| !($1->GetInvis()) )
&& !($1 == this_player()) :));
if(sizeof(mount_obs)){
foreach(object element in mount_obs){
mount_stuffs += ({ element->GetShort() });
}
mount_inv = conjunction(mount_stuffs);
}
if(!sizeof(desc)) desc = "";
if(inherits(LIB_VEHICLE,transport)){
string tmpdesc = transport->GetVehicleInterior();
if(!tmpdesc || !sizeof(tmpdesc)){
desc += "\nYou are riding in "+
transport->GetPlainShort()+".";
}
else desc += "\n"+tmpdesc;
desc += "\nHere you see: "+mount_inv+".";
}
else {
desc += "\nYou are riding on "+
transport->GetPlainShort()+".";
desc += "\nOn "+transport->GetPlainShort()+
" you see: "+mount_inv+".";
}
}
if( sizeof(desc) ){
if(check_string_length(desc)) this_object()->eventPrint(desc + "\n", MSG_ROOMDESC);
else print_long_string(this_player(), desc);
}
}
