Yoko

Code: Select all

sub kill()

dim Animal[5]

Animal[0]="name 1" #имя животного 1 ПО ПОВОДУ ИЗМЕНЕНИЯ РАЗМЕРА МАССИВА ЧИТАЙ КОМЕНТ НИЖЕ
Animal[1]="name 2" #имя животного 2
Animal[2]="name 3" #имя животного 3
Animal[3]="name 4" #имя животного 4
Animal[4]="name 5" #имя животного 5

If (UO.GetName('Ani') == '') then 
UO.WarMode(1)
UO.Attack(Animal)
GotoXY(UO.GetX(Animal),UO.GetY(Animal),1)
UO.DeleteJournal()
endif
wait(200)
Loot12()
end sub



sub Loot12()  

      VAR i,Exit  
   DIM Loot[5] #если менять количество предметов в массиве, то здесь 
               #указываем цыфру отоброжающую само количество предметов.
    
   Loot[0]=0x1067 ; Балрон кожа
   Loot[1]=0x1067 ; Драгон кожа
   Loot[2]=0x1BD1 ; Перья
   Loot[3]=0x0E34 ; Скролы
   Loot[4]=0x0EED ; деньги

  UO.SetReceivingContainer('0x400156EF') #указываем ID бак пака
 
   For i=0 to 4 #а здесь отсчитывая от нуля, внимательно посмотреф можно понять.
      Exit=0 
      repeat 
       UO.FindType(Loot[i],-1,'lastcorpse')            
        if UO.GetQuantity('finditem') then 
         UO.Grab('lastcorpse','finditem')
          wait(300)
          Else 
         Exit=1 
        endif
      until Exit==1 OR uo.injournal("loot")
   Next                                         
UO.UnSetReceivingContainer()
wait(200)
DeleteJournal("Body of") 
wait(50)
kill()                 
end sub