I've got this
sub PvPLoot()
var kam="0x400E3D93" #kam to chces sazet
var i,n
Dim A[15]
A[1] = 0x1400 ;kryss
A[2] = 0x13B6 ;scym
A[3] = 0x13F9 ;gnardled staffka
A[4] = 0x0DF0 ;black staffka
A[5] = 0x0DF1 ;quarter staffka
A[6] = 0x13FA ;LBA
A[7] = 0x0F4B ;double axe
A[8] = 0x143E ;halapartna
A[9] = 0x13B9 ;viking sword
A[10] = 0x13FE ;katana
A[11] = 0x1438 ;war hammer
A[12] = 0x143C ;hammerpick
A[13] = 0x1440 ;cuttlas
A[14] = 0x1404 ;war forks
A[15] = 0x13B1 ;bow
i = 1000
FOR n=1 TO 15
uo.findtype(A[n],"-1","lastcontainer")
if UO.findcount() >0 Then
UO.moveitem("finditem",0,kam)
UO.DeleteJournal()
Wait(i)
end if
NEXT
Endsub
Thanks for help
