Yoko

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ARCHERY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Всё что надо сделать это либо попросить друга постоять пока вы будете прокачиваться,
; либо купить(затамить) дракона, поставить его на 2 этаж дома, обставить ящиками так,
; чтобы можно было стрелять и хелить его из хотябы 1 точки.
; Внимание! На шарде ДРВ за использование бага со 2 этажом и драком наказывают!!

; Итак, всё что нам надо:
; пачку бинтов (обязательно)
; мойку для бинтов (обязательно)
; стрелы (обязательно)
; еда
; лук (обязательно)
; соучаснег =) (обязательно)

; By BigMouseII [SoW] для сервера Dragon World.
; Версия 1.0b

sub archery()
var sunduk = '0x4047216A' ; сундук со стрелами
var drak = '0x004E0220' ; айди драка или соучаснега
while not UO.Dead()
   UO.usetype("0x13B1")            ; тип лука
   UO.Attack(drak)    ; ид врага
   Repeat
      uo.FindType('0x0F3F','0x0000', 'ground')
      if uo.findCount()>0 then
         uo.grab('0','finditem')
         wait(200)
      endif                     
      wait(1000)
   Until ((UO.GetHP("self") <80)or (UO.GetHP(drak) <80))
   UO.Exec("warmode 0")            ; убираем вар
   While not UO.Hidden()
      UO.Exec("warmode 0") 
      UO.Useskill('Hiding')
      wait(4000)
      wend
   UO.DeleteJournal()
   wait(200)
   Repeat
      While not UO.Hidden()
         UO.Exec("warmode 0") 
         UO.Useskill('Hiding')
         wait(4000)
      wend
      UO.Exec("bandageself")
      wait(1500)
   Until (UO.InJournal("need healing"))
   UO.DeleteJournal()
   Repeat
      UO.Exec("warmode 0")            ; убираем вар
      While not UO.Hidden()
         UO.Exec("warmode 0") 
         UO.Useskill('Hiding')
         wait(4000)
      wend
      UO.Usetype("0x0E21")         ;    тип бинтов
      UO.waittargetobject(drak)  ; ид врага
      wait(1500)
   Until (UO.InJournal("need you"))
   While UO.Count('0x0E20') > 0
      UO.Waittargettype('0x1008')
      wait(200)
      UO.Usetype('0x0E20')
   wend
wend
end sub