Code: Select all
sub main ()
sub L()
VAR WaitTime=600
VAR Exit=0, i
DIM Loot[71]
Loot[0]=0x1B76 ; ùèò
Loot[1]=0x1411 ; íîãè
Loot[2]=0x1415 ; òîðñ
Loot[3]=0x1414 ; ðóêè
Loot[4]=0x1410 ; íàïëå÷íèêè
Loot[5]=0x1413 ; øåÿ
Loot[6]=0x1412 ; ãîëîâà
Loot[7]=0x1B77 ; ùèò
Loot[8]=0x141A ; íîãè
Loot[9]=0x1416 ; òîðñ
Loot[10]=0x1418 ; ðóêè
Loot[11]=0x1419 ; ãîëîâà
Loot[12]=0x1086 ; áðàñ
Loot[13]=0x1086 ; áðàñ
Loot[14]=0x13BF ; êîëü÷óãà âåðõ
Loot[15]=0x13BE ; êîëü÷óãà íîãè
Loot[16]=0x13BB ; êîëü÷óãà ðóêè
Loot[17]=0x13B9 ; âèêèíã
Loot[18]=0x0F4D ; áàðäûø
Loot[19]=0x143E ; àëåáà
Loot[20]=0x0F62 ; ïèêà
Loot[21]=0x0E87 ; âèëëà
Loot[22]=0x13B5 ; ñêèìèòîð
Loot[23]=0x13FA ; äåñïàéñ òîïîð
Loot[24]=0x1438 ; War Hammer
Loot[25]=0x1406 ; War Mace
Loot[27]=0x143A ; Maul
Loot[28]=0x13B1 ; ëóê
Loot[29]=0x0F4F ; àðáàëü÷èê
Loot[30]=0x13FC ; àðáàëåò
Loot[31]=0x0F0E ; áîòë
Loot[32]=0x0F0E ; áîòë
Loot[33]=0x0F0E ; áîòë
Loot[34]=0x0F0E ; áîòë
Loot[35]=0x0EFA ; ðóíáóê
Loot[36]=0x1BFB ; áîëòû
Loot[37]=0x0F3F ; ñòðåëû
Loot[38]=0x0E79 ; ñóìêà
Loot[39]=0x0E76 ; ñóìêà
Loot[40]=0x03B6 ; ïàëêà
Loot[41]=0x13F8 ; ïàëêà òàìèíãà
Loot[42]=0x100D ; ñåíî
Loot[43]=0x1F52 ; ïàðàë
Loot[44]=0x1F52 ; ïàðàë
Loot[45]=0x1F5F ; ôñ
Loot[46]=0x1F50 ; çåðêàëüöå
Loot[47]=0x0F03 ; àíòèôðèç
Loot[48]=0x0F03 ; àíòè
Loot[49]=0x0F03 ; àíòè
Loot[50]=0x0F03 ; àíòè
Loot[51]=0x1BEF ; èíãè
Loot[52]=0x1BEF ; èíãè
Loot[53]=0x0EED ; ãï
Loot[54]=0x20D6 ; äðàêîí
Loot[55]=0x0E21 ; áèíòû
Loot[56]=0x0E20 ; êðîâàâûå áèíòû
Loot[57]=0x0F7B ; áì
Loot[58]=0x0F7A ; áï
Loot[59]=0x0F84 ; ãà
Loot[61]=0x0F85 ; ãè
Loot[62]=0x0F86 ; ìð
Loot[63]=0x0F88 ; íñ
Loot[64]=0x0F8C ; ñà
Loot[65]=0x0F8D ; ññ
Loot[66]=0x0F87 ; åí
Loot[67]=0x0F7E ; êîñòè ñêåëåòîâ
Loot[68]=0x0F78 ; áàòâà
Loot[69]=0x0F10 ; åìåðàëüä
Loot[70]=0x1B7A ; ùèò äåðåâî
Loot[71]=0x1515 ; êëîêà
UO.UseObject('lastcorpse')
if UO.GetQuantity('lastcorpse') then
UO.SetArm('temp')
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F52') ;dagger
wait(1000)
UO.Arm('temp')
wait(1000)
endif
; UO.SetReceivingContainer('0x400935D4') ; loot store bag
For i=0 to 71
UO.FindType(Loot[i],-1,'ground')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
[color=red]endif[/color]
if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
; UO.UnSetReceivingContainer()
end subLine 495: Runtime error
Пропустит 1 цифру и все...-), спасибо!