Animal Taming , Помогите со скриптом

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Скриптолог
Posts: 18
Joined: 2004-04-08 23:46:47

Animal Taming , Помогите со скриптом

Post 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
Top
Sergiusis
Expert!
Posts: 51
Joined: 2004-04-04 08:37:43
Contact:
Contact Sergiusis

Re: Animal Taming , Помогите со скриптом

Post 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
Top
Скриптолог
Posts: 18
Joined: 2004-04-08 23:46:47

Post by Скриптолог »

Спасибо
Top
Скриптолог
Posts: 18
Joined: 2004-04-08 23:46:47

Post 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
Top
Sergiusis
Expert!
Posts: 51
Joined: 2004-04-04 08:37:43
Contact:
Contact Sergiusis

Post by Sergiusis »

Для начала... Как они у тебя расположены?
邪魔ものは消え去れ　もがきながら　暗い　暗い　地の底。。。 [Jama mono wa kiesare mogaki nagara,
kurai kurai chi no soko] (Помехи исчезнут, страдая, в чёрных чёрных глубинах земли...)
Top
Скриптолог
Posts: 18
Joined: 2004-04-08 23:46:47

Post by Скриптолог »

Sergiusis wrote:Для начала... Как они у тебя расположены?


сори за неясность ...
они расположены на одном тайле ...
я немогу втюхать в скрипт чтобы
он кастовал парализ филд... ждал там минут 5
потом заного таймил чтобы животные забыли хозяина.
Top
Sergiusis
Expert!
Posts: 51
Joined: 2004-04-04 08:37:43
Contact:
Contact Sergiusis

Post 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
邪魔ものは消え去れ　もがきながら　暗い　暗い　地の底。。。 [Jama mono wa kiesare mogaki nagara,
kurai kurai chi no soko] (Помехи исчезнут, страдая, в чёрных чёрных глубинах земли...)
Top
Скриптолог
Posts: 18
Joined: 2004-04-08 23:46:47

Post by Скриптолог »

ты душка :)
Top
AntiKiller
Posts: 51
Joined: 2004-04-12 13:16:17

Post by AntiKiller »

Скриптолог wrote:ты душка :)

Хы ))
Я вот тоже скопировал данный Скрипт! Работает тока другое у меня немного на шарде, но всёж работает!
Тока не останавливается на последней лошади и чешит дальше без перерыва.... пишет Животное уже затамлено.
Чо делать ?
Чо такое ЦИКЛ While 1<2 чо он делает?
Top
Скриптолог
Posts: 18
Joined: 2004-04-08 23:46:47

Post by Скриптолог »

AntiKiller wrote:
Скриптолог wrote:ты душка :)

Хы ))
Чо такое ЦИКЛ While 1<2 чо он делает?

Пока 1 < 2 будет врощать цыкл.
Top
AntiKiller
Posts: 51
Joined: 2004-04-12 13:16:17

Post by AntiKiller »

Скриптолог wrote:
AntiKiller wrote:
Скриптолог wrote:ты душка :)

Хы ))
Чо такое ЦИКЛ While 1<2 чо он делает?

Пока 1 < 2 будет врощать цыкл.



Я убрал это теперь всё работает как часики!
Top
Post Reply

Return to “Scripting Ore”