Yoko
http://forum.yoko.com.ua/

Coocking - как зациклить?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13766		 Page 1 of 1
Author:  Almasst [ 2008-07-08 15:03:00 ]
Post subject:  Coocking - как зациклить?
Есть скрипт, не могу правильно зациклить. В скриптовании я нуп полный, этот скрипт написал еле-еле ) и вообще не понимаю в чём трабл. Если кто может - переделайте так чтобы рыбу он жарил постоянно, пока есть костёр, когда его не становится - чтобы он (падла така) новый делал ( это и есть основная проблема) и продолжал жарить

Code:
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
Author:  Spirit [ 2008-07-08 15:11:26 ]
Post subject: 
А на форже не легче?
Или ты ещё кемпинг качаешь?)
Author:  Almasst [ 2008-07-08 15:17:14 ]
Post subject: 
сорри забыл сказать: играю на fwuo.ru, у нас к сожалению нельзя жарить на фордже.. и вообще ниначём кроме кемпфаера. Так-то я бы не мучался. Если можете помогите плз, а то 15к рыбы нежаренной лежит...
Author:  Spirit [ 2008-07-08 17:08:32 ]
Post subject: 
А там же инжект запрещён... :shock:
Author:  Scripts Writer [ 2008-07-08 17:50:59 ]
Post subject:  Re: Coocking - как зациклить?
[quote="Almasst"][/quote]
Скрипт, собственно говоря, это и делает. Всё как ты описал
Author:  Almasst [ 2008-07-08 19:05:34 ]
Post subject:  Re: Coocking - как зациклить?
Scripts Writer wrote:
Almasst wrote:

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


понимаешь ли, проблема в том, что на деле он этого не делает))) серьёзно, я даже друга проверить попросил... если можешь стукни 242-532(инвиз)
Author:  Destruction [ 2008-07-09 07:37:28 ]
Post subject: 
Quote:
UO.Moveitem( 'finditem', '100', 'backpack' )
checklag()

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

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


А вообще согласен, в целом скрипт делает именно то, что нужно.
Author:  Almasst [ 2008-07-09 08:29:58 ]
Post subject: 
Code:
wait(1000) 
[b]uo.DeleteJournal() [/b]
While not UO.InJournal( 'Mmm|burn' ) 
wait( 100 ) 
Wend


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


А вообще я ничего не понимаю. Ну не работает у меня данный скрипт. Ума не приложу, уже всё перепробывал. Может ктонить помочь?
Author:  Almasst [ 2008-07-09 08:57:34 ]
Post subject: 
о да! Это свершилось))

Code:
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:
While UO.FindCount() > 0 or UO.Count( fish ) < 1

Code:
While UO.FindCount() > 0 and UO.Count( fish ) > 0
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/