Alenaldo Membro
Mensagens : 38 Moeda : 104 Pontos : 4 Data de inscrição : 05/01/2013 Idade : 31 Localização : São luis MA
| Assunto: Corrigindo bug simples da sprite no npc no editor de npc Seg Jan 14, 2013 9:03 am | |
| Client~Side Procure pela Public Sub EditorNpc_BltSprite() e mude ela toda para: CÓDIGO: - Código:
-
Public Sub EditorNpc_BltSprite() Dim Sprite As Long Dim sRECT As DxVBLib.RECT Dim dRECT As DxVBLib.RECT Dim width As Long, height As Long
' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler
Sprite = frmEditor_NPC.scrlSprite.Value If Sprite < 1 Or Sprite > NumCharacters Then frmEditor_NPC.picSprite.Cls Exit Sub End If CharacterTimer(Sprite) = GetTickCount + SurfaceTimerMax
If DDS_Character(Sprite) Is Nothing Then Call InitDDSurf("Characters\" & Sprite, DDSD_Character(Sprite), DDS_Character(Sprite)) End If width = DDSD_Character(Sprite).lWidth / 4 height = DDSD_Character(Sprite).lHeight / 4 sRECT.top = 0 sRECT.Bottom = sRECT.top + height sRECT.Left = 0 sRECT.Right = sRECT.Left + width dRECT.top = 0 dRECT.Bottom = height dRECT.Left = 0 dRECT.Right = width Call Engine_BltToDC(DDS_Character(Sprite), sRECT, dRECT, frmEditor_NPC.picSprite) ' Error handler Exit Sub errorhandler: HandleError "EditorNpc_BltSprite", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Créditos eu Ricardo | |
|