Jump to content
  • Kaydol

Knight Kingdom Pointerleri


wsxfatih12
 Share

Önerilen Mesajlar

 
' Pointerler
KO_PTR_CHR = &HD79CBC
KO_PTR_DLG = &HD79D74
KO_PTR_PKT = &HD79D40
KO_SEND_PTR = &HCF3D40
ko_fncz = &H4CBBA0
KO_SND_PACKET = &HD79DEE
KO_OFF_PARTY = KO_PTR_DLG
KO_Thread = &HD79DF4
KO_NODC = &HD7EDB4
KO_FLDB = &HD79CB8
KO_ITOB = &HD79B08
KO_ITEB = &HD79B10
KO_FMBS = &H49EE40
KO_FPBS = &H49FE70
KO_SMMB = &HD79BCC
 
' Offsetler
KO_OFF_ZONE = &HB7C
KO_OFF_WH = &H6B8
KO_OFF_MX = &HEF4
KO_OFF_MY = &HEFC
KO_OFF_MZ = &HEF8
KO_OFF_LVL = 1708
KO_OFF_NAME = &H680
KO_OFF_CLASS = &H6A8
KO_OFF_ID = &H678
KO_OFF_SWIFT = &H782
KO_OFF_HP = &H6B4
KO_OFF_MAXHP = &H6B0
KO_OFF_MP = &HAE0
KO_OFF_MAXMP = &HADC
KO_OFF_Y = &HE0
KO_OFF_X = &HD8
KO_OFF_Z = &HDC
KO_OFF_EXP = &HAF8
KO_OFF_MAXEXP = &HAF0
KO_OFF_MOB = &H644
KO_OFF_Go1 = &HEE8 ' Kordinata Git KO_OFF_MOVTYPE
KO_OFF_GoX = &HEF4 ' Kordinata Git X
KO_OFF_GoY = &HEFC ' Kordinata Git Y
KO_OFF_Go2 = &H3F0 ' Kordinata Git KO_OFF_MVCHRTYP
KO_OFF_LOOT = &H8EC
KO_OFF_AP = &HB38
KO_OFF_DEFP = &HB40
KO_OFF_RATTCK = &HF1E
KO_OFF_NATION = &H6A0
' Party Offsetler
PartyHP = &H14
PartyMaxHP = &H18
PartyID = &H8
PartyLevel = &HC
PartyClass = &H10
PartyCure1 = &H24
PartyCure2 = &H25
PartyCure3 = &H26
PartyCure4 = &H27
PartySayısı = &H3C0
PartyAdı = &H30
PartyOffset = &H1EC
PartyValue = &H3BC
 
DüÅŸman X - Y - Z
 
Function DüÅŸmanX()
DüÅŸmanX = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H7C)
End Function
 
Function DüÅŸmanY()
DüÅŸmanY = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H84)
End Function
Function DüÅŸmanZ()
DüÅŸmanZ = FloatOku(LongOku(LongOku(KO_PTR_DLG) + &H408) + &H80)
End Function
 
Mobbase:
Function GetMobBase(MobID As Long) As Long
Dim MemoryAddress As Long
If MemoryAddress = 0 Then
MemoryAddress = VirtualAllocEx(KO_HANDLE, 0, 16, MEM_COMMIT, PAGE_READWRITE)
End If
If MemoryAddress <> 0 And MobID <> 0 Then
Dim pCode() As Byte, pStr As String
pStr = "60" & _
          "8B0D" & _
          AlignDWORD(KO_FLDB) & _
          "6A01" & _
          "68" & _
          AlignDWORD(MobID) & _
          "BF" & _
          AlignDWORD(&H49EE40) & _
          "FFD7" & _
          "A3" & _
          AlignDWORD(MemoryAddress) & _
          "61C3"
ConvHEX2ByteArray pStr, pCode
ExecuteRemoteCode pCode, True
GetMobBase = ReadLong(MemoryAddress)
End If
VirtualFreeEx KO_HANDLE, MemoryAddress, 0, MEM_RELEASE&
End Function
 
Public Function MobMaxHP()
Dim TargetBase
TargetBase = GetMobBase(DüÅŸmanTID)
MobMaxHP = ReadLong(TargetBase + KO_OFF_MAXHP)
End Function
 
Public Function mobhp()
Dim TargetBase
TargetBase = GetMobBase(DüÅŸmanTID)
mobhp = ReadLong(TargetBase + KO_OFF_HP)
End Function
 
PlayerBase:
 
