İkili Defans Bastırmak

Evade ve Safety için: (1 Check,1 Timer,1 Label)
Check içine:
Kod:
If Check1.Value = 1 Then
Safety
Label1.Caption = "32"
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
Timer içine: (Interval = 1000)
Kod:
Label1.Caption = Label1.Caption - 1
If Label1.Caption = "16" Then
Dim evadetime
Evade
Else
If Label1.Caption = "0" Then
Dim Safetytime
Safety
Label1.Caption = "32"
End If
End If
Safety ve Scaled Skin için: (1 Check,1 Timer,1 Label)
Check
içine:
Kod:
If Check1.Value = 1 Then
scaled
Label1.Caption = "32"
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
Timer içine: (Interval = 1000)
Kod:
Label1.Caption= Label1.Caption- 1
If Label1.Caption = "16" Then
Dim Safetytime
Safety
Else
If Label1.Caption = "0" Then
Dim Scaledtime
scaled
Label1.Caption = "32"
End If
Evade ve Safety'i sizde vardır diye vermiyorum.
Sclaed Skin:

Kod:
Public Sub scaled()
On Error Resume Next
Dim pBytess(1 To 18) As Byte

Dim ID As String
Dim ID1 As String
Dim ID2 As String
Dim IDs As Long
Dim class As String
Dim skillid1
Dim skillid2
Dim skillid3
Dim SkillID
Dim skillhex As String
class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)

SkillID = class & 760
skillhex = Hex(SkillID)
skillid1 = Mid$(skillhex, 4, 6)
skillid2 = Mid$(skillhex, 2, 2)
skillid3 = Mid$(skillhex, 1, 1)

ID = AlignDWORD(IDs)
ID1 = Strings.Mid(ID, 3, 2)
ID2 = Strings.Mid(ID, 5, 2)

pBytess(1) = &H31
pBytess(2) = &H3
pBytess(3) = "&H" & skillid1
pBytess(4) = "&H" & skillid2
pBytess(5) = "&H" & skillid3
pBytess(6) = &H0
pBytess(7) = "&H" & ID1
pBytess( = "&H" & ID2
pBytess(9) = "&H" & ID1
pBytess(10) = "&H" & ID2
pBytess(11) = &H5C
pBytess(12) = &H3
pBytess(13) = &H4
pBytess(14) = &H0
pBytess(15) = &H18
pBytess(16) = &H2
pBytess(17) = &H0
pBytess(18) = &H0
SendPackets pBytess
End Sub

End If
Evade ve Safety'i sizde vardır diye vermiyorum.
Sclaed
Skin: