Yoko

Вот ниже был таминг классный! Я его позаимствовал)
Но он тамит первую лошадь и всё дальше ни-ни.......


sub Taming()
VAR i

DIM horse[44]
horse[1] = "0x0001BE97"
horse[2] = "0x000161C1"
horse[3] = "0x0001A560"
horse[4] = "0x00B1CD8B"
horse[5] = "0x0084AD2D"
horse[6] = "0x00F9763E"
horse[7] = "0x00D0E0ED"
horse[8] = "0x00DC71FC"
horse[9] = "0x000DA453"
horse[10] = "0x00FB4C23"
horse[11] = "0x00FB4C23"
horse[12] = "0x00A64584"
horse[13] = "0x006F6696"
horse[14] = "0x016E012D"
horse[15] = "0x00B075E8"
horse[16] = "0x003BEF38"
horse[17] = "0x0035197E"
horse[18] = "0x0037266F"
horse[19] = "0x00FD9966"
horse[20] = "0x00144034"
horse[21] = "0x00A3057F"
horse[22] = "0x001E5CB9"
horse[23] = "0x000176F1"
horse[24] = "0x00CC2C40"
horse[25] = "0x01695D43"
horse[26] = "0x00D6DE00"
horse[27] = "0x00CDE595"
horse[28] = "0x00205F5A"
horse[29] = "0x01416A1A"
horse[30] = "0x00057856"
horse[31] = "0x00712308"
horse[32] = "0x005F14EA"
horse[33] = "0x016875E9"
horse[34] = "0x0164FE0B"
horse[35] = "0x00B1CBD5"
horse[36] = "0x006C7751"
horse[37] = "0x0043274D"
horse[38] = "0x001438FF"
horse[39] = "0x0179E2EE"
horse[40] = "0x00B1CE6C"
horse[41] = "0x003FC22B"
horse[42] = "0x00F4783C"
horse[43] = "0x00ED9876"
horse[44] = "0x00B1CB76"


While 1<2
For i = 1 to 44
start:
UO.WaitTargetObject(horse[i])
UO.UseType('0x13F4')
UO.DeleteJournal()
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)
If UO.InJournal("You fail to tame the creature") then
goto start
End If
If UO.InJournal("It seems to accept you as master") or UO.InJournal("is already tame") then
Next
wait(500)
End If
Wend
wend
End sub

А серийники всех своих 44 лошадей ты сюда вбил?

ЗЫ: Умеют же люди заморачиваться...

ЗЗЫ: Как-то странно у тебя цикл for...next заканчивается внутри ифа...

Я ограничился в начале 3 лошадьми и их серийниками остальные заблочил и цикл в 3 этапа, Ну а то что ты говориш Заканчивается внутри ИФ) это не я делал)) попробую переделать этот момент.

Он не просто внутри ифа заканчивается, но еще и внутри вайла... Я такого стиля программирования еще не встречал в своей жизни... Ты задумывался, что происходит в скриптовом модуле, когда встречается команда next а вложенный цикл while еще не завершен?

хых работате)
я убрал While 1<2 и в конце Wend
и поменял фразы из журнала! работате как часики!

У меня дурацкий вопрос к Yoko:
Разве индексы в массиве начинаются с единицы, а не с нуля?
Если да, то почему так?

С нуля.

_________________
...thinking - 37% complete...

В таком случае должен возникнуть выход за границы массива...

DIM horse[44]
....
horse[44] = "0x00B1CB76"

у меня заканчивает тамить последнюю лошадь и всё ок!
Скрипт выключается!