''''=====使用次数=====
Wug = PRwStart(Renwu) + 722
''''水
    Seek #1, Wug
    For i = 0 To 4
        Get #1, , Wug2
        TextWg(i).Text = HexToLng(Wug2)
    Next
''''火
Wug = Wug + 18
    Seek #1, Wug
    For i = 5 To 9
        Get #1, , Wug2
        TextWg(i).Text = HexToLng(Wug2)
    Next
''''雷
Wug = Wug + 18
    Seek #1, Wug
    For i = 10 To 14
        Get #1, , Wug2
        TextWg(i).Text = HexToLng(Wug2)
    Next
''''风
Wug = Wug + 18
    Seek #1, Wug
    For i = 15 To 19
        Get #1, , Wug2
        TextWg(i).Text = HexToLng(Wug2)
    Next
''''土
Wug = Wug + 18
    Seek #1, Wug
    For i = 20 To 24
        Get #1, , Wug2
        TextWg(i).Text = HexToLng(Wug2)
    Next
''''高级武功
Wug = Wug + 18
    Seek #1, Wug
    For i = 25 To 29
        Get #1, , Wug2
        TextWg(i).Text = HexToLng(Wug2)
    Next
Close #1
End Sub

Private Sub CheckWg_Click(Index As Integer)
If CheckWg(Index).Value = vbChecked Then
    TextWg(Index).Enabled = True
Else
    TextWg(Index).Enabled = False
End If

End Sub

Private Sub Cmd1_Click(Index As Integer)
Dim Wug As Long
Dim Wug1 As Long

Dim WugT As Byte
Dim WugF As Byte
Dim WugCount As Integer

WugT = 1: WugF = 0

Select Case Index
    Case 0
        Select Case LabelName.Caption
            Case "南宫煌"
                Wug = PRwStart(0) + 668
                Wug1 = PRwStart(0) + 722
            Case "温慧"
                Wug = PRwStart(1) + 668
                Wug1 = PRwStart(1) + 722
            Case "王蓬絮"
                Wug = PRwStart(2) + 668
                Wug1 = PRwStart(2) + 722
            Case "星璇"
                Wug = PRwStart(3) + 668
                Wug1 = PRwStart(3) + 722
            Case "雷元戈"
                Wug = PRwStart(4) + 668
                Wug1 = PRwStart(4) + 722
        End Select
        Open LoadFN For Binary As #1
''''是否能用
''''循环读取每个技能
            Seek #1, Wug
            For i = 0 To 29
                If (i Mod 5 = 0) And (i <> 0) Then  ''''如果是5的倍数那么就将位置偏移
                    Wug = Wug + 9
                    Seek #1, Wug
                End If
                If CheckWg(i).Value = Checked Then
                    Put #1, , WugT
                Else
                    Put #1, , WugF
                End If
            Next

''''使用次数
''''循环读取每个技能
            Seek #1, Wug1
            For i = 0 To 29
                If (i Mod 5 = 0) And (i <> 0) Then  ''''如果是5的倍数那么就将位置偏移
                    Wug1 = Wug1 + 18
                    Seek #1, Wug1
                End If
                If CheckWg(i).Value = Checked Then
                    WugCount = CLng(TextWg(i).Text)
                    Put #1, , WugCount
                Else
                    WugCount = 0
                    Put #1, , WugCount
                End If
            Next
        Close #1

    Case 1
        For i = 0 To 29
            CheckWg(i).Value = Checked
            TextWg(i).Text = 50
        Next
        Select Case LabelName.Caption
            Case "南宫煌"
                For i = 0 To 4
                    CheckWg(i).Value = Unchecked
                    TextWg(i).Text = 0
                Next
                    CheckWg(29).Value = Unchecked
           &n

上一页  [1] [2] [3]  下一页