GS-Zone
Facebook Twitter

Al logear. Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

5

Nota » 05 Ene 2012 15:40

Lo que pasa es que yo logeo pepe y tengo de clan asd , logeo pepa tengo de clan asdasd , pero cuando logeo los 2 y estan que se ven entre ellos los clanes no se ven , ejemplo:

Logeo pepe : clan : x
Logeo pepa : clan : z
Si logean serca osea que se visibles unos a otros el clan del otro no se ve , osea pepe ve su clan pero no ve el clan de pepa y viceversa.

Si me dicen donde puede estar el error , yo lo arreglo pero tengo que saber donde es esta parte.

Imagen
Pentra~
Intento de Programer
301
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1124
Aportes: 10
Arriba

Nota » 05 Ene 2012 15:57

Si me desocupo un poco te ayudo, a mi me pasa lo mismo con la Vida y Maná abajo del PJ, seguro es algo del Dibujado. Porque yo lo veo en mi PJ Pero no veo el de otros y viceversa.
Cuando me desocupe te ayudo, Suerte!

Feer es mi fan, por eso me tiene en su firma jakjka
Pobrecito

Imagen
Alkair
-Rezniaq
730
Destructor de Mentes [11]
Registrado: Septiembre 2011
Ubicación: Zárate
Mensajes: 1034
Aportes: 20
Arriba

Nota » 05 Ene 2012 17:49

Em chamigo deja un foto por que no entendi un socotroco ^^

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba
#NotaEste post ha sido eliminado por Pentra~ en 07 Ene 2012 17:47.
Arriba

Nota » 07 Ene 2012 17:50

Es facil , yo logeo mi pj (tengo clan), logea otro pj (con clan) y lo miro y me mira y ninguno nos vemos los clanes del otro pero si el propio , yo me voy lejos vuelñvo y hay nos vemos pero no al logear.

