Yoko

Code: Select all

##########################################
var chair = '0x13B3'
##########################################
sub ChairCraft()
    uo.Print('Выбери Рубанок: ')
    uo.canceltarget()
    uo.Exec('addobject Rubanok')
    while uo.Targeting()
        wait(100)
    wend
    if uo.Waiting() then
        uo.CancelTarget()
    endif
    var a,Exit
    dim Boards[1]
    Boards[0]=0x1BD7
    uo.findtype('dubina',-1,'backpack')
    uo.Print('Делаем.')
    wait(500)
    for a=0 to 0
        Exit=0
        repeat
            uo.deletejournal()
            uo.FindType(Boards[a])
            if uo.GetQuantity('finditem')>0 then
                uo.deletejournal()
                uo.waittargettype(Boards[a])
                uo.exec("recall Rubanok 0x0401")
                repeat
                    wait(100)
                until uo.injournal("Вы закончили") or uo.injournal("Вы слишком измотаны")
                if uo.injournal("Вы слишком измотаны") then
                    wait(10000)
                endif
                uo.Print('У вас всего '+str(uo.Count(chair))+' стульев в сумке')
            else
                Exit=1
            endif
        until Exit==1
    next
    time=0
    uo.Print('Предметы сделаны.')
end sub
sub Terminate()
    uo.Print('Все функции скрипта выключены!')
    uo.DeleteJournal()
    uo.Exec('terminate all')
    wait(100)
    uo.Exec('terminate all')
    wait(100)
    uo.Exec('terminate all')
    wait(100)
end sub

Code: Select all

var EatingFood=0                                       
var TypeFood='0x09AD'                                  

sub EatingFood()
repeat
 uo.FindType(TypeFood)
  if uo.GetQuantity('finditem')>0 then
   uo.UseType(TypeFood)
   wait(1000)
  else
   EatingFood=0
   wait(1000)
   return 1
  endif
until uo.InJournal("Вы сыты и довольны") or uo.injournal("Вы переели")
end sub