Yoko
http://forum.yoko.com.ua/

Animal Taming , Помогите со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=153		 Page 1 of 1
Author:  Скриптолог [ 2004-04-21 03:40:53 ]
Post subject:  Animal Taming , Помогите со скриптом
Помогите, что нужно вставить в скрипт чтобы:
1) после того как он затаймит всех лошадок, ставит под них парализ филз, допустим waittargettile xxx xxxx xxx xx;cast 'Paralyze Field'
2)после физла тайма не начанал таймить с horse[1] , а с той на которой физл был.

Заранее благодарю

Code:
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
Author:  Sergiusis [ 2004-04-21 18:32:01 ]
Post subject:  Re: Animal Taming , Помогите со скриптом
1) Примерно:
Code:
  UO.WaitTargetTile('0',Str(UO.GetX(horse[3])),Str(UO.GetY(horse[3])),Str(UO.GetZ(horse[3])))
 UO.Cast('Paralize Field')

2) Вроде так:
Code:
 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
Author:  Скриптолог [ 2004-04-26 22:57:51 ]
Post subject: 
Спасибо
Author:  Скриптолог [ 2004-04-26 23:26:17 ]
Post subject: 
Sergiusis , Благодаря тебе получилось нечто подобное
если тебе не сложно помоги мне !
Как сделать так, чтобы после того как он затаймит допустим horse[44]
будет кастовать.. филд на них


Code:
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
Author:  Sergiusis [ 2004-04-27 19:17:37 ]
Post subject: 
Для начала... Как они у тебя расположены?
Author:  Скриптолог [ 2004-04-27 23:35:44 ]
Post subject: 
Sergiusis wrote:
Для начала... Как они у тебя расположены?


сори за неясность ...
они расположены на одном тайле ...
я немогу втюхать в скрипт чтобы
он кастовал парализ филд... ждал там минут 5
потом заного таймил чтобы животные забыли хозяина.
Author:  Sergiusis [ 2004-04-28 11:24:27 ]
Post subject: 
Вот что у меня вышло… Должно работать.

Code:
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
Author:  Скриптолог [ 2004-04-29 01:08:20 ]
Post subject: 
ты душка :)
Author:  AntiKiller [ 2004-05-03 19:56:30 ]
Post subject: 
Скриптолог wrote:
ты душка :)

Хы ))
Я вот тоже скопировал данный Скрипт! Работает тока другое у меня немного на шарде, но всёж работает!
Тока не останавливается на последней лошади и чешит дальше без перерыва.... пишет Животное уже затамлено.
Чо делать ?
Чо такое ЦИКЛ While 1<2 чо он делает?
Author:  Скриптолог [ 2004-05-04 19:28:03 ]
Post subject: 
AntiKiller wrote:
Скриптолог wrote:
ты душка :)

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

Пока 1 < 2 будет врощать цыкл.
Author:  AntiKiller [ 2004-05-04 19:39:50 ]
Post subject: 
Скриптолог wrote:
AntiKiller wrote:
Скриптолог wrote:
ты душка :)

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

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



Я убрал это теперь всё работает как часики!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/