Yoko

Posted: **2005-03-02 12:46:32**

zolupo wrote:otec injekta

Извининяюсь, просто разные ники на разных форумах сбили меня с толку

Posted: **2005-03-02 16:03:53**

здесь ( насколько я помню ) я регался под основным ником
но забыл пас от мыла и от акка
так что сделал новый

Posted: **2005-03-02 16:25:53**

Не флудим .....если тема исчерпана то скажите ......я ее залочу.

Posted: **2005-03-03 15:40:41**

Code: Select all

sub HarvestReagents() 
UO.Print("AlexeyVorotnikov(c)")
  var numReagents = 5 
  dim reagentsTypes[5] 
  reagentsTypes[0] = 0x18E9 # Wild Ginseng 
  reagentsTypes[1] = 0x18E1 # Wild Garlic 
  reagentsTypes[2] = 0x18DF # Mandrake
  reagentsTypes[3] = 0x18E5 # Nightshade
  reagentsTypes[4] = 0x1F0F #Blood Moss
  var i 
  var lastTimer 

  UO.Set("distance", "2") 
  UO.Set("finddistance", "2") 

  UO.DeleteJournal() 

  while true 
    for i = 0 to numReagents -1 
      UO.FindType(reagentsTypes[i], -1, "ground") 
      while UO.FindCount() > 0 
        UO.UseObject("finditem") 

        lastTimer = UO.Timer() 

        repeat 
          wait(100) 
        until UO.InJournal("You put") || UO.InJournal("You must wait") || UO.InJournal("That is too far away") || UO.Timer() > lastTimer + 200 
        UO.DeleteJournal() 

        UO.Ignore("finditem") 

        UO.FindType(reagentsTypes[i], -1, "ground") 
      wend 
    next 
    wait(1000) 
  wend 
end sub

Все типы выращиваемых регов. Теперь тема исчерпана.

Yoko

Help! Особенно люди с мидлы!