Necesito ayuda aca el rendeer screen.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub RenderScreen(tilex As Integer, tiley As Integer, PixelOffsetX As Integer, PixelOffsetY As Integer)
  2. On Error Resume Next
  3.  
  4.  
  5. If UserCiego Then Exit Sub
  6.  
  7. Dim y        As Integer 'Keeps track of where on map we are
  8. Dim X        As Integer 'Keeps track of where on map we are
  9. Dim minY     As Integer 'Start Y pos on current map
  10. Dim maxY     As Integer 'End Y pos on current map
  11. Dim minX     As Integer 'Start X pos on current map
  12. Dim maxX     As Integer 'End X pos on current map
  13. Dim ScreenX  As Integer 'Keeps track of where to place tile on screen
  14. Dim ScreenY  As Integer 'Keeps track of where to place tile on screen
  15. Dim Moved    As Byte
  16. Dim Grh      As Grh     'Temp Grh for show tile and blocked
  17. Dim tempChar As Char
  18. Dim TextX    As Integer
  19. Dim TextY    As Integer
  20. Dim iPPx     As Integer 'Usado en el Layer de Chars
  21. Dim iPPy     As Integer 'Usado en el Layer de Chars
  22. Dim rSourceRect      As RECT    'Usado en el Layer 1
  23. Dim iGrhIndex        As Integer 'Usado en el Layer 1
  24. Dim PixelOffsetXTemp As Integer 'For centering grhs
  25. Dim PixelOffsetYTemp As Integer 'For centering grhs
  26. Dim nX As Integer
  27. Dim nY As Integer
  28.  
  29. 'Figure out Ends and Starts of screen
  30. ' Hardcodeado para speed!
  31. 'minY = (tiley - 15)
  32. 'maxY = (tiley + 15)
  33. 'minX = (tilex - 17)
  34. 'maxX = (tilex + 17)
  35. minY = (tiley - (WindowTileHeight \ 2)) - TileBufferSize
  36. maxY = (tiley + (WindowTileHeight \ 2)) + TileBufferSize
  37. minX = (tilex - (WindowTileWidth \ 2)) - TileBufferSize
  38. maxX = (tilex + (WindowTileWidth \ 2)) + TileBufferSize
  39.  
  40. 'Draw floor layer
  41. ScreenY = 8
  42. For y = (minY + 8) To maxY - 8
  43.     ScreenX = 8
  44.     For X = minX + 8 To maxX - 8
  45.         If X > 100 Or y < 1 Then Exit For
  46.         'Layer 1 **********************************
  47.         With MapData(X, y).Graphic(1)
  48.             If (.Started = 1) Then
  49.                 If (.SpeedCounter > 0) Then
  50.                     .SpeedCounter = .SpeedCounter - 1
  51.                     If (.SpeedCounter = 0) Then
  52.                         .SpeedCounter = GrhData(.GrhIndex).Speed
  53.                         .FrameCounter = .FrameCounter + 1
  54.                         If (.FrameCounter > GrhData(.GrhIndex).NumFrames) Then _
  55.                             .FrameCounter = 1
  56.                     End If
  57.                 End If
  58.             End If
  59.  
  60.             'Figure out what frame to draw (always 1 if not animated)
  61.             iGrhIndex = GrhData(.GrhIndex).Frames(.FrameCounter)
  62.         End With
  63.  
  64.         rSourceRect.Left = GrhData(iGrhIndex).sX
  65.         rSourceRect.Top = GrhData(iGrhIndex).sY
  66.         rSourceRect.Right = rSourceRect.Left + GrhData(iGrhIndex).pixelWidth
  67.         rSourceRect.Bottom = rSourceRect.Top + GrhData(iGrhIndex).pixelHeight
  68.  
  69.         'El width fue hardcodeado para speed!
  70.         Call BackBufferSurface.BltFast( _
  71.                 ((32 * ScreenX) - 32) + PixelOffsetX, _
  72.                 ((32 * ScreenY) - 32) + PixelOffsetY, _
  73.                 SurfaceDB.Surface(GrhData(iGrhIndex).FileNum), _
  74.                 rSourceRect, _
  75.                 DDBLTFAST_WAIT)
  76.         '******************************************
  77.         'Layer 2 **********************************
  78.         If MapData(X, y).Graphic(2).GrhIndex <> 0 Then
  79.             Call DDrawTransGrhtoSurface( _
  80.                     BackBufferSurface, _
  81.                     MapData(X, y).Graphic(2), _
  82.                     ((32 * ScreenX) - 32) + PixelOffsetX, _
  83.                     ((32 * ScreenY) - 32) + PixelOffsetY, _
  84.                     1, _
  85.                     1)
  86.         End If
  87.         '******************************************
  88.         ScreenX = ScreenX + 1
  89.     Next X
  90.     ScreenY = ScreenY + 1
  91.     If y > 100 Then Exit For
  92. Next y
  93.  
  94.  
  95. 'busco que nombre dibujar
  96. Call ConvertCPtoTP(frmMain.MainViewShp.Left, frmMain.MainViewShp.Top, frmMain.MouseX, frmMain.MouseY, nX, nY)
  97.  
  98.  
  99. 'Draw Transparent Layers  (Layer 2, 3)
  100. ScreenY = 8
  101. For y = minY + 8 To maxY - 1
  102.     ScreenX = 5
  103.     For X = minX + 5 To maxX - 5
  104.         If X > 100 Or X < -3 Then Exit For
  105.         iPPx = 32 * ScreenX - 32 + PixelOffsetX
  106.         iPPy = 32 * ScreenY - 32 + PixelOffsetY
  107.  
  108.         'Object Layer **********************************
  109.         If MapData(X, y).ObjGrh.GrhIndex <> 0 Then
  110. '            If Y > UserPos.Y Then
  111. '                Call DDrawTransGrhtoSurfaceAlpha( _
  112. '                        BackBufferSurface, _
  113. '                        MapData(X, Y).ObjGrh, _
  114. '                        iPPx, iPPy, 1, 1)
  115. '            Else
  116.                 Call DDrawTransGrhtoSurface( _
  117.                         BackBufferSurface, _
  118.                         MapData(X, y).ObjGrh, _
  119.                         iPPx, iPPy, 1, 1)
  120. '            End If
  121.         End If
  122.         '***********************************************
  123.         'Char layer ************************************
  124.         If MapData(X, y).CharIndex <> 0 Then
  125.             tempChar = charlist(MapData(X, y).CharIndex)
  126.             PixelOffsetXTemp = PixelOffsetX
  127.             PixelOffsetYTemp = PixelOffsetY
  128.  
  129.             Moved = 0
  130.             'If needed, move left and right
  131.             If tempChar.MoveOffset.X <> 0 Then
  132.                 tempChar.Body.Walk(tempChar.Heading).Started = 1
  133.                 tempChar.Arma.WeaponWalk(tempChar.Heading).Started = 1
  134.                 tempChar.Escudo.ShieldWalk(tempChar.Heading).Started = 1
  135.                 PixelOffsetXTemp = PixelOffsetXTemp + tempChar.MoveOffset.X
  136.                 tempChar.MoveOffset.X = tempChar.MoveOffset.X - (8 * Sgn(tempChar.MoveOffset.X))
  137.                 Moved = 1
  138.             End If
  139.             'If needed, move up and down
  140.             If tempChar.MoveOffset.y <> 0 Then
  141.                 tempChar.Body.Walk(tempChar.Heading).Started = 1
  142.                 tempChar.Arma.WeaponWalk(tempChar.Heading).Started = 1
  143.                 tempChar.Escudo.ShieldWalk(tempChar.Heading).Started = 1
  144.                 PixelOffsetYTemp = PixelOffsetYTemp + tempChar.MoveOffset.y
  145.                 tempChar.MoveOffset.y = tempChar.MoveOffset.y - (8 * Sgn(tempChar.MoveOffset.y))
  146.                 Moved = 1
  147.             End If
  148.             'If done moving stop animation
  149.             If Moved = 0 And tempChar.Moving = 1 Then
  150.                 tempChar.Moving = 0
  151.                 tempChar.Body.Walk(tempChar.Heading).FrameCounter = 1
  152.                 tempChar.Body.Walk(tempChar.Heading).Started = 0
  153.                 tempChar.Arma.WeaponWalk(tempChar.Heading).FrameCounter = 1
  154.                 tempChar.Arma.WeaponWalk(tempChar.Heading).Started = 0
  155.                 tempChar.Escudo.ShieldWalk(tempChar.Heading).FrameCounter = 1
  156.                 tempChar.Escudo.ShieldWalk(tempChar.Heading).Started = 0
  157.             End If
  158.            
  159.             '[ANIM ATAK]
  160.             If tempChar.Arma.WeaponAttack > 0 Then
  161.                 tempChar.Arma.WeaponAttack = tempChar.Arma.WeaponAttack - 1
  162.                 If tempChar.Arma.WeaponAttack = 0 Then
  163.                     tempChar.Arma.WeaponWalk(tempChar.Heading).Started = 0
  164.                 End If
  165.             End If
  166.             '[/ANIM ATAK]
  167.            
  168.             'Dibuja solamente players
  169.             iPPx = ((32 * ScreenX) - 32) + PixelOffsetXTemp
  170.             iPPy = ((32 * ScreenY) - 32) + PixelOffsetYTemp
  171.                 If tempChar.Head.Head(tempChar.Heading).GrhIndex <> 0 Or (UCase$(tempChar.Nombre) = UCase$(UserName) And UserNavegando = True) Then
  172.                 If Not charlist(MapData(X, y).CharIndex).invisible Or MismoClan(MapData(X, y).CharIndex) = True Or UserCharIndex = MapData(X, y).CharIndex Then
  173.                
  174. #If SeguridadAlkon Then
  175.                     If Not MI(CualMI).IsInvisible(MapData(X, y).CharIndex) Then
  176. #End If
  177.                         '[CUERPO]'
  178.                             Call DDrawTransGrhtoSurface(BackBufferSurface, tempChar.Body.Walk(tempChar.Heading), _
  179.                                     (((32 * ScreenX) - 32) + PixelOffsetXTemp), _
  180.                                     (((32 * ScreenY) - 32) + PixelOffsetYTemp), _
  181.                                     1, 1)
  182.                         '[CABEZA]'
  183.                             Call DDrawTransGrhtoSurface( _
  184.                                     BackBufferSurface, _
  185.                                     tempChar.Head.Head(tempChar.Heading), _
  186.                                     iPPx + tempChar.Body.HeadOffset.X, _
  187.                                     iPPy + tempChar.Body.HeadOffset.y, _
  188.                                     1, 0)
  189.                         '[Casco]'
  190.                             If tempChar.Casco.Head(tempChar.Heading).GrhIndex <> 0 Then
  191.                                 Call DDrawTransGrhtoSurface( _
  192.                                         BackBufferSurface, _
  193.                                         tempChar.Casco.Head(tempChar.Heading), _
  194.                                         iPPx + tempChar.Body.HeadOffset.X, _
  195.                                         iPPy + tempChar.Body.HeadOffset.y, _
  196.                                         1, 0)
  197.                             End If
  198.                         '[ARMA]'
  199.                             If tempChar.Arma.WeaponWalk(tempChar.Heading).GrhIndex <> 0 Then
  200.                                 Call DDrawTransGrhtoSurface( _
  201.                                         BackBufferSurface, _
  202.                                         tempChar.Arma.WeaponWalk(tempChar.Heading), _
  203.                                         iPPx, iPPy, 1, 1)
  204.                             End If
  205.                         '[Escudo]'
  206.                             If tempChar.Escudo.ShieldWalk(tempChar.Heading).GrhIndex <> 0 Then
  207.                                 Call DDrawTransGrhtoSurface( _
  208.                                         BackBufferSurface, _
  209.                                         tempChar.Escudo.ShieldWalk(tempChar.Heading), _
  210.                                         iPPx, iPPy, 1, 1)
  211.                             End If
  212.                    
  213.                    
  214.                              If Nombres Then
  215.                                 'ya estoy dibujando SOLO si esta visible
  216.                                 'If TempChar.invisible = False And Not MI(CualMI).IsInvisible(MapData(X, Y).CharIndex) Then
  217.                                     If tempChar.Nombre <> "" Then
  218.                                         Dim lCenter As Long
  219.                                         'Call Dialogos.DrawText(iPPx - 30, iPPy + 60, "mi:" & IIf(MI(CualMI).IsInvisible(MapData(X, Y).CharIndex), "1", "0") & " .i:" & IIf(TempChar.invisible, "1", "0") & "  X,Y:" & X & "," & Y, RGB(ColoresPJ(5).r, ColoresPJ(5).G, ColoresPJ(5).B))
  220.                                         If InStr(tempChar.Nombre, "<") > 0 And InStr(tempChar.Nombre, ">") > 0 Then
  221.                                             lCenter = (frmMain.TextWidth(Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1)) / 2) - 16
  222.                                             Dim sClan As String
  223.                                             sClan = mid(tempChar.Nombre, InStr(tempChar.Nombre, "<"))
  224.                                            
  225.                                    Select Case tempChar.priv
  226.                                             Case 0
  227.                                             Select Case tempChar.EsStatus
  228. Case 0
  229. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1), RGB(ColoresPJ(48).r, ColoresPJ(48).G, ColoresPJ(48).b))
  230. lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  231. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(48).r, ColoresPJ(48).G, ColoresPJ(48).b))
  232. Case 1
  233. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1), RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  234. lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  235. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  236. Case 2
  237. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1), RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  238. lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  239. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  240. 'Consejo
  241. Case 3
  242. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1), RGB(ColoresPJ(5).r, ColoresPJ(5).G, ColoresPJ(5).b))
  243. lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  244. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(5).r, ColoresPJ(5).G, ColoresPJ(5).b))
  245. 'Consejo caos
  246. Case 4
  247. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1), RGB(ColoresPJ(6).r, ColoresPJ(6).G, ColoresPJ(6).b))
  248. lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  249. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(6).r, ColoresPJ(6).G, ColoresPJ(6).b))
  250. End Select
  251.                                                
  252.                                             Case 25  'admin
  253.                                                     Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1), RGB(ColoresPJ(tempChar.priv).r, ColoresPJ(tempChar.priv).G, ColoresPJ(tempChar.priv).b))
  254.                                                     lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  255.                                                     Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(tempChar.priv).r, ColoresPJ(tempChar.priv).G, ColoresPJ(tempChar.priv).b))
  256.                                             Case Else 'el resto
  257.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(tempChar.Nombre, InStr(tempChar.Nombre, "<") - 1), RGB(ColoresPJ(tempChar.priv).r, ColoresPJ(tempChar.priv).G, ColoresPJ(tempChar.priv).b))
  258.                                                     lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  259.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(tempChar.priv).r, ColoresPJ(tempChar.priv).G, ColoresPJ(tempChar.priv).b))
  260.                                             End Select
  261.                                         Else
  262.                                             lCenter = (frmMain.TextWidth(tempChar.Nombre) / 2) - 16
  263. Select Case tempChar.priv
  264. Case 0
  265. Select Case tempChar.EsStatus
  266. Case 0
  267. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(ColoresPJ(48).r, ColoresPJ(48).G, ColoresPJ(48).b))
  268. Case 1
  269. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  270. Case 2
  271. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  272. 'Consejo
  273. Case 3
  274. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(ColoresPJ(5).r, ColoresPJ(5).G, ColoresPJ(5).b))
  275. 'Consejo caos
  276. Case 4
  277. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(ColoresPJ(6).r, ColoresPJ(6).G, ColoresPJ(6).b))
  278. End Select
  279. Case Else
  280. Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(ColoresPJ(tempChar.priv).r, ColoresPJ(tempChar.priv).G, ColoresPJ(tempChar.priv).b))
  281. End Select
  282.  
  283.                                         End If
  284.                                     End If
  285.                                 'End If  'enidf nI
  286.                              End If
  287. #If SeguridadAlkon Then
  288.                     Else
  289.                         Do While True
  290.                             Call MsgBox("WOAAAAA CHEATER!!! Ahora te deben estar matando de lo lindo ;)" & vbNewLine & "Aprieta OK para salir", vbCritical + vbOKOnly, ":D")
  291.                             Call MsgBox("no, mejor no salimos")
  292.                         Loop
  293.                     End If  'end if not mi.isi
  294. #End If
  295.                 End If  'end if ~in
  296.  
  297.   If tempChar.priv <> 0 Then
  298.                                     If tempChar.priv = 1 Then
  299.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(0, 185, 0))
  300.                                         lCenter = (frmMain.TextWidth("<Game Master>") / 2) - 16
  301.                                         'lCenter = Len(TempChar.nombre) * 6.5
  302.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, "<Game Master>", RGB(0, 185, 0))
  303.                                     ElseIf tempChar.priv = 2 Then
  304.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(0, 170, 190))
  305.                                         lCenter = (frmMain.TextWidth("<Game Master>") / 2) - 16
  306.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, "<Game Master>", RGB(0, 170, 190))
  307.                                     ElseIf tempChar.priv = 3 Then
  308.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(120, 250, 250))
  309.                                         lCenter = (frmMain.TextWidth("<Game Master>") / 2) - 16
  310.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, "<Game Master>", RGB(120, 250, 250))
  311.                                     ElseIf tempChar.priv = 5 Then
  312.                                             Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(250, 250, 40))
  313.                                             lCenter = (frmMain.TextWidth("<DGMS>") / 2) - 16
  314.                                             Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, "<DGMS>", RGB(250, 250, 40))
  315.                                         ElseIf tempChar.priv = 4 Then
  316.                                             Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(255, 170, 5))
  317.                                             lCenter = (frmMain.TextWidth("<CGMS>") / 2) - 16
  318.                                             Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, "<CGMS>", RGB(225, 170, 5))
  319.                                     ElseIf tempChar.priv = 6 Then
  320.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, tempChar.Nombre, RGB(255, 255, 255))
  321.                                         lCenter = (frmMain.TextWidth("<Administrador>") / 2) - 16
  322.                                         Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, "<Administrador>", RGB(255, 255, 255))
  323.                               End If
  324.                               End If
  325.  
  326.                 If Dialogos.CantidadDialogos > 0 Then
  327.                     Call Dialogos.Update_Dialog_Pos( _
  328.                             (iPPx + tempChar.Body.HeadOffset.X), _
  329.                             (iPPy + tempChar.Body.HeadOffset.y), _
  330.                             MapData(X, y).CharIndex)
  331.                 End If
  332.                
  333.                
  334.             Else '<-> If TempChar.Head.Head(TempChar.Heading).GrhIndex <> 0 Then
  335.                 If Dialogos.CantidadDialogos > 0 Then
  336.                     Call Dialogos.Update_Dialog_Pos( _
  337.                             (iPPx + tempChar.Body.HeadOffset.X), _
  338.                             (iPPy + tempChar.Body.HeadOffset.y), _
  339.                             MapData(X, y).CharIndex)
  340.                 End If
  341.  
  342.                 Call DDrawTransGrhtoSurface( _
  343.                         BackBufferSurface, _
  344.                         tempChar.Body.Walk(tempChar.Heading), _
  345.                         iPPx, iPPy, 1, 1)
  346.             End If '<-> If TempChar.Head.Head(TempChar.Heading).GrhIndex <> 0 Then
  347.  
  348.  
  349.             'Refresh charlist
  350.             charlist(MapData(X, y).CharIndex) = tempChar
  351.  
  352.             'BlitFX (TM)
  353.             If charlist(MapData(X, y).CharIndex).Fx <> 0 Then
  354. #If (ConAlfaB = 1) Then
  355.                 Call DDrawTransGrhtoSurfaceAlpha( _
  356.                         BackBufferSurface, _
  357.                         FxData(tempChar.Fx).Fx, _
  358.                         iPPx + FxData(tempChar.Fx).OffsetX, _
  359.                         iPPy + FxData(tempChar.Fx).OffsetY, _
  360.                         1, 1, MapData(X, y).CharIndex)
  361. #Else
  362.                 Call DDrawTransGrhtoSurface( _
  363.                         BackBufferSurface, _
  364.                         FxData(tempChar.Fx).Fx, _
  365.                         iPPx + FxData(tempChar.Fx).OffsetX, _
  366.                         iPPy + FxData(tempChar.Fx).OffsetY, _
  367.                         1, 1, MapData(X, y).CharIndex)
  368. #End If
  369.             End If
  370.         End If '<-> If MapData(X, Y).CharIndex <> 0 Then
  371.         '*************************************************
  372.         'Layer 3 *****************************************
  373.         If MapData(X, y).Graphic(3).GrhIndex <> 0 Then
  374.             'Draw
  375.             Call DDrawTransGrhtoSurface( _
  376.                     BackBufferSurface, _
  377.                     MapData(X, y).Graphic(3), _
  378.                     ((32 * ScreenX) - 32) + PixelOffsetX, _
  379.                     ((32 * ScreenY) - 32) + PixelOffsetY, _
  380.                     1, 1)
  381.         End If
  382.         '************************************************
  383.         ScreenX = ScreenX + 1
  384.     Next X
  385.     ScreenY = ScreenY + 1
  386.     If y >= 100 Or y < 1 Then Exit For
  387. Next y
  388.  
  389. If Not bTecho Then
  390.     'Draw blocked tiles and grid
  391.     ScreenY = 5
  392.     For y = minY + 5 To maxY - 1
  393.         ScreenX = 5
  394.         For X = minX + 5 To maxX
  395.             'Check to see if in bounds
  396.             If X < 101 And X > 0 And y < 101 And y > 0 Then
  397.                 If MapData(X, y).Graphic(4).GrhIndex <> 0 Then
  398.                     'Draw
  399.                     Call DDrawTransGrhtoSurface( _
  400.                         BackBufferSurface, _
  401.                         MapData(X, y).Graphic(4), _
  402.                         ((32 * ScreenX) - 32) + PixelOffsetX, _
  403.                         ((32 * ScreenY) - 32) + PixelOffsetY, _
  404.                         1, 1)
  405.                 End If
  406.             End If
  407.             ScreenX = ScreenX + 1
  408.         Next X
  409.         ScreenY = ScreenY + 1
  410.     Next y
  411. End If
  412.  
  413. If bLluvia(UserMap) = 1 Then
  414.     If bRain Then
  415.                 'Figure out what frame to draw
  416.                 If llTick < DirectX.TickCount - 50 Then
  417.                     iFrameIndex = iFrameIndex + 1
  418.                     If iFrameIndex > 7 Then iFrameIndex = 0
  419.                     llTick = DirectX.TickCount
  420.                 End If
  421.    
  422.                 For y = 0 To 4
  423.                     For X = 0 To 4
  424.                         Call BackBufferSurface.BltFast(LTLluvia(y), LTLluvia(X), SurfaceDB.Surface(5556), RLluvia(iFrameIndex), DDBLTFAST_SRCCOLORKEY + DDBLTFAST_WAIT)
  425.                     Next X
  426.                 Next y
  427.     End If
  428. End If
  429.  
  430.  
  431.  
  432.  
  433. Dim PP As RECT
  434.  
  435. PP.Left = 0
  436. PP.Top = 0
  437. PP.Right = WindowTileWidth * TilePixelWidth
  438. PP.Bottom = WindowTileHeight * TilePixelHeight
  439.  
  440. 'Call BackBufferSurface.BltFast(LTLluvia(0) + TilePixelWidth, LTLluvia(0) + TilePixelHeight, SurfaceDB.surface(10000), PP, DDBLTFAST_SRCCOLORKEY + DDBLTFAST_WAIT)
  441.  
  442. 'EfectoNoche BackBufferSurface
  443.  
  444. '[USELESS]:El codigo para llamar a la noche, nublado, etc.
  445. '            If bTecho Then
  446. '                Dim bbarray() As Byte, nnarray() As Byte
  447. '                Dim ddsdBB As DDSURFACEDESC2 'backbuffer
  448. '                Dim ddsdNN As DDSURFACEDESC2 'nnublado
  449. '                Dim r As RECT, r2 As RECT
  450. '                Dim retVal As Long
  451. '                '[LOCK]:BackBufferSurface
  452. '                    BackBufferSurface.GetSurfaceDesc ddsdBB
  453. '                    'BackBufferSurface.Lock r, ddsdBB, DDLOCK_NOSYSLOCK + DDLOCK_WRITEONLY + DDLOCK_WAIT, 0
  454. '                    BackBufferSurface.Lock r, ddsdBB, DDLOCK_WRITEONLY + DDLOCK_WAIT, 0
  455. '                    BackBufferSurface.GetLockedArray bbarray()
  456. ''                '[LOCK]:BBMask
  457. ''                    SurfaceXU(2).GetSurfaceDesc ddsdNN
  458. ''                    'SurfaceXU(2).Lock r2, ddsdNN, DDLOCK_READONLY + DDLOCK_NOSYSLOCK + DDLOCK_WAIT, 0
  459. ''                    SurfaceXU(2).Lock r2, ddsdNN, DDLOCK_READONLY + DDLOCK_WAIT, 0
  460. ''                    SurfaceXU(2).GetLockedArray nnarray()
  461. '                '[BLIT]'
  462. '                    'retVal = BlitNoche(bbarray(0, 0), ddsdBB.lHeight, ddsdBB.lWidth, 0)
  463. '                    'retval = BlitNublar(bbarray(0, 0), ddsdBB.lHeight, ddsdBB.lWidth)
  464. '                    'retVal = BlitNublarMMX(bbarray(0, 0), nnarray(0, 0), ddsdBB.lHeight, ddsdBB.lWidth, ddsdBB.lPitch, ddsdNN.lHeight, ddsdNN.lWidth, ddsdNN.lPitch)
  465. '                '[UNLOCK]'
  466. '                    BackBufferSurface.Unlock r
  467. '                    'SurfaceXU(2).Unlock r2
  468. '                '[END]'
  469. '                If retVal = -1 Then MsgBox "error!"
  470. '            End If
  471. '[END]'
  472. End Sub


Almenoz que me digan donde esta el problema que yo lo arreglo.

Imagen
Pentra~
Intento de Programer
301
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1124
Aportes: 10
Arriba

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados