Спасибо.
Code: Select all
sub remove()
uo.exec('warmode 0')
uo.usetype('0x0F0E','0x0631')
uo.AddObject('Where')
while uo.targeting()
wait(100)
wend
;var i,n
var i
dim fastloot[44]
fastloot[0]=0x1B76
fastloot[1]=0x1B77
fastloot[2]=0x1411
fastloot[3]=0x141A
fastloot[4]=0x1416
fastloot[5]=0x1415
fastloot[6]=0x1414
fastloot[7]=0x1418
fastloot[8]=0x1410
fastloot[9]=0x1412
fastloot[10]=0x1419
fastloot[11]=0x1413
fastloot[12]=0x13B9
fastloot[13]=0x0E87
fastloot[14]=0x0F51
fastloot[15]=0x0F52
fastloot[16]=0x0F4B
fastloot[17]=0x0F4D
fastloot[18]=0x143E
fastloot[19]=0x13FE
fastloot[20]=0x1440
fastloot[21]=0x1404
fastloot[22]=0x13B5
fastloot[23]=0x0F60
fastloot[24]=0x0F62
fastloot[25]=0x1400
fastloot[26]=0x0F5E
fastloot[27]=0x0F4F
fastloot[28]=0x13B1
fastloot[29]=0x0F0E
fastloot[30]=0x13F8
fastloot[31]=0x0E75
fastloot[32]=0x0E76
fastloot[33]=0x09B0
fastloot[34]=0x0E79
fastloot[35]=0x0EED
fastloot[36]=0x13FC
fastloot[37]=0x1F52
fastloot[38]=0x1F30
fastloot[39]=0x1F50
fastloot[40]=0x0E21
fastloot[41]=0x0E20
fastloot[42]=0x1086
fastloot[43]=0x0F3F
UO.SetReceivingContainer('Where')
for i=0 to 43
repeat
uo.findtype(fastloot[i],'-1',"lastcontainer")
if uo.findcount()>0 then
CheckLag()
uo.waittargetObject('finditem')
uo.grab()
wait(330)
endif
until uo.findcount()==0
next
uo.print('===================================')
uo.print('!!!!!!!# Go go go!!! #!!!!!!!!!')
uo.print('===================================')
UO.UnSetReceivingContainer()
;FOR n=1 TO 21
;uo.findtype(A[n],"-1","lastcontainer")
;if uo.findcount() > 0 then
;UO.grab(0,"finditem")
;uo.print("Found "+str(uo.findcount()))
;Wait(i)
;end if
;NEXT
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub