##################################
### AutoLoot v 3.1 by Beyonder ###
##################################

###Запускать auto_loot()
###Run the function auto_loot()

### Нужна любая функция CheckLag()
### Any CheckLag() function is needed for script

# Время достаточное для открытия контейнера
# Time enough for container to open
var OpenContWait=300 
# Время между лутом вещей
# Delay after looting each item
var LootItemWait=300 

### Основная функция лута # ContainerID - ID контейнера # BagID - ID мешка куда складывать вещи
### Main looting function # Container ID - ID of the container to loot # BagID - bag where to put
sub loot_container(ContainerID,BagID)
  var ContCnt=2
  var NeedCnt=7
  dim ContFr[10]
  dim ContTo[10]
  dim NeedFr[20]
  dim NeedTo[20]
  dim NeedTypes[20]

  var ItemGr
  var ItemID
  var FCnt
  var iItem
##### Настройка вещей 
##### Item config
  #### Контейнеры
  #### Containers
  ContFr[0]='0x0E70'
  ContTo[0]='0x0E80'
  #
  ContFr[1]='0x09B0'
  ContTo[1]='0x09B0'
  #### Вещи
  #### Items
  #### Gold
  NeedFr[0]='0x0EED' 
  NeedTo[0]='0x0EED'
  #### Gems
  NeedFr[1]='0x0F00' 
  NeedTo[1]='0x0F30'
  #### Scrolls
  NeedFr[2]='0x1F10' 
  NeedTo[2]='0x1FFF'
  #### Jewerly
  NeedFr[3]='0x1F05'
  NeedTo[3]='0x1F0F'
  NeedFr[4]='0x1080'
  NeedTo[4]='0x108F'
  ####
  #### Bandages
  NeedFr[5]='0x0E20'
  NeedTo[5]='0x0E21'
  #### Arrows
  NeedFr[6]='0x0F3F'
  NeedTo[6]='0x0F3F'
  ####
  NeedTypes[0]=1
  NeedTypes[1]=1
  NeedTypes[2]=1
  NeedTypes[3]=1
  NeedTypes[4]=1
  NeedTypes[5]=1
  NeedTypes[6]=0
#####
#### Getting items up
  repeat
    UO.FindType(-1,-1,ContainerID)
    FCnt=UO.FindCount()
    if UO.FindCount()>0 then
      ItemGr=UO.GetGraphic('finditem')
      ItemID=UO.GetSerial('finditem')
      #UO.Print('Serial is: '+ItemID)
      ## Scanning for bags
      iItem=0
      while iItem<ContCnt
          if IsDip(ItemGr,ContFr[iItem],ContTo[iItem]) then
            UO.UseObject(ItemID) ## Opening container
            wait(OpenContWait)
            loot_container(ItemID,BagID)
            UO.Hide(ItemID) ## Closing opened container
            iItem=ContCnt
          end if
        iItem=iItem+1
      wend
      ## Scanning for items
      iItem=0
      while iItem<NeedCnt
        if NeedTypes[iItem] AND IsDip(ItemGr,NeedFr[iItem],NeedTo[iItem]) then
          UO.MoveItem(ItemID,0,BagID)
          wait(LootItemWait)
          iItem=NeedCnt
        end if
        iItem=iItem+1
      wend
      UO.Ignore(ItemID)
    end if
  until FCnt==0
end sub

### Функция возвращает следующий труп на определенном расстоянии
### Function returns next corpse on given distance
sub next_corpse(max_len)
  var CorpseID
  var VectorLen

  repeat
    UO.FindType('0x2006',-1,'ground') ### Finding corpse
    CorpseID=UO.GetSerial('finditem')
    VectorLen=UO.GetDistance(CorpseID)
    if VectorLen>max_len then
      UO.Ignore(CorpseID)
      CorpseID=77 ## Too far
    end if
    if UO.FindCount()==0 then
      CorpseID=0 ## No more corpses
    end if
  until CorpseID==0 or not CorpseID==77
  return CorpseID
end sub

### Проверка на принадлежность значения диапазону
### Check for a value being between bounds
sub IsDip(x,f,t)
  var i_x=UO.Hex2Int(x)
  var i_f=UO.Hex2Int(f)
  var i_t=UO.Hex2Int(t)
  if i_x>=i_f AND i_x<=i_t then
    return true
  else
    return false
  end if
end sub


