nombre de item al pasar mouse

por santi55 Lun Dic 20, 2010 4:38 pm

Cliente:

Buscamos:

MapData(X, Y).ObjGrh.GrhIndex = Val(ReadField(1, Rdata, 44))

Abajo Agregan:

MapData(X, Y).ObjName = ReadField(4, Rdata, 44)

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

MapData(X, Y).ObjGrh.GrhIndex = 0

Abajo agregan:

MapData(X, Y).ObjName = ""

Buscan:

ObjGrh As Grh

Abajo agregan:

ObjName As String

Después buscan:

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:

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:

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

y lo reemplazamos por:

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

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

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

Reemplazamos por:

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:

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:

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

Saludos..