www.kingkoxp.forummum.com Yeni sitemiz

Chaos Atak Kodu

Chaos Atak Kodu

Kod:
Public Function MobID()
Dim pPtr As Long
Dim GetMobID As String
Dim GetMBID As Long
pPtr = Readlong(KO_CHR_OFF)
GetMBID = Readlong(pPtr + OFF_MOB) 'H580
GetMobID = AlignDWORD(GetMBID)
MobID = Strings.Mid(GetMobID, 1, 4)
End Function


Kod:
Public Function CharID()
Dim pPtr As Long
Dim GetCharID As String
Dim GetCHID As Long
pPtr = Readlong(KO_OFF_CHR) ' HC05EE8
GetCHID = Readlong(pPtr + KO_ID_OFF) '&H5B3
GetCharID = AlignDWORD(GetCHID)
CharID = Strings.Mid(GetCharID, 3, 4)
End Function
Kayıtlı