GS-Zone

Al iniciar Ir al Indice

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

16

Nota » 21 Ene 2012 18:23

Que tal bueno, ahora estoy con iao clon ^^ bueno lo que yo queria saver si hay algùn tipo de forma para iniciar el sv, porque cuando lo inicias, pide tipo de inicio (mixto, hardware,etc) pero como lo quiero poner on y que alguien abra eso y le pida tipo de arranque qeda cualquiera xd. Si cierro esa ventana osea saco ese msg me tira error de utomatizaciòn.

"Erro 91 en tiempo de ejecucion, la variable objet, etc, etc, etc"

Y marca:


Despues:
  1. D3DDevice.SetRenderState D3DRS_LIGHTING, False


Y asì con muchas lineas, pero si las comantas terminas bugueaando todo el DX8, o que no arranque...

Bueno, espero que me sepan ayudar porque la verdad que de dx8 no sè nada y si me pongo a tocar porai termine haciendo una terrible cagad1 en el sv xD

Suerte y saludos!
Usuario Registrado
45
Newbie [2]
Registrado: Agosto 2011
Mensajes: 65

Nota » 22 Ene 2012 09:34

Deja eso trankilo hay ¬¬ Es para elegir la carga tenes que poner si 1 o 2 o 3

o si no en el cliente busca que inicio de mierda queres

y postealo aca o deja solo la linea de hardware

Imagen
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13

Nota » 22 Ene 2012 12:33

Pero yo pregunto algo no se podria cambiar de otro lado porque que a alguien le salga eso siempre queda re mal, a mi me gustaria que por lo menos lo pueda elejir del launcher con unos ckecsbox, intenté pero me tira esos errores de automatización

PD: Aí posteo la linea lo que pasa que mi viejo me agarro la compu donde tengo todo :P
Usuario Registrado
10
Newbie [1]
Registrado: Septiembre 2011
Mensajes: 8

Nota » 22 Ene 2012 12:45

iniciar_engine_por_hardware_software_o_mixto_tgp4.html

Off y a tu viejo mataloooooooo
Como te va a quitar la pc ¬¬

Imagen
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13

Nota » 22 Ene 2012 12:58

Jjajaja, mira ai lo convencí y me dejo :P

Acá lo tengo:
  1. Dim eligen As Byte
  2.     eligen = CByte(Val(InputBox("Que inicio de mierda quieren?. 1: Hardware | 2: Mixed | 3: Software")))
  3.     Call Engine.Init(eligen)
  4.  
  5.     'Modos de iniciar
  6.     'Call Engine.Init(1)
  7.     'If Not Engine.bRunning Then
  8.     '    Call Engine.Init(2)
  9.     'End If
  10.     'If Not Engine.bRunning Then
  11.     '    Call Engine.Init(3)
  12.     'End If
  13.     'Modos de iniciar


Lo que está comentado, es porque ya vino comentado. Y si lo toco tira esos errores de automatización xD

Saludos!
Usuario Registrado
10
Newbie [1]
Registrado: Septiembre 2011
Mensajes: 8

Nota » 22 Ene 2012 13:10

Busca el sub Init posteamelo aqui chamigo

Imagen
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13

#NotaEste post ha sido eliminado por bERKLEY en 22 Ene 2012 14:37.

Nota » 22 Ene 2012 14:40

Pera, pera me sigue tirando errores.--.-..--. al iniciar todo bn pero dps tira errores:


Y un par de lineas del Public Sub Char_Clean()+

Despues de public render ()


Y si las comento no me anda el ao queda la pantalla en negro...

