помогите разобраться
Posted: 2005-02-20 02:18:09
есть скрипт его смысал в том что по нажатию кнопки он должен подбирать вещи с пола (с земли), но почемуто он не хочет этого делать пишет что вещи не найдены
вот скрипт
вот скрипт
Code: Select all
sub arrowgrab()
Dim Item[9]
Item[0]='0x0E79' ;Arrows
Item[1]='0x0EED' ;Gold
Item[2]='0x0F7B' ;bm
Item[3]='0x0F7A' ; BP
Item[4]='0x0F90' ;deadwood
Item[5]='0x0F7E' ;bones
Item[6]='0x0F87' ;Eyes of newt
Item[7]='0x1BDD' ;Logs
Item[8]='0x1BFB' ;?bolts
Item[9]='0x0F8E' ; ??????? ???????
Var i
for i=0 to 9
if Item[i]<>'' then
uo.Findtype(Item[i],-1,ground)
if uo.GetQuantity('finditem') then
uo.MoveItem('finditem')
CheckLag()
wait(700)
endif
endif
end sub