ÍndiceCalendarioFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Afiliados

Comparte | 
 

 Nombre del Items Al pasar el mouse [AO 11.5 / Twist]

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
GoldFish
aficionado
aficionado


Mensajes : 72

MensajeTema: Nombre del Items Al pasar el mouse [AO 11.5 / Twist]   Mar Dic 21 2010, 16:34

Al pasar el mouse sobre el item dice el nombre [AO 11.5 / Twist]


Cliente:

Buscamos:



Código:
MapData(X, Y).ObjGrh.GrhIndex = Val(ReadField(1, Rdata, 44))



Abajo Agregan:



Código:
MapData(X, Y).ObjName = ReadField(4, Rdata, 44)



Luego buscamos (Atención, esto está 2 veces):



Código:
MapData(X, Y).ObjGrh.GrhIndex = 0


Abajo agregan:



Código:
MapData(X, Y).ObjName = ""



Buscan:



Código:
ObjGrh As Grh



Abajo agregan:



Código:
ObjName As String



Después buscan:



Código:
If MapData(X, Y).Graphic(3).GrhIndex <> 0 Then
'Draw
Call DDrawTransGrhtoSurface( _
BackBufferSurface, _
MapData(X, Y).Graphic(3), _
((32 * ScreenX) - 32) + PixelOffsetX, _
((32 * ScreenY) - 32) + PixelOffsetY, _
1, 1)
End If



y abajo agregan:



Código:
If Abs(nX - X) < 1 And (Abs(nY - Y)) < 1 Then
If MapData(X, Y).ObjGrh.GrhIndex <> 0 Then
Dialogos.DrawText frmMain.MouseX + 270, frmMain.MouseY + 260, MapData(X, Y).ObjName, vbWhite
End If
End If



Ahora el servidor:

Buscamos:


Código:
Call SendData(SendTarget.ToIndex, UserIndex, 0, "HO" & ObjData(TempInt).GrhIndex & "," & X & "," & Y)



y lo reemplazamos por:



Código:
Call SendData(SendTarget.ToIndex, Userindex, 0, "HO" & ObjData(TempInt).GrhIndex & "," & X & "," & Y & "," & ObjData(TempInt).name)



Buscamos (Atención, esto está 2 veces):



Código:
Call ModAreas.SendToAreaByPos(Map, X, Y, "HO" & ObjData(MapData(Map, X, Y).OBJInfo.ObjIndex).GrhIndex & "," & X & "," & Y)



Reemplazamos por:



Código:
Call ModAreas.SendToAreaByPos(Map, X, Y, "HO" & ObjData(MapData(Map, X, Y).OBJInfo.ObjIndex).GrhIndex & "," & X & "," & Y & "," & ObjData(MapData(Map, X, Y).OBJInfo.ObjIndex).name)



Buscamos:



Código:
If sndRoute = SendTarget.ToMap Then
Call ModAreas.SendToAreaByPos(Map, X, Y, "HO" & ObjData(Obj.ObjIndex).GrhIndex & "," & X & "," & Y)
Else
Call SendData(sndRoute, sndIndex, sndMap, "HO" & ObjData(Obj.ObjIndex).GrhIndex & "," & X & "," & Y)
End If


Reemplazamos por:



Código:
If sndRoute = SendTarget.ToMap Then
Call ModAreas.SendToAreaByPos(Map, X, Y, "HO" & ObjData(Obj.ObjIndex).GrhIndex & "," & X & "," & Y & "," & ObjData(Obj.ObjIndex).name)
Else
Call SendData(sndRoute, sndIndex, sndMap, "HO" & ObjData(Obj.ObjIndex).GrhIndex & "," & X & "," & Y & "," & ObjData(Obj.ObjIndex).name)
End If


Espero que les sirva

Attm...
GoldFish
Volver arriba Ir abajo
Ver perfil de usuario
 
Nombre del Items Al pasar el mouse [AO 11.5 / Twist]
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Como se puede cambiarse mi nombre en el foro.
» Se puede cambiar el nombre del archivo?
» Nombre de vuestros piggies
» Pasar la ITV
» Se pueden pasar armas, armaduras y objetos del modo online al offline?

Permisos de este foro:No puedes responder a temas en este foro.
 :: Caja de trabajo :: Programacion-
Cambiar a: