Page 1 of 1

таминг

Posted: 2004-07-21 10:41:39
by durik
sub main()
var i,kolvo,tamed
DIM rats[8]
kolvo=8
for i = 1 to kolvo
uo.FindType(0x00e2,-1,1)
rats[i]=uo.GetSerial('finditem')
uo.Ignore('finditem','on')
next
uo.IgnoreReset()
uo.DeleteJournal()
RepeatLabel:
for i = 1 to kolvo
tamed=0
while (tamed<>1)
uo.DeleteJournal()
uo.UseSkill("Animal Taming",rats[i])
while ((uo.InJournal("You fail to tame")==0) and (uo.InJournal("master")==0))
wait(1000)
wend
if (uo.InJournal("master")<>0) then
tamed=1
end if
wait(500)
wend
uo.say("all release")
if (uo.InJournal("remembers")<>0) then
wait(20000)
end if
next
Goto RepeatLabel
end sub


это скрипт на таминг...в 6 строке прописан тип лошади(серой)...куда надо вставить вот эти 2 типа...0x00e4(бежевая) и 0x00cc(коричневая)
куда надо дописать эти 2 типа? чтоб тамились все лошади

Posted: 2004-07-21 15:57:31
by BETEPAH
Вопрос то твой я понял .....только зачем тебе это ?...
Глянь сюда
http://yoko.netroof.net/forum/viewtopic.php?t=647
Я вопрос с забиванием типов коней решил так ...

Posted: 2004-07-21 17:12:51
by durik
у нас на сервере чюток подругом...увас тамитьб надо стафом...а у нас скилом таминг
ну так гадо...щаз с типом 0x00e2 я могу тамить только серых лошадей....а хочеться коричневых и бежевых аиди я дал...я просто незнаю куда это правельно вписать

Re: таминг

Posted: 2004-07-22 07:21:57
by Bambr
durik wrote:sub main()
var i,kolvo,tamed
DIM rats[8]
kolvo=8
for i = 1 to kolvo
uo.FindType(0x00e2,-1,1)
rats[i]=uo.GetSerial('finditem')
uo.Ignore('finditem','on')
next
uo.IgnoreReset()
uo.DeleteJournal()
RepeatLabel:
for i = 1 to kolvo

это скрипт на таминг...в 6 строке прописан тип лошади(серой)...куда надо вставить вот эти 2 типа...0x00e4(бежевая) и 0x00cc(коричневая)
куда надо дописать эти 2 типа? чтоб тамились все лошади


Не понятно зачем первый цикл ... ну ладно, не важно.
Исходя из оригинала:
1) увеличиваешь массив rats в три раза
2) дописываешь ещё два цикла

Code: Select all

    for i = kolvo to kolvo*2
      uo.FindType(0x00e4,-1,1)
      rats[i]=uo.GetSerial('finditem')
      uo.Ignore('finditem','on')
   next
    for i = kolvo*2 to kolvo*3
      uo.FindType(0x00cc,-1,1)
      rats[i]=uo.GetSerial('finditem')
      uo.Ignore('finditem','on')
   next

3) увеличиваешь последний

Code: Select all

RepeatLabel:
   for i = 1 to kolvo*3


вариант не самый лучший .... попробуй - вдруг работать будет :wink: