Code: Select all
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ARCHERY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Всё что надо сделать это либо попросить друга постоять пока вы будете прокачиваться,
; либо купить(затамить) дракона, поставить его на 2 этаж дома, обставить ящиками так,
; чтобы можно было стрелять и хелить его из хотябы 1 точки.
; Внимание! На шарде ДРВ за использование бага со 2 этажом и драком наказывают!!
; Итак, всё что нам надо:
; пачку бинтов (обязательно)
; мойку для бинтов (обязательно)
; стрелы (обязательно)
; еда
; лук (обязательно)
; соучаснег =) (обязательно)
; By BigMouseII [SoW] для сервера Dragon World.
; Версия 1.0b
sub archery()
var sunduk = '0x404D9F46' ; сундук со стрелами
var drak = '0x00143FAE' ; айди драка или соучаснега
while not UO.Dead()
UO.usetype("0x13B2") ; тип лука
UO.Attack(drak) ; ид врага
Repeat
uo.FindType('0x0F3F', '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