Admin Admin
![Admin](https://2img.net/u/3314/11/37/64/avatars/1-24.gif)
Mesaj Sayısı : 132 Kayıt tarihi : 10/01/10 Yaş : 34
![Oto Heal yapma Empty](https://2img.net/i/empty.gif) | Konu: Oto Heal yapma Ptsi Şub. 22, 2010 9:46 pm | |
| 1 Adet CheckBox 1 Adet Timer 1 Adet Modüle ---- Check1 Captionunu Oto Heal yapın ve Kod Kısmına Bunu Yazın. I - Kod:
-
f Check1.Value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False End If
Timer1 Intervali 1000 yapın Enabled False. - Kod:
-
HealKontrol Module 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 - Kod:
-
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 - Kod:
-
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 - Kod:
-
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 bunlar için loadoffset lazım (ztn verdim) - Kod:
-
KO_OFF_PartyHP = &HC0718C KO_OFF_CLASSPriest = 1496 KO_OFF_IDPriest = 1460 yukarıyada sunları yapıstırın - Kod:
-
Public KO_OFF_PartyHP As Long Public KO_OFF_CLASSPriest As Long Public KO_OFF_IDPriest As Long ALINTIDIR!! | |
|