Yoko

Posted: **2006-10-29 17:25:29**

Суть скрипта вот в чем, появляется таргет им тыркаем в дерево, в пол шахты, в воду. Начинается процесс добычи ресурсов. Когда ресурс иссякнет появится новый таргет...

В переменной Instrument хранится тип инструмента, кирка, хатчет, удочка...

Сообщения прописаны не все, но по таймеру все равно выходит из цикла ожидания.

При достижении максимального веса скрипт останавливается. Для удобства юзания можно забиндить запуск скрипта на кнопку.

Code: Select all

###############################################################
#=---===----===---===---= Harvester =---=-=-=-=-=--=-=-=-=-=-=#
#           Scripted by Savage (c) 2006 ICQ:33336141          #
#"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""#
###############################################################
sub Harvest()
   VAR Exit
   VAR LastTimer

   VAR MaxWeight=450 ;max ves
   VAR Instrument='0x0F43' ;Hatchet
;   VAR Instrument='0x0E86' ;PickAxe

   While UO.Weight<MaxWeight

      UO.DeleteJournal()
      UO.Usetype(Instrument)
      wait(100)

      While UO.Targeting()
         wait(300)
      Wend

      If NOT UO.Hidden() Then
         UO.UseSkill('Hiding')
      Endif

      LastTimer=UO.Timer()
      Repeat
         wait(100)
      Until UO.InJournal("cliloc# 0xA867|cliloc# 0x5DE0|cliloc# 0xAD03|cliloc# 0xAD00|cliloc# 0xA309|cliloc# 0xA2DE|cliloc# 0xA30D|You|cliloc# 0xA30F|cliloc# 0xAD83|cliloc# 0xA4EE|cliloc# 0xAD84") OR LastTimer+70<UO.Timer()

      If UO.InJournal("cliloc# 0xA867|cliloc# 0xAD00|cliloc# 0xA309|cliloc# 0xA2DE|cliloc# 0xAD84|cliloc# 0xA30D") Then
         Exit=1
      Else
         Exit=0
      Endif
      
      While Exit<>1
         LastTimer=UO.Timer()
         UO.DeleteJournal()
         UO.WaitTargetTile('lasttile')
         UO.UseType(Instrument)
         Repeat
            wait(100)
         Until UO.InJournal("cliloc# 0xA867|cliloc# 0x5DE0|cliloc# 0xAD03|cliloc# 0xAD00|cliloc# 0xA309|cliloc# 0xA2DE|cliloc# 0xA30D|You|cliloc# 0xA30F|cliloc# 0xAD83|cliloc# 0xA4EE|cliloc# 0xAD84") OR LastTimer+70<UO.Timer()
         If UO.InJournal("cliloc# 0xA867|cliloc# 0xAD00|cliloc# 0xA309|cliloc# 0xA2DE|cliloc# 0xAD84|cliloc# 0xA30D") Then
            Exit=1
         Endif
      Wend
      wait(500)
   Wend
   UO.Print("+++ Max Weight reached!")
end sub

Yoko

Для Новы, харвестер полуавтомат.

Для Новы, харвестер полуавтомат.