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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

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

Post 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 
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post by Gromiz »

Code: Select all

uo.moveitem('finditem',1,'TOT')    
косяк тут видать.... пробовал на usetype, useobject не работает ?

Гм изменил использование шринка...... терь при таргете
gmur
Posts: 141
Joined: 2004-07-18 13:01:15
Contact:

Post by gmur »

Попробуй так:

Code: Select all

UO.WaitTargetType('Тип хорсы') 
UO.Usetype('Тип шринка')
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Помоему лучше так (ихмо):

Code: Select all

UO.WaitTargetType('Тип хорсы') 
UO.Usetype('Тип шринка' 'Цвет шринка')
Нет ничего невозможного...
Кто [url=http://forum.yoko.com.ua/search.php]ИЩЕТ[/url], тот всегда найдёт...
[code]sub UO()
UO.Chto-To("S Chem-To")
end sub[/code]
© I'm
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post by Gromiz »

не работает!
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

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

Post 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 это для прицела по типу ;)
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post by Gromiz »

-)...шринкует ...но забывает забрать лошадь в пак
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

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

Post 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 
а он вообще находится, в смысле зазипованные педали?
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

ах да...
UO.UseType(shrink,'0x0388') ; где 0x0388-цвет шринка
wait(500)
тут вместо wait(500) или перед ним не помешал бы CheckLag() ИМХО ессно...
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post 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
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post by Gromiz »

СКРИПТ РАБОТАЕТ
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

Gromiz wrote:СКРИПТ РАБОТАЕТ
странно...
Gromiz wrote:

Code: Select all

UO.UseType(shrink,'0x0388') 
CheckLag() 
repeat 
wait(500) 
repeat - откуда тут взялся? и самое главное где он зарывается :roll:
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post by Gromiz »

да это лишнее "repeat"... СКРИПТ РАБОТАЕТ
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

ну так поправь ;)
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post by Gromiz »

Sfagnum wrote:ну так поправь ;)
усе сделано _)) :roll:
Post Reply