[Дядя Крим]

Чар делает Лезер пойсоны а мне надо чтоб делал обычные пойсоны. Не гритер! Кроме того делает 1 бутылку и останавливается. Скрипт висит но процесс не идёт.



sub Poison()
VAR Sunduk = '0x403A6D16' ; Сериал сундука
VAR Bottle = '0x0F0E' ; Тип бутылки
VAR Poison = '0x0E24' ; Тип poison
VAR Regi = '0x0F88' ; Тип рег (наит шеид)
VAR Kolv1 = 100 ; Брать рег
VAR Kolv2 = 50 ; Брать бутылок
VAR k = 0
While TRUE
UO.FindType( Bottle, -1, Sunduk ) ; Ищем бутылки в сундуке
UO.Grab( Str( Kolv2 ), 'finditem' )
wait( 1500 )
UO.FindType( Regi, -1, Sunduk ) ; Ищем реги в сундуке
UO.Grab( Str( Kolv1 ), 'finditem' )
wait( 1500 )
While ((UO.Count( Bottle ) > 10) and (UO.Count( Regi ) > 10))
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('What sort of potion do you want to make?', 'Poison' )
UO.UseType( Regi )
k = 0
while NOT UO.InJournal('Alchemy c.e.p') AND NOT UO.InJournal('Ваша') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Poison ) > 40 then
UO.FindType( Poison, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
ToEat()
end if
Wend
Wend
end sub

sub ToEat()
repeat
uo.UseType('0x097B')
while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
wait(300)
wend
wait(300)
until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't")
end sub