Erro no movimento npc...

por maykel Qua 01 Dez 2010, 16:59

olá a todos, eu estava aqui desenvolvendo um sistema de
quando clicar no player, aparecesse uma janela com informações sobre o player
selecionado, porém, quando eu terminei começou a acusar

Código:
Run Time Error = 9 Subcript of Range

nesta Parte:

Código:
' Process npc movements (actually move them) For I = 1 To MAX_MAP_NPCS If Map(GetPlayerMap(MyIndex)).Npc(I) > 0 Then Call ProcessNpcMovement(I) End If Next I

Exatamente na linha:

Código:
If Map(GetPlayerMap(MyIndex)).Npc(I) > 0 Then

Vou postar abaixo o meu código da Packet do meu sistema, para vocês verem como não há nada relacionado com este erro:
Client:

Código:
' :::::::::::::::::::::::::::::::::: ' :: Info PLayer Packet :: ' :::::::::::::::::::::::::::::::::: If Parse(0) = "infoplayer" Then I = Val(Parse(6)) For x = 1 To MAX_INV If GetPlayerInvItemNum(MyIndex, x) = 3 Then frmMirage.picInfoPlayer.Visible = True frmMirage.lblNamePlayer.Caption = Parse(1) frmMirage.lblPdlP.Caption = Parse(2) frmMirage.lblLevelP.Caption = Parse(3) frmMirage.lblGuildP.Caption = Parse(4) frmMirage.lblKillP.Caption = Parse(5) If I = 0 Then frmMirage.lblVipP.Caption = "Membro Free" Else frmMirage.lblVipP.Caption = "Membro Vip" End If Exit Sub Else Call SendMsgElse(MyIndex) Exit Sub End If Next End If Exit Sub

Servidor:

Código:
Sub SendInfoPlayer(ByVal Index As Long, ByVal name As String, ByVal Pdl As Long, ByVal Level As String, ByVal Guild As Long, ByVal Pk As String, ByVal Vip As String) Dim Packet As String Packet = "INFOPLAYER" & SEP_CHAR & name & SEP_CHAR & Pdl & SEP_CHAR & Level & SEP_CHAR & Guild & SEP_CHAR & Pk & SEP_CHAR & Vip & END_CHAR Call SendDataTo(Packet) Exit Sub End Sub

Parte do servidor na qual eu chamo a sub criada:

Código:
' Change target Player(Index).Target = i Player(Index).TargetType = TARGET_TYPE_PLAYER N = (GetPlayerstr(i) + GetPlayerDEF(i) + GetPlayerSPEED(i) + GetPlayerMAGI(i)) Call SendInfoPlayer(Index, GetPlayerName(i), N, GetPlayerLevel(i), GetPlayerGuild(i), GetPlayerPK(i), GetPlayerAccess(i)) Call PlayerMsg(Index, "Seu alvo agora é " & GetPlayerName(i) & ".", Red) If (GetPlayerstr(Index) + GetPlayerDEF(Index) + GetPlayerSPEED(Index) + GetPlayerMAGI(Index)) < N Then Call PlayerMsg(Index, "Cuidado, ele é mais forte que você!", BrightRed) Else Call PlayerMsg(Index, "Fique Tranquilo, Você é mais forte que ele!", White) End If End If

Eu a chamo ali na linha:

Código:
Call SendInfoPlayer(Index, GetPlayerName(i), N, GetPlayerLevel(i), GetPlayerGuild(i), GetPlayerPK(i), GetPlayerAccess(i))

Agora alguém pode me dizer o que está causando o erro???