Function GetPlayerBase(UserID As Long) As Long
Dim MemoryAddress As Long
If MemoryAddress = 0 Then
MemoryAddress = VirtualAllocEx(KO_HANDLE, 0, 16, MEM_COMMIT, PAGE_READWRITE)
End If
If MemoryAddress <> 0 And UserID <> 0 Then
Dim pCode() As Byte, pStr As String
pStr = "60" & _
          "8B0D" & _
          AlignDWORD(KO_FLDB) & _
          "6A01" & _
          "68" & _
          AlignDWORD(UserID) & _
          "BF" & _
          AlignDWORD(KO_FPBS) & _
          "FFD7" & _
          "A3" & _
          AlignDWORD(MemoryAddress) & _
          "61C3"
ConvHEX2ByteArray pStr, pCode
ExecuteRemoteCode3 pCode, True
GetPlayerBase = ReadLong(MemoryAddress)
End If
VirtualFreeEx KO_HANDLE, MemoryAddress, 0, MEM_RELEASE&
End Function
 
Public Function PlayerHp()
Dim TargetBase
TargetBase = GetPlayerBase(DüÅŸmanTID)
PlayerHp = ReadLong(TargetBase + KO_OFF_HP)
End Function
 
Public Function PlayerLevel()
Dim TargetBase
TargetBase = GetPlayerBase(DüÅŸmanTID)
PlayerLevel = ReadLong(TargetBase + KO_OFF_LVL)
End Function
 
Public Function PlayerMp()
Dim TargetBase
TargetBase = GetPlayerBase(DüÅŸmanTID)
PlayerMp = ReadLong(TargetBase + KO_OFF_MP)
End Function
 
Public Function PlayerMaxMp()
Dim TargetBase
TargetBase = GetPlayerBase(DüÅŸmanTID)
PlayerMaxMp = ReadLong(TargetBase + KO_OFF_MAXMP)
End Function
 
