Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


 
Ответить в эту темуОткрыть новую тему
> > Отредактируйте пожалуйста, Алхимия >
Дядя Крим
сообщение 29.5.2010, 17:17
Сообщение #1


Гость
Group Icon

Группа: Пользователи
Сообщений: 47
Регистрация: 23.3.2008
Пользователь №: 5 632
Спасибо сказали: 0 раз(а)



Чар делает Лезер пойсоны а мне надо чтоб делал обычные пойсоны. Не гритер! Кроме того делает 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
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 16.7.2018, 10:42
Design: Fisana  © 2005-2006 IBR Team