Mirage Source

Sub SendNewCharClasses(ByVal Index As Long)
Dim Packet As String
Dim I As Long

    Packet = "newcharclasses" & SEP_CHAR & Max_Classes
    For I = 1 To Max_Classes
        Packet = Packet & GetClassName(I) & SEP_CHAR & GetClassMaxVital(I, Vitals.HP) & SEP_CHAR & GetClassMaxVital(I, Vitals.MP) & SEP_CHAR & GetClassMaxVital(I, Vitals.SP) & SEP_CHAR & Class(I).Stat(Stats.Strength) & SEP_CHAR & Class(I).Stat(Stats.Defense) & SEP_CHAR & Class(I).Stat(Stats.SPEED) & SEP_CHAR & Class(I).Stat(Stats.Magic) & SEP_CHAR & Class(I).Sprite
    Next I
    Packet = Packet & END_CHAR
   
    Call SendDataTo(Index, Packet)
End Sub
----------------------------------------------------------------------------------
Private Sub Timer_Timer()
    On Error Resume Next
    If optMale.Value = True Then
        'Call BitBlt(picpic.hdc, 0, 0, PIC_X, PIC_Y, picSprites.hdc, 0, Int(Class(cmbClass.ListIndex).Sprite) * PIC_Y, SRCCOPY)
    Else
        'Call BitBlt(picpic.hdc, 0, 0, PIC_X, PIC_Y, picSprites.hdc, 0, Int(Class(cmbClass.ListIndex).Sprite) * PIC_Y, SRCCOPY)
    End If
End Sub
----------------------------------------------------------------------------------
picSprites.Picture = LoadPicture(App.Path & "/gfx/sprites.bmp")
----------------------------------------------------------------------------------
            n = n + 1

            For i = 1 To Max_Classes
                Class(i).Name = Parse(n)
   
                Class(i).Vital(Vitals.HP) = Val(Parse(n + 1))
                Class(i).Vital(Vitals.MP) = Val(Parse(n + 2))
                Class(i).Vital(Vitals.SP) = Val(Parse(n + 3))
   
                Class(i).Stat(Stats.Strength) = Val(Parse(n + 4))
                Class(i).Stat(Stats.Defense) = Val(Parse(n + 5))
                Class(i).Stat(Stats.SPEED) = Val(Parse(n + 6))
                Class(i).Stat(Stats.Magic) = Val(Parse(n + 7))
                'Class(i).Sprite = Val(Parse(n + 8))
               
                n = n + 8
            Next i

Private Sub Timer_Timer()
    On Error Resume Next
    If optMale.Value = True Then
        Call BitBlt(picpic.hdc, 0, 0, PIC_X, PIC_Y, picSprites.hdc, 0, Int(Class(cmbClass.ListIndex + 1).Sprite) * PIC_Y, SRCCOPY)
    Else
        Call BitBlt(picpic.hdc, 0, 0, PIC_X, PIC_Y, picSprites.hdc, 0, Int(Class(cmbClass.ListIndex + 1).Sprite) * PIC_Y, SRCCOPY)
    End If
End Sub
----------------------------------------------------------------------------------
            n = n + 1

            For i = 1 To Max_Classes
                Class(i).Name = Parse(n)
   
                Class(i).Vital(Vitals.HP) = Val(Parse(n + 1))
                Class(i).Vital(Vitals.MP) = Val(Parse(n + 2))
                Class(i).Vital(Vitals.SP) = Val(Parse(n + 3))
   
                Class(i).Stat(Stats.Strength) = Val(Parse(n + 4))
                Class(i).Stat(Stats.Defense) = Val(Parse(n + 5))
                Class(i).Stat(Stats.SPEED) = Val(Parse(n + 6))
                Class(i).Stat(Stats.Magic) = Val(Parse(n + 7))
                Class(i).Sprite = Val(Parse(n + 8))
               
                n = n + 9
            Next i

Public Declare Function BitBlt Lib"gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long