[Resolvido] Erro ao abrir o jogo pelo vb

por Sogimar Junior Qua 24 Jul 2013, 12:35

Título: Erro ao abrir o jogo pelo vb

Engine: Eclipse Origins

Versão da Engine: 2.5

Dúvida: O título diz tudo
img:

[Resolvido] Erro ao abrir o jogo pelo vb KL8rBFw

[Resolvido] Erro ao abrir o jogo pelo vb KL8rBFw

-SUB:

Sub BltFace()
Dim rec As RECT, rec_pos As RECT, faceNum As Long

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

If NumFaces = 0 Then Exit Sub

frmMain.picFace.Cls

faceNum = GetPlayerSprite(MyIndex)

If faceNum <= 0 Or faceNum > NumFaces Then Exit Sub

With rec
.top = 0
.Bottom = 100
.Left = 0
.Right = 100
End With

With rec_pos
.top = 0
.Bottom = 100
.Left = 0
.Right = 100
End With

' Load face if not loaded, and reset timer
FaceTimer(faceNum) = GetTickCount + SurfaceTimerMax

If DDS_Face(faceNum) Is Nothing Then
Call InitDDSurf("Faces\" & faceNum, DDSD_Face(faceNum), DDS_Face(faceNum))
End If

Engine_BltToDC DDS_Face(faceNum), rec, rec_pos, frmMain.picFace, False

' Error handler
Exit Sub
errorhandler:
HandleError "BltFace", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Valeu até a próxima.

por AlexsandroUchiha Qua 24 Jul 2013, 12:38

Acho que esta faltando a picface

por Sogimar Junior Qua 24 Jul 2013, 12:40

essa sub?:

Sub BltFace()

por AlexsandroUchiha Qua 24 Jul 2013, 12:43

Sogimar Junior escreveu:essa sub?:

Sub BltFace()

Sim

por Sogimar Junior Qua 24 Jul 2013, 12:54

...arrumei já, valeu. +1

por Cris~ Qua 24 Jul 2013, 16:18

Tópico resolvido, trancado & movido para sua área correspondente.

por Conteúdo patrocinado

[Resolvido] Erro ao abrir o jogo pelo vb

[Resolvido] Erro ao abrir o jogo pelo vb

Re: [Resolvido] Erro ao abrir o jogo pelo vb

Re: [Resolvido] Erro ao abrir o jogo pelo vb

Re: [Resolvido] Erro ao abrir o jogo pelo vb

Re: [Resolvido] Erro ao abrir o jogo pelo vb

Re: [Resolvido] Erro ao abrir o jogo pelo vb

Re: [Resolvido] Erro ao abrir o jogo pelo vb