Нужен скрипт на разведение животных.

Ask for scripts here

Moderators: Murderator+, Murderator

Jekaaa
Posts: 89
Joined: 2008-12-12 04:30:22

Re: Нужен скрипт на разведение животных.

Post by Jekaaa »

Теперь выдает ошибку =( на скрине цифра 1 это то что щас пишет в первом скрипте (который без добора) Цифра 2 второй скрипт. Ошибку он выдает при появлении надписи -19 food.
http://img16.imageshack.us/i/38963342.jpg/
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Нужен скрипт на разведение животных.

Post by Mirage »

у меня твоя картинка не открывается но скрипты рабочие. чтобы не заморачиваться жданьем пока тварюшка напишет 19 чтототам пропиши вместо фразы их имена, запусти скрипт и кликни на животное. Скрипт покормит столько раз сколько кликнешь.
Контйнер с хавчиком не забваешь естественно открывать перед запуском скрипта?
Jekaaa
Posts: 89
Joined: 2008-12-12 04:30:22

Re: Нужен скрипт на разведение животных.

Post by Jekaaa »

Твой скрипт пишет "Line 10: Variable undefined - TRAGET". И выключается =( А скрипт с добором пишет "Line 18: Bad operation for this type for variable - COLLLEFT" и тоже выключается =(
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:

Re: Нужен скрипт на разведение животных.

Post by Beyonder »

A ты в моём скрипте с добором случайно сюда кавычки не зафигачил?

Code: Select all

VAR coll = 10 ; количество еды которое берешь за 1 раз.

Должно быть без кавычек.

И вообще, выложи свой текущий скрипт который ты запускаешь. Ты же в нём вероятно циферки какие-нибудь менял.
Jekaaa
Posts: 89
Joined: 2008-12-12 04:30:22

Re: Нужен скрипт на разведение животных.

Post by Jekaaa »

Конечный скрипт выглядит так:

Code: Select all

sub kormim()
   VAR cont = '0x400B6B7F' ; мешок с кормом
   VAR target
   VAR item = '-1' ; тип еды
   VAR INFO = '-19 food' ; что именно пишется в журнале
   VAR coll = 19 ; количество еды которое берешь за 1 раз.
   VAR collLeft
   VAR toMove
   uo.deletejournal()
   while 1   
      if uo.injournal( INFO ) then
         collLeft = coll ;Reset counter
         target=uo.JournalSerial(uo.InJournal( INFO )-1)
         uo.deletejournal()
         while (collLeft > 0)
            uo.findtype(item,'-1',cont)
            toMove = min(collLeft,UO.GetQuantity('finditem')) ;Amount we can move from found stack
            collLeft = collLeft - toMove ;Amount left to be moved
            uo.moveitem('finditem',toMove,target)
            wait(500)
         wend
      endif
      wait(500)
   wend
end sub

Sub min(a,b)
   if (a > b) then
      return b
   else
      return a
   endif
endsub


Спасибо всем кто помогал в его написании! =)
Last edited by Jekaaa on 2010-02-19 09:50:25, edited 1 time in total.
Post Reply