Yoko

#####################################################################
#bu klonuk # Icq 214 010 589###05.06.06##############################
#####################################################################
#######################Alchemy+Ходилка+Скупка v 1.0 b################
#####################################################################
#Описания.
#1.Скрипт полностью автономен, настраиваем , остовляем на ночь.
#2.Скрипт самостоятельно скупает не достоующие ингридиенты.
#3.Ходилка за вендором , что бы не убег т.к дистанция скупки не #болшьая
#а вендора постоянно двигаются.
#4.Скрипт очень легко можно переделать под любой другой навык.
#5.Чар варит Лессер куре (можно изменить ) , если болше ,10 штук #продает , подходит к вендору  закупает реги и бутылки ,если их 
# мало.  
# 
#####################################################################
#Пояснения.
#1. Скрипт используется быстрая закупка с вендора ,
#прежде чем запускать настройте быструю закупку с вендора в инжекте в закладке main
#Buy/Sell .... вставте ....Butul ( empty bottles) ....reg (из чего готовим )
# prod ( что продаем ).
#2.запускать Alchemy,У вас появиться прицел ,
#укажите этим прицелом вендора Алхимии
#
######################################################################


var reg='0x0F84'  ;  тупе рега которые юзаем 
var food='' ; что едим
sub Alchemy() 
VAR Dist
UO.Print('А за кем бегать будем?') 
   UO.AddObject('Vendor') 
   While UO.Targeting() 
      wait(500) 
   Wend 
repeat 
UO.Set ('finddistance','20')
Uo.FindType('Vendor', '-1', '1')
Dist=Uo.GetDistance ('finditem')
uo.DeleteJournal() 
UO.UseType(reg) ; из чего делаешь 
UO.WaitMenu('What','Cure')   ;вроде так )      
while NOT UO.InJournal("You put") AND NOT UO.InJournal(" failed") 
wait(100) 
wend 
if UO.count(reg) < 20 then ; если рег менше чем 20  докупает
       xodilka()   
     if  Dist<3 then                 
        reg() 
     endif
endif 
if Uo.count(0x0F0E,0x0000) < 20 then ;  если бутлок менше чем 20 докупает 
     xodilka()   
    if  Dist<3 then
        Butul() 
    endif 
endif
if Uo.count(0x0F07,0x0000) > 10 then ; ,info на бытлку и type и color  сюда 
      xodilka()   
   if  Dist<3 then
      prod() 
      eda()  
   endif
endif 
until uo.Dead()                                                                          
end sub 

Sub reg()                                                                                
  UO.Buy('reg')                                                                          
  wait(100)                                                                            
end sub                                                                                
                                                                                      
Sub Butul()                                                                            
UO.Buy('Butul')                                                                        
wait(100)                                                                            
end sub                                                                                
                                                                                      
Sub prod()                                                                          
UO.Sell('prod')                                                                    
wait(100)                                                                            
end sub


Sub xodilka()
SuperWalk(0,0,'Vendor') 
wait (1000)
end sub


Sub eda()

uo.usetype (food)    
uo.usetype (food)    
end sub

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




#==============================================================
#  SuperWalk(X,Y,Serial) - char is walking by dX and dY step
#                sub using Home, End, PgUp, PgDown keys
#                d'not rebind this key from default action!
#     walkwait - delay after keypress
#--------------------------------------------------------------
Sub SuperWalk(x,y,Target)
   VAR i
   VAR dir,ldir,rdir,key,olddir
   VAR dx,dy,Exit=0
   VAR CacheLimit=9,CacheIndex="Text"
   DIM CacheX[10], CacheY[10]
   VAR Dist
   CacheX[0]="Test"
   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 ; GoSE
            dir=3
            ldir=2
            rdir=4
            key=40 ; DownArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==2 Then ; GoNE
                  dir=1
                  ldir=0
                  rdir=1
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=5
                  rdir=6
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif

         If dx>0 AND dy<0 Then ; GoNE
            dir=1
            ldir=0
            rdir=2
            key=39 ; RightArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==0 Then ; GoWN
                  dir=7
                  ldir=6
                  rdir=7
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSE
                  dir=3
                  ldir=3
                  rdir=4
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif

         If dx<0 AND dy>0 Then ; GoSW
            dir=5
            ldir=4
            rdir=6
            key=37 ; LeftArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==6 Then ; GoWN
                  dir=7
                  ldir=7
                  rdir=0
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSE
                  dir=3
                  ldir=2
                  rdir=3
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif

         If dx<0 AND dy<0 Then ; GoWN
            dir=7
            ldir=6
            rdir=0
            key=38 ; UpArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==0 Then ; GoNE
                  dir=1
                  ldir=1
                  rdir=2
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=4
                  rdir=5
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
      Endif
   
      If dx<>0 AND dy==0 Then
         If dx>0 Then ; GoE
            dir=2
            key=34 ; PgDown
            olddir=UO.GetDir()
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==2 Then ; GoSE
                  dir=3
                  ldir=3
                  rdir=4
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoNE
                  dir=1
                  ldir=1
                  rdir=0
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
         
         If dx<0 Then ; GoW
            dir=6
            key=36 ; Home key
            olddir=UO.GetDir()
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==0 Then ; GoWN
                  dir=7
                  ldir=7
                  rdir=0
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=4
                  rdir=5
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
      Endif

      If dx==0 AND dy<>0 Then
         If dy>0 Then ; GoS
            dir=4
            key=35 ; End
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==2 Then ; GoSE
                  dir=3
                  ldir=2
                  rdir=3
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=6
                  rdir=5
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
         
         If dy<0 Then ;GoN
            dir=0
            key=33 ; PgUp
            olddir=UO.GetDir()
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==2 Then ; GoNE
                  dir=1
                  ldir=1
                  rdir=2
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoWN
                  dir=7
                  ldir=7
                  rdir=6
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
      Endif
   Wend
