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

теминг
http://forum.yoko.com.ua/viewtopic.php?f=17&t=11804		 Page 1 of 1
Author:  xarek [ 2007-04-20 18:27:43 ]
Post subject:  теминг
Вот скрипт на теминг с осидланием все хороши бы но можно бы его переделать не множко чтоб он если у меня стаф уже в руке то он темил а если в руке алебарда то одевал стаф но после затемливания обратно алебку
Code:
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
Author:  xarek [ 2007-04-20 22:08:35 ]
Post subject: 
что ни кто не может помоч?:(
Author:  to4a [ 2007-04-20 23:28:22 ]
Post subject: 
тебе, блин, тут что отряд быстрого реагирования?! за пол часа тут же все сбежались и начали писать, блин тебе скрипты?!
запросил и сиди жди спокойно, может кто поможет, а то вообще охренели
Code:
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
Author:  xarek [ 2007-04-21 00:20:03 ]
Post subject: 
не пол часа:) извените)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/