Заранее спасибо
Code: Select all
sub obstava()
Var sunduk = '0x099f'
Var d = 500
UO.FindType(sunduk, -1)
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')-1),0,'finditem')
Wait(d)
UO.FindType(sunduk, -1)
UO.Drop('1',STR(UO.GetX('laststatus')-1),STR(UO.GetY('laststatus')),0,'finditem')
Wait(d)
UO.FindType(sunduk, -1)
UO.Drop('1',STR(UO.GetX('laststatus')+1),STR(UO.GetY('laststatus')),0,'finditem')
Wait(d)
UO.FindType(sunduk, -1)
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')+1),0,'finditem')
end sub