Yoko

Code: Select all

sub autoattack()
sub mob
repeat
  wait(500)
  If UO.InJournal('is attacking you') then
    mob=uo.getserial(UO.JournalSerial(UO.InJournal('is attacking you')-1))
    uo.attack(mob)
  endif
  UO.DeleteJournal('is attacking you')
Until not UO.Dead()

Code: Select all

sub autoattack()
var mob
repeat
  If UO.InJournal('is attacking you') then
    mob=uo.getserial(UO.JournalSerial(UO.InJournal('is attacking you')-1))
    UO.DeleteJournal()
     if mob<>0 and mob<>uo.getserial('self') then
      uo.attack(mob)
      wait(1000)
     end if
  endif
 wait(500)
Until not UO.Dead()

Code: Select all

sub autoattack() 
var mob 
repeat 
  If UO.InJournal('is attacking you') then 
    mob=uo.getserial(UO.JournalSerial(UO.InJournal('is attacking you')-1)) 
    UO.DeleteJournal() 
     if mob<>"0x00000000" and mob<>uo.getserial('self') then 
      uo.attack(mob) 
      wait(1000) 
     end if 
  endif 
 wait(500) 
Until UO.Dead()

Code: Select all

sub autoattack() 
var mob 
repeat 
  If UO.InJournal('is attacking you') then 
    mob=uo.getserial(UO.JournalSerial(UO.InJournal('is attacking you')-1)) 
    UO.DeleteJournal() 
     if mob<>"0x00000000" and mob<>uo.getserial('self') then 
      uo.attack(mob) 
      wait(1000) 
     end if 
  endif 
 wait(500) 
Until UO.Dead()
end sub

Code: Select all

sub GrimKill() 

    Var hrsT, hrsC
    hrsT = "0x03CA" # тип зверька 
    hrsC = "0x0901" # его цвет 

repeat

   UO.FindType(hrsT, hrsC, "ground") 
       If UO.FindCount() > 0 Then 
         UO.WarMode(1) 
         walk(0,0,'finditem')
         wait(100)
         UO.Attack('finditem')  
       Else 
       End If 
         wait(10000)
until UO.dead()
end sub 

sub Walk(X,Y,Target) 
var Targeting='' 
var Result 
var DX,DY,GLX,GLY 
var DirW=0 
var exit=0 
while exit<>1 
if Target<>'' then 
Targeting=Target 
DX=uo.GetX(Target)-uo.GetX() 
DY=uo.GetY(Target)-uo.GetY() 
if uo.GetDistance(Target)<2 then 
exit=1 
end if 
else 
DX=X-uo.GetX() 
DY=Y-uo.GetY() 
GLX=DX 
GLY=DY 
if DX==0 and DY==0 then 
exit=1 
end if 
end if 
if exit==0 then 
if DX>0 and DY>0 then 
DirW=9 
end if 
if DX>0 and DY<0 then 
DirW=7 
end if 
if DX<0 and DY>0 then 
DirW=3 
end if 
if DX<0 and DY<0 then 
DirW=5 
end if 
if DX<>0 and DY==0 then 
if DX>0 then 
DirW=8 
else 
DirW=4 
end if 
end if 
if DX==0 and DY<>0 then 
if DY>0 then 
DirW=2 
else 
DirW=6 
end if 
end if 
Result=Go(DirW) 
if Result==0 then 
Result=Go(DirW-2) 
if Result==0 then 
Result=Go(DirW+2) 
end if 
end if 
end if 
wend 
end sub 

sub Go(dir) 
var WalkWait=100 
var Targeting='' 
var X,Y,GLX,GLY 
var check=1 
var StartingDir=uo.GetDir() 
X=uo.GetX() 
Y=uo.GetY() 
dim MoveKey[12] 
MoveKey[0]=34 
MoveKey[1]=40 
MoveKey[2]=35 
MoveKey[3]=37 
MoveKey[4]=36 
MoveKey[5]=38 
MoveKey[6]=33 
MoveKey[7]=39 
MoveKey[8]=34 
MoveKey[9]=40 
MoveKey[10]=35 
MoveKey[11]=37 
dim StartDir[12] 
StartDir[0]=2 
StartDir[1]=3 
StartDir[2]=4 
StartDir[3]=5 
StartDir[4]=6 
StartDir[5]=7 
StartDir[6]=0 
StartDir[7]=1 
StartDir[8]=2 
StartDir[9]=3 
StartDir[10]=4 
StartDir[11]=5 
while uo.GetDir()<>StartDir[dir] 
uo.Press(MoveKey[dir]) 
wait(WalkWait) 
if uo.GetDir()==StartingDir then 
end if 
if (Targeting<>'' and uo.GetDistance(Targeting)<2) or (GLX==0 and GLY==0) then 
return 1 
end if 
wend 
uo.Press(MoveKey[dir]) 
wait(WalkWait) 
if X==uo.GetX() and Y==uo.GetY() then 
uo.Press(MoveKey[dir]) 
wait(WalkWait) 
wait(100)
end if 
if X==uo.GetX() and Y==uo.GetY() then 
return 0 
else 
return 1 
end if 
end sub 

Code: Select all

UO.Set("finddistance","7")