Auto Wolf Code

Herkeze Selam şimdi oto wolf yapımını anlatıyorum.

1 checkbox
1
timer

checkboxun Namesini bakın ismini "otowolf" yapın

Kod
Kısmına

Kod:
If otowolf.Value = 1 Then
Wolf
wolfsaat.Enabled =
True
wolfsn.BorderStyle = 1
wolfsn.Caption =
"0"
Else
wolfsaat.Enabled = False
wolfsn.BorderStyle =
0
wolfsn.Caption = ""
End IfTİMER ACALIM ADINI "wolfsaat" yapalım bakın
captionu değil
İNTERVAL 1000 ENABLED FALSE


Kod:
wolfsn.Caption
= wolfsn.Caption + 1
If wolfsn.Caption = "121" Then
Wolf
wolfsn.Caption
= 0
End IfModülümüze ise Bu kodu ekliyelim

Kod:
Public Sub
Wolf()
Dim pBytes() As Byte
Dim pStr As String
Dim m_SkillID As
String
Dim mXZY As String
Dim mX As Single, mY As Single, mZ As
Single
On Error Resume Next
mX = ReadFloat(KO_ADR_CHR + KO_OFF_X)
mY =
ReadFloat(KO_ADR_CHR + KO_OFF_Y)
mZ = ReadFloat(KO_ADR_CHR +
KO_OFF_Z)

ChrClass = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
mXZY =
Left$(AlignDWORD(CLng(Fix(mX))), 4) & Left$(AlignDWORD(CLng(Fix(mZ))), 4)
& Left$(AlignDWORD(CLng(Fix(mY))), 4)
m_SkillID =
AlignDWORD(CLng(ChrClass & "030"))

pStr = "3101" & m_SkillID
& Form1.charID.Caption & "FFFF" & mXZY &
"0000000000001100"
ConvHEX2ByteArray pStr, pBytes
SendPackets
pBytes

pStr = "3103" & m_SkillID & Form1.charID.Caption &
"FFFF" & mXZY & "000000000000"
ConvHEX2ByteArray pStr,
pBytes
SendPackets pBytes
End Sub