Buenas he visto este post
comando_hogar_t3n4.html

Es de otra version , me lo pegue en el codigo de iao clon y me salio el error en :

Private Sub HanDleHogar(ByVal UserIndex As Integer)
With UserList(UserIndex)
Call .incomingData.ReadByte
If Not UserList(UserIndex).flags.Muerto = 1 Then
Call WriteConsoleMsg( UserIndex, "¡Solo podes usar este comando estando muerto!", FontTypeNames.FONTTYPE_INFO)
Exit Sub
Else
Call WarpUserChar( UserIndex, 1, 60, 60)
Call WriteConsoleMsg( UserIndex, "Has sido transportado a la ciudad", FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
End With
End Sub

y no podia crear el EXE , tonces busque en el demas codigo y vi que antes de writeconsolemsg, siempre salia un 1
y puse asi y ya me dejo crear el EXE :

Private Sub HanDleHogar(ByVal UserIndex As Integer)
With UserList(UserIndex)
Call .incomingData.ReadByte
If Not UserList(UserIndex).flags.Muerto = 1 Then
Call WriteConsoleMsg(1, UserIndex, "¡Solo podes usar este comando estando muerto!", FontTypeNames.FONTTYPE_INFO)
Exit Sub
Else
Call WarpUserChar(1, UserIndex, 1, 60, 60)
Call WriteConsoleMsg(1, UserIndex, "Has sido transportado a la ciudad", FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
End With
End Sub


En el cliente todo bien, hizo el EXE a la primera, pero... ingame , me deje morir para probar y cuando puse /HOGAR se me salio del juego....
entre y.. me tiro error, Fuera del indice o algo asi.. y ahora me sale asi el pj...

Inicia el cliente en modo desbug y postea lo que te marca

Call WarpUserChar( UserIndex, 1, 60, 60,true)

Call WriteConsoleMsg(UserIndex, "Has sido transportado a la ciudad", & FONTTYPE_INFO)

creo que era asi en 11.5

sa era con mapa 1 50 50 xd

joo no veo forma de arreglar esto

Dark Shadow escribió:Call WarpUserChar( UserIndex, 1, 60, 60,true)

Call WriteConsoleMsg(UserIndex, "Has sido transportado a la ciudad", & FONTTYPE_INFO)

creo que era asi en 11.5

Pero iao clon es 12.3

Mmm fijate en los logs si te salta algun error y fijate si acomodaste bien los paquetes

aver jaja proba asi:
Private Sub HanDleHogar(ByVal UserIndex As Integer)
With UserList(UserIndex)
Call .incomingData.ReadByte
If UserList(UserIndex).flags.Muerto = 0 Then
Call WriteConsoleMsg(userindex, UserIndex, "¡Solo podes usar este comando estando muerto!", FontTypeNames.FONTTYPE_INFO)
Exit Sub
end if

Call WarpUserChar(userindex, UserIndex, 1, 60, 60)
Call WriteConsoleMsg(userindex, UserIndex, "Has sido transportado a la ciudad", FontTypeNames.FONTTYPE_INFO)
End With
End Sub