Party Bilgilerini Okutmada Kullandığım Fonksiyonlar:
Public Function PartySayı()
PartySayı = LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartySayısı)
End Function
Public Function PartyHP1()
PartyHP1 = LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP1()
PartyMaxHP1 = LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + PartyMaxHP)
End Function
Public Function PartyHP2()
PartyHP2 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP2()
PartyMaxHP2 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + PartyMaxHP)
End Function
Public Function PartyHP3()
PartyHP3 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP3()
PartyMaxHP3 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + PartyMaxHP)
End Function
Public Function PartyHP4()
PartyHP4 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP4()
PartyMaxHP4 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + PartyMaxHP)
End Function
Public Function PartyHP5()
PartyHP5 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP5()
PartyMaxHP5 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyMaxHP)
End Function
Public Function PartyHP6()
PartyHP6 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP6()
PartyMaxHP6 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyMaxHP)
End Function
Public Function PartyHP7()
PartyHP7 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP7()
PartyMaxHP7 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyMaxHP)
End Function
Public Function PartyHP8()
PartyHP8 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyHP)
End Function
Public Function PartyMaxHP8()
PartyMaxHP8 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyMaxHP)
End Function
Public Function PartyLvl1()
PartyLvl1 = LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + PartyLevel)
End Function
Public Function PartyLvl2()
PartyLvl2 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + PartyLevel)
End Function
Public Function PartyLvl3()
PartyLvl3 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + PartyLevel)
End Function
Public Function PartyLvl4()
PartyLvl4 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + PartyLevel)
End Function
Public Function PartyLvl5()
PartyLvl5 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyLevel)
End Function
Public Function PartyLvl6()
PartyLvl6 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyLevel)
End Function
Public Function PartyLvl7()
PartyLvl7 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyLevel)
End Function
Public Function PartyLvl8()
PartyLvl8 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyLevel)
End Function
Public Function PartyClass1()
PartyClass1 = LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + PartyClass)
End Function
Public Function PartyClass2()
PartyClass2 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + PartyClass)
End Function
Public Function PartyClass3()
PartyClass3 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + PartyClass)
End Function
Public Function PartyClass4()
PartyClass4 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + PartyClass)
End Function
Public Function PartyClass5()
PartyClass5 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyClass)
End Function
Public Function PartyClass6()
PartyClass6 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyClass)
End Function
Public Function PartyClass7()
PartyClass7 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyClass)
End Function
Public Function PartyClass8()
PartyClass8 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyClass)
End Function
Public Function PartyAdı1()
PartyAdı1 = ReadString(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyAdı2()
PartyAdı2 = ReadString(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyAdı3()
PartyAdı3 = ReadString(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyAdı4()
PartyAdı4 = ReadString(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyAdı5()
PartyAdı5 = ReadString(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyAdı6()
PartyAdı6 = ReadString(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyAdı7()
PartyAdı7 = ReadString(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyAdı8()
PartyAdı8 = ReadString(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyAdı, False, 20)
End Function
Public Function PartyClassBul1() As String
If PartyClass1 = 201 Or PartyClass1 = 205 Or PartyClass1 = 206 Or PartyClass1 = 101 Or PartyClass1 = 105 Or PartyClass1 = 106 Then
PartyClassBul1 = "Warrior"
End If
If PartyClass1 = 202 Or PartyClass1 = 207 Or PartyClass1 = 208 Or PartyClass1 = 102 Or PartyClass1 = 107 Or PartyClass1 = 108 Then
PartyClassBul1 = "Rogue"
End If
If PartyClass1 = 203 Or PartyClass1 = 209 Or PartyClass1 = 210 Or PartyClass1 = 103 Or PartyClass1 = 109 Or PartyClass1 = 110 Then
PartyClassBul1 = "Mage"
End If
If PartyClass1 = 204 Or PartyClass1 = 211 Or PartyClass1 = 212 Or PartyClass1 = 104 Or PartyClass1 = 111 Or PartyClass1 = 112 Then
PartyClassBul1 = "Priest"
End If
End Function
Public Function PartyClassBul2() As String
If PartyClass2 = 201 Or PartyClass2 = 205 Or PartyClass2 = 206 Or PartyClass2 = 101 Or PartyClass2 = 105 Or PartyClass2 = 106 Then
PartyClassBul2 = "Warrior"
End If
If PartyClass2 = 202 Or PartyClass2 = 207 Or PartyClass2 = 208 Or PartyClass2 = 102 Or PartyClass2 = 107 Or PartyClass2 = 108 Then
PartyClassBul2 = "Rogue"
End If
If PartyClass2 = 203 Or PartyClass2 = 209 Or PartyClass2 = 210 Or PartyClass2 = 103 Or PartyClass2 = 109 Or PartyClass2 = 110 Then
PartyClassBul2 = "Mage"
End If
If PartyClass2 = 204 Or PartyClass2 = 211 Or PartyClass2 = 212 Or PartyClass2 = 104 Or PartyClass2 = 111 Or PartyClass2 = 112 Then
PartyClassBul2 = "Priest"
End If
End Function
Public Function PartyClassBul3() As String
If PartyClass3 = 201 Or PartyClass3 = 205 Or PartyClass3 = 206 Or PartyClass3 = 101 Or PartyClass3 = 105 Or PartyClass3 = 106 Then
PartyClassBul3 = "Warrior"
End If
If PartyClass3 = 202 Or PartyClass3 = 207 Or PartyClass3 = 208 Or PartyClass3 = 102 Or PartyClass3 = 107 Or PartyClass3 = 108 Then
PartyClassBul3 = "Rogue"
End If
If PartyClass3 = 203 Or PartyClass3 = 209 Or PartyClass3 = 210 Or PartyClass3 = 103 Or PartyClass3 = 109 Or PartyClass3 = 110 Then
PartyClassBul3 = "Mage"
End If
If PartyClass3 = 204 Or PartyClass3 = 211 Or PartyClass3 = 212 Or PartyClass3 = 104 Or PartyClass3 = 111 Or PartyClass3 = 112 Then
PartyClassBul3 = "Priest"
End If
End Function
Public Function PartyClassBul4() As String
If PartyClass4 = 201 Or PartyClass4 = 205 Or PartyClass4 = 206 Or PartyClass4 = 101 Or PartyClass4 = 105 Or PartyClass4 = 106 Then
PartyClassBul4 = "Warrior"
End If
If PartyClass4 = 202 Or PartyClass4 = 207 Or PartyClass4 = 208 Or PartyClass4 = 102 Or PartyClass4 = 107 Or PartyClass4 = 108 Then
PartyClassBul4 = "Rogue"
End If
If PartyClass4 = 203 Or PartyClass4 = 209 Or PartyClass4 = 210 Or PartyClass4 = 103 Or PartyClass4 = 109 Or PartyClass4 = 110 Then
PartyClassBul4 = "Mage"
End If
If PartyClass4 = 204 Or PartyClass4 = 211 Or PartyClass4 = 212 Or PartyClass4 = 104 Or PartyClass4 = 111 Or PartyClass4 = 112 Then
PartyClassBul4 = "Priest"
End If
End Function
Public Function PartyClassBul5() As String
If PartyClass5 = 201 Or PartyClass5 = 205 Or PartyClass5 = 206 Or PartyClass5 = 101 Or PartyClass5 = 105 Or PartyClass5 = 106 Then
PartyClassBul5 = "Warrior"
End If
If PartyClass5 = 202 Or PartyClass5 = 207 Or PartyClass5 = 208 Or PartyClass5 = 102 Or PartyClass5 = 107 Or PartyClass5 = 108 Then
PartyClassBul5 = "Rogue"
End If
If PartyClass5 = 203 Or PartyClass5 = 209 Or PartyClass5 = 210 Or PartyClass5 = 103 Or PartyClass5 = 109 Or PartyClass5 = 110 Then
PartyClassBul5 = "Mage"
End If
If PartyClass5 = 204 Or PartyClass5 = 211 Or PartyClass5 = 212 Or PartyClass5 = 104 Or PartyClass5 = 111 Or PartyClass5 = 112 Then
PartyClassBul5 = "Priest"
End If
End Function
Public Function PartyClassBul6() As String
If PartyClass6 = 201 Or PartyClass6 = 205 Or PartyClass6 = 206 Or PartyClass6 = 101 Or PartyClass6 = 105 Or PartyClass6 = 106 Then
PartyClassBul6 = "Warrior"
End If
If PartyClass6 = 202 Or PartyClass6 = 207 Or PartyClass6 = 208 Or PartyClass6 = 102 Or PartyClass6 = 107 Or PartyClass6 = 108 Then
PartyClassBul6 = "Rogue"
End If
If PartyClass6 = 203 Or PartyClass6 = 209 Or PartyClass6 = 210 Or PartyClass6 = 103 Or PartyClass6 = 109 Or PartyClass6 = 110 Then
PartyClassBul6 = "Mage"
End If
If PartyClass6 = 204 Or PartyClass6 = 211 Or PartyClass6 = 212 Or PartyClass6 = 104 Or PartyClass6 = 111 Or PartyClass6 = 112 Then
PartyClassBul6 = "Priest"
End If
End Function
Public Function PartyClassBul7() As String
If PartyClass7 = 201 Or PartyClass7 = 205 Or PartyClass7 = 206 Or PartyClass7 = 101 Or PartyClass7 = 105 Or PartyClass7 = 106 Then
PartyClassBul7 = "Warrior"
End If
If PartyClass7 = 202 Or PartyClass7 = 207 Or PartyClass7 = 208 Or PartyClass7 = 102 Or PartyClass7 = 107 Or PartyClass7 = 108 Then
PartyClassBul7 = "Rogue"
End If
If PartyClass7 = 203 Or PartyClass7 = 209 Or PartyClass7 = 210 Or PartyClass7 = 103 Or PartyClass7 = 109 Or PartyClass7 = 110 Then
PartyClassBul7 = "Mage"
End If
If PartyClass7 = 204 Or PartyClass7 = 211 Or PartyClass7 = 212 Or PartyClass7 = 104 Or PartyClass7 = 111 Or PartyClass7 = 112 Then
PartyClassBul7 = "Priest"
End If
End Function
Public Function PartyClassBul8() As String
If PartyClass8 = 201 Or PartyClass8 = 205 Or PartyClass8 = 206 Or PartyClass8 = 101 Or PartyClass8 = 105 Or PartyClass8 = 106 Then
PartyClassBul8 = "Warrior"
End If
If PartyClass8 = 202 Or PartyClass8 = 207 Or PartyClass8 = 208 Or PartyClass8 = 102 Or PartyClass8 = 107 Or PartyClass8 = 108 Then
PartyClassBul8 = "Rogue"
End If
If PartyClass8 = 203 Or PartyClass8 = 209 Or PartyClass8 = 210 Or PartyClass8 = 103 Or PartyClass8 = 109 Or PartyClass8 = 110 Then
PartyClassBul8 = "Mage"
End If
If PartyClass8 = 204 Or PartyClass8 = 211 Or PartyClass8 = 212 Or PartyClass8 = 104 Or PartyClass8 = 111 Or PartyClass8 = 112 Then
PartyClassBul8 = "Priest"
End If
End Function
Function PartyID1()
PartyID1 = LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + PartyID)
End Function
Function PartyID2()
PartyID2 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + PartyID)
End Function
Function PartyID3()
PartyID3 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + PartyID)
End Function
Function PartyID4()
PartyID4 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + PartyID)
End Function
Function PartyID5()
PartyID5 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyID)
End Function
Function PartyID6()
PartyID6 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyID)
End Function
Function PartyID7()
PartyID7 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyID)
End Function
Function PartyID8()
PartyID8 = LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(LongOku(KO_OFF_PARTY) + PartyOffset) + PartyValue) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + &H0) + PartyID)
End Function
Function PartyIDAl1()
PartyIDAl1 = Strings.Mid(AlignDWORD(PartyID1), 1, 4)
End Function
Function PartyIDAl2()
PartyIDAl2 = Strings.Mid(AlignDWORD(PartyID2), 1, 4)
End Function
Function PartyIDAl3()
PartyIDAl3 = Strings.Mid(AlignDWORD(PartyID3), 1, 4)
End Function
Function PartyIDAl4()
PartyIDAl4 = Strings.Mid(AlignDWORD(PartyID4), 1, 4)
End Function
Function PartyIDAl5()
PartyIDAl5 = Strings.Mid(AlignDWORD(PartyID5), 1, 4)
End Function
Function PartyIDAl6()
PartyIDAl6 = Strings.Mid(AlignDWORD(PartyID6), 1, 4)
End Function
Function PartyIDAl7()
PartyIDAl7 = Strings.Mid(AlignDWORD(PartyID7), 1, 4)
End Function
Function PartyIDAl8()
PartyIDAl8 = Strings.Mid(AlignDWORD(PartyID8), 1, 4)
End Function
 
