134 lines
4.2 KiB
C
134 lines
4.2 KiB
C
/* /secure/cmds/player/peer.c
|
|
* Peer into an adjacent room wihout actually entering
|
|
* Blitz@Dead SoulsIV
|
|
*/
|
|
|
|
#include <lib.h>
|
|
|
|
inherit LIB_DAEMON;
|
|
|
|
string DescribeItems(mixed var);
|
|
string DescribeLiving(mixed var);
|
|
|
|
mixed cmd(string str) {
|
|
int i, err;
|
|
string file;
|
|
object env, *livings, *items;
|
|
|
|
if( !sizeof(str) ) return "Syntax: peer <direction>";
|
|
switch(str){
|
|
case "n" : str = "north";break;
|
|
case "ne" : str = "northeast";break;
|
|
case "nw" : str = "northwest";break;
|
|
case "s" : str = "south";break;
|
|
case "se" : str = "southeast";break;
|
|
case "sw" : str = "southwest";break;
|
|
case "e" : str = "east";break;
|
|
case "w" : str = "west";break;
|
|
case "u" : str = "up";break;
|
|
case "d" : str = "down";break;
|
|
}
|
|
env = environment(this_player());
|
|
if( !file = env->GetExit(str) ) file = env->GetEnter(str);
|
|
if( !sizeof(file) )
|
|
return "You cannot peer that way.";
|
|
if( (i = this_player()->GetEffectiveVision()) > 5 )
|
|
return "It is too bright to do that.";
|
|
if( env->GetDoor(str) && !((env->GetDoor(str))->CanPeer()) ) {
|
|
message("my_action", sprintf("%s is blocking your view %s.",
|
|
(capitalize(env->GetDoor(str)->GetShort(str))), str),
|
|
this_player() );
|
|
return 1;
|
|
}
|
|
err = catch(env = load_object(file));
|
|
if(err || !env){
|
|
message("my_action", "It is not safe to peer "+str+"!", this_player() );
|
|
return 1;
|
|
}
|
|
if(env->GetProperty("no peer")){
|
|
return "You can't see in that direction.";
|
|
}
|
|
if(env->GetProperty("nopeer")){
|
|
return "You can't see in that direction.";
|
|
}
|
|
if( (i = this_player()->GetEffectiveVision(file,1)) > 5 )
|
|
return "It is too bright in that direction.";
|
|
else if( i < 3 )
|
|
return "It is too dark there.";
|
|
|
|
items = filter(all_inventory(env),
|
|
(: !$1->GetInvis(this_player()) :) );
|
|
items = items - (livings = filter(items, (: living :)));
|
|
message("my_action", "%^GREEN%^"
|
|
"Peering "+str+" you see...",
|
|
this_player() );
|
|
message("other_action",
|
|
this_player()->GetCapName()+" peers "+str+".",
|
|
environment(this_player()), this_player() );
|
|
message("room_description",
|
|
("\n"+env->GetLong(0)+"\n" || "\nA void.\n"),
|
|
this_player() );
|
|
if( sizeof(items) )
|
|
message("room_inventory",
|
|
"%^MAGENTA%^" + DescribeItems(items) + "%^RESET%^\n",
|
|
this_player() );
|
|
if( sizeof(livings) )
|
|
message("room_inventory",
|
|
"%^BOLD%^%^RED%^" + DescribeLiving(livings) + "%^RESET%^",
|
|
this_player() );
|
|
return 1;
|
|
}
|
|
|
|
string DescribeItems(mixed var) {
|
|
mapping m = ([ ]);
|
|
string *shorts, ret;
|
|
int i, max;
|
|
|
|
if( !arrayp(var) ) return "";
|
|
i = sizeof( shorts = map(var, (: $1->GetShort() :)) );
|
|
while(i--) {
|
|
if( !sizeof(shorts[i]) ) continue;
|
|
if( m[ shorts[i] ] ) m[ shorts[i] ]++;
|
|
else m[ shorts[i] ] = 1;
|
|
}
|
|
i = max = sizeof( shorts = keys(m) );
|
|
ret = "";
|
|
for(i=0; i<max; i++) {
|
|
if( m[ shorts[i] ] < 2 ) ret += shorts[i];
|
|
else ret += consolidate(m[shorts[i]], shorts[i]);
|
|
if( i == (max - 1) ) {
|
|
if( max>1 || m[ shorts[i] ] > 1 ) ret += " are here.";
|
|
else ret += " is here.";
|
|
}
|
|
else if( i == (max - 2) ) ret += ", and ";
|
|
else ret += ", ";
|
|
}
|
|
return capitalize(ret);
|
|
}
|
|
|
|
string DescribeLiving(mixed var) {
|
|
mapping m = ([ ]);
|
|
string *shorts, ret;
|
|
int i;
|
|
if( !arrayp(var) ) return "";
|
|
i = sizeof( shorts = map(var, (: $1->GetShort() :)) );
|
|
while(i--) {
|
|
if( !sizeof(shorts[i]) ) continue;
|
|
if( m[ shorts[i] ] ) m[ shorts[i] ]++;
|
|
else m[ shorts[i] ] = 1;
|
|
}
|
|
ret = "";
|
|
i = sizeof( shorts = keys(m) );
|
|
while(i--) if( m[ shorts[i] ] > 1 )
|
|
ret += (consolidate(m[shorts[i]], shorts[i]) + "\n");
|
|
else ret += (shorts[i] + "\n");
|
|
return ret;
|
|
}
|
|
|
|
string GetHelp(){
|
|
return ("Syntax: peer <direction>\n\n"
|
|
"Allows you to look into an adjacent room without actually "
|
|
"entering it. Note that light and doorways affect what you "
|
|
"see.");
|
|
}
|