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

Taming стадо коров
http://forum.yoko.com.ua/viewtopic.php?f=17&t=14645		 Page 1 of 1
Author:  Nightmare [ 2009-04-04 11:44:44 ]
Post subject:  Taming стадо коров
рылся я рылся и ничего рабочего не нашел... у меня есть стадо коров в сарае, и нужно чтобы чар каждую из них тамил а патом писал all release и начинал все с начала... помогите пожалуйста
Author:  deeperzone [ 2009-04-05 12:38:20 ]
Post subject: 
Code:
sub taming()
VAR i
VAR t=3000 ### Промежутки между использованием скила Taming
VAR great='' ### Сообщение выводящие при успешном таминге
VAR bik1='' ### ID быка номер 1
VAR bik2='' ### ID быка номер 2
VAR bik3='' ### ID быка номер 3
### etc.
While not UO.Dead() ### Тамим пока не сдохним
i=0
if i==0 then
i=i+1
Uo.DeleteJournal()
repeat
waittargetobject(bik1)
uo.useskill('Animal Taming')
wait(t)
until UO.InJournal(great)
end if
if i==1 then
i=i+1
UO.DeleteJournal()
repeat
waittargetobject(bik2)
uo.useskill('Animal Taming')
wait(t)
until UO.InJournal(great)
end if
if i==2 then
i=i-2
UO.DeleteJournal()
repeat
waittargetobject(bik3)
uo.useskill('Animal Taming')
wait(t)
until UO.InJournal(great)
end if
wend
while
end sub


Ну вот в таком духе дописывай дальше сколько нужно быков ) Скрипт не проверял но поиеди должен работать так, тамит первого быка, если выводится сообщение о успешном тамлении, начинает тамить второго, ну и аналогично, заканчивает тамить 3, переходит к 1 =) Всё просто
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/