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

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('Тип шринка' 'Цвет шринка')
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© 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