GS-Zone
Facebook Twitter

Particulas ORE 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

9

Nota » 05 Feb 2012 19:55

Bueno tengo las particulas ore con meditacion y todo anda todo perfecto el tema es que cuando quiero compilar me tira el error de "Procedimiento Function o Sub no definido"

Esta es la parte que metira error

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.     Device_Box_Textured_Render_Advance Grh_Index, _
  3.         screen_x, screen_y, _
  4.         GrhData(Grh_Index).pixelWidth, GrhData(Grh_Index).pixelHeight, _
  5.         rgb_list, _
  6.         GrhData(Grh_Index).sX, GrhData(Grh_Index).sY, _
  7.         width, height, alpha_blend, Grh.angle
  8.  


Este es el sub completo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Grh_Render_Advance(ByRef Grh As Grh, ByVal screen_x As Integer, ByVal screen_y As Integer, ByVal height As Integer, ByVal width As Integer, ByRef rgb_list() As Long, Optional ByVal h_center As Boolean, Optional ByVal v_center As Boolean, Optional ByVal alpha_blend As Boolean = False)
  2. '**************************************************************
  3. 'Author: Juan Martín Sotuyo Dodero (juansotuyo@hotmail.com)
  4. 'Last Modify Date: 11/19/2003
  5. 'Similar to Grh_Render, but let´s you resize the Grh
  6. '**************************************************************
  7.     Dim tile_width As Integer
  8.     Dim tile_height As Integer
  9.     Dim Grh_Index As Long
  10.    
  11.     'Animation
  12.     If Grh.Started Then
  13.         Grh.FrameCounter = Grh.FrameCounter + (timerTicksPerFrame * Grh.Speed)
  14.         If Grh.FrameCounter > GrhData(Grh.grhindex).NumFrames Then
  15.             'If Grh.noloop Then
  16.             '    Grh.FrameCounter = GrhData(Grh.GrhIndex).NumFrames
  17.             'Else
  18.                 Grh.FrameCounter = 1
  19.             'End If
  20.         End If
  21.     End If
  22.    
  23.     'Figure out what frame to draw (always 1 if not animated)
  24.     If Grh.FrameCounter = 0 Then Grh.FrameCounter = 1
  25.     Grh_Index = GrhData(Grh.grhindex).Frames(Grh.FrameCounter)
  26.    
  27.     'Center Grh over X, Y pos
  28.     If GrhData(Grh.grhindex).TileWidth <> 1 Then
  29.         screen_x = screen_x - Int(GrhData(Grh.grhindex).TileWidth * (base_tile_size \ 2)) + base_tile_size \ 2
  30.     End If
  31.    
  32.     If GrhData(Grh.grhindex).TileHeight <> 1 Then
  33.         screen_y = screen_y - Int(GrhData(Grh.grhindex).TileHeight * base_tile_size) + base_tile_size
  34.     End If
  35.     Device_Box_Textured_Render_Advance Grh_Index, _
  36.         screen_x, screen_y, _
  37.         GrhData(Grh_Index).pixelWidth, GrhData(Grh_Index).pixelHeight, _
  38.         rgb_list, _
  39.         GrhData(Grh_Index).sX, GrhData(Grh_Index).sY, _
  40.         width, height, alpha_blend, Grh.angle
  41. End Sub


