Forget Spell Command

[Dark Echo]

You are missing an End if.. Nest your code its really hard to work out whats with what..

Code:

If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
    If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
        If MsgBox("Are you sure you want to forget the spell """ & Trim$(Spell(Player(MyIndex).Spell(lstSpells.ListIn dex + 1)).Name) & """?", vbQuestion Or vbYesNo, "Forget Spell" = vbNo Then Exit Sub

        SendData "forgetspell" & SEP_CHAR & lstSpells.ListIndex + 1 & SEP_CHAR & END_CHAR
        picPlayerSpells.Visible = False
    End If
Else
    AddText "No spell here.", BrightRed
End If

No wait.. you arent missing an End if.. I found that out when i nested it.. I have no idea whats wrong at the moment.. What error did you get mate?