ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801416
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: Evade , Safety , Light Feet Kodları Buyrun  Perş. Mart 04, 2010 5:41 pm | |
|
Evade :
- Kod:
-
Public Sub Evade()
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 & 710
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(8) = "&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
LightFeet :
- Kod:
-
Public Sub lightfeet()
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 & 725
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(8) = "&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
Safety :
- Kod:
-
Public Sub safety()
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 & "730"
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(8) = "&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 | |
|
sagane58
Üye
Mesaj Sayısı : 4
Puanlar : 25907
REP : 0
Kayıt tarihi : 15/03/10
| | Konu: Geri: Evade , Safety , Light Feet Kodları Buyrun Çarş. Mart 17, 2010 8:15 pm | |
| tşkler ama tümden bir proje koysan daha iyi olur yani hazır proje  | |
|
