Помогите, что нужно вставить в скрипт чтобы:
1) после того как он затаймит всех лошадок, ставит под них парализ филз, допустим waittargettile xxx xxxx xxx xx;cast 'Paralyze Field'
2)после физла тайма не начанал таймить с horse[1] , а с той на которой физл был.
sub main()
VAR i
VAR start
DIM horse[5]
horse[1] = "0x00000000"
horse[2] = "0x00000000"
horse[3] = "0x00000000"
horse[4] = "0x00000000"
horse[5] = "0x00000000"
start:
For i = 1 to 5
UO.WaitTargetObject(horse[i])
UO.Useskill("Animal Taming")
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)
Wend
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
goto start
End If
end sub
While not UO.InJournal("It seems to accept you as master") and not UO.InJournal("is already tame")
UO.WaitTargetObject(horse[i])
UO.Useskill("Animal Taming")
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)
Wend
Wend
Sergiusis , Благодаря тебе получилось нечто подобное
если тебе не сложно помоги мне !
Как сделать так, чтобы после того как он затаймит допустим horse[44]
будет кастовать.. филд на них
邪魔ものは消え去れ もがきながら 暗い 暗い 地の底。。。 [Jama mono wa kiesare mogaki nagara,
kurai kurai chi no soko] (Помехи исчезнут, страдая, в чёрных чёрных глубинах земли...)
Sergiusis wrote:Для начала... Как они у тебя расположены?
сори за неясность ...
они расположены на одном тайле ...
я немогу втюхать в скрипт чтобы
он кастовал парализ филд... ждал там минут 5
потом заного таймил чтобы животные забыли хозяина.
sub main()
VAR i
DIM horse[44]
horse[1] = "0x014DD0E2"
horse[2] = "0x015BA8F6"
horse[3] = "0x0015A129"
horse[4] = "0x00B1CD8B"
horse[5] = "0x0084AD2D"
horse[6] = "0x00F9763E"
horse[7] = "0x00D0E0ED"
horse[8] = "0x00DC71FC"
horse[9] = "0x000DA453"
horse[10] = "0x00E6B4EB"
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 not UO.Dead()
For i = 1 to 44
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('Paralize Field') # Колдовать
Wait(1000*60*5) # Ждать 5 минут
wend
End sub
邪魔ものは消え去れ もがきながら 暗い 暗い 地の底。。。 [Jama mono wa kiesare mogaki nagara,
kurai kurai chi no soko] (Помехи исчезнут, страдая, в чёрных чёрных глубинах земли...)
Хы ))
Я вот тоже скопировал данный Скрипт! Работает тока другое у меня немного на шарде, но всёж работает!
Тока не останавливается на последней лошади и чешит дальше без перерыва.... пишет Животное уже затамлено.
Чо делать ?
Чо такое ЦИКЛ While 1<2 чо он делает?
