Yoko :: Скрипт на паринг и сворду.

Yoko http://forum.yoko.com.ua/

Скрипт на паринг и сворду. http://forum.yoko.com.ua/viewtopic.php?f=20&t=7862	Page 1 of 1

Author:	Dreygon [ 2006-06-04 11:58:13 ]
Post subject:	Скрипт на паринг и сворду.
Дайте пожайлуста скрипт на прокачку паринга и сворда.(щит и кливер) Для качания вместе с другом чтоб он запустил и я.(чтоб отходил и хилился када хп меньше указаного. В сеарче нашёл но они плохо пахали! Спасибо заранее!-при возможности вставьте спирит)

Author:

Nmy [ 2006-06-04 12:00:41 ]

Post subject:

Code:

sub fight() 
while 1 
   gotoxy(2020,532,0) ;координаты куда подходить к противнику 
   UO.usetype("0x1B76") ;тип щита 
   uo.usetype("0x0F51") ;тип оружия 
   UO.Exec("attack 0x00053A88") ;айди 2-го чара 
   Repeat 
      wait (500) 
   if uo.injournal("destroyed")then 
   UO.usetype("0x0ec2") ;тип оружия 
   uo.deletejournal() 
   endif 
   Until ((UO.GetHP("0x0028FFEC") <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 0x00053A88") ;айди 2-го чара 
      wait(3500) 
   Until (UO.InJournal("need you")) 
      UO.DeleteJournal() 
   Repeat 
      UO.Usetype("0x0E21") ;Bandages 
      UO.Exec("waittargetobject 0x0028FFEC")  ;айди 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

Author:	Dreygon [ 2006-06-04 12:03:47 ]
Post subject:
прикинь он то и не пашет)

Author:	Dreygon [ 2006-06-04 12:04:54 ]
Post subject:
или ето я кривой?)

Author:

Nmy [ 2006-06-04 12:05:10 ]

Post subject:

Code:

sub kill_BK() 
var MaxHP=70
UO.unSetArm('CWeapon')
UO.SetArm('CWeapon')
;uo.addobject('gost','0x0011A543')
uo.exec('addobject gost') 
 while uo.targeting() 
  wait(100) 
 wend



  while 1 
    if uo.GetHP('self')< MaxHP then
    uo.WarMode(0)
      WalkN(1668,1381,'')
      helings()
    endif 
    if uo.life == uo.str and not uo.gety() == 1378 then
      UO.Arm('CWeapon')
      uo.WarMode(1)
      uo.attack('gost')
      WalkN(1668,1378,'')
      wait(1000)
    uo.attack('gost') 
    endif 
    wait(300) 
  wend 
end sub 

sub helings()   
     while uo.GetHP('self') < uo.GetMaxHP('self')
      UO.WaitTargetSelf() 
      UO.UseType('0x0e21') 
      wait(300)
      if UO.Count('0x0e20')>0 then 
         wait(500) 
         uo.waittargettype('0x1008') 
         uo.usetype('0x0E20') 
         UO.DeleteJournal() 
      endif
      wait(4500)
     wend
end sub  

sub heling() 
     while uo.GetHP('self') < uo.GetMaxHP('self')
      UO.WaitTargetSelf() 
      UO.UseType('0x0e21') 
      wait(300)
      if UO.Count('0x0e20')>0 then 
         wait(500) 
         uo.waittargettype('0x1008') 
         uo.usetype('0x0E20') 
         UO.DeleteJournal() 
      endif
      wait(4500)
     wend
     UO.Arm('CWeapon')
end sub  

#============================================================== 
#  WalkN(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! 
#       serial - Serial of target or "" - string 
#     walkwait - delay after keypress 
#     Example: 
#     WalkN(2080,2113,'') - go to coordinates 
#     WalkN(0,0,'0x12345678') - go to target position 
#-------------------------------------------------------------- 
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 


sub Go(dir,key,walkwait) 
   VAR x,y, OldDir 

   x=UO.GetX() 
   y=UO.GetY() 
   OldDir=UO.GetDir() 

   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() 
   Endif 

   If x==UO.GetX() AND y==UO.GetY() AND OldDir<>UO.GetDir() Then 
      UO.Press(key) 
      wait(walkwait) 
   Endif 

   If x==UO.GetX() AND y==UO.GetY() Then 
      CheckLag() 
   Endif 
    
   If x==UO.GetX() AND y==UO.GetY() Then 
      UO.Print("Zasada!") 
      return -1 
   Else 
      return 1 
   Endif 
