Oto Minor Yapalım ( En ince Ayrıntısıyla)

Yazarın Notu :
Eğer gerçekten birşeyler öğrenmek istiyorsan inceleyerek ve sonuna kadar dikkatli bir şekilde okuyarak başla ! yoksa hiç başlama!!!

Gerekenler :

1 Adet Check Box
1 Adet Timer

Özel Notlar : istisna olmadığı sürece açtığınız bütün TIMER Ları Boş Geçmeyin Direk False (DeAktif) ve İnterval Değerini Ayarlayın..
Bunları Yapınki Hataya , Üzüntüye Önlem Alın


Yapılışı ..

Timerimizi Açıyoruz Adı MinorT Olsun(siz istediğinizi koyun ama ona göre kodları ayarlayın) ve içine ;

İnterval = 100 Olsun
Enabled = False Olsun

Kod:
On Error Resume Next
Dim hp
Dim maxhp
hp = GetCurHP
maxhp = GetTotalHP
If hp + 450 < maxhp Then
minor
End If

Yukarıda Kırmızı ile işaretlenmiş " 450 " Rakamı , Hp den 450 hp inince Minor Bas Demek Oluyor. Kendinize göre ayarlarsınız isterseniz text açarsınız text1.text yazarsınız 450 yerinede. textte kaç yazılırsa okadar hp düşünce minor basar

Check Box Açalım Adına Ör: Check1 Diyelim ;

Kod:
if check1.value = 1 then
minort.enabled=true
else
minort.enabled=false
end if


Simdi Module Yazılacak Kodu Veriyorum :

Kod:
Public Sub minor()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim usingskill1 As String
Dim usingskill2 As String
Dim usingskill3 As String
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim usingskill As String
Dim usingskillid As String
Dim class As String


class = GetClass
IDs = GetID

usingskillid = class & "705"


id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)


usingskill = Hex(usingskillid)
usingskill1 = Strings.Right(usingskill, 2)
usingskill2 = Strings.Mid(usingskill, 2, 2)
usingskill3 = Strings.Left(usingskill, 1)



pStr = "3103" & usingskill1 & usingskill2 & "0" & usingskill3 & "00" & ID1 & ID2 & ID1 & ID2 & "0000000000000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

'funcition by IIIKOSMİSHOWIII

End Sub
Bukadar ama bittimi? Hyr bitmedi Modulunde Olmayan Arkadas için GetCurHP , GetTotalHp gibi şeyler ek*** olduğu için bu da olmayacak.. oyuzden gereken diğer fonksiyonları da ekliyorum ..

Simdi Yukarı Cıkalım ve MinorT yi inceleyelim Nedemiş Orada?

GetCurHp,GetTotalHp,GetClass,GetID Fonksiyonlarıda Konuda Geçmiş .. Ya Olmayanlar?

Aşşağıya Bakınız ..

GetCurHp = Suanki Hp
GetTotalHp = Toplam Hp Oluyor..
GetClass = Charın Klass ını Okur
GetID = Charın ID Sini Okur
Demek istiyorki yukaradada toplam hpden 450 hp inince Minor Bas Peki Biz Nasıl Bulacaz Toplam Hp yi?

Buyrun..

Kod:
Public Function GetCurHP() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetCurHP = ReadLong(pPtr + KO_OFF_HP)
End Function
Kod:
Public Function GetTotalHP() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetTotalHP = ReadLong(pPtr + KO_OFF_MAXHP)
End Function


Kod:
Function GetClass() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetClass = ReadLong(pPtr + KO_OFF_CLASS)
End Function



Kod:
Function GetID() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetID = ReadLong(pPtr + KO_OFF_ID)
End Function


Yukarda Kırmızı ile işaretlediğim yerleri kendinize göre ayarlayın , Ayarlı İse Ellemeyin! Ben Sizin Genel Modullere Göre Ayarladım ama Değişik Olabilir..




Bunlar icinde Offset Lazım Ne Kadar Bağlı Birbirine Değil mi hepsi?

Bunlarda Gereken Offsetler!

Modulunde Loadoffsets Kullananlar Yazmasına Gerek Yok..
(genelde hazır modullerde yazılıdır offsetler ve yukarıda verdiğim gibidir)

Hiç Olmayanlar sunu kullanabilir ..
( EN ÜSTLERE YAZINIZ MODULDE)

Alıntı:
Public Const KO_OFF_HP As Long = &H594
Public Const KO_OFF_MAXHP As Long = &H590