Karakter ismi:
Function CharName()
If LongOku(LongOku(KO_PTR_CHR) + &H690) > 16 Then
CharName = YazıOku(LongOku(LongOku(KO_PTR_CHR) + &H680), False, LongOku(LongOku(KO_PTR_CHR) + &H690))
Else
CharName = YazıOku(LongOku(KO_PTR_CHR) + &H680, False, LongOku(LongOku(KO_PTR_CHR) + &H690))
End If
End Function
 
Clan ismi:
Function ClanName() As String
ClanName = ReadString(ReadLong(KO_PTR_CHR) + &H6E4, False, ReadLong(ReadLong(KO_PTR_CHR) + &H6F8)) 
End Function
 
item durability (Zırhlar gereksiz olduÄŸu için bulmadım):
Function RightMaxDurability() As Long
RightMaxDurability = ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H2C8) + &HAF4)
End Function
Function RightDurability() As Long
RightDurability = ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + 716) + 2404)
End Function
Function LeftMaxDurability() As Long
LeftMaxDurability = ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H300) + &H31C)
End Function
Function LeftDurability() As Long
LeftDurability = ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H300) + &H300)
End Function
 
inventory slot okuma:
 
Public Function HexItemID(ByVal Slot As Integer) As String
On Error Resume Next
Dim offset, X, offset3, offset4 As Long
Dim Base, Sonuc As Long
offset = ReadLong(ReadLong(KO_PTR_DLG) + &H1C0)
offset = ReadLong(offset + (&H208 + (4 * Slot))) 'inventory slot
HexItemID = ReadLong(ReadLong(offset + &H50)) + ReadLong(ReadLong(offset + &H54))
End Function
 
