помогите оч прошу, скрипт вылетает
Posted: 2005-05-29 23:01:11
скрипт на лут спец ходить за костями я зделал
лутит все и потом выпадает ошибочка
помогите плиззззз
лутит все и потом выпадает ошибочка
помогите плиззззз
sub fastloot2()
VAR WaitTime=500
VAR Exit=0, i, FromCorpse=0
uo.exec("set finddistance 3")
dim fastloot[19]
fastloot[0]=0x0EED
fastloot[1]=0x0F3F
fastloot[2]=0x0F7E
fastloot[3]=0x1F4C
fastloot[4]=0x0F7A ; bp
fastloot[5]=0x0F86 ; MR
fastloot[6]=0x0F8C ; SA
fastloot[7]=0x0F88 ; NS
fastloot[8]=0x0F8D ; SS
fastloot[9]=0x0F85 ; GI
fastloot[10]=0x0F84 ; GA
fastloot[11]=0x0F7B ; BM
fastloot[12]=0x0F3F ; Arrow
fastloot[14]=0x0E21 ; Bandages
fastloot[14]=0x183E ; Tmana
fastloot[15]=0x1838 ; mana
fastloot[16]=0x182C ; Total refresh
fastloot[17]=0x182D ; Invisi
fastloot[18]=0x183B ; GH
UO.UseObject('lastcorpse')
if UO.GetQuantity('lastcorpse') then
UO.SetArm('temp')
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0EC2') ;dagger
wait(1000)
UO.Arm('temp')
wait(1000)
endif
for i=0 to 93
repeat
uo.findtype(fastloot[i],'-1','lastcorpse')
if uo.findcount()>0 then
CheckLag()
UO.MoveItem('finditem',-1,'0x401A9705')
wait(550)
endif
until uo.findcount()==0
next
uo.print('===================================')
uo.print('!!!!!!!LOOTING COMPLETED!!!!!!!!!')
uo.print('===================================')
uo.exec("set finddistance 14")
end sub