Mirage Source

SelectNewCharBlt

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

Public tmpNewChar() As Long
Public tmpNewChar2() As Long

ReDim Class(0 To Max_Classes) As ClassRec

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

n = n + 10

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