Yoko

Вот скрипт на теминг с осидланием все хороши бы но можно бы его переделать не множко чтоб он если у меня стаф уже в руке то он темил а если в руке алебарда то одевал стаф но после затемливания обратно алебку

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

_________________
DRW - Glorior Belli

не пол часа:) извените)