Чар делает Лезер пойсоны а мне надо чтоб делал обычные пойсоны. Не гритер! Кроме того делает 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
|