### Функция лутящая все трупы вокруг
### All corpse looting function
sub auto_loot()
  dim Corpses[50]
  var CorpseCnt=0
  var CorpseNum
  var CorpseID
  var maxlen=2
  var BagID='0x400FA5DE'
  
  UO.IgnoreReset()

#### Закомментируйте эту функцию если не хотите лутить на земле (сначала проверьте)
#### Comment this function if you dont want to loot on ground (test it first)
  loot_container('ground',BagID) #
##################################

  UO.IgnoreReset()

  ## Searching Corpses
  CorpseID=next_corpse(maxlen*maxlen)
  while CorpseID
  Corpses[CorpseCnt]=CorpseID
  CorpseCnt=CorpseCnt+1
  CorpseID=next_corpse(maxlen*maxlen)
  UO.Ignore(CorpseID)
  wend
  
  ## Looting corpses
  if (CorpseCnt>1) then
    for CorpseNum=0 to CorpseCnt-1
      UO.UseObject(Corpses[CorpseNum])
      wait(OpenContWait)
      loot_container(Corpses[CorpseNum],BagID)
    next
  end if
  
  UO.IgnoreReset()
end sub

sub bandage_and_arm()
UO.SetArm("Start_script_arm")
UO.BandageSelf()
Wait(500)
UO.Arm("Start_script_arm")
end sub

sub autoheal()
UO.DeleteJournal()
UO.SetArm("Start_script_arm")
while not UO.InJournal('need healing')
   UO.DeleteJournal()
   UO.BandageSelf()
   CheckLag()
   UO.FindType('0x0E21')
   if (UO.FindCount()==0) then
      UO.WaitTagetType('0x1008')
      UO.UseType('0x0E20')
      wait(200)
   end if
   while not UO.InJournal('You apply') and not UO.InJournal('You put the') and not UO.InJournal("You don't need healing")
      wait(100)
   wend
wend
Wait(500)
UO.Arm("Start_script_arm")
end sub

sub HideAndHeal()
Hide()
autoheal()
end sub

sub Hide()
UO.WarMode(0)
UO.DeleteJournal()
while not UO.InJournal('You have hidden')
   UO.DeleteJournal()
   UO.UseSkill('Hiding')
   CheckLag()
   while not UO.InJournal('You have hidden') and not UO.InJournal("You can't seem to hide")
   wait(100)
   wend
wend
end sub

var SelfName='Beyonder' ## Your name without clan name
var rune_num=1 ## Rune number in runebook

sub recall_home()
UO.DeleteJournal()
uo.UseObject('0x401908D7') 
wait(100)
while not UO.InJournal(SelfName+': Kal Ort Por')
uo.LClick(135, rune_num*15+55) 
wait(200)
wend
end sub

Скрипт я сделал для ДРВ а там через рунбуковскую комманду recall не работает. По крайней мере я перепробовал номера рун до 20 и она не работала. А этот скрипт вызывает рунбук и жмет на рунку вручную. Причем жмет пока персонаж не начнет колдовать (полезно если бежишь).

Если ты тоже на ДРВ, то буду рад получить нормальную комманду .

#   ReCall                 -=#=-                     -=#=-                                     # 
Var RuneBookID               =   "0x4000FB87"          # RuneBook ID.                          # 
Var RuneBookSlot             =        "21"              # RuneBook Gump.                        # 
;.................
####################### 
sub RuneBookRecall() ############################################################################# 
####################### 
# Чар реколится по рунбуке.
# 
    UO.warmode(0) 
    UO.UseSkill('Hiding') 
    UO.Recall(RuneBookID, RuneBookSlot) 
end sub 

var rezalka=true

if rezalka==true then
режем
else
не режем
endif

sub loot_container(ContainerID,BagID) 
  var ContCnt=2 
  var NeedCnt=0
  dim ContFr[10] 
  dim ContTo[10] 
  dim NeedFr[20] 
  dim NeedTo[20] 
  dim NeedTypes[20] 

  var ItemGr 
  var ItemID 
  var FCnt 
  var iItem 
##### Настройка вещей 
##### Item config 
  #### Контейнеры 
  #### Containers 
  ContFr[0]='0x0E70' 
  ContTo[0]='0x0E80' 
  # 
  ContFr[1]='0x09B0' 
  ContTo[1]='0x09B0' 
  #### Вещи 
  #### Items 
  NeedFr[0]='0x0000' 
  NeedTo[0]='0xFFFF' 

  NeedTypes[0]=1 
##### 
#### Getting items up