Ultima Online Antares

sub qqAutoGuards()
   repeat
      uo.msg("guards")
      wait(10000)
   until uo.Dead()
end sub

Sub qqGump()  
   UO.Set('finddistance', '2')        
   uo.usefromground('0x107C');KOJA
   wait(100)
   uo.usefromground('0x1EB5');TINKERBOCHKa
   wait(100)
   uo.usefromground('0x0FB0');ANVIL
   wait(100)
   uo.usefromground('0x185B'); ALCHEMY
   uo.waitgump(1)
   uo.sendgumpselect('0x0001',1)
end sub

sub qqWork()
   var LastTimer
   uo.DeleteJournal()
   UO.IgnoreReset()
   qqGump()
   LastTimer=UO.Timer()
   repeat
      wait(100)
   Until UO.InJournal("Выполнение работы прервано!|Вы успешно справились с работой!|Необходимо подойти ближе!") or uo.Dead() OR (UO.Timer()>LastTimer+2000)
   wait(200)
   qqwork()
end sub

sub qqAutoGuards()
   repeat
если уровень жизни поменялся
      uo.msg("guards")
конец если
      wait(1000)
   until uo.Dead()
end sub

sub qqAutoGuards()
    repeat
        if uo.hits < uo.str
            uo.msg("guards")
        end if
        wait(1000)
    until uo.Dead()
end sub

sub DoorsOpen()
   UO.AddFindList('Doors', 0x0EDB)
   UO.AddFindList('Doors', 0x06F1)
   UO.AddFindList('Doors', 0x06F3)
   UO.AddFindList('Doors', 0x06A9)
   UO.AddFindList('Doors', 0x06E5)
   UO.AddFindList('Doors', 0x06E7)
   UO.AddFindList('Doors', 0x06ED)
   UO.AddFindList('Doors', 0x06EF)

   var Door
   repeat
         if UO.FindList('Doors', 'ground', 1, -1, -1) <> '' && UO.GetDistance('finditem') < 2 then
            Door= uo.getSerial('finditem')
            uo.useobject(Door)

if UO.STR > UO.Life