Page 1 of 1
Coocking - как зациклить?
Posted: 2008-07-08 15:03:00
by 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
Posted: 2008-07-08 15:11:26
by Spirit
А на форже не легче?
Или ты ещё кемпинг качаешь?)
Posted: 2008-07-08 15:17:14
by Almasst
сорри забыл сказать: играю на fwuo.ru, у нас к сожалению нельзя жарить на фордже.. и вообще ниначём кроме кемпфаера. Так-то я бы не мучался. Если можете помогите плз, а то 15к рыбы нежаренной лежит...
Posted: 2008-07-08 17:08:32
by Spirit
А там же инжект запрещён...
Re: Coocking - как зациклить?
Posted: 2008-07-08 17:50:59
by Scripts Writer
[quote="Almasst"][/quote]
Скрипт, собственно говоря, это и делает. Всё как ты описал
Re: Coocking - как зациклить?
Posted: 2008-07-08 19:05:34
by Almasst
Scripts Writer wrote:Almasst wrote:
Скрипт, собственно говоря, это и делает. Всё как ты описал
понимаешь ли, проблема в том, что на деле он этого не делает))) серьёзно, я даже друга проверить попросил... если можешь стукни 242-532(инвиз)
Posted: 2008-07-09 07:37:28
by 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()
А вообще согласен, в целом скрипт делает именно то, что нужно.
Posted: 2008-07-09 08:29:58
by Almasst
Code: Select all
wait(1000)
[b]uo.DeleteJournal() [/b]
While not UO.InJournal( 'Mmm|burn' )
wait( 100 )
Wend
Там выше читай сплошные вайлы, он тогда перестанет жарить после первой.
А вообще я ничего не понимаю. Ну не работает у меня данный скрипт. Ума не приложу, уже всё перепробывал. Может ктонить помочь?
Posted: 2008-07-09 08:57:34
by 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