Yoko

Помогите, что нужно вставить в скрипт чтобы:
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

1) Примерно:

  UO.WaitTargetTile('0',Str(UO.GetX(horse[3])),Str(UO.GetY(horse[3])),Str(UO.GetZ(horse[3])))
 UO.Cast('Paralize Field')

2) Вроде так:

 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]
будет кастовать.. филд на них

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

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

_________________
邪魔ものは消え去れ　もがきながら　暗い　暗い　地の底。。。 [Jama mono wa kiesare mogaki nagara,
kurai kurai chi no soko] (Помехи исчезнут, страдая, в чёрных чёрных глубинах земли...)

сори за неясность ...
они расположены на одном тайле ...
я немогу втюхать в скрипт чтобы
он кастовал парализ филд... ждал там минут 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 чо он делает?

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

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