generic decal #141

look_place_msg

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

• #141:look_self line 1: this:look_place_msg

Source

m = "";
if (is_a(this.location, #761))
m = this.look_place_air_msg;
elseif (typeof(this.(verb)) == STR)
m = this.(verb);
else
for x in (this.(verb))
if (is_a(this.location, x[1]))
m = x[max(2, min(length(x), this.accumulation + 1))];
m = strsub(m, "%t", this.name);
if (player:check_pref("boldnames"))
m = strsub(m, this.name, ($ansi.bold_on + this.name) + $ansi.bold_off);
endif
return $su:capitalize(m);
endif
endfor
endif
m = strsub(m, "%t", this.name);
if (player:check_pref("boldnames"))
m = strsub(m, this.name, ($ansi.bold_on + this.name) + $ansi.bold_off);
endif
return $su:capitalize(m);

hear_event_move

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

if (!args[1])
this:_check_disperse(1);
endif

_disperse

Spec this none thisFlags rxOwner #361Definer #141

Referenced by

• #141:_check_disperse line 10: this:_disperse

Source

"Our lifespan ran out.  Recycle.";
if (!this.f)
if (m = this.disperse_msg)
`this.location:announce_all($su:ps(m, this, this, this.location)) ! ANY => 0';
endif
`$recycler:_recycle(this) ! ANY => 0';
endif

look_self

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

if (m = this:look_place_msg())
player:tell(m, $ansi.reset);
endif
return pass(@args);

_exclude_by

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

":_exclude_by(OBJ excluder) => A new decal is coming in to supercede us.  We go away.";
fork (0)
if (!this.f)
$recycler:_recycle(this);
endif
endfork

tell_person

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

who = args[1];
if (!this.accumulation)
$rpg:junk(this);
return;
endif
l = max(1, min(this.accumulation, length(this.look_person_msg)));
m = this.look_person_msg[l];
m = $su:ps(m, who, this);
player:tell(m);

wipe clean mop

Spec this none noneFlags rxdOwner #361Definer #141

Referenced by

none

Source

if (!this.wipeable)
player:tell("You can't just wipe that up.");
return;
endif
if (this.location == player)
player:tell("You don't think you'll be able to get it off by just wiping.");
return;
endif
if (is_a(this.location, #1034) || is_a(this.location, #1047))
player:aat(player:dnamec(), " swirls ", this:dname(), " around in the water with ", player.pp, " hand.");
return;
endif
this.accumulation = min(this.accumulation, this.max_accumulation);
if (this.accumulation > 1)
this.accumulation = this.accumulation / 3;
else
this.accumulation = this.accumulation - 1;
endif
if (this.accumulation > 0)
player:aat($su:ps($su:msg(this.clean_msg), player));
else
player:aat($su:ps($su:msg(this.clean_last_msg), player));
$recycler:_recycle(this);
endif

creature_heartbeat

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

if (this.f || (!this.blood))
return;
endif
who = args[1];
blood = this.blood;
for drug in (blood)
if ((!drug.blood_splash_transmissible) || (drug:doses_for(who) >= drug.max_doses))
blood = setremove(blood, drug);
endif
endfor
if (!blood)
return;
endif
if (this.location == who)
if (random(100) < this.infect_chance)
which = blood[random($)];
if (which.blood_splash_transmissible)
who:ingest(which, random(2) + 1, 0);
endif
this.accumulation = this.accumulation - 1;
endif
if (this.accumulation < 1)
$rpg:junk(this);
endif
endif

lick taste eat

Spec this none noneFlags rxdOwner #361Definer #141

Referenced by

none

Source

if (!this.wipeable)
player:tell("You can't just lick that up.");
return;
endif
if (this.location == player)
if (this.self_lick_ok)
player:aat($su:ps($su:msg(this.lick_self_msg), player, this));
else
player:tell("You can't lick that off yourself.  Maybe you can't reach it, or it's soaked into your clothes or something.  Whatever; the point is that you can't.");
return;
endif
elseif (this.accumulation > 1)
player:aat($su:ps($su:msg(this.lick_msg), player));
else
player:aat($su:ps($su:msg(this.lick_last_msg), player));
endif
this.accumulation = this.accumulation - 1;
if (valid(this.nutrition) && (random(100) < 5))
player:ingest(this.nutrition, 1);
endif
if (this.blood)
for x in (this.blood)
if (random(100) < this.lick_infect_chance)
player:ingest(x, 1);
endif
endfor
endif
if (!this.accumulation)
$recycler:_recycle(this);
endif

hear_event_arrive

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

this:_check_disperse();

_accumulated

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

• #141:moveto line 28: this:_accumulated

Source

No program (verb defined but unprogrammed).

add_to

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

"$decal:add_to(OBJ dest, INT amount, LIST blood) => OBJ decal.";
"Adds the amount and blood items to this type of decal if it already exists at dest. If this decal doesn't exist at dest, create a new one and assign the args to it.";
{dest, ?amount = 1, ?blood = {}} = args;
if (!valid(dest))
return;
endif
if (typeof(blood) != LIST)
raise(E_INVARG);
endif
excluder = this.exclusive_to;
if (valid(excluder))
"minor optimization here -- newly added decals will always be at the back of .contents";
contents = dest.contents;
i = length(contents);
while (i >= 1)
o = contents[i];
if (is_a(o, excluder))
new_acc = min(o.accumulation + amount, o.max_accumulation);
o.lifespan = (o.lifespan / 2) + this.lifespan;
o.stick_time = time();
for b in (o.blood)
if (!(b in blood))
blood = {@blood, b};
endif
endfor
o.accumulation = new_acc;
o.blood = blood;
o:_accumulated(new_acc, dest);
return o;
endif
i = i - 1;
yield 0;
endwhile
endif
"if we get here, we need a new one";
if (dest:acceptable(this))
o = $rpg:spawn(this);
if (!valid(o))
raise(E_INVARG, tostr("Unable to spawn new decal ", this));
endif
o.blood = blood;
o.accumulation = amount;
o:_accumulated(amount, dest);
o:moveto(dest);
return o;
endif
return #-1;

tree_tag

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

r = "";
if (this.wipeable)
r = r + "  wipeable";
endif
if (valid(this.exclusive_to))
r = (r + "  ") + $su:nn(this.exclusive_to);
endif
r = $su:trim(r);
s = pass(@args);
if (s)
return (s + "  ") + r;
endif
return r;

moveto

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

if (valid(args[1]))
total = 0;
excl = this.exclusive_to;
if (valid(excl))
for x in (args[1].contents)
if (is_a(x, excl))
current = this.accumulation;
this.accumulation = this.accumulation + x.accumulation;
this.accumulation = min(this.accumulation, this.max_accumulation);
total = total + (this.accumulation - current);
this.lifespan = this.lifespan + (x.lifespan / 2);
if (is_a(x, $creature))
for b in (x.blood)
if (!(b in this.blood))
this.blood = {@this.blood, b};
endif
endfor
endif
$rpg:junk(x);
endif
endfor
if (!is_a(this, $decal))
return;
endif
endif
this.stick_time = time();
if (total)
this:_accumulated(total, args[1]);
endif
return pass(@args);
else
$rpg:junk(this);
endif

reduce_by

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

x = args[1];
this.accumulation = max(this.accumulation - x, 0);
if (this.accumulation < 1)
if (!this.f)
$recycler:_recycle(this);
endif
endif

accumulation_on

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

none

Source

":accumulation_on(what) => Return the accumulation of this kind of decal on 'what'.";
{what} = args;
return `what:occupants(this)[1].accumulation ! E_RANGE => 0';

_check_disperse

Spec this none thisFlags rxdOwner #361Definer #141

Referenced by

• #141:hear_event_move line 2: this:_check_disperse
• #141:hear_event_arrive line 1: this:_check_disperse

Source

{?player_check = 0} = args;
if ((time() - this.stick_time) > this.lifespan)
if (player_check)
for x in (this.location.contents)
if (is_player(x))
return 0;
endif
endfor
endif
this:_disperse();
return 1;
endif
return 0;