Arkadaşlar bana Başlat Butonu oto Pot Kodları Verebilecek Varmı ?

ANıltı vb paylaşım bolumune baksan gorursun
İlk Önce Inventory Okutalım

Kod:
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
Item arama fonksiyonumuz

Kod:
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
AutoPot fonksiyonlarımız

Kod:
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
AutoPot Timer > interval = 1000 ~ 1500 Enabled = True içine

Kod:
AutoHP
AutoMp
InventoryOku