Да я уже всё зделал сенк тебе
И так сначала надо тыкнуть на каждую ламу
,help Она запаминает её айди...
Заменяем например "0x010BDD17"
най айди своей лошади "23525sdaga" (допустим)
sub main()
VAR i
DIM horse[30]
horse[1] = "0x010BDD17"
horse[2] = "0x010FE66F"
horse[3] = "0x010B909E"
horse[4] = "0x011184E5"
horse[5] = "0x002109E3"
horse[6] = "0x010C5AD6"
horse[7] = "0x0140A1AE"
horse[8] = "0x0000131C"
horse[9] = "0x010BAFA3"
horse[10] = "0x014103A6"
horse[11] = "0x0108DDF8"
horse[12] = "0x010C1574"
horse[13] = "0x010B37C1"
horse[14] = "0x012AA268"
horse[15] = "0x010B5CB6"
horse[16] = "0x001FB001"
horse[17] = "0x011A5EE5"
horse[18] = "0x010E9879"
horse[19] = "0x00FA9A53"
horse[20] = "0x00E09C15"
horse[21] = "0x00E12FB0"
horse[22] = "0x00F94A6B"
horse[23] = "0x009B90EE"
horse[24] = "0x00E00754"
horse[25] = "0x009AED9F"
horse[26] = "0x00893C7E"
horse[27] = "0x00896934"
horse[28] = "0x00E16772"
horse[29] = "0x009AE536"
horse[30] = "0x00F9DDCB"
While not UO.Dead()
For i = 1 to 30
UO.DeleteJournal()
While not UO.InJournal("It seems to accept you as master") and not UO.InJournal("is already tame")
UO.DeleteJournal()
Wait(1000)
UO.Useskill("Animal Taming", horse[i])
While not UO.InJournal("It seems to accept you as master") and not UO.InJournal("You fail to tame the creature") and not UO.InJournal("is already tame")
Wait(500)
Wend
Wend
Next
UO.WaitTargetTile('0',Str(UO.GetX(horse[1])),Str(UO.GetY(horse[1])),Str(UO.GetZ(horse[1])))
UO.Cast('Paralyze Field') # Колдовать
Wait(1000*60*5) # Ждать 5 минут
wend
End sub