Npc attack

[iHero]

**Introduction**

The animation of the attack of NPC is only sent when the NPC cause damage to the player.

**Server~Side**

> modCombat

Find:

```
Sub NpcAttackPlayer(ByVal mapNpcNum As Long, ByVal victim As Long, ByVal Damage As Long)
```

In _Sub NpcAttackPlayer_ find:

```
' Send this packet so they can see the npc attacking

Set Buffer = New clsBuffer

Buffer.WriteLong ServerPackets.SNpcAttack

Buffer.WriteLong mapNpcNum

SendDataToMap MapNum, Buffer.ToArray()

Set Buffer = Nothing
```

Erase. Now in _Function CanNpcAttackPlayer_ find:

```
Dim npcNum As Long
```

Below add:

```
Dim Buffer As clsBuffer
```

Find:

```
MapNpc(MapNum).Npc(mapNpcNum).AttackTimer = GetTickCount
```

Above add:

```
' Send this packet so they can see the npc attacking

Set Buffer = New clsBuffer

Buffer.WriteLong ServerPackets.SNpcAttack

Buffer.WriteLong mapNpcNum

SendDataToMap MapNum, Buffer.ToArray()

Set Buffer = Nothing
```

In _Sub TryNpcAttackPlayer_ find:

```
If Damage > 0 Then

Call NpcAttackPlayer(mapNpcNum, index, Damage)
```

Below add:

```
Else

SendActionMsg mapNum, "Block!", Cyan, 1, (GetPlayerX(index) * 32), (GetPlayerY(index) * 32)
```

Credits

**Ricard**o

[UzGo]

Great !!! I am delighted to see tutorial about this bug ! Keep in mind that your work is very helpful !