Ultima Online Antares

sub Loot()
DIM R[52]; и здес тож нада добавлять
var c
R[1] = 0x19B7
R[2] = 0x0F87
R[3] = 0x0EED
R[4] = 0x1BFB
R[5] = 0x0F87
R[6] = 0x1BD1
R[7] = 0x09AA
R[8] = 0x1078
R[9] = 0x0F7E
R[10] = 0x1BDD
R[11] = 0x0F90
R[12] = 0x1BD1
R[13] = 0x0F3F
R[14] = 0x0F26
R[15] = 0x0F11
R[16] = 0x0F26
R[17] = 0x0F15
R[18] = 0x0F16
R[19] = 0x0F25
R[20] = 0x0F18
R[21] = 0x0F10
R[22] = 0x0F13
R[23] = 0x1869
R[24] = 0x1087
R[25] = 0x0E37
R[26] = 0x0F8E
R[27] = 0x108A
R[28] = 0x09B5
R[29] = 0x0EE3
R[30] = 0x1CED
R[31] = 0x0F8A
R[32] = 0x0F90
R[33] = 0x0F7E
R[34] = 0x1BD1
R[35] = 0x0F78
R[36] = 0x1844
R[37] = 0x1010
R[38] = 0x1085
R[39] = 0x1F0B
R[40] = 0x0F82
R[41] = 0x1E89
R[42] = 0x141B
R[43] = 0x19B7
R[44] = 0x0F8B
R[45] = 0x0F7F
R[46] = 0x0F83
R[47] = 0x1BFB
R[48] = 0x1F64
R[49] = 0x0E81
R[50] = 0x1547
R[51] = 0x13FE
R[52] = 0x0C6A
UO.UseObject('lastcorpse')
wait(100)
uo.exec("warmode '0'")
uo.waittargetobject('lastcorpse')
uo.usetype(0x0EC2);тайп нажа
wait(400)
uo.usetype(0x13B1);тайп оружыя лук арб и т д
uo.exec("warmode '1'")
for c=1 to 52;Дабавляё болше если таипы добавляш
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(1000)
end if
until UO.FindCount()<1
wait(10)
next
uo.usetype('0x0F9E')
uo.waittargettype('0x1078')
end sub

sub Loot()

   VAR nozh = '0x0EC3'
   var c
  
   UO.AddObject('tryp')
   while UO.Targeting()
      wait(200)
   wend

   DIM R[52]
  
   R[1] = 0x19B7
   R[2] = 0x0F87
   R[3] = 0x0EED
   R[4] = 0x1BFB
   R[5] = 0x0F87
   R[6] = 0x1BD1
   R[7] = 0x09AA
   R[8] = 0x1078
   R[9] = 0x0F7E
   R[10] = 0x1BDD
   R[11] = 0x0F90
   R[12] = 0x1BD1
   R[13] = 0x0F3F
   R[14] = 0x0F26
   R[15] = 0x0F11
   R[16] = 0x0F26
   R[17] = 0x0F15
   R[18] = 0x0F16
   R[19] = 0x0F25
   R[20] = 0x0F18
   R[21] = 0x0F10
   R[22] = 0x0F13
   R[23] = 0x1869
   R[24] = 0x1087
   R[25] = 0x0E37
   R[26] = 0x0F8E
   R[27] = 0x108A
   R[28] = 0x09B5
   R[29] = 0x0EE3
   R[30] = 0x1CED
   R[31] = 0x0F8A
   R[32] = 0x0F90
   R[33] = 0x0F7E
   R[34] = 0x1BD1
   R[35] = 0x0F78
   R[36] = 0x1844
   R[37] = 0x1010
   R[38] = 0x1085
   R[39] = 0x1F0B
   R[40] = 0x0F82
   R[41] = 0x1E89
   R[42] = 0x141B
   R[43] = 0x19B7
   R[44] = 0x0F8B
   R[45] = 0x0F7F
   R[46] = 0x0F83
   R[47] = 0x1BFB
   R[48] = 0x1F64
   R[49] = 0x0E81
   R[50] = 0x1547
   R[51] = 0x13FE
   R[52] = 0x0C6A

   UO.UseObject('tryp')
   uo.waittargetobject('tryp')
   uo.usetype(nozh)
   wait(400)
   uo.exec("warmode '1'")
   for c=1 to 52
      repeat
         uo.findtype(R[c],"-1",'tryp')
         if UO.FindCount()>0 and Uo.GetDistance('tryp')<=4 then
            UO.Grab("0","finditem")
            wait(700)
         end if
      until UO.FindCount()<1
   next
end sub

sub Dagger()
Var Dagger='0x0F51'
uo.usetype(Dagger)
Endsub

         if UO.FindCount()>0 and Uo.GetDistance('tryp')<=3 then
            UO.Grab("0","finditem")
            wait(700)
         end if
     until UO.FindCount()<1 or Uo.GetDistance('tryp')>3