Вот скрипт на теминг с осидланием все хороши бы но можно бы его переделать не множко чтоб он если у меня стаф уже в руке то он темил а если в руке алебарда то одевал стаф но после затемливания обратно алебку
sub Taming()
var staff='0x13F8' ;type of staff
uo.Set('finddistance','4')
uo.Exec('addobject animal')
while uo.Targeting()
wait(500)
wend
uo.FindType(staff,'-1','backpack')
if uo.FindCount('finditem') > 0 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')
wend
uo.UseObject('animal')
else
uo.Print('There is no Staff!')
end if
end sub
тебе, блин, тут что отряд быстрого реагирования?! за пол часа тут же все сбежались и начали писать, блин тебе скрипты?!
запросил и сиди жди спокойно, может кто поможет, а то вообще охренели
sub Tam()
if UO.GetGraphic(UO.ObjAtLayer('Lhand'))<>'0x13F8' and UO.GetGraphic(UO.ObjAtLayer('Lhand'))<>'0x13F9' then
UO.SetArm('beforetaming')
endif
AddObject('tam','Кого тамим?')
repeat
UO.WarMode(1)
UO.WarMode(0)
UO.DeleteJournal()
UO.WaitTargetObject('tam')
if UO.Count('0x13F8') then
UO.UseType('0x13F8')
endif
if UO.Count('0x13F9') then
UO.UseType('0x13F9')
endif
repeat
wait(100)
until UO.InJournal('to accept you|You fail|is already|of battle|see the creature')
until UO.InJournal('master|already')
UO.UseObject('tam')
wait(500)
UO.Arm('beforetaming')
endsub
Sub AddObject(obj,msg)
UO.Forget(obj)
UO.Print(msg)
UO.Set('quiet','1')
UO.CancelTarget()
UO.AddObject(obj)
while UO.Targeting()
wait(50)
wend
UO.AddObject(obj,'lasttarget')
UO.Set('quiet','0')
UO.Print('Присвоен обьект: '+UO.GetSerial(obj))
endsub