Again...

[Pbcrazy]

ok thanks for the advice, should have thought of that earlier -_- but i figured out whats actually crashing it i think
[code]Sub AttackNPC(ByVal Index As Integer, ByVal NPCnum As Integer)
Dim PlayerDmg As Integer
Dim NPCDmg As Integer
Dim PlayerDef As Integer
Dim NPCDef As Integer
Dim BattleFinished As Boolean
Dim battlecount As Byte
Dim LastSec As Integer

BattleFinished = False
battlecount = 0
LastSec = 0

Call AddText("in attack sub", vbBlack)
Do Until BattleFinished = True
If ServerSecond