Manual:DIL Manual/meleedamage() - Revision history

Nove: XML import

2025-12-04T22:30:19Z

XML import

Papi: XML import of LLM wiki pages

2025-12-04T10:45:00Z

XML import of LLM wiki pages

Barron at 04:55, 2 December 2023

2023-12-02T04:55:22Z

Nove: XML import

2020-05-27T13:08:09Z

XML import

New page

'''Function: '''
meleedamage ( c : unitptr, v : unitptr, b : integer, wt : integer );

 '''c'''
 the character that should make an additional attack
 '''v'''
 the character being attacked
 '''b'''
 any penalty or bonus added to the attack.
 '''wt'''
 the weapon type of the attack, if a valid type then that is used for the attack purpose, otherwise the default weapon/hand attack is used.
 '''returns'''
 The amount of damage done or -1 for failed

ch' performs an attack (using whatever weapon is wielded or his bare hands) against 'vict'.
If wtype is within a valid weapon range (WPN_XXX) any weapon will be bypassed,
and the value will be used as the attacktype. Good for things like "meleeattack
(ch, vict, bonus, WPN_CIRCLE_KICK)" If you want person to be able to perform an
extra attack even though wielding a weapon or something. Note that this will
require BOTH a weapon type WPN_CIRCLE_KICK and a skill "kick" in order for it to
work.
'''Example:'''

---~---~---~---~---~---~---~---~---

dilbegin kick(arg : string);
external
provoked_attack (victim : unitptr, ch : unitptr);

var
bonus : integer;
targ : unitptr;

code
{
if ((self.type == UNIT_ST_PC) and (self.weapons[WPN_KICK] <= 0))
{
act("You must practice first.", A_ALWAYS, self, null, null, TO_CHAR);
quit;
}

if (arg == "")
{
if (self.fighting)
{
targ := self.fighting;
goto kick;
}

act("Kick who?", A_SOMEONE, self, null, null, TO_CHAR);
quit;
}

targ := findunit(self, arg, FIND_UNIT_SURRO, null);

if ((targ == null) or not visible(self, targ))
{
act("That person is not here!", A_SOMEONE, self, null, null, TO_CHAR);
quit;
}

if (not (targ.type & (UNIT_ST_PC | UNIT_ST_NPC)))
{
act("You can't kick that, silly!", A_SOMEONE, self, null, null,
TO_CHAR);
quit;
}

if (targ == self)
{
act("You kick yourself.", A_HIDEINV, self, null, null,
TO_CHAR);
act("$1n kicks $1mself.", A_HIDEINV, self, null, null,
TO_ROOM);
quit;
}

if ((targ.type==UNIT_ST_PC) and
(self.type==UNIT_ST_PC))
{
if (not(isset (self.pcflags, PC_PK_RELAXED)))
{
act ("You are not allowed to do this unless you sign the book of blood.",
A_ALWAYS,self,null,null,TO_CHAR);
quit;
}

if (not(isset (targ.pcflags, PC_PK_RELAXED)))
{
act ("You are not allowed to do this unless $2e signs the book of blood.",
A_ALWAYS,self,targ,null,TO_CHAR);
quit;
}
}

:kick:
/* Penalty for wielding a weapon while kicking! */
if (equipment(self, WEAR_WIELD))
bonus := -25;
else
bonus := +25;
if (self.endurance < 2)
act("You are too exhausted to attempt that.", A_ALWAYS, self, null,
null, TO_CHAR);
else self.endurance := self.endurance - 2;
provoked_attack (targ, self);
bonus := meleeattack(self, targ, (bonus+self.level), WPN_KICK);
quit;
}
dilend

---~---~---~---~---~---~---~---~---

@@ Line 1: / Line 1: @@
 <span id="bfmeleedamage"></span>
@@ Line 37: / Line 35: @@
   code
+dilend
-    if (arg == "")
+ ---~---~---~---~---~---~---~---~---
-       act("Kick who?", A_SOMEONE, self, null, null, TO_CHAR);
+ </i><!--ENDCODE-->
-       quit;
+<span id="bfmeleedamage"></span>
-    targ := findunit(self, arg, FIND_UNIT_SURRO, null);
+ '''Function:  '''
-    if ((targ == null) or not visible(self, targ))
+ <!--TERM-->  '''c'''
+ <!--DEFINITION-->         the character that should make an additional attack
-       act("That person is not here!", A_SOMEONE, self, null, null, TO_CHAR);
+ <!--TERM-->  '''v'''
-       quit;
+ <!--DEFINITION-->         the character being attacked
+ <!--TERM-->  '''b'''
-    if (not (targ.type &amp; (UNIT_ST_PC | UNIT_ST_NPC)))
+ ch' performs an attack (using whatever weapon is wielded or his bare hands) against 'vict'.
+ If wtype is within a valid weapon range (WPN_XXX) any weapon will be bypassed,
-       act("You can't kick that, silly!", A_SOMEONE, self, null, null,
+ and the value will be used as the attacktype.  Good for things like "meleeattack
-           TO_CHAR);
+ (ch, vict, bonus, WPN_CIRCLE_KICK)"  If you want person to be able to perform an
-       quit;
+ extra attack even though wielding a weapon or something.  Note that this will
+ require BOTH a weapon type WPN_CIRCLE_KICK and a skill "kick" in order for it to
-    if (targ == self)
+ dilbegin kick(arg : string);
+ external
-       act("You kick yourself.", A_HIDEINV, self, null, null,
+     provoked_attack (victim : unitptr, ch : unitptr);
-     if ((targ.type==UNIT_ST_PC) and
+ var
-     (self.type==UNIT_ST_PC))
+     bonus : integer;
+     targ  : unitptr;
-  if (not(isset (targ.pcflags, PC_PK_RELAXED)))
+  code
 dilend
   ---~---~---~---~---~---~---~---~---
   </i><!--ENDCODE-->

@@ Line 110: / Line 110: @@
      else self.endurance := self.endurance - 2;
      provoked_attack (targ, self);
-     bonus := meleeattack(self, targ, (bonus+self.level), WPN_KICK, TRUE);
+     bonus := meleeattack(self, targ, (bonus+self.level), WPN_KICK);
      quit;
+  }