generic corpse #104

die

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

return;

is_dead

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

• #104:butch*er line 9: this:is_dead
• #104:cut line 14: this:is_dead

Source

":is_dead() => 0: unconscious,";
"              1: dead, but revivable from afterlife,";
"              2: dead and he ain't comin' back.";
if ((is_a(this.player, $creature) && this.player:is_in_afterlife()) && this.intact)
return 1;
else
return 2;
endif

heartbeat

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

if ((this.location != $tomb) && (random(1000) < 60))
if ((!is_a(this.original_player, $player)) || ((time() - this.timestamp) > $rpg.player_corpse_rot_minimum))
if ((!valid(this.location)) || (!this.location:occupants($player)))
this:rot(1);
elseif (random(100) < 20)
this:rot(1);
endif
endif
endif
this.action_count = 0;

rot

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

• #104:heartbeat line 4: this:rot
• #104:heartbeat line 6: this:rot
• #104:_eat line 14: this:rot
• #104:hear_event_arrive line 3: this:rot

Source

silent = args ? args[1] | 0;
if ((!this.f) && (this.location != $tomb))
$nets.deathnet:announce_rot(this);
if (valid(this.location))
if (!silent)
this.location:announce_all($su:ps(this.rot_msg, this, this));
endif
if (!is_a(this.original_player, $player))
if (!this.location:occupants($player))
for x in (this.contents)
$rpg:junk(x);
endfor
endif
endif
for x in (this.contents)
if ($recycler:valid(x))
if (is_a(x, $decal))
$rpg:junk(x);
else
this.location:broadcast_event(0, $actions.drop, this.original_player, {x, this.location});
x:moveto(this.location);
endif
endif
endfor
endif
if (is_a(this.player, $creature))
this.player.body = #-1;
endif
move(this, $tomb);
endif

take_damage

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

return;

_knockout

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

return;

_eat

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

who = args[1];
if ($ou:has_property(who, "feed_msg"))
m = who.feed_msg;
else
m = this.eat_msg;
endif
who:aat($su:ps(m));
for a in (this.blood)
who:ingest(a[1], a[3], 0);
endfor
for x in (this.contents)
`x:moveto(who) ! ANY => 0';
endfor
this:rot(1);

hear_event_arrive

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

if ((args[3] == this.original_player) && (args[3].location == this.location))
if ($recycler:valid(this.original_player) && this.original_player.has_proper_name)
this:rot(1);
endif
endif

ingest

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

return 0;

receive_fuck

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

who = args[1];
if (is_a(who, $player))
$quest:named("defiler"):award_to(who);
endif

get_as_it_once_was

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

if (dobjstr == "all")
olist = this.contents;
else
o = $match_utils:match(dobjstr, this.contents);
if (o == $failed_match)
player:tell("You can't find any '", dobjstr, "' in ", this:dname(), ".");
return;
elseif (o == $ambiguous_match)
player:tell("I don't know which '", dobjstr, "' in ", this:dname(), " you mean.");
return;
endif
olist = {o};
endif
if (olist)
for x in (olist)
if (is_a(x, $clothing) && (!is_a(this, $corpse)))
player:tell("You can't take ", this.pp, " clothes off...", this.ps, "'s not dead.");
else
player:aat($su:capitalize(player:dname()), " takes ", x:iname(), " from ", this:dname(), ".");
x:moveto(player);
endif
endfor
else
player:tell("There's nothing in ", this:dname(), ".");
endif

newget

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

player:get();

get_from

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

"Copied from generic container (#931):get_from by Gilmore (#98) Mon Apr  4 22:59:27 2005 PDT";
who = args[1];
targets = (typeof(args[2]) == LIST) ? $lu:randomly_permute(args[2]) | {args[2]};
who:queue_action($actions.get, {targets, this, {}}, 1, "get from " + this.name);

cant_get_from

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

getter = args[1];
targets = args[2];
if (!this.contents)
return this:dname() + " doesn't have anything to get";
endif
for x in (targets)
if (!(x in this.contents))
targets = setremove(targets, x);
endif
endfor
if (!targets)
return "it's not on " + this:dname();
endif
if (`this.location.no_loot_corpse ! ANY')
return this.location.no_loot_corpse;
endif
return 0;

cryptkeeper

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

