Coocking - как зациклить?

[Almasst]

Есть скрипт, не могу правильно зациклить. В скриптовании я нуп полный, этот скрипт написал еле-еле ) и вообще не понимаю в чём трабл. Если кто может - переделайте так чтобы рыбу он жарил постоянно, пока есть костёр, когда его не становится - чтобы он (падла така) новый делал ( это и есть основная проблема) и продолжал жарить

Code: Select all

sub cook()
   Var fire  =  '0x0DE3'
   Var fish  =  '0x097A'
   Var sunduk = '0x400BC509'  # Âïèñàòü ID ñóíäóêà.
   Var hvorost = '0x0DE1'
   while not uo.dead()
   If UO.Count( fish ) < 1 Then
      UO.FindType( fish, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.Moveitem( 'finditem', '100', 'backpack' )
      Else
         return
      Endif
   Else
      wait(50)
   Endif
   UO.FindType( fire, '-1', 'ground' )
   If UO.FindCount() > 0 Then
      While UO.FindCount() > 0 or UO.Count( fish ) < 1
         UO.WaitTargetObject( 'finditem' )
         UO.UseType( fish )
         wait(1000)
         While not UO.InJournal( 'Mmm|burn' )
         Wend
         UO.FindType( fire, '-1', 'ground' )
         wend
   Else
      UO.FindType( hvorost, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.MoveItem('finditem','1','ground',UO.GetX()+1, UO.GetY()+1, UO.GetZ() )
         wait(200)
         UO.UseObject( 'finditem' )
      Else
         Return
      Endif
   Endif
   wend
endsub

[Spirit]

А на форже не легче?
Или ты ещё кемпинг качаешь?)

[Almasst]

сорри забыл сказать: играю на fwuo.ru, у нас к сожалению нельзя жарить на фордже.. и вообще ниначём кроме кемпфаера. Так-то я бы не мучался. Если можете помогите плз, а то 15к рыбы нежаренной лежит...

[Spirit]

А там же инжект запрещён...

[Scripts Writer]

[quote="Almasst"][/quote]
Скрипт, собственно говоря, это и делает. Всё как ты описал

[Almasst]

Скрипт, собственно говоря, это и делает. Всё как ты описал

понимаешь ли, проблема в том, что на деле он этого не делает))) серьёзно, я даже друга проверить попросил... если можешь стукни 242-532(инвиз)

[Destruction]

UO.Moveitem( 'finditem', '100', 'backpack' )
checklag()

wait(1000)
uo.DeleteJournal()
While not UO.InJournal( 'Mmm|burn' )
wait( 100 )
Wend

UO.MoveItem('finditem','1','ground',UO.GetX()+1, UO.GetY()+1, UO.GetZ() )
wait(200)
UO.UseObject( 'finditem' )
checklag()

А вообще согласен, в целом скрипт делает именно то, что нужно.

[Almasst]

Code: Select all

wait(1000) 
[b]uo.DeleteJournal() [/b]
While not UO.InJournal( 'Mmm|burn' ) 
wait( 100 ) 
Wend

Там выше читай сплошные вайлы, он тогда перестанет жарить после первой.


А вообще я ничего не понимаю. Ну не работает у меня данный скрипт. Ума не приложу, уже всё перепробывал. Может ктонить помочь?

[Almasst]

о да! Это свершилось))

Code: Select all

sub cook()
   Var fire  =  '0x0DE3'
   Var fish  =  '0x097A'
   Var sunduk = '0x400BC509'  # Âïèñàòü ID ñóíäóêà.
   Var hvorost = '0x0DE1'
   while not uo.dead()
   If UO.Count( fish ) < 1 Then
      UO.FindType( fish, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.Moveitem( 'finditem', '500', 'backpack' )
         Checklag()
      Else
         return
      Endif
   Else
      wait(50)
   Endif
   UO.FindType( fire, '-1', 'ground' )
   If UO.FindCount() > 0 Then
      While UO.FindCount() > 0 and UO.Count( fish ) > 0
         UO.WaitTargetObject( 'finditem' )
         UO.UseType( fish )
         wait(1000)
         While not uo.injournal( 'Mmm|burn|The previous' )
         wait(100)
         Wend
         UO.FindType( fire, '-1', 'ground' )
         wend
   Else
      UO.FindType( hvorost, '-1', sunduk )
      If UO.FindCount() > 0 Then
         UO.MoveItem('finditem','1','ground',UO.GetX()+1, UO.GetY()+1, UO.GetZ() )
         wait(200)
         UO.UseObject( 'finditem' )
         checklag()
      Else
         Return
      Endif
   Endif
   wend
endsub

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('ackpack') 
end sub

афигеть вот в этом походу была проблема

Code: Select all

While UO.FindCount() > 0 or UO.Count( fish ) < 1 

Code: Select all

While UO.FindCount() > 0 and UO.Count( fish ) > 0