#include <lib.h>
#include <vendor_types.h>
inherit LIB_ITEM;
void analyze(string butt);
object scanner,tricorder,person;
object *gstuff,*ngstuff;
mixed *statlist,*skilllist;
mapping this_stat,this_skill;
int allowed,statpoints,statlevel,statclass,tempint,i;
int skilllevel,skillclass,skillpoints;
string name;
string *stumps;
string warning = "We remind you that the tricorder cannot speak. In the event "+
"that it does speak, you are instructed to disregard its advice.";
void create(){
item::create();
SetKeyName("creator tricorder");
SetId(({"tricorder","scanner","device","tool","medtric","tric"}));
SetAdjectives(({"electronic","admin","diagnostic"}));
SetShort("a medical tricorder");
SetLong("This is a palm-sized electronic device designed to run various "+
"medical tests and provide treatment of disease and injury. "+
"Written in bold red letters across its face are the words: \"%^BOLD%^RED%^FOR AUTHORIZED TEST CHARACTER "+
"USE ONLY%^RESET%^\".\n%^YELLOW%^NOTE: Some functions do not work "+
"with drones. This is due to safeguards in the master object security "+
"model, and it will not be \"fixed\".%^RESET%^\n"+
"There is a warning on the tricorder you can read.\n"+
"\n Labeled buttons on this device read:\n"+
//"* medscan: scan for disease, poison, etc\t%^RED%^offline%^RESET%^\n"+
"* fscan: readout of all files inherited\t\t%^GREEN%^ONLINE%^RESET%^\n"+
//"* enshadow: move a shadow to an object\t\t%^RED%^offline%^RESET%^\n"+
"* deshadow: remove all shadows from an object\t%^GREEN%^ONLINE%^RESET%^\n"+
//"* inject: insert substance into patient\t\t%^RED%^offline%^RESET%^\n"+
"* extract: remove a foreign body or substance\t%^GREEN%^ONLINE%^RESET%^ (slugs only)\n"+
"* modhealth: raise or lower health level\t%^GREEN%^ONLINE%^RESET%^\n"+
"* modcaff: raise or lower caffeine level\t%^GREEN%^ONLINE%^RESET%^\n"+
"* modalc: raise or lower alcohol level\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* modfood: raise or lower food level\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* moddrink: raise or lower drink level\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* modmag: raise or lower magic level\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* modstam: raise or lower stamina\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* modtox: raise or lower poison\t\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* setskill: set skill level\t\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* setstat: set stat level\t\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* amputate: remove limb\t\t\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* regenerate: restore all amputated limbs\t%^GREEN%^ONLINE%^RESET%^\n"+
"* cure: eliminate known diseases\t\t%^GREEN%^ONLINE%^RESET%^\n"+
"* infect: introduce disease into patient\t%^GREEN%^ONLINE%^RESET%^\n"+
//"* inoculate: raise immunity to a disease\t%^RED%^offline%^RESET%^\n"+
//"* posture: change your own posture.\t\t%^RED%^offline%^RESET%^\n"+
"");
SetRead( "default" , warning);
SetRead( "warning", warning );
SetProperties(([
"no steal" : 1,
]));
SetMass(12);
SetVendorType(VT_TREASURE);
}
void init(){
::init();
add_action("fscan","fscan");
add_action("assess","assess");
add_action("assess","diagnose");
add_action("extract","extract");
add_action("addhp","addhp");
add_action("addhp","modhealth");
add_action("modcaff","modcaff");
add_action("modalc","modalc");
add_action("modfood","modfood");
add_action("moddrink","moddrink");
add_action("modmag","modmag");
add_action("modstam","modstam");
add_action("modtox","modtox");
add_action("setstat","setstat");
add_action("setskill","setskill");
add_action("regenerate","regenerate");
add_action("amputate","amputate");
add_action("infect","infect");
add_action("germ_scan","germscan");
add_action("germ_squash","cure");
add_action("medscan","medscan");
add_action("posture","posture");
add_action("enshadow","enshadow");
add_action("deshadow","deshadow");
add_action("TestFun","HEINEKEN");
}
int TestFun(){
write("WOOHOO");
return 1;
}
varargs int preAction(int restricted){
scanner=this_player();
tricorder=this_object();
if(!this_player()) return 0;
if(!present(tricorder, scanner)){
write("You are not holding the tricorder.");
return 2;
}
if(restricted && !creatorp(this_player())){
write("This function is not permitted to builders.");
return 2;
}
if(!builderp(this_player())){
write("Your puny mortal mind can't wrap itself around the use "
"of this powerful instrument.");
log_file("adm/tricorder",capitalize(this_player()->GetKeyName())+
" attempted to use the medical tricorder: "+timestamp()+"\n");
tell_creators("SECURITY: "+capitalize(this_player()->GetKeyName())+
" attempted to use the medical tricorder.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 2;
}
say(scanner->GetName()+" operates a medical tricorder.",scanner);
write("The tricorder makes a low, warbling sound.");
return 1;
}
int posture(int i){
allowed=preAction();
if(allowed == 2) return 1;
if(!i) {
write("Please include the position number desired.");
return 0;
}
this_player()->SetPosition(i);
return i;
}
int deshadow(string str){
object target;
allowed=preAction(1);
if(allowed == 2) return 1;
if(str == "me") str = this_player()->GetKeyName();
if(!target = present(str,this_player())){
target = present(str,environment(this_player()));
}
if(!target){
write("That's not here.");
return 1;
}
else {
if(shadow(target,0)){
remove_shadow(target);
write("You deshadow "+str);
}
else write("No shadows there.");
}
return 1;
}
int enshadow(string str){
object target;
string s1,s2,s3,file;
allowed=preAction(1);
if(allowed == 2) return 1;
if(sscanf(str,"%sshadow/%s %s",s1,s2,s3) > 0) file = s2;
else if(sscanf(str,"%sshadow/%s.c %s",s1,s2,s3) > 0) file = s2;
else if(sscanf(str,"%s %s",s1,s2) > 0) file = s1;
else {
write("You must specify a file within /shadows and a target.");
return 1;
}
if( s3 && s3 != "") target = present(s3,environment(this_player()));
else if(s3 == "me") target = this_player();
else target = present(s2,environment(this_player()));
if(!target) {
write("Please specify a file within /shadows and a target.");
return 1;
}
if(file_size("/shadow/"+file) < 1){
write("That is not a valid shadow.");
return 1;
}
new("/shadow/"+file)->eventShadow(target);
write("You enshadow "+target->GetName()+" with /shadow/"+file);
return 1;
}
int medscan(string str){
allowed=preAction();
if(allowed == 2) return 1;
if(!str || str == "") {
write("Please rephrase, including your target this time.");
return 1;
}
if(str == "me") str = this_player()->GetKeyName();
person=present(str,environment(scanner));
if(!person || !living(person)){
write("Disease check: No such being found");
return 1;
}
write("Scanning for germs...");
this_object()->germ_scan(str);
write("Germ scan complete.\n");
write("Wound scan currently offline.");
return 1;
}
int germ_scan(mixed strob ){
int i;
string a,b,c,str;
if(stringp(strob)) {
str = strob;
if(str == "me") str = this_player()->GetKeyName();
person=present(str,environment(scanner));
if(!person || !living(person)){
write("This being was not found.");
return 2;
}
}
if(objectp(strob)){
person = strob;
str = person->GetName();
}
if(!str || str == "") {
write("Please rephrase, including your target this time.");
return 1;
}
if(!living(person)){
write("This thing is not alive.");
return 2;
}
ngstuff=all_inventory(person);
gstuff = ({});
say(scanner->GetName()+" waves a tricorder at "+person->GetName()+".",({scanner,person}) );
tell_object(person,scanner->GetName()+" waves a tricorder at you.");
for(i=0;i<sizeof(ngstuff);i++){
if(ngstuff[i]->isGerm()== 1 && !sizeof(gstuff)) gstuff = ({ngstuff[i]});
if(ngstuff[i]->isGerm()== 1 && sizeof(gstuff) > 0 ) gstuff += ({ngstuff[i]});
}
if(!sizeof(gstuff)){
write(person->GetName()+" has no detectable diseases.");
return 2;
}
for(i=0;i<sizeof(gstuff);i++){
if(!a=gstuff[i]->GetKeyName() || a == "" ) a = "generic disease";
if(!b=gstuff[i]->GetType() || b == "" ) b = "unknown type";
if(intp(gstuff[i]->GetCure())) c=gstuff[i]->GetCure();
if(!c) c = 0;
write("Disease: "+a+", type: "+b+", severity: "+c);
return 1;
}
write("Please specify a living being that shares your current location.");
return 2;
}
int germ_squash(string str){
int i,bar,c;
object array whom;
allowed=preAction(1);
if(allowed == 2) return 1;
if(!str || str == "") {
write("Please specify a living thing, or \"all\" for everything in "+
"your environment.");
return 1;
}
if(str == "me") str = this_player()->GetKeyName();
person=present(str,environment(scanner));
whom = ({});
if(!person && str !="all"){
write("Disease check: No such being found");
return 1;
}
if( str !="all" && !living(person)){
write("Disease check: No such living being found");
return 1;
}
if(str =="all") whom = get_livings(environment(this_player()));
if(str !="all") whom = ({person});
foreach(object ingrate in whom){
i=germ_scan(ingrate);
if(i!=2 && intp(gstuff[i]->GetCure()) ) bar=gstuff[i]->GetCure();
if(i!=2 && !intp(gstuff[i]->GetCure()) ) write("GetCureType: "+typeof(gstuff[i]->GetCure()));
if(!i) { write("Extremely weird error here."); return 1; }
for(i=0;i<sizeof(gstuff);i++){
if(gstuff[i] && gstuff[i]->isGerm() ){
c=10;
gstuff[i]->SetCure(c);
if(intp(gstuff[i]->GetCure()) ){
gstuff[i]->eventCure(ingrate,c,gstuff[i]->GetType());
write("You cure "+ingrate->GetName()+"'s disease.");
say(ingrate->GetName()+" looks healthier.",ingrate);
tell_object(ingrate,"You feel less sick.");
}
if(gstuff[i] && gstuff[i]->isGerm() && !intp(gstuff[i]->GetCure())){
write("This disease uses a functional as its SetCure condition.");
write("It will not be cured by this device. You will have to "+
"manually review the germ's code to determine what will cure it.");
write("SetCure() data type: "+typeof(gstuff[i]->GetCure()));
write("Filename: "+base_name(gstuff[i])+"\n");
}
}
}
gstuff=({});
}
return 1;
}
int infect(string str){
string whom,what,disease;
object ob;
allowed=preAction(1);
if(allowed == 2) return 1;
if(!str){
write("Please indicate whom to infect, and with what. Example:");
write("infect doofus cold");
write("Current valid diseases: cold, flu, fleas, lice");
return 1;
}
if(sscanf(str,"%s %s",whom,what)) {
if(!whom || !what || whom == "" || what == ""){
write("Please indicate whom to infect, and with what. Example:");
write("infect doofus cold");
write("Current valid diseases: cold, flu, fleas, lice");
return 1;
}
}
if(!whom || !what || whom == "" || what == ""){
write("Please indicate whom to infect, and with what. Example:");
write("infect doofus cold");
write("Current valid diseases: cold, flu, fleas, lice");
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
person=present(whom,environment(scanner));
if(!person || !living(person)){
write("This being was not found.");
return 1;
}
if(what == "cold") disease = "/domains/town/obj/cold";
else if(what == "flu") disease = "/domains/town/obj/flu";
else if(what == "fleas") disease = "/domains/town/obj/fleas";
else if(what == "lice") disease = "/domains/town/obj/lice";
else if(what == "rage") disease = "/domains/town/obj/rage";
else if(what != "") {
write("That isn't a valid disease.");
return 1;
}
if(person){
write(person->GetName()+" located. Infecting...");
say(scanner->GetName()+" waves a tricorder at "+person->GetName()+".",person);
if(present(whom,environment(scanner))) {
tell_object(person,scanner->GetName()+" waves a tricorder at you.");
}
}
ob=new(disease);
if(ob) ob->eventInfect(person);
else write("There's a problem with that parasite.");
return 1;
}
int amputate(string str){
string whom,which,limb,both;
allowed=preAction();
if(allowed == 2) return 1;
if(!str){
write("Please indicate whose limbs you wish to amputate, and which. Example:");
write("amputate joey left hand");
return 1;
}
if(sscanf(str,"%s %s %s",whom,which,limb)) {
if(!limb) sscanf(str,"%s %s",whom,limb);
}
if(whom && whom == "me") whom = this_player()->GetKeyName();
if(!whom || !limb){
write("Please indicate whose limbs you wish to amputate, and which. Example:");
write("amputate joey left hand");
return 1;
}
if(!person=present(whom,environment(scanner))){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
both = limb;
if(which && which !="") both = which+" "+limb;
//write("both: "+both);
if(!person->RemoveLimb(both, scanner)){
write("You wave your tricorder menacingly, but nothing happens.");
tell_room(environment(person),scanner->GetName()+" waves a tricorder at "+person->GetName()+" in a threatening manner.", ({ scanner,person }) );
tell_object(person,scanner->GetName()+" waves "+possessive(scanner)+" tricorder menacingly at you.");
return 1;
}
if(both == "head"){
tell_room(environment(person),scanner->GetName()+" waves a tricorder at "+person->GetName()+", and "+
person->GetName()+"'s head falls off!", ({ scanner,person }) );
write("You decapitate "+person->GetName()+".");
tell_object(person,scanner->GetName()+" decapitates you with a wave of "+possessive(scanner)+" tricorder!");
//person->RemoveLimb(both, scanner);
return 1;
}
stumps=person->GetLimbs();
if(!stumps) {
write(person->GetName()+" hasn't any limbs.");
say(scanner->GetName()+" waves a tricorder at "+person->GetName()+".",scanner,person);
tell_object(person,scanner->GetName()+" waves a tricorder at you.");
return 1;
}
if(member_array(both,stumps) != -1){
person->RemoveLimb(both, scanner);
write("You amputate "+person->GetName()+"'s "+both);
say(scanner->GetName()+" has amputated "+person->GetName()+"'s "+both+" "+
"with an energy beam from a medical tricorder.",scanner,person);
tell_object(person,scanner->GetName()+" waves a tricorder at you and "+
"your "+both+" is severed.");
return 1;
}
if(member_array(limb,stumps)!= -1){
//person->RemoveLimb(limb, scanner);
write("You amputate "+person->GetName()+"'s "+limb+".");
say(scanner->GetName()+" has amputated "+person->GetName()+"'s "+both+" "+
"with an energy beam from a medical tricorder.",scanner,person);
tell_object(person,scanner->GetName()+" waves a tricorder at you and"+
"your "+limb+" is severed.");
return 1;
}
//write("There is some sort of problem, it looks like. No "+
//"limbs are severed.");
return 1;
}
int regenerate(string str){
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Please indicate whose limbs you wish to regenerate.");
return 1;
}
if(str == "me") str = this_player()->GetKeyName();
if(!person=present(str,environment(scanner))){
write(capitalize(str)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
stumps=person->GetMissingLimbs();
if(!stumps) {
write(person->GetName()+" isn't missing any limbs.");
say(scanner->GetName()+" waves a tricorder at "+person->GetName()+".",scanner,person);
tell_object(person,scanner->GetName()+" waves a tricorder at you.");
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
for(i=0;i<sizeof(stumps);i++){
person->RestoreLimb(stumps[i]);
write("You regenerate "+person->GetName()+"'s "+stumps[i]+".");
say(scanner->GetName()+" regenerates "+person->GetName()+"'s "+stumps[i]+".",scanner,person);
tell_object(person,scanner->GetName()+" regenerates your "+stumps[i]+".");
}
return 1;
}
int DoSkillChange(string str, int i){
int more_or_less;
if(str == "me") str = this_player()->GetKeyName();
this_skill = person->GetSkill(str);
if(this_skill["level"] < i) more_or_less = 1;
skillclass=this_skill["class"];
person->SetSkill(str,i,skillclass);
say(scanner->GetName()+" waves a medical tricorder at "+person->GetName()+".",({person,scanner}));
tell_object(person,scanner->GetName()+" waves a medical tricorder at you.");
if(more_or_less == 1) tell_room(environment(person), person->GetName()+" looks somehow more experienced.",({person}) );
if(more_or_less != 1) tell_room(environment(person), person->GetName()+" looks somehow less experienced.",({person}) );
write("You've set "+person->GetName()+"'s "+str+" to level "+i+".");
return 1;
}
int DoAllSkills(int foo){
int i;
for(i=0;i<sizeof(skilllist);i++){
this_skill = person->GetSkill(skilllist[i]);
skillclass=this_skill["class"];
person->SetSkill(skilllist[i],foo,skillclass);
write("You've set "+person->GetName()+"'s "+skilllist[i]+" to level "+foo+".");
}
say(scanner->GetName()+" waves a medical tricorder at "+person->GetName()+".",({person,scanner}));
say(person->GetName()+" seems to undergo an almost undetectable, subtle transformation.",({person,scanner}));
tell_object(person,scanner->GetName()+" waves a medical tricorder at you.");
return 1;
}
int setskill(string str){
string whom,skill;
string skill1,skill2,rubbish;
int amt;
allowed=preAction();
if(allowed==2) return 1;
if(!str) {
write("Syntax: setskill <person> <skill> <amount>");
write("If there is a space in the skill name, replace it with "+
"an underscore. Example:\nsetskill schmucky blade_attack 5");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!sscanf(str,"%s %s %d",whom,skill,amt)) { sscanf(str,"%s %s",whom,skill); }
if(sscanf(str,"%s %s_%s ",rubbish,skill1,skill2) && skill1 && skill2){
whom = rubbish;
skill = skill1 + " " +skill2;
}
write("skill: "+skill);
if(!whom || whom == ""){
write("Syntax: setskill <person> <skill> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!person=present(whom,environment(scanner))){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
this_skill = ([]);
skilllist = ({});
skilllist = person->GetSkills();
if(amt < 0) amt = 0;
if(allowed==2) return 1;
if ( !whom || !skill || !amt || !intp(amt) ){
write("Syntax: setskill <person> <skill> <amount>");
write("If there is a space in the skill name, replace it with "+
"an underscore. Example:\nsetskill schmucky blade_attack 5");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(skill == "all") { DoAllSkills(amt); return 1; }
if(member_array(skill,skilllist) == -1) {
write(capitalize(whom)+" doesn't have that skill.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
DoSkillChange(skill, amt);
return 1;
}
int DoStatChange(string str, int i){
if(str == "me") str = this_player()->GetKeyName();
this_stat = person->GetStat(str);
statclass=this_stat["class"];
person->SetStat(str,i,statclass);
say(scanner->GetName()+" waves a medical tricorder at "+person->GetName()+".",({person,scanner}));
tell_object(person,scanner->GetName()+" waves a medical tricorder at you.");
write("You've set "+person->GetName()+"'s "+str+" to level "+i+".");
return 1;
}
int DoAllStats(int foo){
int i;
for(i=0;i<sizeof(statlist);i++){
this_stat = person->GetStat(statlist[i]);
statclass=this_stat["class"];
person->SetStat(statlist[i],foo,statclass);
write("You've set "+person->GetName()+"'s "+statlist[i]+" to level "+foo+".");
}
say(scanner->GetName()+" waves a medical tricorder at "+person->GetName()+".",({person,scanner}));
tell_object(person,scanner->GetName()+" waves a medical tricorder at you.");
return 1;
}
int setstat(string str){
string whom,stat;
int amt;
allowed=preAction();
if(allowed==2) return 1;
if(!str) {
write("Syntax: setstat <person> <stat> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!sscanf(str,"%s %s %d",whom,stat,amt)) { sscanf(str,"%s %s",whom,stat); }
if(!whom || whom == ""){
write("Syntax: setstat <person> <stat> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!person=present(whom,environment(scanner))){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
this_stat = ([]);
statlist = ({});
statlist = person->GetStats();
if(amt < 0) amt = 0;
if(allowed==2) return 1;
if ( !whom || !stat || !amt || !intp(amt) ){
write("Syntax: setstat <person> <stat> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(stat == "all") { DoAllStats(amt); return 1; }
if(member_array(stat,statlist) == -1) {
write(capitalize(whom)+" doesn't have that stat.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
DoStatChange(stat, amt);
return 1;
}
int modstam(string str, int stamina){
string whom;
int tempint,staminalevel;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: modstam <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,stamina);
if (!whom || !stamina){
write("Syntax: modstam <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(stamina)){
write("Syntax: modstam <person> <amount>");
write("Where <amount> is an integer. For example:\nmodstam joe 3\nmodstam mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
staminalevel=person->GetStaminaPoints();
tempint = staminalevel + stamina;
if(tempint < 0) {
stamina = stamina + absolute_value(tempint);
}
person->AddStaminaPoints(stamina);
if(stamina > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks a bit more at ease.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel stronger.");
write("You've raised "+capitalize(whom)+"'s stamina level by "+stamina+" points.");
return 1;
}
if(stamina < 0){
stamina=absolute_value(stamina);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks uncomfortable.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel weaker.");
write("You've lowered "+capitalize(whom)+"'s stamina level by "+stamina+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int modtox(string str, int poison){
string whom;
int tempint,poisonlevel;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: modtox <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,poison);
if (!whom || !poison){
write("Syntax: modtox <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(poison)){
write("Syntax: modtox <person> <amount>");
write("Where <amount> is an integer. For example:\nmodtox joe 3\nmodtox mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
poisonlevel=person->GetPoison();
tempint = poisonlevel + poison;
if(tempint < 0) {
poison = poison + absolute_value(tempint);
}
person->AddPoison(poison);
if(poison > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks paler and shaky.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel ill.");
write("You've raised "+capitalize(whom)+"'s poison level by "+poison+" points.");
return 1;
}
if(poison < 0){
poison=absolute_value(poison);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks less ill.", ({person,scanner})
);
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel better than before.");
write("You've lowered "+capitalize(whom)+"'s poison level by "+poison+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int modmag(string str, int magic){
string whom;
int tempint,magiclevel;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: modmagic <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,magic);
if (!whom || !magic){
write("Syntax: modmagic <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(magic)){
write("Syntax: modmagic <person> <amount>");
write("Where <amount> is an integer. For example:\nmodmagic joe 3\nmodmagic mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
magiclevel=person->GetMagicPoints();
tempint = magiclevel + magic;
if(tempint < 0) {
magic = magic + absolute_value(tempint);
}
person->AddMagicPoints(magic);
if(magic > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" glows briefly.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel more magical.");
write("You've raised "+capitalize(whom)+"'s magic level by "+magic+" points.");
return 1;
}
if(magic < 0){
magic=absolute_value(magic);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks somehow more plain.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel less magical.");
write("You've lowered "+capitalize(whom)+"'s magic level by "+magic+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int moddrink(string str, int drink){
string whom;
int tempint,drinklevel;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: moddrink <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,drink);
if (!whom || !drink){
write("Syntax: moddrink <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(drink)){
write("Syntax: moddrink <person> <amount>");
write("Where <amount> is an integer. For example:\nmoddrink joe 3\nmoddrink mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
drinklevel=person->GetDrink();
tempint = drinklevel + drink;
if(tempint < 0) {
drink = drink + absolute_value(tempint);
}
person->AddDrink(drink);
if(drink > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks a bit more at ease.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel more hydrated.");
write("You've raised "+capitalize(whom)+"'s drink level by "+drink+" points.");
return 1;
}
if(drink < 0){
drink=absolute_value(drink);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks uncomfortable.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel thirstier.");
write("You've lowered "+capitalize(whom)+"'s drink level by "+drink+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int modfood(string str, int food){
string whom;
int tempint,foodlevel;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: modfood <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,food);
if (!whom || !food){
write("Syntax: modfood <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(food)){
write("Syntax: modfood <person> <amount>");
write("Where <amount> is an integer. For example:\nmodfood joe 3\nmodfood mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
foodlevel=person->GetFood();
tempint = foodlevel + food;
if(tempint < 0) {
food = food + absolute_value(tempint);
}
person->AddFood(food);
if(food > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks a bit more at ease.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel more nourished.");
write("You've raised "+capitalize(whom)+"'s food level by "+food+" points.");
return 1;
}
if(food < 0){
food=absolute_value(food);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks uncomfortable.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel hungrier.");
write("You've lowered "+capitalize(whom)+"'s food level by "+food+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int modcaff(string str, int caff){
string whom;
int tempint,cafflevel;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: modcaff <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,caff);
if (!whom || !caff){
write("Syntax: modcaff <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(caff)){
write("Syntax: modcaff <person> <amount>");
write("Where <amount> is an integer. For example:\nmodcaff joe 3\nmodcaff mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
cafflevel=person->GetCaffeine();
tempint = cafflevel + caff;
if(tempint < 0) {
caff = caff + absolute_value(tempint);
}
person->AddCaffeine(caff);
if(caff > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks a bit keener.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel tipsy.");
write("You've raised "+capitalize(whom)+"'s caffeine level by "+caff+" points.");
return 1;
}
if(caff < 0){
caff=absolute_value(caff);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks more focused and alert.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel more awake.");
write("You've lowered "+capitalize(whom)+"'s caffeine level by "+caff+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int modalc(string str, int alc){
string whom;
int tempint,alclevel;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: modalc <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,alc);
if (!whom || !alc){
write("Syntax: modalc <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(alc)){
write("Syntax: modalc <person> <amount>");
write("Where <amount> is an integer. For example:\nmodalc joe 3\nmodalc mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
alclevel=person->GetAlcohol();
tempint = alclevel + alc;
if(tempint < 0) {
alc = alc + absolute_value(tempint);
}
person->AddAlcohol(alc);
if(alc > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks dizzier and more disoriented.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel tipsy.");
write("You've raised "+capitalize(whom)+"'s alcohol level by "+alc+" points.");
return 1;
}
if(alc < 0){
alc=absolute_value(alc);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks more focused and alert.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel more sober.");
write("You've lowered "+capitalize(whom)+"'s alcohol level by "+alc+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int addhp(string str, int hp){
string whom;
object person;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Syntax: addhp <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s %d",whom,hp);
if (!whom || !hp){
write("Syntax: addhp <person> <amount>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
if(!intp(hp)){
write("Syntax: addhp <person> <amount>");
write("Where <amount> is an integer. For example:\naddhp joe 3\naddhp mike -10\n");
say(scanner->GetName()+" fumbles stupidly with a medical tricorder.",scanner);
return 1;
}
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
person->AddHP(hp);
if(hp > 0){
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks stronger and more refreshed.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel stronger and more refreshed.");
write("You've raised "+capitalize(whom)+"'s health by "+hp+" points.");
return 1;
}
if(hp < 0){
hp=absolute_value(hp);
say(scanner->GetName()+" points a medical tricorder at "+capitalize(whom)+", "+
"and "+nominative(person)+" looks weaker and duller.", ({person,scanner}) );
tell_object(person,scanner->GetName()+" points a medical tricorder at you and you "+
"suddenly feel weaker and more frail.");
write("You've lowered "+capitalize(whom)+"'s health by "+hp+" points.");
return 1;
}
write("Aucun effet.");
return 1;
}
int extract(string str){
string what,whom;
object person, slug;
int rifleshot_wounds,firearms_wounds,wounds;
allowed=preAction();
if(allowed==2) return 1;
if(!str){
write("Extract what from whom?");
write("Example: extract slug from <person>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
sscanf(str,"%s from %s",what,whom);
if (!what || ! whom){
write("Extract what from whom?");
write("Example: extract slug from <person>");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(whom == "me") whom = this_player()->GetKeyName();
person=present(whom,environment(scanner));
if(!person){
write(capitalize(whom)+" isn't here.");
say(scanner->GetName()+" fumbles with a medical tricorder.",scanner);
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(person), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
slug=present("firearms_wound",person);
wounds=0;
wounds=person->GetLead("gunshot_wounds");
wounds+=person->GetLead("rifleshot_wounds");
if(!slug && what=="slug"){
write(capitalize(whom)+" has no gunshot injury.");
say(scanner->GetName()+" looks a bit silly waving a medical tricorder at "+capitalize(whom)+".",({ scanner, person }) );
tell_object(person,scanner->GetName()+" looks a bit silly waving a medical tricorder at you.");
return 1;
}
if(slug && what=="slug" && wounds > 0 ){
write("You extract a lead slug from "+capitalize(whom)+"'s body.");
say(scanner->GetName()+" deftly extracts a lead slug from "+capitalize(whom)+" with a medical tricorder.",({ scanner, person }) );
tell_object(person,scanner->GetName()+" deftly extracts a lead slug from you with a medical tricorder.");
firearms_wounds=person->GetLead("firearms_wounds");
rifleshot_wounds=person->GetLead("rifleshot_wounds");
slug=new("/domains/town/obj/spent");
if(person->GetLead("gunshot_wounds") > 0) {
person->AddLead("gunshot_wounds", -1);
slug->SetShort("a spent pistol slug");
--wounds;
slug->eventMove(environment(scanner));
if(person->GetLead() < 1){
slug=present("firearms_wound",person);
if(slug) slug->eventDestruct();
return 1;
}
return 1;
}
if(person->GetLead("rifleshot_wounds") > 0) {
person->AddLead("rifleshot_wounds", -1);
slug->SetShort("a spent rifle slug");
--wounds;
slug->eventMove(environment(scanner));
if(person->GetLead() < 1){
if(slug) slug->eventDestruct();
slug=present("firearms_wound",person);
if(slug) slug->eventDestruct();
return 1;
}
}
slug->eventMove(environment(scanner));
slug=present("firearms_wound",person);
if(wounds < 1 && slug){
slug->eventDestruct();
return 1;
}
}
return 1;
}
int fscan(string str){
object ob;
object *stuffs;
mixed *stuff;
allowed=preAction();
if(allowed==2) return 1;
if(!str || str=="" || str=="here") {
ob = environment(this_player());
name = ob->GetShort();
str = base_name(ob);
}
if(str == "me") str = this_player()->GetKeyName();
if(present(str,this_player())) {
ob = present(str,this_player());
name = ob->GetName();
}
if(present(str,environment(this_player()))) {
ob=present(str,environment(this_player()));
name = ob->GetName();
}
if(!ob){
write("The tricorder fails to locate any such person, object, or environment.\n");
say(this_player()->GetName()+" scans around aimlessly with "+
" a medical tricorder.\n");
return 1;
}
write("You perform a file scan of "+name+".\n\n");
write("\n"+name+" is in posession of the following items:");
write("-------------------------------------------");
say(this_player()->GetName()+" performs a tricorder scan of "+name+".\n",ob);
tell_object(ob,this_player()->GetName()+" scans you with "+
"a medical tricorder.\n");
stuffs=deep_inventory(ob);
filter(stuffs, (: this_object()->analyze(file_name($1)) :), this_object());
filter(stuffs, (: this_object()->getname($1) :), this_object());
stuff=deep_inherit_list(ob);
write("\n"+name+" is composed of the following files:\n");
write("-------------------------------------------");
foreach(mixed gene in deep_inherit_list(ob)) {
if(!stringp(gene)) break;
if(!gene) gene="";
write(gene);
}
write("\nSCAN COMPLETE");
return 1;
}
void analyze(string str){
string temp, temp2;
sscanf(str,"%s#%s",temp,temp2);
if(temp=="/lib/corpse"){
write("Found a corpse. Absolute name:\n"+str);
return;
}
return;
}
string getname(object ob){
string temp, temp2;
if(!ob) return "No object found.";
else
sscanf(file_name(ob),"%s#%s",temp,temp2);
write(ob->GetName()+",\t\tfilename: "+temp+".c");
return ob->GetName();
}
mixed assess(string args) {
string *lines, *arr, *limbs;
object ob;
string tmp1, tmp2;
int i, x, y, cols;
if( args == "" || !args ) return 0;
if(args == "me") args = this_player()->GetKeyName();
if( !(ob = present(args, environment(this_player()))) )
if( !(ob = find_player(convert_name(args))) &&
!(ob = find_living(lower_case(args))) )
return capitalize(args) + " is nowhere to be found.";
if( creatorp(ob) ) return "You cannot get stat information on a creator.";
if(!creatorp(this_player()) && strsrch(base_name(ob), homedir(this_player()))){
write("Builders can only do this to NPC's that belong to them.");
return 1;
}
if(tmp1 = ob->GetGender()) {
cols = ((int *)this_player()->GetScreen())[0];
tmp1 = (string)ob->GetCapName() + " aka " + (string)ob->GetShort() +
", level " + (int)ob->GetLevel() + " " + (string)ob->GetGender();
if( !(tmp2 = (string)ob->GetRace()) ) tmp2 = "blob";
tmp1 += " " + tmp2;
if( !(tmp2 = (string)ob->GetClass()) ) tmp2 = "drifter";
tmp1 += " " + capitalize(tmp2);
if( tmp2 = (string)ob->GetSpouse() )
tmp1 += " (spouse: " + tmp2 + ")";
lines = ({ center(tmp1, cols) });
if( (int)ob->GetUndead() ) tmp1 = "Undead";
else tmp1 = "Alive";
if( (int)ob->GetSleeping() ) tmp1 += " / Sleeping";
else tmp1 += " / Awake";
if( (int)ob->GetParalyzed() ) tmp1 += " / Paralyzed";
lines += ({ center(tmp1, cols), "" });
lines += ({ center("Health: " +(int)ob->GetHealthPoints() + "/"+
(int)ob->GetMaxHealthPoints() + " Magic: " +
(int)ob->GetMagicPoints() + "/" +
(int)ob->GetMaxMagicPoints() + " Stamina: " +
(int)ob->GetStaminaPoints() + "/" +
to_int((float)ob->GetMaxStaminaPoints()) + " Carry: " +
(int)ob->GetCarriedMass() + "/" +
(int)ob->GetMaxCarry(), cols) });
lines += ({ center("Food: " + (int)ob->GetFood() + " " +
"Drink: " + (int)ob->GetDrink() + " " +
"Alcohol: " + (int)ob->GetAlcohol() + " " +
"Caffeine: " + (int)ob->GetCaffeine() + " " +
"Poison: " + (int)ob->GetPoison() + " ", cols) });
lines += ({ center("Training Points: " + (int)ob->GetTrainingPoints()) });
lines += ({ "", "Limbs:" });
limbs = (string *)ob->GetWieldingLimbs();
arr = map((string *)ob->GetLimbs(),
(: sprintf("%:-14s%s (%d) %d/%d", $1,
((member_array($1, $(limbs)) == -1) ? " " : "*"),
(int)($(ob))->GetLimbClass($1),
(int)($(ob))->GetHealthPoints($1),
(int)($(ob))->GetMaxHealthPoints($1)) :));
i = sizeof(arr);
while(i--) if( (y = strlen(arr[i])) > x ) x = y;
x = cols/(x+2);
lines += explode(format_page(arr, x), "\n") + ({ "", "Skills:" });
arr = map((string *)ob->GetSkills(),
function(string skill, object who) {
mapping mp = (mapping)who->GetSkill(skill);
int x;
x = to_int(percent(mp["points"],
(int)who->GetMaxSkillPoints(skill, mp["level"])));
return sprintf("%:-18s (%d) %:2d%% - %d/%d",
skill, mp["class"], x,
(int)who->GetSkillLevel(skill), mp["level"] );
}, ob);
i = sizeof(arr);
while(i--) if( (y = strlen(arr[i])) > x ) x = y;
x = cols/(x+2);
lines += explode(format_page(arr, x), "\n") + ({ "", "Stats:" });
arr = map((string *)ob->GetStats(),
(: sprintf("%:-12s (%d) %d/%d", $1,
(int)($(ob))->GetStatClass($1),
(int)($(ob))->GetStatLevel($1),
(int)($(ob))->GetBaseStatLevel($1)) :));
i = sizeof(arr);
x = 0;
while(i--) if( (y = strlen(arr[i])) > x ) x = y;
x =cols/(x+2);
lines += explode(format_page(arr, x), "\n");
lines += ({ "", (string)ob->GetName()+" has amassed a net worth of " +
( (int)ob->GetNetWorth() * currency_rate("gold") ) + " gold."});
arr = filter( map((string *)ob->GetCurrencies(),
(: ($(ob))->GetCurrency($1) &&
sprintf("%d %s", ($(ob))->GetCurrency($1), $1) :)),
(: $1 :));
lines += ({ "Money on hand: "+implode(arr, ", ") });
this_player()->eventPage(lines, "system");
return 1;
}
else {
write("You can't stat a non-living object!");
return 1;
}
}
