ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801416
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 9 Oto HeaL  Çarş. Şub. 03, 2010 3:52 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 + 
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 +
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
Bi Teşekkür Yeter... | |
|
DreamS
Süper Moderator
Mesaj Sayısı : 12
Puanlar : 26165
REP : 5
Kayıt tarihi : 03/02/10
| | Konu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 9 Oto HeaL Perş. Şub. 04, 2010 12:14 pm | |
| PayLasım İcin TesSekürler | |
|
menzilrap
Üye
Mesaj Sayısı : 6
Puanlar : 26171
REP : 4
Kayıt tarihi : 04/02/10
| | Konu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 9 Oto HeaL Perş. Şub. 04, 2010 7:35 pm | |
| işte bunu arıyordum teşekkürler.. | |
|
ßy_JesteR
Üye
Mesaj Sayısı : 4
Puanlar : 26115
REP : 0
Kayıt tarihi : 04/02/10
| | Konu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 9 Oto HeaL Perş. Şub. 04, 2010 11:50 pm | |
| | |
|