end sub


Sub StepEdit(x,y,dir,key)
   VAR walkwait=300
   VAR ErrLevel=0
   If UO.GetDir()<>dir Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir Then
         CheckLag()
      Endif
   Endif
   UO.Press(key)
   wait(walkwait)
   If x==UO.GetX() AND y==UO.GetY() Then
      CheckLag()
      If x==UO.GetX() AND y==UO.GetY() Then
;zatik
         ErrLevel=1
      Endif
   Endif
   Return ErrLevel
end sub


Sub StepArrow(x,y,dir,ldir,rdir,key)
   VAR walkwait=300
   VAR ErrLevel=0
   If UO.GetDir()<>dir Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then
         CheckLag()
      Endif
   Endif

   If UO.GetX()==x AND UO.GetY()==y Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then
         CheckLag()
         If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then
; zatik         
            ErrLevel=1
         Endif
      Endif
   Endif
   Return ErrLevel
end sub

UO.UseType(reg) ; из чего делаешь 
UO.WaitMenu('What','Cure')   ;вроде так ) 

UseType
WaitMenu

(k<100)
k=k+1
wait(100)

#####################################################################
#bu klonuk # Icq 214 010 589###05.06.06##############################
#####################################################################
#######################Alchemy+Ходилка+Скупка v 1.0 b################
#####################################################################
#Описания.
#1.Скрипт полностью автономен, настраиваем , остовляем на ночь.
#2.Скрипт самостоятельно скупает не достоующие ингридиенты.
#3.Ходилка за вендором , что бы не убег т.к дистанция скупки не #болшьая
#а вендора постоянно двигаются.
#4.Скрипт очень легко можно переделать под любой другой навык.
#5.Чар варит Лессер куре (можно изменить ) , если болше ,10 штук #продает , подходит к вендору  закупает реги и бутылки ,если их
# мало.
#
#####################################################################
#Пояснения.
#1. Скрипт используется быстрая закупка с вендора ,
#прежде чем запускать настройте быструю закупку с вендора в инжекте в закладке main
#Buy/Sell .... вставте ....Butul ( empty bottles) ....reg (из чего готовим )
# prod ( что продаем ).
#2.запускать Alchemy,У вас появиться прицел ,
#укажите этим прицелом вендора Алхимии
#
######################################################################

; не используй глобалки без нужды, тем более тут
; список прописан, смысл править рег?
; var reg='0x0F84'  ;  тупе рега которые юзаем
; var food='' ; что едим

sub Alchemy()
var reg='0x0F84'  ;  тупе рега которые юзаем
var food='' ; что едим

UO.Print('А за кем бегать будем?')
   UO.AddObject('Vendor')
   while UO.Targeting()
      wait(500)
   wend
repeat
; зачем искать? если мы его уже знаем
;UO.Set ('finddistance','20')
;Uo.FindType('Vendor', '-1', '1')
UO.DeleteJournal()
UO.WaitMenu('What','Cure')   ;вроде так )
UO.UseType(reg) ; из чего делаешь

; зачем while и почему and?
;while NOT UO.InJournal("You put") and NOT UO.InJournal(" failed")
;wait(100)
;wend
repeat
   wait(100)
until UO.InJournal("You put") or UO.InJournal(" failed")

if UO.Count(reg) < 20 then ; если рег менше чем 20  докупает
          xodilka()
       if UO.GetDistance ('Vendor')<3 then
            reg()
       endif
endif
if UO.Count(0x0F0E) < 20 then ;  если бутлок менше чем 20 докупает
       xodilka()
      if  UO.GetDistance ('Vendor')<3 then
            Butul()
      endif
endif
if UO.Count(0x0F07,0x0000) > 10 then ; ,info на бытлку и type и color  сюда
         xodilka()
    if  UO.GetDistance ('Vendor')<3 then
         prod()
         eda(food)
    endif
endif
until UO.Dead()
end sub

Sub reg()
   UO.Buy('reg')
   wait(100)
end sub

Sub Butul()
UO.Buy('Butul')
wait(100)
end sub

Sub prod()
UO.Sell('prod')
wait(100)
end sub

Sub xodilka()
SuperWalk(0,0,'Vendor')
wait (1000)
end sub


Sub eda(food)
uo.usetype (food)
uo.usetype (food)
end sub

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