|
1, Wug
For i = 5 To 9
Get #1, , Wug1
If Hex(Wug1) = 0 Then CheckWg(i).Value = Unchecked Else CheckWg(i).Value = Checked
Next
''''雷
Wug = Wug + 9
Seek #1, Wug
For i = 10 To 14
Get #1, , Wug1
If Hex(Wug1) = 0 Then CheckWg(i).Value = Unchecked Else CheckWg(i).Value = Checked
Next
''''风
Wug = Wug + 9
Seek #1, Wug
For i = 15 To 19
Get #1, , Wug1
If Hex(Wug1) = 0 Then CheckWg(i).Value = Unchecked Else CheckWg(i).Value = Checked
Next
''''土
Wug = Wug + 9
Seek #1, Wug
For i = 20 To 24
Get #1, , Wug1
If Hex(Wug1) = 0 Then CheckWg(i).Value = Unchecked Else CheckWg(i).Value = Checked
Next
''''高级武功
Wug = Wug + 9
Seek #1, Wug
For i = 25 To 29
Get #1, , Wug1
If Hex(Wug1) = 0 Then CheckWg(i).Value = Unchecked Else CheckWg(i).Value = Checked
Next''''=====使用次数=====
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] 下一页
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
