ByLetsFeeL Admin
Mesaj Sayısı : 161 Puanlar : 145801386 REP : 94 Kayıt tarihi : 02/02/10 Nerden : Nereyee...
| Konu: 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. | |
|