Taming стадо коров
Posted: 2009-04-04 11:44:44
рылся я рылся и ничего рабочего не нашел... у меня есть стадо коров в сарае, и нужно чтобы чар каждую из них тамил а патом писал all release и начинал все с начала... помогите пожалуйста
Code: Select all
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 =) Всё просто