generic natural weapon #50181

Parent #82Owner —Flags Source rpg_march_2006/natweap.txt

Aliases: generic natural weapon, natweap, generic, natural, weapon

9 verbs · 25 properties · 0 children

Verbs

Properties

Ancestry

• #517 Generic LRPG Thing

  • #82 generic weapon

    • #50181 generic natural weapon

Ancestors (nearest first): #82 generic weapon → #517 Generic LRPG Thing

Children: none

Call graph

Source

":dam(by,targ) => Damage adjusted for wielder's size.";
if (valid(doll = $local.rpg:get_doll(by = args[1])))
  size = (doll.size > 0) ? doll.size | 1;
  dam = (this.dam > 0) ? this.dam | 1;
  "Still fooling with equations here.  Whatcha like?";
  return (size > 10) ? dam + random((size / 10) * dam) | (dam / (10 / size));
else
  "if the doll isn't valid, who cares?";
  return 0;
endif

"Remove this later if we make natural weapons designed for players to wield, but right now they shouldn't even have them.";
{by, targ} = args;
if (is_player(by) && (!(this in `$local.rpg:get_doll(by).natural_weapons ! E_INVIND => {}')))
  by:tell("You suddenly become acutely aware that ", this.name, " was not meant to be wielded by your kind.  The appendage digs painfully into your flesh.");
  by:room_announce(by:title(), " screams, \"OH MY GOD get this ", this.name, " off of me!!!\"");
  return E_PERM;
else
  return pass(by, targ);
endif
"Quinn 10-AUG-93 0227-ET: Added.";
"Profane 8-DEC-96 1119PST -- put this verb back in action and put in exception for those damn razor claws";

"Modified verb for natural weapon to disregard .condition of weapon, since natural weapons shouldn't degrade anyway. Saves ticks too, woo-woo!";
return this.(verb);
"Profane 2-17-95 23:21EST - Added.";

"Since natural weapons shouldn't degrade, put in this tick-saving return over the one on #82.";
return;
"Profane 2-18-95 00:50EST - Added.";

":announce_parry(attacker, defender, location-string, weapon)";
"Announce that `defender' has used this weapon to parry an attack by `attacker' with `weapon' aimed at `location-string'.";
who = args[2];
who:tell(("You parry with your " + this.name) + ".");
who.location:announce_all_but({who}, ((((who.name + " parries with ") + who.pp) + " ") + this.name) + ".");
"Profane 2-18-95 00:55EST Added (removed degrade check from #82)";

return 0;

"Swiped from naginata (79903):announce_swing by THX1138 (105941) Sat Mar  8 14:25:48 1997 PST";
"modified, bent, and spindled by Bartlebooth 3/8/97";
":announce_swing(attacker, target)";
"Announce that `attacker' has swung at `target' with this weapon.";
{who, target} = args;
swing = this.swing_list ? this.swing_list[x = random($)] | this.swing;
oswing = this.oswing_list ? this.oswing_list[x] | this.oswing;
who:tell("You ", swing, " your ", weapon = this.name, " at ", tname = target.name, ".");
target:tell(string = tostr(who.name, " ", oswing, " ", who.pp, " ", weapon, " at "), "you.");
$local.rpg:rpg_announce_all_but(who.location, {who, target}, string, tname, ".");
"Originaly used .swing and .oswing for lists, but that broke code on monsters";
"that expect these to be strings, not lists. So much for trying to be clever.";

{who} = args;
return !(valid(who) && (who.owner in $local.rpg.gms));

{who} = args;
return who.owner in $local.rpg.gms;