Problema pantalla titila 11.5 dx7

Ir abajo

Problema pantalla titila 11.5 dx7

Mensaje por aprilia115 el 26/4/2018, 10:14 am

Buenas tengo el 11.5 dx7 le e puesto el dmperpixels ese a 32 y ya no titila pero es que los graficos estan corridos, por ejemplo le tiro dardo magico a un bicho y el grafico del hechizo esta al final de la pantalla en esta direccion <------------ no se si me explico, es que es raro de explicarlo alguna solucion porfavor?

aprilia115
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 33
Localización : valencia
Fecha de inscripción : 17/04/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Problema pantalla titila 11.5 dx7

Mensaje por Lekasak el 17/5/2018, 5:33 pm

Hola! No recuerdo mucho de los codigos del juego pero ese cambio del dmperpixels debe estar mal ingresado y te esta corriendo la renderizacion de los hechizos en el screen. Mi consejo es que no toques nada del render si no tenes muy en claro como funciona, si tenes un backup al momento anterior de poner ese código no dudes en volver a eso. Sino una solución a modo de "parche" podría ser usar un render de algún código de fps libres, capaz que tenes suerte y te acomoda la imagen (puede salir mal)
avatar
Lekasak
Nivel 32
Nivel 32

¿BANEADO? : No.
Premios :
[1º Puesto] ¿Cuanto sabés del foro?.


Miembro honorario
Cantidad de envíos : 5639
Edad : 20
Localización : villa maipu
Fecha de inscripción : 02/02/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Problema pantalla titila 11.5 dx7

Mensaje por BenjaXZ el 17/5/2018, 7:43 pm

Trata de usar un cambio de resolución.
avatar
BenjaXZ
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 439
Localización : Dolores
Fecha de inscripción : 29/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: Problema pantalla titila 11.5 dx7

Mensaje por aprilia115 el 18/5/2018, 1:35 pm

buenas, tengo que poner el dmbitsper ese a 32 por k si no los formularios los veo a mitad, no los veo completo y si pongo alphablending los arboles se mueven y los techos tambien.
Pero weno de todas formas cerrar el aporte o eliminarlo. Ya me hice un 13.0 y ya esta muy avanzado. Gracias de todas formas por responderme.

aprilia115
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 33
Localización : valencia
Fecha de inscripción : 17/04/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Problema pantalla titila 11.5 dx7

Mensaje por BenjaXZ el 18/5/2018, 11:38 pm

Proba remplazando el modulo Resolution.bas por este:
Código:
'**************************************************************
' Resolution.bas - Performs resolution changes.
'
' Designed and implemented by Juan Martín Sotuyo Dodero (Maraxus)
' ([email=juansotuyo@gmail.com]juansotuyo@gmail.com[/email])
'**************************************************************
 
'**************************************************************************
'This program is free software; you can redistribute it and/or modify
'it under the terms of the Affero General Public License;
'either version 1 of the License, or any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'Affero General Public License for more details.
'
'You should have received a copy of the Affero General Public License
'along with this program; if not, you can find it at [url=http://www.affero.org/oagpl.html]http://www.affero.org/oagpl.html[/url]
'**************************************************************************
 
''
'Handles all incoming / outgoing packets for client - server communications
'The binary prtocol here used was designed by Juan Martín Sotuyo Dodero.
'This is the first time it's used in Alkon, though the second time it's coded.
'This implementation has several enhacements from the first design.
'
' @file     Resolution.bas
' @author   Juan Martín Sotuyo Dodero (Maraxus) [email=juansotuyo@gmail.com]juansotuyo@gmail.com[/email]
' @version  1.1.0
' @date     20080329
 
'**************************************************************************
' - HISTORY
'       v1.0.0  -   Initial release ( 2007/08/14 - Juan Martín Sotuyo Dodero )
'       v1.1.0  -   Made it reset original depth and frequency at exit ( 2008/03/29 - Juan Martín Sotuyo Dodero )
'**************************************************************************
 
Option Explicit
 
Private Const CCDEVICENAME As Long = 32
Private Const CCFORMNAME As Long = 32
Private Const DM_BITSPERPEL As Long = &H40000
Private Const DM_PELSWIDTH As Long = &H80000
Private Const DM_PELSHEIGHT As Long = &H100000
Private Const DM_DISPLAYFREQUENCY As Long = &H400000
Private Const CDS_TEST As Long = &H4
Private Const ENUM_CURRENT_SETTINGS As Long = -1
 