Porfavor necesito ayuda gracias.
Última edición por Ghytek el 05 Feb 2012 19:57, editado 2 veces en total
Ghytek
Usuario Registrado
73
Newbie [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 27
Arriba

Nota » 05 Feb 2012 19:58

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Device_Box_Textured_Render_Advance(ByVal grhindex As Long, ByVal dest_x As Integer, ByVal dest_y As Integer, ByVal src_width As Integer, _
  2.                                             ByVal src_height As Integer, ByRef rgb_list() As Long, ByVal src_x As Integer, _
  3.                                             ByVal src_y As Integer, Optional ByVal alpha_blend As Boolean, Optional ByVal angle As Single, Optional reflejoagua As Boolean = False)
  4.     Static src_rect As RECT
  5.     Static dest_rect As RECT
  6.     Static temp_verts(3) As TLVERTEX
  7.     Static d3dTextures As D3D8Textures
  8.     Static light_value(0 To 3) As Long
  9.    
  10.     If grhindex = 0 Then Exit Sub
  11.     Set d3dTextures.Texture = surfacedb.GetTexture(GrhData(grhindex).FileNum, d3dTextures.texwidth, d3dTextures.texheight)
  12.    
  13.     light_value(0) = rgb_list(0)
  14.     light_value(1) = rgb_list(1)
  15.     light_value(2) = rgb_list(2)
  16.     light_value(3) = rgb_list(3)
  17.    
  18.     If (light_value(0) = 0) Then light_value(0) = base_light
  19.     If (light_value(1) = 0) Then light_value(1) = base_light
  20.     If (light_value(2) = 0) Then light_value(2) = base_light
  21.     If (light_value(3) = 0) Then light_value(3) = base_light
  22.        
  23.     'Set up the source rectangle
  24.     With src_rect
  25.         .bottom = src_y + src_height
  26.         .left = src_x
  27.         .Right = src_x + src_width
  28.         .top = src_y
  29.     End With
  30.                
  31.     'Set up the destination rectangle
  32.     With dest_rect
  33.         .bottom = dest_y + src_height
  34.         .left = dest_x
  35.         .Right = dest_x + src_width
  36.         .top = dest_y
  37.     End With
  38.    
  39.     'Set up the TempVerts(3) vertices
  40.     Geometry_Create_Box temp_verts(), dest_rect, src_rect, light_value(), d3dTextures.texwidth, d3dTextures.texheight, angle, reflejoagua
  41.    
  42.     'Set Textures
  43.     D3DDevice.SetTexture 0, d3dTextures.Texture
  44.    
  45.     If alpha_blend Then
  46.        'Set Rendering for alphablending
  47.         D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_ONE
  48.         D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_ONE
  49.     End If
  50.    
  51.     'Draw the triangles that make up our square Textures
  52.     D3DDevice.DrawPrimitiveUP D3DPT_TRIANGLESTRIP, 2, temp_verts(0), Len(temp_verts(0))
  53.    
  54.     If alpha_blend Then
  55.         'Set Rendering for colokeying
  56.         D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_SRCALPHA
  57.         D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
  58.     End If
  59.  
  60. End Sub


fijate si no tira errores



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
686
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3546
Aportes: 40
Arriba
#NotaEste post ha sido eliminado por Ghytek en 05 Feb 2012 20:02.
Arriba

Nota » 05 Feb 2012 20:05

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.     Device_Box_Textured_Render_Advance Grh_Index, _
  3.         screen_x, screen_y, _
  4.         GrhData(Grh_Index).pixelWidth, GrhData(Grh_Index).pixelHeight, _
  5.         rgb_list, _
  6.         GrhData(Grh_Index).sX, GrhData(Grh_Index).sY, _
  7.         width, height, alpha_blend, Grh.angle
  8.  


Reemplazalo por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.     Device_Box_Textured_Render Grh_Index, _
  3.         screen_x, screen_y, _
  4.         GrhData(Grh_Index).pixelWidth, GrhData(Grh_Index).pixelHeight, _
  5.         rgb_list, _
  6.         GrhData(Grh_Index).sX, GrhData(Grh_Index).sY, _
  7.         alpha_blend, Grh.angle
  8.  
Ventu
Usuario Registrado
140
Newbie [4]
Registrado: Enero 2012
Mensajes: 104
Arriba

Nota » 05 Feb 2012 20:08

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Device_Box_Textured_Render CurrentGrhIndex, x, y, GrhData(CurrentGrhIndex).pixelWidth, GrhData(CurrentGrhIndex).pixelHeight, MapData(map_x, map_y).light_value, GrhData(CurrentGrhIndex).sX, GrhData(CurrentGrhIndex).sY, alpha, angle
me tira Procedimiento Sub o Function no definido aparte no tengo el Public Sub Device_Box_Textured_Render_Advance el mio es Public Sub Device_Box_Textured_Render igual lo remplazo y me tira eso sacando advance o dejandolo asi
Ghytek
Usuario Registrado
73
Newbie [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 27
Arriba

Nota » 05 Feb 2012 20:09

Ghytek escribió:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Device_Box_Textured_Render CurrentGrhIndex, x, y, GrhData(CurrentGrhIndex).pixelWidth, GrhData(CurrentGrhIndex).pixelHeight, MapData(map_x, map_y).light_value, GrhData(CurrentGrhIndex).sX, GrhData(CurrentGrhIndex).sY, alpha, angle
me tira Procedimiento Sub o Function no definido aparte no tengo el Public Sub Device_Box_Textured_Render_Advance el mio es Public Sub Device_Box_Textured_Render igual lo remplazo y me tira eso sacando advance o dejandolo asi


pone el sub q te pase dentro de la clase del engine ¬¬
Este mensaje ha obtenido 5 Monedas de Oro.




Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
686
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3546
Aportes: 40
Arriba

Nota » 05 Feb 2012 20:11

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub General_Var_Write(ByVal file As String, ByVal Main As String, ByVal var As String, ByVal value As String)
  2. '*****************************************************************
  3. 'Author: Aaron Perkins
  4. 'Last Modify Date: 10/07/2002
  5. 'Writes a var to a text file
  6. '*****************************************************************
  7.     writeprivateprofilestring Main, var, value, file
  8. End Sub
Me tira error aca poniendo el sub qe me pasaste vos
Ghytek
Usuario Registrado
73
Newbie [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 27
Arriba

Nota » 05 Feb 2012 20:15

Ghytek escribió:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub General_Var_Write(ByVal file As String, ByVal Main As String, ByVal var As String, ByVal value As String)
  2. '*****************************************************************
  3. 'Author: Aaron Perkins
  4. 'Last Modify Date: 10/07/2002
  5. 'Writes a var to a text file
  6. '*****************************************************************
  7.     writeprivateprofilestring Main, var, value, file
  8. End Sub
Me tira error aca poniendo el sub qe me pasaste vos


eso es problema tuyo, si te fijas ese sub nunca hace una llamada a esa cosa



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
686
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3546
Aportes: 40
Arriba

Nota » 05 Feb 2012 20:24

Solucionado Muchas gracias :)
Ghytek
Usuario Registrado
73
Newbie [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 27
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