Yoko

sub Inskript()
 var count=0
 uo.print('Instrument')
 uo.exec('addobject Instrument')
 while uo.targeting()
 wait(100)
wend
   VAR Sunduk = '0x400120FC'     ; Сериал сундука
   VAR Logs = '0x1BDD'          ; Тип логов 
   VAR Skrol = '0x0E34'          ; Тип Скроллов
while not uo.dead()
      If UO.Count( Logs ) == 0 Then
         UO.FindType( Logs, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Logs not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 300 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Logs ) > 0
            CheckLag()
         Else
            UO.Grab( '300', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Logs ) == 300
            CheckLag()
         Endif
      Endif 
 uo.exec('recall Instrument 0x0003')
 wait(200)
 uo.deletejournal()
 wait(200)
 repeat
 wait(100)
 until uo.injournal('put') or uo.injournal('fail') or uo.injournal('another')
 wait(200)
      While UO.Count( Skrol ) > 0
         UO.FindType( Skrol )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait(1000)
            CheckLag()
         Endif
      Wend 
wend
end sub

Sub CheckLag()
   uo.DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

sub MoveRegi()
var DropBag= 1 # 1 - пустой мешочек выкидывать, 0 - оставить
uo.Print('Viberite otkuda: ') 
uo.Exec('addobject otkuda') 
while uo.Targeting() 
wait(100) 
wend 

uo.Print('Viberite kuda: ') 
uo.Exec('addobject kuda') 
while uo.Targeting() 
wait(100) 
wend 

uo.SetReceivingContainer('otkuda')
var i 
DIM MoveRegi[8] 
MoveRegi[0]=0x0F7A # Black Pearls
MoveRegi[1]=0x0F85 # Ginseng
MoveRegi[2]=0x0F88 # Nightshade
MoveRegi[3]=0x0F8C # Sulfurous Ash
MoveRegi[4]=0x0F8D # Spider's Silk
MoveRegi[5]=0x0F86 # Mandrake Roots
MoveRegi[6]=0x0F84 # Garlic
MoveRegi[7]=0x0F7B # Blood Moss
for i=0 to 7 
UO.FindType(MoveRegi[i], '-1', 'otkuda') 
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1','kuda') 
Wait(200) 
UO.FindType(MoveRegi[i],'-1','otkuda') 
wend 
next 
uo.UnSetReceivingContainer('otkuda')
if DropBag==1 then
uo.drophere('otkuda')
end if
uo.print('MoveRegi Off!')
end sub

sub GetRes(TYPE,COLOR,BAG,Quant)
   uo.useobject(BAG)
   wait(500)
   uo.findtype(TYPE,COLOR,BAG)
   if uo.findcount()> 0 then
      uo.moveitem('finditem',Quant,'backpack')
   end if
   wait(1000)
end sub

GetRes(Type of Item,Color of Item,From where,HowMuch)

GetRes(0x0000,0x0000,0x00000000,100)

uo.FindType(Type of logs,Color of logs,Where)
if uo.findcount()<10 then
uo.getres(0x0000,0x0000,0x00000000,100)
end if

Sub eat()
while not uo.dead()
uo.usetype('Milk Type')
uo.usetype('Beacon Type')
wait(3600000)
wend
end sub

sub killelem() 
VAR LastTimer, Elem ,i 
LastTimer=UO.Timer() 
UO.DeleteJournal() 
UO.FindType('0x000E',-1,'ground') 
Elem=UO.GetSerial('finditem') 
UO.Exec('warmode 1') 
UO.Attack(Elem) 
;WalkN(0,0,Elem) 
UO.Say('Dye, mother fucker!') 
repeat 
wait(2000) 
until UO.InJournal('Body') OR LastTimer+300<UO.Timer() or uo.dead(Elem) 
UO.Exec('warmode 0') 
wait(100) 
LastTimer=UO.Timer() 
if UO.Life<50 and UO.Count('0x0E21') then 
repeat 
UO.BandageSelf() 
wait(4000) 
until UO.Life>170 OR LastTimer+300<UO.Timer() 
endif 
loot() 
end sub

sub WalkN(x,y,Target) 
VAR i,StepSucess 
VAR dx,dy,Exit=0 

While Exit<>1 
If Target<>"" Then 
dx=UO.GetX(Target)-UO.GetX() 
dy=UO.GetY(Target)-UO.GetY() 
; UO.Print("Target locked!") 
If UO.GetDistance(Target)<2 Then 
Exit=1 
Endif 
Else 
dx=x-UO.GetX() 
dy=y-UO.GetY() 
If dx==0 AND dy==0 Then 
Exit=1 
Endif 