if (c = this:occupants(#132814))
return c[1];
endif
return #-1;

_brainscan

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

who = args[1];
this:_whisper(who, "I'm dead.  Oh my god, I'm dead.");

setup_for

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

":setup_for(OBJ who, OBJ dtype) => setup this corpse for who, with damage type dtype";
who = args[1];
dtype = args[2];
this.original_player = who;
if (!this.rename)
this:set_name(parent(this).name);
this:set_aliases({@parent(this).aliases});
else
this.plural_name = "corpses of " + who.name;
this:set_aliases({@this.aliases, "corpse of " + who.name, "corpse"});
endif
this:update_posture();
if (dtype != $damage)
d = this:description();
d = (typeof(d) == LIST) ? d | {d};
d = {@d, $su:ps(dtype.autopsy_msg, who, this, this)};
this.description = d;
endif
this.restorable_blood = this.blood;
if (meats = `who:corpse_meats(this.meats) ! E_VERBNF')
this.meats = meats;
endif
if ($drugs.pregnancy:doses_for(this) >= 15)
this.meats = {@this.meats, #16842};
endif
meatblood = {};
for x in (this.blood)
if (random(100) <= x[1].meat_transmit_chance)
meatblood = {@meatblood, x};
endif
endfor
this.blood = meatblood;
w = who.weight;
this.weight = w;
this.timestamp = time();

update_posture

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

• #104:setup_for line 12: this:update_posture
• #104:enter_room line 1: this:update_posture

Source

loc = (length(args) > 0) ? args[1] | this.location;
if (is_a(loc, #1047) || is_a(loc, #1034))
this.posture = "floating";
elseif (is_a(loc, #761))
this.posture = "gliding";
else
this.posture = "lying on the ground";
endif

enter_room

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

this:update_posture(args[1]);
return pass(@args);

tree_tag

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

r = "";
if ((!("corpse" in this.aliases)) && (!("remains" in this.aliases)))
r = tostr(r, " ", $ansi.red, $ansi.bold_on, "!", $ansi.reset);
endif
if (this.meats)
names = {};
if (length(names) <= 4)
r = tostr(r, " [", $su:from_list(names, ", "), "]");
else
r = tostr(r, " [too many meats]");
endif
endif
return r;

tell_appraise

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

player:tell(this:dnamec(), " is dead.  You don't think the corpse will be giving you too much trouble.");

setup

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

this.clothing = `args[1].clothing ! ANY => {}';
return pass(@args);

wearing_on

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

":wearing_on(OBJ bodypart) => LIST what I'm wearing there.";
part = args[1];
s = {};
for x in (this.clothing)
if (is_a(x, $clothing))
for y in (x.covers)
if (is_a(part, y))
s = setadd(s, x);
break;
endif
endfor
endif
endfor
if (s)
return s;
endif
return pass(@args);

turn_to_corpse

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

return;

dead

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

return 1;

dname

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

• #104:get_as_it_once_was line 6: this:dname
• #104:get_as_it_once_was line 9: this:dname
• #104:get_as_it_once_was line 19: this:dname
• #104:get_as_it_once_was line 24: this:dname
• #104:cant_get_from line 4: this:dname
• #104:cant_get_from line 12: this:dname
• #104:butch*er line 6: this:dname
• #104:butch*er line 19: this:dname
• #104:cut line 9: this:dname
• #104:cut line 11: this:dname

Source

if (`this.name[1..6] == "corpse" ! ANY' || `this.name[1..4] == "dead" ! ANY')
return pass(@args);
else
return "the body of " + this.name;
endif

butch*er

Spec this none noneFlags rxdOwner #361Definer #104

Referenced by

none

Source

"Butcher the body for yourself.";
if (!this.butcherable)
player:tell(this:dnamec(), " seems too tough to butcher anything from.");
return;
elseif (gamevalid(this.butchering))
player:tell(this.butchering:dnamec(), " is already butchering ", this:dname(), "!");
return;
endif
if (!this:is_dead())
player:tell("Um...", this.ps, "'s still alive.  If you really want ", this.pp, " ", meatgeneric.name, ", have the decency to put ", this.po, " out of ", this.pp, " misery.");
return;
endif
w = player:cuts_with();
if (!is_a(w, $weapon))
player:tell("You're not holding a blade.  Good luck butchering a body with your ", player:weapon().name, ".");
return;
endif
if ($lu:sum($lu:map_verb(this.location:occupants($living), "is_doing", $actions.butcher, this)))
return player:tell("Someone's already butchering ", this:dname(), ".");
endif
player:queue_action($actions.butcher, {this}, 1, "butcher " + this.name);

cut

Spec any out of/from inside/from thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

"Butcher a piece of the body for yourself.";
if (!this.butcherable)
player:tell(this:dnamec(), " seems too tough to cut anything from.");
return;
endif
meatgeneric = $match_utils:match(dobjstr, this.meats);
if (!$recycler:valid(meatgeneric))
if (!this.meats)
player:tell("You don't see anything worthwhile left in ", this:dname(), ".");
else
player:tell("You can cut ", $su:english_list($lu:map_verb(this.meats, "dname")), " from ", this:dname(), ".");
endif
else
if (!this:is_dead())
player:tell("Um...", this.ps, "'s still alive.  If you really want ", this.pp, " ", meatgeneric.name, ", have the decency to put ", this.po, " out of ", this.pp, " misery.");
return;
endif
w = player:cuts_with();
if (!is_a(w, $weapon))
player:tell("You're not holding a blade.  Good luck butchering a body with your ", player:weapon().name, ".");
return;
endif
player:queue_action($actions.butcher, {this, meatgeneric});
endif

mangle

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

• #104:sever_meat line 6: this:mangle

Source

this.intact = 0;

sever_meat

Spec this none thisFlags rxdOwner #361Definer #104

Referenced by

none

Source

what = args[1];
for meat in (this.meats)
if (is_a(meat, what))
if (!this.f)
this.meats = setremove(this.meats, meat);
this:mangle();
endif
meat = meat.f ? $rpg:spawn(meat) | meat;
is_a(who = this.original_player, $living) && `meat:carve_from(who) ! E_VERBNF';
return meat;
endif
endfor
return #-1;