Yoko
http://forum.yoko.com.ua/

бс подправка
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6961		 Page 1 of 1
Author:  ghost_hnt [ 2006-03-13 20:46:05 ]
Post subject:  бс подправка
сколько не правил скрипт них не получ
на шарде ввели поганные надписи при неудачах (пример- "Вы так и не смогли сделать хоть что-нибудь стоящее!") и т.д
короче скрипт работает, но потом хз почему выскакивает ошибка и вылетает uo terminated
помогите люди
Code:
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




:( :( :(
Author:  Kynep [ 2006-03-13 20:53:40 ]
Post subject:  Re: бс подправка
ghost_hnt wrote:
сколько не правил скрипт них не получ
на шарде ввели поганные надписи при неудачах (пример- "Вы так и не смогли сделать хоть что-нибудь стоящее!") и т.д
короче скрипт работает, но потом хз почему выскакивает ошибка и вылетает uo terminated
помогите люди
Code:
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:
UO.Automenu("Blacksmithing","Weapons") 
UO.Automenu("Weapons","Swords & Blades") 
UO.Automenu("Swords & Blades","dagger") ;Что куем


вставить

Code:
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем


если не поможет то сократи свои сообщения
и вместо:
Вы так и не смогли сделать хоть что-нибудь стоящее!
вставить просто:
"Вы так и"
:?
Author:  ghost_hnt [ 2006-03-13 21:06:03 ]
Post subject: 
ок попробуем
на счет weitmenu уже пробовал!!! :(
Author:  ghost_hnt [ 2006-03-13 22:07:03 ]
Post subject: 
блин пишет unhandled exception in parser :cry:
Author:  Kynep [ 2006-03-13 22:11:20 ]
Post subject: 
ghost_hnt wrote:
блин пишет unhandled exception in parser :cry:


кавычки проверь
Author:  ghost_hnt [ 2006-03-13 22:13:01 ]
Post subject: 
Code:
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


все с кавычками((
короче хз что!
поставил такой тип меню выводит таблицу с ножом, поставил пилот чтобы жмакал по ножу))
Author:  Kynep [ 2006-03-13 22:19:50 ]
Post subject: 
ghost_hnt wrote:
Code:
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:
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


ХЗ у мя работает норм. Пробуй... тока выйты поставь в начале
Author:  P [ 2006-03-13 23:00:28 ]
Post subject: 
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 всё работает и пашет !!!
Author:  ghost_hnt [ 2006-03-13 23:04:05 ]
Post subject: 
вроде все фича с этими выйтами, на этих норм работает(с этим скриптиком и пилотом), а с автоменю через некоторое время выкидывает или происходит ошибка :?
странновато
ну ладно буду качаться так, спасибо за помощь :!: :!:
(хоть кто-то блин отреагировал)
Author:  P [ 2006-03-13 23:14:35 ]
Post subject: 
А угадай кто ето =) I from hnt =) И ещё всё там работает и без пилота :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/