###################################
### Режимы работы скрипта ###
###################################
sub cooking()
VAR Meshok = '0x400E7567'; Сериал мешка
VAR Maso = '0x097A'; Тип сырого мяса
VAR Beef = '0x097B'; Тип жареного мяса
VAR Kolvo = 100; Брать мяса
VAR Pechka = '0x40B55558'; Сериал печки
VAR k = 0
repeat
While TRUE
UO.FindType( Maso, -1, Meshok ); Ищем сырое мясо в мешке
If UO.FindCount() == 0 Then
UO.Print("Nety Miasa")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Maso ) > 1
; Пока в паке есть мясо
UO.Print('Ostalos ' + Str( UO.Count( Maso ) ) + ' miasa' )
UO.DeleteJournal()
UO.WaitTargetObject(Pechka)
UO.UseType(Maso)
k = 0
while NOT UO.InJournal('Вы положили') AND NOT UO.InJournal('не удалось') AND ( k < 9 )
k = k + 1
wait(500)
wend
if UO.Count( Beef ) > 0 then
UO.FindType( Beef, -1, -1 )
UO.MoveItem( 'finditem', 0, Meshok )
wait( 1000 )
UO.Print( 'Ribs moved' )
end if
Wend
Wend
until UO.Dead()
end sub
##################
Скрипт на жарку рыбы
19 января 2015 02:22
