Function GetCurrentSkill(SkillNo As Integer)
'//kojd// get current skills (sağ üstteki skill,buff,sc ler :P)
Dim i As Integer
Dim Ptr As Long, tmpBase As Long
Ptr = ReadLong(KO_PTR_DLG)
tmpBase = ReadLong(Ptr + &H1B4)
tmpBase = ReadLong(tmpBase + &H4)
tmpBase = ReadLong(tmpBase + &HCC)
For i = 1 To SkillNo
tmpBase = ReadLong(tmpBase + &H0) 'soldan kaçıncı skill?
Next
tmpBase = ReadLong(tmpBase + &H8)
If tmpBase > 0 Then
tmpBase = ReadLong(tmpBase + &H0) 've nihayet burası skill kodunu tutan adres
GetCurrentSkill = tmpBase
Else
GetCurrentSkill = 0
End If

Function GetSkillCount() ''Kaç tane skill basılı:
'//kojd// get current skill count (sağ üstte kaç skill basılı ??)
Dim Ptr As Long, tmpBase As Long
Ptr = ReadLong(KO_PTR_DLG)
tmpBase = ReadLong(Ptr + &H1B4)
tmpBase = ReadLong(tmpBase + &H4)
tmpBase = ReadLong(tmpBase + &HD0)
GetSkillCount = tmpBase
End Function

Function GetLastSkill() 'Son basılan skill:
'//kojd// get last skill (en son kullanılan skill..)
Dim Ptr As Long, tmpBase As Long
Ptr = ReadLong(KO_PTR_DLG)
tmpBase = ReadLong(Ptr + &H3D8)
tmpBase = ReadLong(tmpBase + &H6C)
tmpBase = ReadLong(tmpBase + &H10)
GetLastSkill = tmpBase
End Function
'Skill okuma fonksiyonu kullanımı örneğin sağ üstte soldan 1. skill'i okumak için GetCurrentSkill(1), 2. için GetCurrentSkill(2)...

'Okuma işlemini de GetSkillCount yani basılı olan skill sayısını öğrenerek sınırlayabilirsiniz. Örneğin,

If GetSkillCount = 1 Then '1 skill basılı ise
Dim a As Long
a = GetCurrentSkill(1)
End If