merhaba arkadaşlar xxx itemi biterse town attırma kodunu verecem

gerekenler

1 checkbox
1 timer
1 adet zehir gibi kafa (insan)


önce checki timere bağlamamız lazım

Alıntı
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

timerimiz enabled = false interval = 100 olacak

Alıntı
InventoryOku
If itembul("Potion of Soul") = 0 Then
Paket "4800"
Timer1.Enabled = False
Check1.Value = 0
End If

burda potion of soul (1920lik mana ) biterse town at dedik 4800 town atma paketi

InventoryOku Kodu

Alıntı
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
Dim ItemName As String
Dim i As Integer

tmpBase = LongOku(KO_PTR_DLG) 'read KO_DLGBMA adress
tmpLng1 = LongOku(tmpBase + &H1A0) 'first pointer
Form1.List1.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.List1.ListCount = "28" Then
Else
Form1.List1.AddItem ItemName
End If

If ItemName <> "" Then

End If
Next
End Sub


itembul fonksiyonu
Alıntı
Public Function itembul(Ara As String)
Dim i
For i = 0 To Form1.List1.ListCount
If Form1.List1.List(i) = Ara Then
itembul = 1
Exit For
Else
itembul = 0
End If
Next
End Function

doğru bir şekilde yaparsanız çalışır