Y el sub que vos me pediste:
  1. Public Sub Init(ByVal eleccion As Byte)
  2.     Dim DispMode As D3DDISPLAYMODE
  3.     Dim DispModeBK As D3DDISPLAYMODE
  4.     Dim D3DWindow As D3DPRESENT_PARAMETERS
  5.     Dim eleccion As String
  6.     Dim SWidth As Long
  7.     Dim SHeight As Long
  8.     Dim TEXSIZE As Long
  9.    
  10.     Set SurfaceDB = New clsTexManager
  11.    
  12.     Set dX = New DirectX8
  13.     Set D3D = dX.Direct3DCreate()
  14.     Set D3DX = New D3DX8
  15.  
  16.     AmbientColor.r = 200
  17.     AmbientColor.g = 200
  18.     AmbientColor.b = 200
  19.     AmbientColor.a = 255
  20.    
  21.     D3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, DispMode
  22.     D3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, DispModeBK
  23.    
  24.     With D3DWindow
  25.         .Windowed = True
  26.         .SwapEffect = D3DSWAPEFFECT_COPY
  27.         .BackBufferFormat = DispMode.Format
  28.         .BackBufferWidth = frmMain.MainViewPic.ScaleWidth
  29.         .BackBufferHeight = frmMain.MainViewPic.ScaleHeight
  30.         .EnableAutoDepthStencil = 1
  31.         .AutoDepthStencilFormat = D3DFMT_D16
  32.         .hDeviceWindow = frmMain.MainViewPic.hWnd
  33.     End With
  34.    
  35.     eleccion = GetVar(App.Path & "\Init\Iniciar.dat", "Init", "iniciar")
  36.     If eleccion = "Software" Then
  37.         Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.renderer.hWnd, D3DCREATE_SOFTWARE_VERTEXPROCESSING, _
  38.                                                                 D3DWindow)
  39.     ElseIf eleccion = "Hardware" Then
  40.         Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.renderer.hWnd, D3DCREATE_HARDWARE_VERTEXPROCESSING, _
  41.                                                                 D3DWindow)
  42.     ElseIf eleccion = "Mixto" Then
  43.         Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.renderer.hWnd, D3DCREATE_MIXED_VERTEXPROCESSING, _
  44.                                                                 D3DWindow)
  45.     End If
  46.                                                                                                
  47.     HalfWindowTileHeight = 6
  48.     HalfWindowTileWidth = 8
  49.     UserMap = 1
  50.    
  51.     D3DDevice.SetVertexShader FVF
  52.    
  53.     D3DDevice.SetRenderState D3DRS_LIGHTING, False
  54.    
  55.     D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_SRCALPHA
  56.     D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
  57.     D3DDevice.SetRenderState D3DRS_ALPHABLENDENABLE, True
  58.    
  59.     Call SurfaceDB.Init(D3DX, D3DDevice, General_Get_Free_Ram_Bytes)
  60.  
  61.     engineBaseSpeed = 0.018
  62.    
  63.     ReDim MapData(XMinMapSize To XMaxMapSize, YMinMapSize To YMaxMapSize) As MapBlock
  64.  
  65.     UserPos.x = 50
  66.     UserPos.y = 50
  67.    
  68.     Call Engine_Font_Initialize
  69.    
  70.     MinXBorder = XMinMapSize + (frmMain.MainViewPic.ScaleWidth / 64)
  71.     MaxXBorder = XMaxMapSize - (frmMain.MainViewPic.ScaleWidth / 64)
  72.     MinYBorder = YMinMapSize + (frmMain.MainViewPic.ScaleHeight / 64)
  73.     MaxYBorder = YMaxMapSize - (frmMain.MainViewPic.ScaleHeight / 64)
  74.    
  75.     'Partículas
  76.     D3DDevice.SetRenderState D3DRS_POINTSIZE, FToDW(2)
  77.     D3DDevice.SetTextureStageState 0, D3DTSS_ALPHAOP, D3DTOP_MODULATE
  78.     D3DDevice.SetRenderState D3DRS_POINTSPRITE_ENABLE, 1
  79.     D3DDevice.SetRenderState D3DRS_POINTSCALE_ENABLE, 0
  80.        
  81.     bRunning = True
  82. End Sub
Usuario Registrado
45
Newbie [2]
Registrado: Agosto 2011
Mensajes: 65

Nota » 22 Ene 2012 14:51

  1. eleccion = GetVar(App.Path & "\Init\Iniciar.dat", "Init", "iniciar")
  2.     If eleccion = "Software" Then
  3.         Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.renderer.hWnd, D3DCREATE_SOFTWARE_VERTEXPROCESSING, _
  4.                                                                 D3DWindow)
  5.     ElseIf eleccion = "Hardware" Then
  6.         Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.renderer.hWnd, D3DCREATE_HARDWARE_VERTEXPROCESSING, _
  7.                                                                 D3DWindow)
  8.     ElseIf eleccion = "Mixto" Then
  9.         Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.renderer.hWnd, D3DCREATE_MIXED_VERTEXPROCESSING, _
  10.                                                                 D3DWindow)
  11.     End If


Por
  1. Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.renderer.hWnd, D3DCREATE_HARDWARE_VERTEXPROCESSING,D3DWindow

Imagen
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13

Nota » 22 Ene 2012 15:06

Me sigue tirando lo mismo, primero:


despues
  1. If MapData(x, y).ObjGrh.grhindex Then

Despues


Despues la varia tipo objet o write no està establecida y marca(Sub Render)

Despues
  1. D3DDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET Or D3DCLEAR_ZBUFFER, 1#, 1#, 0


Y asì con varias cosas y terminas borrando todo el engine ¬¬
Usuario Registrado
45
Newbie [2]
Registrado: Agosto 2011
Mensajes: 65

Nota » 22 Ene 2012 15:09

Y por que no tenes que borrar nada flaco decirme que te salta en la primera linea

Imagen
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13

Nota » 22 Ene 2012 16:06

El subindice esta fuera del intervalo y marca:



Y lo mismo en las primeras 3 lineas
Usuario Registrado
45
Newbie [2]
Registrado: Agosto 2011
Mensajes: 65

Nota » 22 Ene 2012 16:07

Pasa el mause por ensima de esa linea cuando te salte el error y te va a decir un numero decimelo

Imagen
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13

Nota » 22 Ene 2012 16:15

Eso de error 9 de tiempo de ejecucion? Osea inicia bien pero el tema es al loguear con el pj ai empieza a cagarse
Usuario Registrado
45
Newbie [2]
Registrado: Agosto 2011
Mensajes: 65

Nota » 22 Ene 2012 16:28

Inicia el cliente en modo debug para eso (ctrl+F5)

Imagen
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13

Siguiente

Volver a Otras versiones

¿Quién está conectado?

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