Page 1 of 1
Carpentry_problem
Posted: 2006-12-11 16:59:34
by Dimage
Code: Select all
sub Carpentry(); делаем dartboard-ы!
repeat
UO.usetype(0x1034,0)
UO.waitmenu('Carpentry','Weapons','Weapons','fishing pole')
while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the")
Wait(100)
wend
UO.DeleteJournal()
if (UO.Count('0x1BDD',0) < 50) then
uo.findtype("0x1BDD","0","ground")
if uo.FindCount() then
UO.grab("500","finditem")
UO.Print('Нашли логи на полу... и взяли их в пак')
endif
Wait(1000)
endif
if (UO.Count('0x0EED',0) > 0) then
uo.findtype("0x0EED","0","my")
UO.drop("-1","0","0","0","finditem")
UO.Print('Выбросили бабло...')
Wait(100)
endif
until (UO.Count('0x1BDD',0) < 50)
UO.Print('Мля логи закончились...')
UO.Print('Ещё логов хочууу...');
end sub
Почемуто на выборе мену иногда выключается...можеты быть паузу добавить?
Posted: 2006-12-14 08:44:34
by TheXupypr
Возможно надо паузу поставить или попробуй поменять вот это
Code: Select all
while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the")
Wait(100)
wend
НА
Code: Select all
repeat
wait(300)
until uo.InJournal('You put the fishing') or uo.InJournal('You fail to create the')
Выше указанная команда помоему гармоничнеё получаеться и она спецмально для этого предназначена
И ешо
Code: Select all
UO.DeleteJournal()
Должно идти не после цикла а перед ним... попробуй думаю должно заработать
Posted: 2006-12-14 12:08:11
by Nmy
Posted: 2006-12-14 20:09:50
by Dimage
СПС за подсказку ... нашёл ещё решение в automenu
Code: Select all
sub Carpentry();
UO.automenu('Carpentry','Weapons')
UO.automenu('Weapons','fishing pole')
repeat
UO.usetype(0x1034,0)
while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the")
Wait(100)
wend
UO.DeleteJournal()
if (UO.Count('0x1BDD',0) < 50) then
uo.findtype("0x1BDD","0","ground")
if uo.FindCount() then
UO.grab("500","finditem")
endif
Wait(1000)
endif
if (UO.Count('0x0EED',0) > 0) then
uo.findtype("0x0EED","0","my")
UO.drop("-1","0","0","0","finditem")
Wait(100)
endif
until (UO.Count('0x1BDD',0) < 50)
UO.cancelmenu()
end sub