Private Type typDevMODE
    dmDeviceName       As String * CCDEVICENAME
    dmSpecVersion      As Integer
    dmDriverVersion    As Integer
    dmSize             As Integer
    dmDriverExtra      As Integer
    dmFields           As Long
    dmOrientation      As Integer
    dmPaperSize        As Integer
    dmPaperLength      As Integer
    dmPaperWidth       As Integer
    dmScale            As Integer
    dmCopies           As Integer
    dmDefaultSource    As Integer
    dmPrintQuality     As Integer
    dmColor            As Integer
    dmDuplex           As Integer
    dmYResolution      As Integer
    dmTTOption         As Integer
    dmCollate          As Integer
    dmFormName         As String * CCFORMNAME
    dmUnusedPadding    As Integer
    dmBitsPerPel       As Integer
    dmPelsWidth        As Long
    dmPelsHeight       As Long
    dmDisplayFlags     As Long
    dmDisplayFrequency As Long
End Type
 
Private oldResHeight As Long
Private oldResWidth As Long
Private oldDepth As Integer
Private oldFrequency As Long
Private bNoResChange As Boolean
 
 
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
 
 
'TODO : Change this to not depend on any external public variable using args instead!
 
Public Sub SetResolution()
'***************************************************
'Autor: Unknown
'Last Modification: 03/29/08
'Changes the display resolution if needed.
'Last Modified By: Juan Martín Sotuyo Dodero (Maraxus)
' 03/29/2008: Maraxus - Retrieves current settings storing display depth and frequency for proper restoration.
'***************************************************
    Dim lRes As Long
    Dim MidevM As typDevMODE
    Dim CambiarResolucion As Boolean
  
 
lRes = EnumDisplaySettings(0, 0, MidevM)
  
Dim intWidth As Integer
Dim intHeight As Integer
 
oldResWidth = Screen.Width \ Screen.TwipsPerPixelX
oldResHeight = Screen.Height \ Screen.TwipsPerPixelY
 
If oldResWidth <> 800 Or oldResHeight <> 600 Then
    If MsgBox("¿Quieres Cambiar la Resolucion a 800 x 600 o desea mantenerla en la Actual?", vbYesNo, "Resolución") = vbYes Then
        bNoResChange = True
'        frmMain.Height = 9400
        With MidevM
            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
            .dmPelsWidth = 800
            .dmPelsHeight = 600
'            .dmBitsPerPel = 16
        End With
       lRes = ChangeDisplaySettings(MidevM, CDS_TEST)
    Else
'        frmMain.Height = 8550
        bNoResChange = False
    End If
End If
  
    If CambiarResolucion Then
      
        With MidevM
            oldDepth = .dmBitsPerPel
            oldFrequency = .dmDisplayFrequency
          
            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
            .dmPelsWidth = 800
            .dmPelsHeight = 600
            .dmBitsPerPel = 16
        End With
      
        lRes = ChangeDisplaySettings(MidevM, CDS_TEST)
    Else
        bNoResChange = True
    End If
End Sub
 
Public Sub ResetResolution()
'***************************************************
'Autor: Unknown
'Last Modification: 03/29/08
'Changes the display resolution if needed.
'Last Modified By: Juan Martín Sotuyo Dodero (Maraxus)
' 03/29/2008: Maraxus - Properly restores display depth and frequency.
'***************************************************
    Dim typDevM As typDevMODE
    Dim lRes As Long
  
    If Not bNoResChange Then
  
        lRes = EnumDisplaySettings(0, ENUM_CURRENT_SETTINGS, typDevM)
      
        With typDevM
            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL Or DM_DISPLAYFREQUENCY
            .dmPelsWidth = oldResWidth
            .dmPelsHeight = oldResHeight
            .dmBitsPerPel = oldDepth
            .dmDisplayFrequency = oldFrequency
        End With
      
        lRes = ChangeDisplaySettings(typDevM, CDS_TEST)
    End If
End Sub
o de última pasate por acá:
http://www.gs-zone.org/temas/cambiar-el-modo-en-que-cambia-la-resolucion.34662/
avatar
BenjaXZ
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 439
Localización : Dolores
Fecha de inscripción : 29/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: Problema pantalla titila 11.5 dx7

Mensaje por aprilia115 el 20/5/2018, 6:29 am

nada no me funciona ni uno ni el otro. Solo me funciona con alphablending el revival ao dark dawn y lo tengo el dmbitsperpixels a 16 cosa k con ningun ao me funciona bien, solo revival ao dark dawn.

aprilia115
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 33
Localización : valencia
Fecha de inscripción : 17/04/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Problema pantalla titila 11.5 dx7

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.