end sub

#============================================================== 
#  CheckLag() - click on backpack and awaiting "backpack" 
#               message in journal. 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

   Repeat 
      wait(500) 
   Until UO.InJournal('backpack') 
end sub

Author:	Nmy [ 2006-06-04 12:05:45 ]
Post subject:
научись настраивать скрипты идиот

Author:	Dreygon [ 2006-06-04 12:07:58 ]
Post subject:
я тя обзывал?

Author:	Doktor_Kor [ 2006-06-04 12:40:39 ]
Post subject:	Re: Скрипт на паринг и сворду.
Dreygon wrote: Дайте пожайлуста скрипт на прокачку паринга и сворда.(щит и кливер) Для качания вместе с другом чтоб он запустил и я.(чтоб отходил и хилился када хп меньше указаного. В сеарче нашёл но они плохо пахали! Спасибо заранее!-при возможности вставьте спирит) а что парринг на дрв включили????

Author:

DerMeister =) [ 2006-06-04 13:09:29 ]

Post subject:

А на#%@а отходить то? Чё, нельзя просто WAR выключить?
Вот чем я качал (скрипт НЕ под ДРВ).

Code:

sub main_healing()
var char
uo.deletejournal()
wait(2000)

uo.print("Укажите второго чара...") 
uo.addObject("char") 
while uo.targeting() 
wait(100) 
wend 

while not uo.dead()

uo.warmode(1)
wait(1000)
uo.attack('char')

while UO.Life > 30 and uo.warmode() == 1      #tut postavit' pod sebya
wait(500)
wend

uo.warmode(0)
wait(500)
uo.warmode(0)

repeat
uo.bandageself()
wait(6000)
until UO.Life > UO.STR/2

wend

end sub

Тока под ДРВ надо setarm и arm добавить...

ЗЫ: Запускается синхронно на обоих чарах...

Author:	Nmy [ 2006-06-04 13:45:14 ]
Post subject:
оба чара делают примерно два удара в секунду, как ты думаеш, как они одновременно выключат вар ?

Author:	DerMeister =) [ 2006-06-04 14:10:12 ]
Post subject:
NMY wrote: оба чара делают примерно два удара в секунду, как ты думаеш, как они одновременно выключат вар ? ГЫ, а как они тогда так быстро отбегут?... не вижу разницы! Проверяйте чаще, либо армор получше одевайте, либо синжронизируйте лучше.

Author:	Nmy [ 2006-06-04 15:32:41 ]
Post subject:
DerMeister =) wrote: NMY wrote: оба чара делают примерно два удара в секунду, как ты думаеш, как они одновременно выключат вар ? ГЫ, а как они тогда так быстро отбегут?... не вижу разницы! Проверяйте чаще, либо армор получше одевайте, либо синжронизируйте лучше. когда я качался на дрв (примерно два года назад юзал этот скрипт) все просто, если хп меньше 40 отходит в два шага и хелится... где трабл то ?

Author:	DerMeister =) [ 2006-06-04 16:19:24 ]
Post subject:
NMY wrote: DerMeister =) wrote: NMY wrote: оба чара делают примерно два удара в секунду, как ты думаеш, как они одновременно выключат вар ? ГЫ, а как они тогда так быстро отбегут?... не вижу разницы! Проверяйте чаще, либо армор получше одевайте, либо синжронизируйте лучше. когда я качался на дрв (примерно два года назад юзал этот скрипт) все просто, если хп меньше 40 отходит в два шага и хелится... где трабл то ? Траббл тока в том что это тупо... А чо делать если стама 0?

Author:	Nmy [ 2006-06-04 16:29:31 ]
Post subject:
а стама непадает и нету тут нечего тупого

Author:	omi4 [ 2006-06-04 16:37:48 ]
Post subject:
Компы на которых запускались чары были очень удаленные. Просто вырубать вар не выходило, они пытались убить друг друга на автопилоте. При запуске на одном компе естественно это не нужно.

Author:	DerMeister =) [ 2006-06-04 16:48:50 ]
Post subject:
omi4 wrote: Компы на которых запускались чары были очень удаленные. Просто вырубать вар не выходило, они пытались убить друг друга на автопилоте. При запуске на одном компе естественно это не нужно. Можно синхранезировать... да и вар можно только на одном чаре врубать, тогда всё ок будит.

Author:	Doktor_Kor [ 2006-06-04 16:54:14 ]
Post subject:
viewtopic.php?t=7867

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/