Page 1 of 1
Помогите Плиз с Тамингом
Posted: 2009-03-29 21:43:32
by Lac0ste2
Мне нужен Такои Скрипт
Чтоб при видения Дичи (Мустанги оклоки зостры кэмалы)
окно мигало как в аське или сыграл Звук
и это стоя Гостом
и еще чтоб при затамлении дичи сразу садился на дич
Хелп знающим
Posted: 2009-03-31 14:18:57
by Lolker007
Тамит сам и садится а остальное я хз
sub Taming()
var staff='0x13f8' ;type of Taming staff
uo.Set('finddistance','4')
uo.Exec('addobject animal')
while uo.Targeting()
wait(500)
wend
uo.FindType(staff,'-1','backpack')
if uo.FindCount() then
uo.DeleteJournal()
while not uo.InJournal('It seems')
uo.DeleteJournal()
uo.waittargetobject('animal')
uo.UseType(staff)
repeat
wait(500)
until uo.InJournal('You fail') or uo.InJournal('It seems')
if uo.InJournal('attack you') then
goto end
endif
wend
uo.UseObject('animal')
else
uo.Print('There is no Staff!')
end if
end:
end sub
Posted: 2009-03-31 14:30:42
by Lac0ste2
Lolker007 wrote:Тамит сам и садится а остальное я хз
sub Taming()
var staff='0x13f8' ;type of Taming staff
uo.Set('finddistance','4')
uo.Exec('addobject animal')
while uo.Targeting()
wait(500)
wend
uo.FindType(staff,'-1','backpack')
if uo.FindCount() then
uo.DeleteJournal()
while not uo.InJournal('It seems')
uo.DeleteJournal()
uo.waittargetobject('animal')
uo.UseType(staff)
repeat
wait(500)
until uo.InJournal('You fail') or uo.InJournal('It seems')
if uo.InJournal('attack you') then
goto end
endif
wend
uo.UseObject('animal')
else
uo.Print('There is no Staff!')
end if
end:
end sub
Пишет object updates Animal 0x3074a97 There is not staff
Таргет появляется а сам не тамит