Oto Chaos Yapımı:

Check Açın içine:

Kod:
If Check1.value = 1 Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If
Timer içine(Enabled False interval=100)

Kod:
Dim pStr As String

Dim pBytes() As Byte

pStr = "5F081800"

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes
Oto Ft Yapımı:

Check Açın içine:

Kod:
If Check2.value = 1 Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If
Timer içine(Enabled False interval=100)

Kod:
Dim pBytes() As Byte

Dim pStr As String

pStr = Trim$("563100")

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes
Oto Bdw Yapımı:

Check açın içine:

Kod:
If Check4.Value = 1 Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If
Timer içine(Enabled False interval=100)

Kod:
Dim pBytes(1 To 12) As Byte

pBytes(1) = &H5F + &H8 + &H1 + &H0

pBytes(2) = &H5F + &H8 + &H2 + &H0

pBytes(3) = &H5F + &H8 + &H3 + &H0

pBytes(4) = &H5F + &H8 + &H4 + &H0

pBytes(5) = &H5F + &H8 + &H5 + &H0

pBytes(6) = &H5F + &H8 + &H6 + &H0

pBytes(7) = &H5F + &H8 + &H7 + &H0

pBytes(8) = &H5F + &H8 + &H8 + &H0

pBytes(9) = &H5F + &H8 + &H9 + &H0

pBytes(10) = &H5F + &H8 + &HA + &H0

pBytes(11) = &H5F + &H8 + &HB + &H0

pBytes(12) = &H5F + &H8 + &HC + &H0

SendPackets pBytes
Chaos 1k Hp basma yapımı:

Check açın içine:

Kod:
If Check1.value = 1 Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If
Timer içine(Enabled False interval=100)

Kod:
Dim hp

Dim MaxHp

hp = ReadLong(KO_ADR_CHR + KO_OFF_HP)

MaxHp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)

If hp < MaxHp Then

CaosHpBas

End If
Modül içine:

Kod:
Public Sub CaosHpBas()

Dim pStr As String

Dim pBytes() As Byte

pStr = "3103" + "EE7A0700" + CharID + CharID + "0000000000000000000000000000"

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes
Oto Party Yapımı:

Check açın içine:

Kod:
If Check1.value = 1 Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If
Timer içine(Enabled False interval=100)

Kod:
Dim pStr As String

Dim pBytes() As Byte

pStr = "2f0201" & hexword

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes
Copy Char yapımı:

Check açın içine:

Kod:
If Check1.value = 1 Then

WriteLong KO_ADR_CHR + KO_OFF_ID, "0"

Else

WriteLong KO_ADR_CHR + KO_OFF_ID, "1"

End If
Speed Hack yapımı:

Check açın içine:

Kod:
If Check1.value = 1 Then

WriteFloat KO_ADR_CHR + 1664, -2

Else

WriteFloat KO_ADR_CHR + 1664, 1

End If
10 M Teleport Yapımı:

Button açın içine: koddaki 10ları istediğiniz gibi ayarlarsınız 20-30 fln

Kod:
Dim VVA As Single

VVA = ReadFloat(KO_ADR_CHR + KO_OFF_X)

WriteFloat KO_ADR_CHR + KO_OFF_X, VVA + 10

Dim VVA2 As Single

VVA2 = ReadFloat(KO_ADR_CHR + KO_OFF_Y)

WriteFloat KO_ADR_CHR + KO_OFF_Y, VVA2 + 10

___[ ßy KeSKiN adlı kişinin İmzası]_______________
Yandaki Tuşa Basın Lütfen !

Heralde alıntı yapmışşsın. Speed Hack diye birşey kalmadı.

War Bazı Hacklerde Oluyo

Ewet speed hack war

Ewy kardesmm

Tyyyyyyyyyyyyyyyy

Saol Kanka

___[ ßy KeSKiN adlı kişinin İmzası]_______________
Yandaki Tuşa Basın Lütfen !