таминг
Posted: 2004-07-21 10:41:39
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 типа? чтоб тамились все лошади
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 типа? чтоб тамились все лошади