Yoko
http://forum.yoko.com.ua/

таминг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=926		 Page 1 of 1
Author:  durik [ 2004-07-21 10:41:39 ]
Post subject:  таминг
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 типа? чтоб тамились все лошади
Author:  BETEPAH [ 2004-07-21 15:57:31 ]
Post subject: 
Вопрос то твой я понял .....только зачем тебе это ?...
Глянь сюда
http://yoko.netroof.net/forum/viewtopic.php?t=647
Я вопрос с забиванием типов коней решил так ...
Author:  durik [ 2004-07-21 17:12:51 ]
Post subject: 
у нас на сервере чюток подругом...увас тамитьб надо стафом...а у нас скилом таминг
ну так гадо...щаз с типом 0x00e2 я могу тамить только серых лошадей....а хочеться коричневых и бежевых аиди я дал...я просто незнаю куда это правельно вписать
Author:  Bambr [ 2004-07-22 07:21:57 ]
Post subject:  Re: таминг
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:
    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:
RepeatLabel:
   for i = 1 to kolvo*3


вариант не самый лучший .... попробуй - вдруг работать будет :wink:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/