Endif 

If dx<>0 AND dy<>0 Then 
If dx>0 AND dy>0 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
If StepSucess==-1 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
StepSucess=Go(1,39,300);NE - RightArrow 
If StepSucess==-1 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
Endif 
Endif 
Endif 

If dx>0 AND dy<0 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
If StepSucess==-1 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
StepSucess=Go(3,40,300);SE - DownArrow 
If StepSucess==-1 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
Endif 
Endif 
Endif 

If dx<0 AND dy>0 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
If StepSucess==-1 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
StepSucess=Go(7,38,300);WN - UpArrow 
If StepSucess==-1 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
Endif 
Endif 
Endif 

If dx<0 AND dy<0 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
If StepSucess==-1 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
StepSucess=Go(5,37,300);SW - LeftArrow 
If StepSucess==-1 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
Endif 
Endif 
Endif 

Endif 

If dx<>0 AND dy==0 Then 
If dx>0 Then 
StepSucess=Go(2,34,300);E - PgDown 
If StepSucess==-1 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
If StepSucess==-1 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
Endif 
StepSucess=Go(2,34,300);E - PgDown 
Endif 
Endif 

If dx<0 Then 
StepSucess=Go(6,36,300);W - Home 
If StepSucess==-1 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
If StepSucess==-1 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
Endif 
StepSucess=Go(6,36,300);W - Home 
Endif 
Endif 
Endif 


If dx==0 AND dy<>0 Then 
If dy>0 Then 
StepSucess=Go(4,35,300);S - End 
If StepSucess==-1 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
If StepSucess==-1 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
Endif 
StepSucess=Go(4,35,300);S - End 
Endif 
Endif 

If dy<0 Then 
StepSucess=Go(0,33,300);N - PgUp 
If StepSucess==-1 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
If StepSucess==-1 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
Endif 
StepSucess=Go(0,33,300);N - PgUp 
Endif 
Endif 
Endif 
Wend 
end sub

var BAG= '0x400120FC'
VAR Logs ='0x1BDD'
VAR Skrol = '0x0E34'

Sub Carpentry()
   uo.exec('addobject Instrument') 
   while uo.targeting() 
      wait(100) 
   wend
   while not uo.dead()
      Findres()
      uo.exec('recall Instrument 0x0003')
      wait(200)
      uo.deletejournal()
      wait(200)
      repeat 
         wait(100) 
      until uo.injournal('put') or uo.injournal('fail') or uo.injournal('another') 
      wait(200)
      While UO.Count( Skrol ) > 0 
         UO.FindType( Skrol ) 
         If UO.FindCount() > 0 Then 
            UO.MoveItem( 'finditem', 0, BAG ) 
            wait(1000) 
            CheckLag() 
         Endif 
      Wend
   wend
end sub

sub FindRes()
   uo.findtype(Logs,-1,'backpack')
   CheckLag()
   if uo.findcount() < 10 then
      GetRes(Logs,-1,BAG,100)
   end if
end sub

sub GetRes(TYPE,COLOR,BAG,Quant) 
   uo.useobject(BAG) 
   wait(500) 
   uo.findtype(TYPE,COLOR,BAG) 
   if uo.findcount()> 0 then 
      uo.moveitem('finditem',Quant,'backpack') 
   end if 
   wait(500) 
end sub

Sub CheckLag() 
   uo.DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
   return 
end sub

sub killelem() 
VAR LastTimer, Elem ,i,n
LastTimer=UO.Timer() 

Dim NPC[3]
NPC[1]='Taip'
NPC[2]='Taip'
NPC[3]='Taip'

While not UO.DEAD()
UO.DeleteJournal() 
for n=1 to 3
UO.FindType('NPC[n]',-1,'ground') 
Elem=UO.GetSerial('finditem') 
UO.Exec('warmode 1') 
UO.Attack(Elem) 
WalkN(0,0,Elem) 
UO.Say('Dye, mother fucker!') 
repeat 
wait(2000) 
until UO.InJournal('Body') OR LastTimer+300<UO.Timer() or uo.dead(Elem) 
UO.Exec('warmode 0') 
wait(100) 
LastTimer=UO.Timer() 
if UO.Life<50 and UO.Count('0x0E21') then 
repeat 
UO.BandageSelf() 
wait(4000) 
until UO.Life>170 OR LastTimer+300<UO.Timer() 
endif 
YourAutoLootSCP()
next
wend
end sub