бс подправка

ghost_hnt · Post by **ghost_hnt** » 2006-03-13 20:46:05

сколько не правил скрипт них не получ
на шарде ввели поганные надписи при неудачах (пример- "Вы так и не смогли сделать хоть что-нибудь стоящее!") и т.д
короче скрипт работает, но потом хз почему выскакивает ошибка и вылетает 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

Kynep · Post by **Kynep** » 2006-03-13 20:53:40

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') ;Что куем

если не поможет то сократи свои сообщения
и вместо:
Вы так и не смогли сделать хоть что-нибудь стоящее!
вставить просто:
"Вы так и"

ghost_hnt · Post by **ghost_hnt** » 2006-03-13 21:06:03

ок попробуем
на счет weitmenu уже пробовал!!!

ghost_hnt · Post by **ghost_hnt** » 2006-03-13 22:07:03

блин пишет unhandled exception in parser :cry:

Kynep · Post by **Kynep** » 2006-03-13 22:11:20

ghost_hnt wrote:блин пишет unhandled exception in parser

кавычки проверь

ghost_hnt · Post by **ghost_hnt** » 2006-03-13 22:13:01

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

все с кавычками((
короче хз что!
поставил такой тип меню выводит таблицу с ножом, поставил пилот чтобы жмакал по ножу))

Kynep · Post by **Kynep** » 2006-03-13 22:19:50

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

ХЗ у мя работает норм. Пробуй... тока выйты поставь в начале

P · Post by P » 2006-03-13 23:00:28

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 всё работает и пашет !!!

ghost_hnt · Post by **ghost_hnt** » 2006-03-13 23:04:05

вроде все фича с этими выйтами, на этих норм работает(с этим скриптиком и пилотом), а с автоменю через некоторое время выкидывает или происходит ошибка

странновато
ну ладно буду качаться так, спасибо за помощь :!:

(хоть кто-то блин отреагировал)

P · Post by P » 2006-03-13 23:14:35

А угадай кто ето =) I from hnt =) И ещё всё там работает и без пилота

Yoko

бс подправка

бс подправка

Re: бс подправка