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
End Function

Function GetSkillCount()
'//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()
'//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

If GetSkillCount=1 '1 skill basılı ise
Dim a as long
a=GetCurrentSkill(1)
endif