помогите со скриптом на некромансию на абисс
Posted: 2009-11-07 02:07:15
доброго времени суток, помогите пожалуйста со скриптом на некромансию, нужно жарить руки ноги и т.д. на печи и перекладывать в сумку , заранее спасибо 
Code: Select all
sub Cook()
VAR steaks = '0x097A' ;сырая рыба
VAR ribs = '0x09F1' ;сырое мясо
VAR meat1 = '0x097B' ;жареная рыба
VAR meat2 = '0x09F2' ;жареное мясо
VAR Forge = '0x197E' ;жаровня
VAR Fair = '0x0DE3' ;костер
VAR BagForMeat = '0x400198C4' ;сумка для жареного мяса
VAR LastTimer
UO.Set('finddistance', 3)
WHILE NOT UO.Dead()
IF UO.Count( steaks )>0 OR UO.Count( ribs )>0 THEN
UO.DeleteJournal()
UO.FindType(Fair,-1,'ground')
If UO.FindCount() > 0 Then
UO.WaitTargetGround(Fair)
else
UO.FindType( Forge ,-1,'ground')
If UO.FindCount() > 0 Then
UO.WaitTargetGround( Forge )
endif
endif
;**************************************************
if UO.Count( steaks ) || UO.Count( ribs ) then
if UO.Count( steaks ) then
UO.UseType( steaks )
else
UO.UseType( ribs )
endif
else
return
endif
;**************************************************
LastTimer=UO.Timer()
repeat
wait(50)
until UO.InJournal("burn|You put|положили|fail|сожгли|не удалось") or UO.Timer()>LastTimer+100
ELSE
UO.Print(' = Сырое мясо кончилось = ')
UO.FindType( meat1 )
If UO.FindCount() > 0 Then
UO.MoveItem( 'finditem', '0' , BagForMeat )
wait( 300 )
Endif
UO.FindType( meat2 )
If UO.FindCount() > 0 Then
UO.MoveItem( 'finditem', '0' , BagForMeat )
wait( 300 )
Endif
UO.Print(' = Жареное мясо спрятано = ')
return
ENDIF
WEND
end sub
))