таминг+шринк+пак(+рекол.. для высшего пилотажа)

Gromiz · Post by **Gromiz** » 2005-02-21 21:40:12

Gromiz wrote:ммм....кхе...1 косяк есть-- после первой попытки тама скрипт останавливается -))

хе...это реальный косяк

Savage · Post by **Savage** » 2005-02-21 21:43:03

Savage wrote:Может у тебя регов нету? теперь заканчивается.

Savage wrote:Покажи скрипт, что получилось в итоге.

sub Taming() 
var count2='0x20F6'              ;тип лошади(+) 
var shrink='0x0F09'         ; тип шринка (+) 
var Exit=0

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)
uo.findtype(count2,-1,'ground')          
uo.grab('all','finditem') 
uo.cast('Recall','0x40164DD0') ; runa 
Exit=1
wait(2000) ; На всякий случай, можешь попробовать убрать
Endif 
wend
end sub

Gromiz · Post by **Gromiz** » 2005-02-21 22:24:23

что-то странно , то все получилось на ламе , то потом на 2 х лошадаях разных типов не получается, он их шринкует и оставляет на земле, а сам телепкается,.......лана мож это глюк.....

....
.......попробую завтра подумать на свежую голову....всем спасибо !!!!!

..........если кто-то может и хочет модернизировать, то дерзайте.....спасибо !!!!!

Savage · Post by **Savage** » 2005-02-21 22:29:28

Надо все шринкованные педали загонять в массив и проверять по очереди что на земле лежит.

BETEPAH · Post by **BETEPAH** » 2005-02-22 09:46:09

Смею заметить что Зашринкованая лошадь и лошадь незашринкованая имеют разные типы.

Savage · Post by **Savage** » 2005-02-22 10:01:42

С этим мы уже разобрались

Gromiz · Post by **Gromiz** » 2005-02-22 11:54:27

Savage wrote:Надо все шринкованные педали загонять в массив и проверять по очереди что на земле лежит.

вот я тут написал скриптик САМ....хех....., но он не работает выдает в 4й строке ошибку.........если я прально понял..ведь так массивы пишутся

Code: Select all

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

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

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) 

while 1==1

i=0
while Exit<>0 or i<2
uo.findtype(hr[i],-1,'ground')          
uo.grab('all','finditem') 
uo.cast('Recall','0x40164DD0') ; runa 
Exit=1 
wait(2000) ; На всякий случай, можешь попробовать убрать 
Endif 
wend 
end sub

Sfagnum · Post by **Sfagnum** » 2005-02-22 12:18:22

Gromiz wrote:

Code: Select all

UO.FindType(shrink,'0x0388','backpack')             ;  где 0x0388-цвет шринка

ошибка навскидку.

Gromiz · Post by **Gromiz** » 2005-02-22 12:44:01

Sfagnum wrote:
Gromiz wrote:
Code: Select all
UO.FindType(shrink,'0x0388','backpack')             ;  где 0x0388-цвет шринка 
ошибка навскидку.

неа......=(

Sfagnum · Post by **Sfagnum** » 2005-02-22 12:53:27

Gromiz wrote:неа......=(

я показал _где_ у тебя ошибка есть точно. остальное я не смотрел.

Sfagnum · Post by **Sfagnum** » 2005-02-22 12:55:59

Gromiz wrote:

Code: Select all

sub Taming() 
var shrink='0x0F09'         ; тип шринка (+) 
var Exit=0, i=0
DIM hr[2]  ;тут найди отличие
hr[1]='0x2121'     ;тут я ввел тип зашринкованных лошадей
hr[2]='0x20F6'

а вот из-за этого у тебя обшибка вылетала

Gromiz · Post by **Gromiz** » 2005-02-22 13:06:38

Sfagnum wrote:
Gromiz wrote:
Code: Select all
sub Taming() 
var shrink='0x0F09'         ; тип шринка (+) 
var Exit=0, i=0
DIM hr[2]  ;тут найди отличие
hr[1]='0x2121'     ;тут я ввел тип зашринкованных лошадей
hr[2]='0x20F6'
а вот из-за этого у тебя обшибка вылетала

ага...точно...но тут еще не конец еще 1 ошибка

Code: Select all

uo.findtype(hr[i],-1,'ground')

Savage · Post by **Savage** » 2005-02-22 13:18:46

Индекс массива начинается с 0 если хочешь начинать с еденицы размер массива увеличивай на 1

Savage · Post by **Savage** » 2005-02-22 13:24:43

Gromiz wrote:
Savage wrote:Надо все шринкованные педали загонять в массив и проверять по очереди что на земле лежит.
вот я тут написал скриптик САМ....хех....., но он не работает выдает в 4й строке ошибку.........если я прально понял..ведь так массивы пишутся
Code: Select all
sub Taming() 
var shrink='0x0F09'         ; тип шринка (+) 
var Exit=0, i=0
DIM hr=[2]

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

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 1
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 · Post by **Gromiz** » 2005-02-22 13:25:09

чет не получается...... затамил.....сам выпивает шринк и начинает бесконечно реколиться -(

Code: Select all

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

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

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) 

while 1==1 

i=0 
while Exit<>0 or i<1 
uo.findtype(hr[i],-1,'ground')          
uo.grab('all','finditem') 
uo.cast('Recall','0x40164DD0') ; runa 
Exit=1 
wait(2000) ; На всякий случай, можешь попробовать убрать 
Endif 
wend 
end sub

Savage · Post by **Savage** » 2005-02-22 13:27:23

Смотри выше.

Savage · Post by **Savage** » 2005-02-22 13:32:18

Шринк без кавычек надо писать он же переменная.

Savage · Post by **Savage** » 2005-02-22 13:33:28

Sfagnum wrote:
Gromiz wrote:
Code: Select all
UO.FindType(shrink,'0x0388','backpack')             ;  где 0x0388-цвет шринка 
ошибка навскидку.

Не морочь людям голову.

Gromiz · Post by **Gromiz** » 2005-02-22 13:42:03

Savage wrote:Смотри выше.

неа не пашет...затамил.-)) шринк на себя(или хз куда, но лошадь не шринкуется) и телепкается
((

Gromiz · Post by **Gromiz** » 2005-02-22 13:54:27

Gromiz wrote:
Savage wrote:Смотри выше.

неа не пашет...затамил.-)) шринк на себя(или хз куда, но лошадь не шринкуется) и телепкается
((

что связано с перетаскиванием...и циклом ..наверно