Yoko :: правка таминг

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

правка таминг http://forum.yoko.com.ua/viewtopic.php?f=20&t=3184	Page 1 of 1

Author:

Gromiz [ 2005-02-22 23:13:12 ]

Post subject:

правка таминг

вот скрипт....тут надо изменить чтоб шринк не перетаскивал на лошадь, а 2клик на шринк и потом на лошадь

Code:

sub Taming() 
var shrink='0x0F09'         ; тип шринка (+) 
var Exit=0, i=0 
DIM hr[3] 

hr[0]='0x2121'     ;тут я ввел тип зашринкованных лошадей 
hr[1]='0x20F6'
hr[2]='0x00CC'

uo.print('Тотем') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 
UO.WaitTargetObject('TOT') 
UO.UseSkill('Animal Taming') 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems')  Then 
wait(5000)                               ; пусть педали подбегут 
UO.FindType(shrink,'0x0388','backpack')             ;  где 0x0388-цвет шринка 
uo.moveitem('finditem',1,'TOT')            
wait(500) 

for i=0 to 2
uo.findtype(hr[i],-1,'ground')          
if uo.findcount() then 
uo.grab('all','finditem') 
endif 
next 
uo.cast('Recall','0x40164DD0') ; runa 
Exit=1 
wait(2000) ; На всякий случай, можно попробовать убрать 
Endif 
wend 
end sub

Author:	Gromiz [ 2005-02-22 23:46:13 ]
Post subject:
Code: uo.moveitem('finditem',1,'TOT') косяк тут видать.... пробовал на usetype, useobject не работает ? Гм изменил использование шринка...... терь при таргете

Author:	gmur [ 2005-02-23 00:10:48 ]
Post subject:
Попробуй так: Code: UO.WaitTargetType('Тип хорсы') UO.Usetype('Тип шринка')

Author:	SAMURAI [ 2005-02-23 07:09:07 ]
Post subject:
Помоему лучше так (ихмо): Code: UO.WaitTargetType('Тип хорсы') UO.Usetype('Тип шринка' 'Цвет шринка')

Author:	Gromiz [ 2005-02-23 10:16:34 ]
Post subject:
не работает!

Author:

Sfagnum [ 2005-02-23 10:56:57 ]

Post subject:

Re: правка таминг

Gromiz wrote:

Code:

If Uo.InJournal('It seems')  Then 
wait(5000)                               ; пусть педали подбегут 
uo.waittargetobject('TOT')
UO.UseType(shrink,'0x0388')             ;  где 0x0388-цвет шринка 
wait(500) 

for i=0 to 2
uo.findtype(hr[i],-1,'ground')          
if uo.findcount() then 
uo.grab('all','finditem') 
endif

PS waittargetground это для прицела по типу

Author:	Gromiz [ 2005-02-23 12:05:54 ]
Post subject:
-)...шринкует ...но забывает забрать лошадь в пак

Author:	Sfagnum [ 2005-02-23 12:34:14 ]
Post subject:	Re: правка таминг
ну ты пока и не просил Gromiz wrote: Code: for i=0 to 2 uo.findtype(hr[i],-1,'ground') if uo.findcount() then uo.moveitem('finditem',-1,'backpack') endif next а он вообще находится, в смысле зазипованные педали?

Author:	Sfagnum [ 2005-02-23 12:37:48 ]
Post subject:
ах да... UO.UseType(shrink,'0x0388') ; где 0x0388-цвет шринка wait(500) тут вместо wait(500) или перед ним не помешал бы CheckLag() ИМХО ессно...

Author:

Gromiz [ 2005-02-23 13:26:09 ]

Post subject:

вот полная версия скрипта...щас идет проверка..по идее усе прально!

Code:

sub Taming() 
var shrink='0x0F09'         ; тип шринка (+) 
var Exit=0, i=0 
DIM hr[3] 

hr[0]='0x2121'     ;тут я ввел тип зашринкованных лошадей 
hr[1]='0x20F6'
hr[2]='0x00CC'

uo.print('Тотем') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 
UO.WaitTargetObject('TOT') 
UO.UseSkill('Animal Taming') 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems')  Then 
wait(5000)                               ; пусть педали подбегут 
uo.waittargetobject('TOT') 
UO.UseType(shrink,'0x0388') 
CheckLag() 
repeat 
wait(500) 

for i=0 to 2
uo.findtype(hr[i],-1,'ground')          
if uo.findcount() then 
uo.moveitem('finditem',-1,'backpack') 
endif 
next 
uo.cast('Recall','0x40164DD0') ; runa 
Exit=1 
wait(2000) ; На всякий случай, можно попробовать убрать 
Endif 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub

Author:	Gromiz [ 2005-02-23 13:31:30 ]
Post subject:
СКРИПТ РАБОТАЕТ

Author:	Sfagnum [ 2005-02-23 13:55:13 ]
Post subject:
Gromiz wrote: СКРИПТ РАБОТАЕТ странно... Gromiz wrote: Code: UO.UseType(shrink,'0x0388') CheckLag() repeat wait(500) repeat - откуда тут взялся? и самое главное где он зарывается

Author:	Gromiz [ 2005-02-23 14:47:08 ]
Post subject:
да это лишнее "repeat"... СКРИПТ РАБОТАЕТ

Author:	Sfagnum [ 2005-02-23 17:53:07 ]
Post subject:
ну так поправь

Author:	Gromiz [ 2005-02-23 18:49:21 ]
Post subject:
Sfagnum wrote: ну так поправь усе сделано _))

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/