Page 1 of 1
правка таминг
Posted: 2005-02-22 23:13:12
by Gromiz
вот скрипт....тут надо изменить чтоб шринк не перетаскивал на лошадь, а 2клик на шринк и потом на лошадь
Code: Select all
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
Posted: 2005-02-22 23:46:13
by Gromiz
косяк тут видать.... пробовал на usetype, useobject не работает ?
Гм изменил использование шринка...... терь при таргете
Posted: 2005-02-23 00:10:48
by gmur
Попробуй так:
Code: Select all
UO.WaitTargetType('Тип хорсы')
UO.Usetype('Тип шринка')
Posted: 2005-02-23 07:09:07
by SAMURAI
Помоему лучше так (ихмо):
Code: Select all
UO.WaitTargetType('Тип хорсы')
UO.Usetype('Тип шринка' 'Цвет шринка')
Posted: 2005-02-23 10:16:34
by Gromiz
не работает!
Re: правка таминг
Posted: 2005-02-23 10:56:57
by Sfagnum
Gromiz wrote:Code: Select all
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 это для прицела по типу
Posted: 2005-02-23 12:05:54
by Gromiz
-)...шринкует ...но забывает забрать лошадь в пак
Re: правка таминг
Posted: 2005-02-23 12:34:14
by Sfagnum
ну ты пока и не просил
Gromiz wrote:Code: Select all
for i=0 to 2
uo.findtype(hr[i],-1,'ground')
if uo.findcount() then
uo.moveitem('finditem',-1,'backpack')
endif
next
а он вообще находится, в смысле зазипованные педали?
Posted: 2005-02-23 12:37:48
by Sfagnum
ах да...
UO.UseType(shrink,'0x0388') ; где 0x0388-цвет шринка
wait(500)
тут вместо wait(500) или перед ним не помешал бы CheckLag() ИМХО ессно...
Posted: 2005-02-23 13:26:09
by Gromiz
вот полная версия скрипта...щас идет проверка..по идее усе прально!
Code: Select all
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
Posted: 2005-02-23 13:31:30
by Gromiz
СКРИПТ РАБОТАЕТ
Posted: 2005-02-23 13:55:13
by Sfagnum
Gromiz wrote:СКРИПТ РАБОТАЕТ
странно...
Gromiz wrote:Code: Select all
UO.UseType(shrink,'0x0388')
CheckLag()
repeat
wait(500)
repeat - откуда тут взялся? и самое главное где он зарывается
Posted: 2005-02-23 14:47:08
by Gromiz
да это лишнее "repeat"... СКРИПТ РАБОТАЕТ
Posted: 2005-02-23 17:53:07
by Sfagnum
ну так поправь
Posted: 2005-02-23 18:49:21
by Gromiz
Sfagnum wrote:ну так поправь
усе сделано _))