Page 1 of 1
Animal Taming , Помогите со скриптом
Posted: 2004-04-21 03:40:53
by Скриптолог
Помогите, что нужно вставить в скрипт чтобы:
1) после того как он затаймит всех лошадок, ставит под них парализ филз, допустим waittargettile xxx xxxx xxx xx;cast 'Paralyze Field'
2)после физла тайма не начанал таймить с horse[1] , а с той на которой физл был.
Заранее благодарю
Code: Select all
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
Re: Animal Taming , Помогите со скриптом
Posted: 2004-04-21 18:32:01
by Sergiusis
1) Примерно:
Code: Select all
UO.WaitTargetTile('0',Str(UO.GetX(horse[3])),Str(UO.GetY(horse[3])),Str(UO.GetZ(horse[3])))
UO.Cast('Paralize Field')
2) Вроде так:
Code: Select all
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
Posted: 2004-04-26 22:57:51
by Скриптолог
Спасибо
Posted: 2004-04-26 23:26:17
by Скриптолог
Sergiusis , Благодаря тебе получилось нечто подобное
если тебе не сложно помоги мне !
Как сделать так, чтобы после того как он затаймит допустим horse[44]
будет кастовать.. филд на них
Code: Select all
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 1<2
For i = 1 to 44
start:
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)
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
Posted: 2004-04-27 19:17:37
by Sergiusis
Для начала... Как они у тебя расположены?
Posted: 2004-04-27 23:35:44
by Скриптолог
Sergiusis wrote:Для начала... Как они у тебя расположены?
сори за неясность ...
они расположены на одном тайле ...
я немогу втюхать в скрипт чтобы
он кастовал парализ филд... ждал там минут 5
потом заного таймил чтобы животные забыли хозяина.
Posted: 2004-04-28 11:24:27
by Sergiusis
Вот что у меня вышло… Должно работать.
Code: Select all
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
Posted: 2004-04-29 01:08:20
by Скриптолог
ты душка
Posted: 2004-05-03 19:56:30
by AntiKiller
Скриптолог wrote:ты душка
Хы ))
Я вот тоже скопировал данный Скрипт! Работает тока другое у меня немного на шарде, но всёж работает!
Тока не останавливается на последней лошади и чешит дальше без перерыва.... пишет Животное уже затамлено.
Чо делать ?
Чо такое ЦИКЛ While 1<2 чо он делает?
Posted: 2004-05-04 19:28:03
by Скриптолог
AntiKiller wrote:Скриптолог wrote:ты душка
Хы ))
Чо такое ЦИКЛ While 1<2 чо он делает?
Пока 1 < 2 будет врощать цыкл.
Posted: 2004-05-04 19:39:50
by AntiKiller
Скриптолог wrote:AntiKiller wrote:Скриптолог wrote:ты душка
Хы ))
Чо такое ЦИКЛ While 1<2 чо он делает?
Пока 1 < 2 будет врощать цыкл.
Я убрал это теперь всё работает как часики!