Damaging Cursed Item HELP!

[BlazingShadow]

Ok, I want to make a sword that, when equipped, deals 3 damage to the player equiping it. I was going to make this with a script, but scripted Items can't be equipped :P
So, this is on ES or EO
Any help would be appreciated

Credits will be added.

[Qazek]

Ok, I do this for you ;)

Open Client frmEditor_Item and add:

scrollbar:
name - scrlItemDamage
label:
name - lblItemDamage
caption - "Damage: "

Paste this to scrlItemDamage code:

```
Item(EditorIndex).ItemDamage = scrlItemDamage.Value
lblItemDamage.Caption = "Damage: " & scrlItemDamage.Value
```
Find:

```
Private Type ItemRec
```
Add to this type:

```
    ItemDamage As Long
```
Find in ItemEditorInit:

```
        frmEditor_Item.scrlRarity.Value = .Rarity
```
And add:

```
        frmEditor_Item.scrlItemDamage.Value = .ItemDamage
```
Ok now go to the Server

Find:

```
Private Type ItemRec
```
And add to this type:

```
    ItemDamage As Long
```
Find in HandleUseItem:

```
            Case ITEM_TYPE_WEAPON
```           
And under is:

```
                SetPlayerEquipment Index, GetPlayerInvItemNum(Index, InvNum), Weapon
                PlayerMsg Index, "You equip " & CheckGrammar(Item(GetPlayerInvItemNum(Index, InvNum)).Name), BrightGreen
                TakeInvItem Index, GetPlayerInvItemNum(Index, InvNum), 1

```
Add over this:

```
                If Item(GetPlayerInvItemNum(Index, InvNum)).ItemDamage > 0 Then
                    SetPlayerVital Index, HP, GetPlayerVital(Index, HP) - Item(GetPlayerInvItemNum(Index, InvNum)).ItemDamage
                End If
```

[BlazingShadow]

CRAP!! Just realised I can't edit source cos I don't have VB6 :(  :cry: