generic living creature #154

popmon

Spec this none thisFlags rxdOwner #361Definer #154

Referenced by

• #3:emote line 13: player:popmon
• #3:emote line 15: player:popmon
• #3:emote line 17: player:popmon
• #3:emote line 19: player:popmon
• #3:emote line 21: player:popmon

Source

"Copied from Obvious (#45302):popmon Tue Sep 12 11:31:26 2006 PDT";
"Copied from generic programmer (#58):popmon by Dej (#45097) Tue Sep 12 10:27:12 2006 PDT";
surprise = args[1];
facelist = this:wearing_on(#16379);
drink = #-1;
if (facelist)
mon = facelist[1];
if (mon.name == "monocle")
for w in (this.wielding)
if (is_a(w, #1133))
drink = w;
endif
endfor
fork (1)
if (surprise == -1)
this:aat(this:dnamec(), "'s ", mon.name, " spins in place.");
return;
endif
if (surprise == 4)
this:aat(this:dnamec(), "'s ", mon.name, " shatters!");
$rpg:junk(mon);
this:take_damage($damages.stabbing, 1, $bodyparts.face);
return;
endif
if (surprise == 1)
this:aat(this:dnamec(), "'s ", mon.name, " pops out!");
this.wearing = setremove(this.wearing, mon);
if (burninators = player.location:occupants(#113546))
b = burninators[random($)];
this:aat(mon:dnamec(), " ricochets off of the ", b.name, ".");
b:print_flag();
endif
if (valid(drink))
mon:moveto(drink);
this:aat(mon:dnamec(), " splashes into ", this.name, "'s ", drink.name, ".");
else
mon:moveto(this.location);
endif
else
exits = this.location:exits();
exit = exits[random($)];
if (valid(dest = exit:throws_to(mon, this)))
this:aat(this:dnamec(), "'s ", mon.name, " pops out and flies off to the ", exit.name, "!");
dest:announce_all($su:ps(exit.otherside.throw_through_msg, this, mon, exit.otherside));
this.wearing = setremove(this.wearing, mon);
mon:moveto(dest);
else
this:aat(this:dnamec(), "'s ", mon.name, " pops out and flies halfway across the room!");
this.wearing = setremove(this.wearing, mon);
mon:moveto(this.location);
endif
endif
endfork
endif
endif

feed

Spec none out of/from inside/from thisFlags rxdOwner #361Definer #154

Referenced by

none

Source

if (`player.location.no_combat ! ANY => 0')
player:tell("For whatever reason, this just doesn't seem like the place for it.");
return;
endif
if (!#69007:doses_for(player))
player:tell("You don't really feel like drinking ", this.name, "'s blood. Yuck.");
elseif (player == this)
player:tell("You twist around, trying to bite your own neck. You can't seem to do it.");
elseif (!is_a(this.bloodstain, #3611))
player:tell(this.name, " doesn't have any blood to suck.");
elseif (!this:_allows("suck", player))
player:tell("You don't think ", this:dname(), " is going to let you drink ", this.pp, " blood. Maybe if you ask nicely?");
else
player:queue_action($actions.feedfrom, {this}, 1, "feed from " + this.name);
endif

floats

Spec this none thisFlags rxdOwner #361Definer #154

Referenced by

none

Source

"Copied from generic creature (#109):floats by Gilmore (#98) Sat Jun 27 05:16:29 2009 CDT";
for x in (this.wearing)
if (is_a(x, #4568))
return 1;
endif
endfor
if (this.executing && (this.executing[1] == $actions.climb))
return 1;
endif

scam

Spec this none noneFlags rxdOwner #361Definer #154

Referenced by

none

Source

player:tell("You don't think ", this:dname(), " will fall for it.");