04-04-2009, 06:42 PM
yea I fixed it lmao, I relaized that after I killed omehitng giving 5 exp :/
i got another question, See, I made it so that depending on the NPC's Speed and Your speed, the NPC can miss its attack on you, but 9/10 NPC attacks are missssed even if their Speed is higher then mine.. Heres the check code
[code]
Function CanNpcMiss(ByVal index As Long, NpcNum As Long) As Boolean
Dim i As Long, n As Long
CanNpcMiss = False
If Npc(NpcNum).SPEED >= GetPlayerSPEED(index) Then
CanNpcMiss = False
Else
n = Int(Rnd * 2)
If n = 1 Then
i = Int(GetPlayerSPEED(index))
n = Int(Rnd * Npc(NpcNum).SPEED) + 1
If n
i got another question, See, I made it so that depending on the NPC's Speed and Your speed, the NPC can miss its attack on you, but 9/10 NPC attacks are missssed even if their Speed is higher then mine.. Heres the check code
[code]
Function CanNpcMiss(ByVal index As Long, NpcNum As Long) As Boolean
Dim i As Long, n As Long
CanNpcMiss = False
If Npc(NpcNum).SPEED >= GetPlayerSPEED(index) Then
CanNpcMiss = False
Else
n = Int(Rnd * 2)
If n = 1 Then
i = Int(GetPlayerSPEED(index))
n = Int(Rnd * Npc(NpcNum).SPEED) + 1
If n