....и если реально как сделать, чтоб запускался с помощью одной кнопки...или работал постоянно...(лучше по кнопке)...
Code: Select all
sub fastloot2()
VAR WaitTime=500
VAR Exit=0, i
uo.exec("set finddistance 3")
dim fastloot[94]
fastloot[0]=0x13B9 ;перья
fastloot[1]=0x1087 ;серьги
fastloot[2]=0x13FE ;катана
fastloot[3]=0x1078 ;бел+жел драконы(кожа)
fastloot[4]=0x0EED ;money
fastloot[5]=0x19B7 ;dragon ore
fastloot[6]=0x0E34 ;blank scroll
fastloot[7]=0x0E75 ;symka kvadrat
fastloot[8]=0x0F80 ;daemon bones
fastloot[9]=0x0F4E
fastloot[10]=0x1440
fastloot[11]=0x1441
fastloot[12]=0x0F60
fastloot[13]=0x0F61
fastloot[14]=0x0F5E
fastloot[15]=0x0F5F
fastloot[16]=0x13B7
fastloot[17]=0x13B8
fastloot[18]=0x13FA
fastloot[19]=0x13FB
fastloot[20]=0x0F45
fastloot[21]=0x0F46
fastloot[22]=0x0F4B
fastloot[23]=0x0F4C
fastloot[24]=0x13AF
fastloot[25]=0x13B0
fastloot[26]=0x0F49
fastloot[27]=0x0F4A
fastloot[28]=0x0F62
fastloot[29]=0x0F63
fastloot[30]=0x1402
fastloot[31]=0x1403
fastloot[32]=0x1400
fastloot[33]=0x1401
fastloot[34]=0x0F51
fastloot[35]=0x0F52
fastloot[36]=0x1406
fastloot[37]=0x1407
fastloot[38]=0x1438
fastloot[39]=0x1439
fastloot[40]=0x0F5C
fastloot[41]=0x0F5D
fastloot[42]=0x143A
fastloot[43]=0x143B
fastloot[44]=0x143C
fastloot[45]=0x143D
fastloot[46]=0x1B76
fastloot[47]=0x1B77
fastloot[48]=0x1B7B
fastloot[49]=0x1B7A
fastloot[50]=0x1B72
fastloot[51]=0x1B73
fastloot[52]=0x1B74
fastloot[53]=0x1B75
fastloot[54]=0x1B79
fastloot[55]=0x1B78
fastloot[56]=0x1416
fastloot[57]=0x1415
fastloot[58]=0x13BF
fastloot[59]=0x13C4
fastloot[60]=0x1411
fastloot[61]=0x141A
fastloot[62]=0x13BE
fastloot[63]=0x1410
fastloot[64]=0x1417
fastloot[65]=0x1412
fastloot[66]=0x1419
fastloot[67]=0x140C
fastloot[68]=0x140D
fastloot[69]=0x140A
fastloot[70]=0x140B
fastloot[71]=0x1408
fastloot[72]=0x1409
fastloot[73]=0x140E
fastloot[74]=0x140F
fastloot[75]=0x13BB
fastloot[76]=0x13C0
fastloot[77]=0x1414
fastloot[78]=0x1418
fastloot[79]=0x1413
fastloot[80]=0x1086
fastloot[81]=0x13B1
fastloot[82]=0x13B2
fastloot[83]=0x0F4F
fastloot[84]=0x0F50
fastloot[85]=0x13FC
fastloot[86]=0x13FD
fastloot[87]=0x0F0E
fastloot[88]=0x1F4A
fastloot[89]=0x1F5F
fastloot[90]=0x0E76 ;symka mewok
fastloot[91]=0x1BD1
fastloot[92]=0x0E79
fastloot[93]=0x09B0
UO.UseObject('lastcorpse')
if UO.GetQuantity('lastcorpse') then
UO.SetArm('temp')
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F51') ;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.waittargetObject('finditem')
uo.grab()
wait(550)
endif
until uo.findcount()==0
next
uo.print('===================================')
uo.print('!!!!!!!LOOTING COMPLETED!!!!!!!!!')
uo.print('===================================')
uo.exec("set finddistance 14")
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until uo.InJournal('backpack')
end sub
