GoldFish aficionado
Mensajes : 72
| Tema: 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 | |
|