Yoko

et opat ja )))
nada skriptik na stiling i snuping stajat dva 4ela i tirat drug u druga kakunit figny tipa razbrosannix po 1 regov sna4ala 4el lezet v pak a potom ottuda tirit zakrivaet pak i snova ...

i eso na healing 4tob 2 4ela stajat 1drugogo mo4it i kada u 2 malo HP to perestajet ma4it i vile4ivaet i zanogo (2 nebjet postavlen na UOLoop s zaderzkoi TAB )

Esli netrudno dajte takie skriptiki ili napi6ite oni vrode neo4en bol6ie SPASIBO zaranee )) (serv DRW)

1) viewtopic.php?p=17874#17874

2)

sub fight()
while 1 
   gotoxy(2020,532,0) ;координаты куда подходить к противнику 
   UO.usetype("0x1B76") ;тип щита 
   uo.usetype("0x0F51") ;тип оружия 
   UO.Exec("attack 0x00054A88") ;айди 2-го чара 
   Repeat 
      wait (500) 
   if uo.injournal("destroyed")then 
   UO.usetype("0x0ec2") ;тип оружия 
   uo.deletejournal() 
   endif 
   Until ((UO.GetHP("0x0024FFEC") <100)or (UO.GetHP("0x00053A88")  <120)) ;жизни 1-го и 2-го чара 
   repeat 
   UO.Exec("warmode 0") ;выключаем вар мод 
   UO.Press(35) ;код клавиши End
   UO.Press(35) ;код клавиши End 
   until (uo.GetY() < 534) ;координаты по Y куда отходить чтобы лечить(ся) 
      UO.DeleteJournal() 
   Repeat 
      UO.Usetype("0x0E21") ;Bandages 
      UO.Exec("waittargetobject 0x00054A88") ;айди 2-го чара 
      wait(3500) 
   Until (UO.InJournal("need you")) 
      UO.DeleteJournal() 
   Repeat 
      UO.Usetype("0x0E21") ;Bandages 
      UO.Exec("waittargetobject 0x0024FFEC")  ;айди 1-го чара 
      wait(3500) 
   Until (UO.InJournal("need healing")) 
wend 
end sub 


sub gotoxy(x,y,prec) 
var ld=0,ldc=0 
var dx,dy 
var mx,my 
var ox,oy,mk,k 
#uo.print(">") 
#uo.track("1",str(x),str(y)) 
start: 
mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 
if dx<=prec then 
return 
end if 
if not ldc then 
uo.print(STR(dx)) 
end if 
if dx<3 then 
mk=70 
else 
mk=15 
end if 
ox=mx 
oy=my 
for k=1 to mk 
mx=UO.GetX() 
my=UO.GetY() 
if mx<>ox or my<>oy then 
goto sdidapl 
end if 
wait(10) 
next 
sdidapl: 
mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 
if dx<=prec then 
return 
end if 
if ld==dx then 
ldc=ldc+1 
if ldc>100 then 
uo.print("Can not reach location!") 
return 
end if 
else 
ld=dx 
end if 
if mx==x then 
if my==y then 
return 
endif 
if my>y then 
#UO.Print("UR") 
UO.Press(33) 
goto start 
endif 
#UO.Print("DL") 
UO.Press(35) 
goto start 
end if 
if mx<x then 
if my>y then 
#UO.Print("R") 
UO.Press(39) 
goto start 
endif 
if my==y then 
#UO.Print("DR") 
UO.Press(34) 
goto start 
endif 
#UO.Print("D") 
UO.Press(40) 
goto start 
end if 
if my<y then 
#UO.Print("L") 
UO.Press(37) 
goto start 
endif 
if my==y then 
#UO.Print("LU") 
UO.Press(35) 
goto start 
endif 
#UO.Print("U") 
UO.Press(38) 
goto start 
end sub 

sub Healing() 
   UO.SetArm('CWeapon') 
   UO.Exec("bandageself") 
   wait(500) 
    
   UO.Arm('CWeapon')
   end sub 


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

А линку на него кинуть не проще?

_________________
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

© I'm

Не помню где он лежит, а поиск не работает всё ещё