Uzaktan RPR:
Public Sub Repair()
Paket "6A02"
Paket "6A02"
Paket "3B01" + "08" + karakterid + AlignDWORD(HexItemID("08"))
Paket "3B01" + "06" + karakterid + AlignDWORD(HexItemID("06"))
Paket "6A02"
Paket "6A02"
End Sub
 
Chatteki yada pmdeki son yazı:
Public Function ChatSonYazı()
ChatSonYazı = ReadString(ReadLong(&H4BC360), False, 50)
End Function
 
Party Atma:
Public Sub PartyAt(Nick As String)
Dim a As String: a = Left(AlignDWORD(Len(Nick)), 2)
Paket "2F03" & a & "00" & StringToHex(nick)
End Sub
 
Mob Uzaklık:
Function MobUzaklıK() As Long
On Error Resume Next
If DüÅŸmanID = "FFFF" Then MobUzaklıK = 255: Exit Function
MobUzaklıK = Sqr((DüÅŸmanX - KarakterX) ^ 2 + (DüÅŸmanY - KarakterY) ^ 2)
End Function
 
Yorum bağlantısı
Sitelerde Paylaş

  • 1 year later...
Misafir
Bu konu kapalıdır ama konuya cevap yazmaya yetkiniz var görünüyor.
 Share

×
×
  • Yeni Oluştur...