Public Sub InventoryOku()
      Dim tmpBase As Long, tmpLng1 As Long, tmpLng2 As Long, tmpLng3 As Long, tmpLng4 As Long
      Dim lngItemID As Long, lngItemID_Ext As Long, lngItemNameLen As Long, AdrItemName As Long
      Dim ItemNameB() As Byte, ItemName As String, i As Integer
      tmpBase = LongOku(KO_PTRDLG)
      tmpLng1 = LongOku(tmpBase + &H1A0) 'first pointer
      Form1.ItemList.Clear
For i = 26 To 53 'read 0 to 41 inventory slots (0=earring, 1=helmet, 2=earring, 3=necklace, 4=pauldron ....14=first inventory slot)
          tmpLng2 = LongOku(tmpLng1 + (&H134 + (4 * i))) 'inventory slot
          tmpLng3 = LongOku(tmpLng2 + &H38) 'item id adress
          tmpLng4 = LongOku(tmpLng2 + &H3C) 'item id_ext adress
          
          lngItemID = LongOku(tmpLng3) 'item id value
          lngItemID_Ext = LongOku(tmpLng4) 'item id_ext value
          lngItemID = lngItemID + lngItemID_Ext 'real item id
          lngItemNameLen = LongOku(tmpLng3 + &H10) 'n° characters in item name
          AdrItemName = LongOku(tmpLng3 + &HC) 'item name adress
          
          ItemName = "" 'reset ItemName variable
          If lngItemNameLen > 0 Then
              SıraByteOku AdrItemName, ItemNameB, lngItemNameLen 'get item name (byte array)
              ItemName = StrConv(ItemNameB, vbUnicode) 'convert it to string
          End If

If Form1.ItemList.ListCount <> "28" Then
Form1.ItemList.AddItem Form1.ItemList.ListCount + 1 & "-) " & ItemName
End If
      Next
End Sub

Public Function ItemARA(item As String) As Boolean
Dim i As Integer
For i = 0 To Form1.ItemList.ListCount - 1
If InStr(1, Form1.ItemList.list(i), item) Then ItemARA = True
Next
End Function

Sub PotBAS(PotID As String)
Paket PotID + KarakterID + KarakterID
End Sub

Sub AutoHP()
If Form1.chPot(0).Value = 1 And CharHP(0) < ((CharHP(1) * Form1.txLim(0).text) / 100) Then
If ItemARA("of favors") = True Then PotBAS "31031E7A0700": Exit Sub
If ItemARA("of grace") = True Then PotBAS "31031D7A0700": Exit Sub
If ItemARA("of love") = True Then PotBAS "31031C7A0700": Exit Sub
If ItemARA("of life") = True Then PotBAS "31031B7A0700": Exit Sub
If ItemARA("Holy water") = True Then PotBAS "31031A7A0700": Exit Sub
End If
End Sub

Sub AutoMP()
If Form1.chPot(1).Value = 1 And CharMP(0) < ((CharMP(1) * Form1.txLim(1).text) / 100) Then
If ItemARA("of Soul") = True Then PotBAS "3103247A0700": Exit Sub
If ItemARA("of Wisdom") = True Then PotBAS "3103237A0700": Exit Sub
If ItemARA("of Sagacity") = True Then PotBAS "3103227A0700": Exit Sub
If ItemARA("of Intelligence") = True Then PotBAS "3103217A0700": Exit Sub
If ItemARA("of Spirit") = True Then PotBAS "3103207A0700": Exit Sub
End If
End Sub

AutoHP
AutoMp
InventoryOku