Mirage Engine
Issues; male female;32x64 - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Issues; male female;32x64 (/showthread.php?tid=1990)

Issues; male female;32x64 - DarkX - 06-08-2008

Ok I have installed the male female system; and the 32x64 sprite system; but now the show sprite on char create system will not work with the 32x64 system; any suggestions?

Re: Issues; male female;32x64 - GIAKEN - 06-08-2008

Yeah I got mine to work.

Make a timer with an interval of 50. Double click it and add this:

Code:
SelectNewCharBlt

Then add this sub wherever:

Code:
Public Sub SelectNewCharBlt()
Dim sRECT As RECT
Dim sRECT2 As RECT
Dim dRECT As RECT
    
    With dRECT
        .top = 0
        .Bottom = 32
        .Left = 0
        .Right = 32
    End With
    
    If DD_SpriteSurf Is Nothing Then
    Else
        With sRECT
            If frmNewChar.optMale.Value = True Then
                .top = (tmpNewChar(frmNewChar.cmbClass.ListIndex + 1) * PIC_Y * 2)
            Else
                .top = (tmpNewChar2(frmNewChar.cmbClass.ListIndex + 1) * PIC_Y * 2)
            End If
            .Left = PIC_X * 3
            .Right = .Left + 32
            .Bottom = .top + 32
        End With
        
        With sRECT2
            .top = sRECT.top + 32
            .Left = sRECT.Left
            .Right = sRECT.Right
            .Bottom = .top + 32
        End With
        
        Call DD_SpriteSurf.BltToDC(frmNewChar.picpic(1).hdc, sRECT, dRECT)
        Call DD_SpriteSurf.BltToDC(frmNewChar.picpic(2).hdc, sRECT2, dRECT)
        frmNewChar.picpic(1).Refresh
        frmNewChar.picpic(2).Refresh
    End If

End Sub

Also make sure you make 2 picture boxes called picpic with indexes 1-2 with sizes of 32x32 and 1 is above 2 (obviously). Also make sure you put InitDirectX in Sub Main().

Re: Issues; male female;32x64 - GIAKEN - 06-08-2008

Also you need to set up the arrays.

Top of modHandleData add:

Code:
Public tmpNewChar() As Long
Public tmpNewChar2() As Long

Under:

Code:
ReDim Class(0 To Max_Classes) As ClassRec

Add:

Code:
ReDim tmpNewChar(1 To Max_Classes + 1) As Long
            ReDim tmpNewChar2(1 To Max_Classes + 1) As Long

I'm not completely sure how you set up your packets...but I had my male sprite as 8 and my female sprite as 9...so above (in the same packet):

Code:
n = n + 10

Add:

Code:
tmpNewChar(I + 1) = Val(Parse$(n + 8))
                tmpNewChar2(I + 1) = Val(Parse$(n + 9))


Re: Issues; male female;32x64 - DarkX - 06-08-2008

Ok, I had it working on my old version without all the special stuff; but I'll try that. Thanks.