Yoko

sub kolmap()
var k
var meshochek
uo.useobject(seifformap2)
uo.useobject(seifformap1)
uo.findtype(mapa,'-1',seifformap1)
if uo.findcount()>=50 then
uo.findtype(meshok,'-1',seifformap1)
meshochek=uo.getserial('finditem')
uo.moveitem('finditem','1','backpack')
k=0
wait(200)
uo.useobject(meshochek)
wait(200)
while k<>50
uo.Click(meshochek)
wait(300)

UO.FindType(mapa,'0x0000',seifformap1)
UO.MoveItem('finditem','1',meshochek)
CheckLag()
wait(600)
k=k+1
;UO.FindType(mapa, '0x0000', meshochek)
;if UO.FindCount(mapa)>=255 then
while UO.Count(mapa, '0x0000', meshochek)>=255
UO.MoveItem(meshochek, 1, seifformap2)
UO.Print('255')
wait(500)

if UO.InJournal("Too many items") then
return
endif
wend
wend
endif
end sub