Я давно просил написать макр на таминг, ты написал и выложил, у меня что то сломалось и теперь не пашет(((. А ТЕМКУ УДАЛИЛИ(((
вообщем чар стоит рядом с кучей разной живности, и тамит ее предварительно покормив.
щас что то не пашет. или я что то намудрил (((
Code:
sub main()
var food='0x097B' # type of food for animal
#var animals = "0x00CF"
#var animals_length = 3
DIM animals[3]
animals[0] = '0x00DC' ;Liama
animals[1] = '0x00C8' ;Sheep
animals[2] = '0x00CC' ;Horce
var current_animals
var staf='0x0DF0' # ID your taming staf
var ms1="You fail to tame the creature."
var ms2="It seems to accept you as master."
var ms3="Your target is too far away from you."
var ms4="You put the fish steakss in your pack."
var k
while not uo.dead()
for animals = 0 to 3
uo.findtype(animals[current_animals],'-1','ground')
if uo.findcount()>0 then
k=uo.getserial('finditem')
uo.ignore('finditem')
uo.deletejournal()
while not uo.injournal(ms4)
uo.findtype(food,'-1','backpack')
uo.moveitem('finditem','1',k)
wait(750)
wend
repeat
wait(1000)
uo.deletejournal()
while not uo.injournal(ms2)OR uo.injournal(ms3)
uo.waittargetobject(k)
wait(50)
uo.usetype(staf)
uo.deletejournal()
repeat
wait(500)
until uo.injournal(ms1) or uo.injournal(ms2)
wend
uo.say("all release")
else
uo.ignorereset()
endif
next
wend
endsub