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ş | 
 

 Koxp Oto Heal Yapımı

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

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

MesajKonu: Koxp Oto Heal Yapımı   Perş. Mart 04, 2010 5:05 pm

Selamün Aleyküm Arkadaşlar Burada Size Koxp Oto Heal Yapımı Kodlarını vericem.

Gerekenler :

1 Adet CheckBox
1 Adet Timer
1 Adet Modüle ( Adını Priest Yapın )


Kodları :

Check1 Captonunu Oto Heal yapın ve Kod Kısmına Bunu Yazın.

Kod:
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

Timer1 Intervali 1000 yapın Enabled False.

Kod:
HealKontrol

Module ( Priest ) Bu Kodu yazın.

Kod:
Public Sub HealKontrol()
If PartyHP1 < PartyMaxHP1 Then
HealYap1
End If
If PartyHP2 < PartyMaxHP2 Then
HealYap2
End If
End Sub
Public Sub HealYap1()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "500"

pStr = "3101" + AlignDWORD(ClassOkuPriest & SelectedSkill) + CharIDPriest + PartyID1 + "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" & AlignDWORD(ClassOkuPriest & SelectedSkill) + CharIDPriest + PartyID1 + "000000000000000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub HealYap2()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "500"

pStr = "3101" + AlignDWORD(ClassOkuPriest & SelectedSkill) + CharIDPriest + PartyID2 + "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" & AlignDWORD(ClassOkuPriest & SelectedSkill) + CharIDPriest + PartyID2 + "000000000000000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
'1. Party

Function PartyHP1() As String
Dim a, b, c, d, e As Long
a = ReadLong(KO_OFF_PartyHP)
b = ReadLong(a + 456)
c = ReadLong(b + 860)
d = ReadLong(c + 0)
e = ReadLong(d + 20)
PartyHP1 = e
End Function
Function PartyMaxHP1() As String
Dim a, b, c, d, e As Long
a = ReadLong(KO_OFF_PartyHP)
b = ReadLong(a + 456)
c = ReadLong(b + 860)
d = ReadLong(c + 0)
e = ReadLong(d + 24)
PartyMaxHP1 = e
End Function
Function PartyID1() As String
Dim a, b, c, d, e, f, g As Long
a = ReadLong(KO_OFF_PartyHP)
b = ReadLong(a + 456)
c = ReadLong(b + 860)
d = ReadLong(c + 0)
e = ReadLong(d + 8)
f = AlignDWORD(e + 0)
PartyID1 = Strings.Mid(f, 1, 4)
End Function


'2. Party

Function PartyHP2() As String
Dim a, b, c, d, e As Long
a = ReadLong(KO_OFF_PartyHP)
b = ReadLong(a + 456)
c = ReadLong(b + 860)
d = ReadLong(ReadLong(c + 0))
e = ReadLong(d + 20)
PartyHP2 = e
End Function
Function PartyMaxHP2() As String
Dim a, b, c, d, e As Long
a = ReadLong(KO_OFF_PartyHP)
b = ReadLong(a + 456)
c = ReadLong(b + 860)
d = ReadLong(ReadLong(c + 0))
e = ReadLong(d + 24)
PartyMaxHP2 = e
End Function

Function PartyID2() As String
Dim a, b, c, d, e, f, g As Long
a = ReadLong(KO_OFF_PartyHP)
b = ReadLong(a + 456)
c = ReadLong(b + 860)
d = ReadLong(ReadLong(c + 0))
e = ReadLong(d + 8)
f = AlignDWORD(e + 0)
PartyID2 = Strings.Mid(f, 1, 4)
End Function

Yeni Modülünüzün LoadOffsets Bölümüne Bu Pointerleri Ekleyin.

Kod:
KO_OFF_PartyHP = &HC0729C
KO_OFF_CLASSPriest = 1496
KO_OFF_IDPriest = 1460

Yeni Modülünüzün Üst Kısmına Bu Pointerleri Ekleyin.

Kod:
Public KO_OFF_PartyHP As Long
Public KO_OFF_CLASSPriest As Long
Public KO_OFF_IDPriest As Long

İstek olursa devam ederim.

_________________

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
 
Koxp Oto Heal Yapımı
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB 6 ile Basit Koxp Yapımı
» 1810 mage koxp ÖXEL OLARAK HAZIRLANMIŞTIR TEMİZ VE VİRÜSSÜZDÜRR
» İnsan Yapımı UFO'lar ve Dünya Dışı Teknolojinin Ele Geçirilişi
» Kart satarken bug yapılıomu ????
» v1832 patronos koxp %100 CS POWER SHOT AKTİF

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: