Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ...
Sitemize Üye Değilseniz Lütfen Üye Olunuz. Eğer Üye İseniz Giriş Yapınız... Sitemizdeki Linkleri Görebilmeniz ve Konulara Cevap Yazabilmek İçin İçin Üye Olmanız Gerekmektedir...



 
AnasayfaTakvimAramaKayıt OlGiriş yap

Paylaş | 
 

 Evade , Safety , Light Feet Kodları Buyrun

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145788826
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: 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

_________________

ByLetsFeeL !! [ ByCeM ]
Hak EdiYoRSaM Bir TeŞeKKüR YeteR !!


İletişim [Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]

Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
sagane58
Üye
Üye


Mesaj Sayısı : 4
Puanlar : 13317
REP : 0
Kayıt tarihi : 15/03/10

MesajKonu: 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 Smile
Sayfa başına dön Aşağa gitmek
 
Evade , Safety , Light Feet Kodları Buyrun
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ... :: Knight OnLine Koxp - TBL & Bug - Hile :: Koxp Yapımı - Programlama :: ByLetsFeeL - Özel Dersler-
Buraya geçin: