#include <lib.h>
#include <daemons.h>
#include <dirs.h>
#include <vision.h>
#include <medium.h>
#include <terrain_types.h>
#include <damage_types.h>
#include <respiration_types.h>
inherit LIB_SHADOW;
inherit LIB_ID;
object me = this_object();
object suit;
int disguised, reporting = 1;
int SetDisguised(int i){
if(i) disguised = 1;
else disguised = 0;
return disguised;
}
int GetDisguised(){
return disguised;
}
int CheckDisguised(){
object ob;
if(clonep()) ob = GetShadowedObject();
if(!ob || !disguised) return 0;
else return 1;
}
int CheckSuit(){
if(!suit){
this_object()->unscoutshadow();
return 0;
}
return 1;
}
varargs string GetExternalDesc(object who){
object ob = GetShadowedObject();
if(!clonep()) return "";
if(CheckDisguised()) return "A Poleepkwa scout.";
else return ob->GetExternalDesc(who);
}
varargs string GetLong(object who){
object ob = GetShadowedObject();
if(!clonep()) return "";
if(CheckDisguised()) return "A Poleepkwa scout.";
else return ob->GetLong(who);
}
string GetName(){
object ob = GetShadowedObject();
if(!clonep()) return "";
if(CheckDisguised()) return "Scout";
else return ob->GetName();
}
string GetCapName(){
object ob = GetShadowedObject();
if(!clonep()) return "";
if(CheckDisguised()) return "Scout";
else return ob->GetCapName();
}
string GetKeyName(){
object ob = GetShadowedObject();
if(!clonep()) return "";
if(CheckDisguised()) return "scout";
else return ob->GetKeyName();
}
string GetShort(){
object ob = GetShadowedObject();
if(!clonep()) return "";
if(CheckDisguised()) return "a scout";
else return ob->GetShort();
}
string GetRace(){
object ob = GetShadowedObject();
if(!clonep()) return "";
if(CheckDisguised()) return "poleepkwa";
else return ob->GetRace();
}
int eventShadow(object whom){
object *shadows = keys(whom->GetShadows());
if(sizeof(shadows)){
foreach(object shade in shadows){
if(base_name(shade) == base_name(me)) return 0;
}
}
if(base_name(previous_object()) == "/domains/town/armor/pscoutsuit"
|| base_name(previous_object()) == "/domains/default/armor/pscoutsuit"){
::eventShadow(whom);
suit = previous_object();
if(CheckDisguised()) whom->SetId(({"scout"}));
if(CheckDisguised()) whom->cmdParseRefresh();
return 1;
}
return 0;
}
int unscoutshadow(){
object ob = GetShadowedObject();
if(!ob) return 0;
ob->SetId();
ob->cmdParseRefresh();
eventUnshadow();
}
string array parse_command_id_list() {
string array ids = (this_object()->GetId() +
(CheckDisguised() ? ({ "scout" }) : ({}) ) || ({}));
return filter(ids, (: stringp($1) && ($1 != "") :));
}
string array parse_command_plural_id_list() {
string array ids = (this_object()->GetId() +
(CheckDisguised() ? ({ "scout" }) : ({}) ) || ({}));
ids = filter(ids, (: stringp($1) && ($1 != "") :));
return map(ids, (: pluralize :));
}
int GetCanBite(){
return 0;
}
float AddStaminaPoints(mixed x) {
float y;
object ob = GetShadowedObject();
if(!clonep()) return 0;
if(!CheckSuit()) return 0;
if(!ob) return 0;
if(!suit->GetActive()) return ob->AddStaminaPoints(x);
if( !intp(x) && !floatp(x) )
error("Bad argument 1 to AddStaminaPoints().\n");
x = abs(x);
suit->eventDecrementCharge(x);
return suit->GetRemainingCharge();
}
int RemoveLimb(string limb, mixed agent){
object ob = GetShadowedObject();
if(!CheckSuit()) return 0;
if(!ob) return 0;
if(suit->GetActive()){
suit->eventDecrementCharge();
return 0;
}
return ob->RemoveLimb(limb, agent);
}
varargs mixed GetEffectiveVision(mixed location, int raw_score){
object ob = GetShadowedObject();
if(!CheckSuit()) return 0;
if(!ob) return 0;
if(suit->GetActive()){
suit->eventDecrementCharge();
return VISION_CLEAR;
}
return ob->GetEffectiveVision(location, raw_score);
}
string GetResistance(int type){
object ob = GetShadowedObject();
string orig = ob->GetResistance(type);
if(!CheckSuit()) return 0;
if(!ob) return 0;
if(suit->GetActive()){
suit->eventDecrementCharge();
if(type == GAS) return "immune";
}
return orig;
}
varargs int CanBreathe(mixed args...){
object ob = GetShadowedObject();
object env = environment(ob);
int rtype, good;
if(!ob || !env) return 0;
good = ob->CanBreathe(args);
if(!CheckSuit()) return good;
rtype = ob->GetRespiration();
if(suit->GetActive()){
if(rtype & R_AIR){
if(!good){
suit->eventDecrementCharge();
return 1;
}
}
if(rtype & R_WATER || rtype & R_METHANE) return 0;
}
return ob->CanBreathe(args);
}
varargs int eventReceiveDamage(mixed agent, int type, int x, int internal, mixed limbs) {
object ob = GetShadowedObject();
string evidence, limb_string;
if(!CheckSuit()) return 0;
if(!ob) return 0;
if(internal || !suit->GetActive() || suit->GetRemainingCharge() < 20){
return ob->eventReceiveDamage(agent, type, x, internal, limbs);
}
if(reporting){
string *damtypes = TYPES_D->eventCalculateTypes("damage", type);
evidence = "The powered suit's Heads-Up-Display issues an alert:\n";
evidence += "%^BOLD%^%^RED%^";
if(objectp(agent)) evidence += "Damage received!";
if(type && sizeof(damtypes)) {
string verboid;
if(sizeof(damtypes) > 1) verboid = "s are ";
else verboid = " is ";
evidence += " Damage type"+verboid;
evidence += lower_case(implode(damtypes,", "));
}
else evidence += " Damage type is UNKNOWN";
}
if(limbs) {
if(stringp(limbs)) limb_string = limbs;
else if(arrayp(limbs)) {
if(stringp(limbs[0])) limb_string = implode(limbs,", ");
else if(objectp(limbs[0])){
foreach(object limb in limbs){
limb_string += limb->GetKeyName()+", ";
}
}
}
}
else limb_string = ". Location indeterminate. ";
if(limbs) {
evidence += ". Location: ";
evidence += limb_string + ".";
}
this_object()->eventPrint(evidence+"%^RESET%^");
this_object()->eventPrint("%^YELLOW%^Juice drained: "+x+" units.%^RESET%^");
suit->eventDecrementCharge(x);
return 1;
}
int AddLead(string ammo,int number){
return 0;
}
void eventDescribeEnvironment(int verbose) {
object ob = GetShadowedObject();
object env;
string extra = "%^CYAN%^Suit info:%^RESET%^\n";
extra += "Juice left: "+to_int(percent(suit->GetRemainingCharge(),
suit->GetMaxCharge()))+"%\n";
if(!ob) return;
if(!CheckSuit()){
ob->eventDescribeEnvironment(verbose);
return;
}
//extra += "Mystery number dam: "+suit->GetDamagePoints()+"\n";
//extra += "Mystery number dets: "+suit->GetDeterioration()+"\n";
//extra += "Mystery number broken: "+suit->GetBroken()+"\n";
//extra += "Mystery number remaining: "+suit->GetRemainingCharge()+"\n";
//extra += "Mystery number max: "+suit->GetMaxCharge()+"\n";
//extra += "Mystery number active: "+suit->GetActive()+"\n";
ob->eventDescribeEnvironment(verbose);
message("system", extra, ob);
}
