Page 1 of 1
бс подправка
Posted: 2006-03-13 20:46:05
by ghost_hnt
сколько не правил скрипт них не получ
на шарде ввели поганные надписи при неудачах (пример- "Вы так и не смогли сделать хоть что-нибудь стоящее!") и т.д
короче скрипт работает, но потом хз почему выскакивает ошибка и вылетает uo terminated
помогите люди
Code: Select all
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.UseType('0x13E3')
UO.Automenu("Blacksmithing","Weapons")
UO.Automenu("Weapons","Swords & Blades")
UO.Automenu("Swords & Blades","dagger") ;Что куем
UO.UseType(0x1BF2) ;Инги айрона
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы так и не смогли сделать хоть что-нибудь стоящее!")
wait(500)
wend
If UO.InJournal("Вы так и не смогли сделать хоть что-нибудь стоящее!") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40209E22) ; Форж
wait(500)
Endif
wend
end sub
Re: бс подправка
Posted: 2006-03-13 20:53:40
by Kynep
ghost_hnt wrote:сколько не правил скрипт них не получ
на шарде ввели поганные надписи при неудачах (пример- "Вы так и не смогли сделать хоть что-нибудь стоящее!") и т.д
короче скрипт работает, но потом хз почему выскакивает ошибка и вылетает uo terminated
помогите люди
Code: Select all
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.UseType('0x13E3')
UO.Automenu("Blacksmithing","Weapons")
UO.Automenu("Weapons","Swords & Blades")
UO.Automenu("Swords & Blades","dagger") ;Что куем
UO.UseType(0x1BF2) ;Инги айрона
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы так и не смогли сделать хоть что-нибудь стоящее!")
wait(500)
wend
If UO.InJournal("Вы так и не смогли сделать хоть что-нибудь стоящее!") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40209E22) ; Форж
wait(500)
Endif
wend
end sub
Во первых попробуй вместо
Code: Select all
UO.Automenu("Blacksmithing","Weapons")
UO.Automenu("Weapons","Swords & Blades")
UO.Automenu("Swords & Blades","dagger") ;Что куем
вставить
Code: Select all
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем
если не поможет то сократи свои сообщения
и вместо:
Вы так и не смогли сделать хоть что-нибудь стоящее!
вставить просто:
"Вы так и"
Posted: 2006-03-13 21:06:03
by ghost_hnt
ок попробуем
на счет weitmenu уже пробовал!!!
Posted: 2006-03-13 22:07:03
by ghost_hnt
блин пишет unhandled exception in parser
Posted: 2006-03-13 22:11:20
by Kynep
ghost_hnt wrote:блин пишет unhandled exception in parser
кавычки проверь
Posted: 2006-03-13 22:13:01
by ghost_hnt
Code: Select all
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.UseType('0x13E3')
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем
UO.UseType(0x1BF2) ;Инги айрона
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы так и")
wait(500)
wend
If UO.InJournal("Вы так и") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40209E22) ; Форж
wait(500)
Endif
wend
end sub
все с кавычками((
короче хз что!
поставил такой тип меню выводит таблицу с ножом, поставил пилот чтобы жмакал по ножу))
Posted: 2006-03-13 22:19:50
by Kynep
ghost_hnt wrote:Code: Select all
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.UseType('0x13E3')
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем
UO.UseType(0x1BF2) ;Инги айрона
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы так и")
wait(500)
wend
If UO.InJournal("Вы так и") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40209E22) ; Форж
wait(500)
Endif
wend
end sub
все с кавычками((
короче хз что!
поставил такой тип меню выводит таблицу с ножом, поставил пилот чтобы жмакал по ножу))
Смотри то что красное сверху, вот тебе скрипт пробуй:
Code: Select all
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.UseType('0x13E3')
wait(500)
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем
UO.UseType(0x1BF2) ;Инги айрона
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы так и")
wait(500)
wend
If UO.InJournal("Вы так и") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40209E22) ; Форж
wait(500)
Endif
wend
end sub
ХЗ у мя работает норм. Пробуй... тока выйты поставь в начале
Posted: 2006-03-13 23:00:28
by P
sub BS()
var ing = '0x1BF2'
var forge='id forje'
var что куем название='id таго что куем'
uo.setarm('weap')
while True
UO.DeleteJournal()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords & Blades','Swords & Blades','Тут указывай название что куем')
UO.UseType(ing)
Repeat
wait(500)
Until UO.InJournal("You put") OR UO.InJournal("fail")
UO.FindType(scimitar,-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
uo.waittargetobject('finditem')
uo.usefromground(forge)
wait (1500)
Endif
uo.arm('weap')
Wend
end sub
Вот на скрипт под о2 всё работает и пашет !!!
Posted: 2006-03-13 23:04:05
by ghost_hnt
вроде все фича с этими выйтами, на этих норм работает(с этим скриптиком и пилотом), а с автоменю через некоторое время выкидывает или происходит ошибка
странновато
ну ладно буду качаться так, спасибо за помощь
(хоть кто-то блин отреагировал)
Posted: 2006-03-13 23:14:35
by P
А угадай кто ето =) I from hnt =) И ещё всё там работает и без пилота
