МОИ ПВП СКРИПТЫ

[Angelok]

буду тут выкладывать пвп скрипты играл на многих шардах последним был ДРВ


БУДУ РАД ЕСЛИ ЭТОТ МОЙ ТОП КОМУ-НИБУДЬ ПРИГОДИТСЯ

[Angelok]

Code: Select all

sub gritsc()  
   UO.FindType('0x1F49',-1,'my') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=5 then 
         UO.WaitTargetObject('self') 
         UO.UseObject('finditem') 
         UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      endif 
   else 
      if UO.Mana>=11 then 
         UO.Cast('Greater Heal','self') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub 

грит хел со свитка и без

[Angelok]

Code: Select all

sub exsbor()
UO.FindType('0x0F0D','0x0B99','ground')
UO.WaitTargetObject('finditem')
UO.Grab('1','finditem')

end sub

собирает експложены по одной

Code: Select all

sub ExplodeHim()
   VAR i, FirstBomb, FirstFlag=1, CountEX
   VAR ExHP=20 ; 1 bomb hits
   
   CountEX=INT(UO.GetHP('laststatus')/ExHP+0.99)
   UO.Print(STR(CountEX)+" explodov nado :)")

   For i=1 to CountEX
      UO.FindType('0x0F0D','0x0B99','my')
      If UO.GetQuantity('finditem') Then
         If FirstFlag Then
            FirstFlag=0
            FirstBomb='finditem'
         Endif         
         UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
            wait(500)
      Else
         UO.Print("Explosives not found!")
         EndIf
   Next
   UO.Cast('Magic Arrow',FirstBomb)
end sub

кидает опреденное количество експов под ноги ласт таргету скоко експов зависит от столба, как кинул все кидает стрелку

Code: Select all

sub drop() 
      uo.findtype(0x0F0D,-1,'my')    
         uo.drophere('finditem') 
end sub 

кидает под себя експложены по одному, для подрывников

Code: Select all

sub expl()
 uo.findtype('0x0f0d','0x0B99','ground')
 uo.cast('Magic Arrow','finditem')
end sub

кидает магик ароу на експложен на земле,нужна на ДРВ эта кнопка

[Angelok]

Code: Select all

sub POPA() 
var x 
if uo.getglobal('vetki')=='1' then 
uo.print('Kto to shas obosretsa :-)') 
goto exit2 
end if 
uo.setglobal('vetki','1') 
UO.Set('lasttarget','laststatus') 
x=uo.getserial('lasttarget') 
uo.findtype("0x09AA") 
if uo.findcount() then 
uo.drop("1",str(uo.getx(x)-1),str(uo.gety(x)),0,"finditem") 
end if 
wait(400) 
uo.findtype("0x09AA") 
if uo.findcount() then 
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)+1),0,"finditem") 
end if 
wait(500) 
uo.findtype("0x09AA") 
if uo.findcount() then 
uo.drop("1",str(uo.getx(x)+1),str(uo.gety(x)),0,"finditem") 
end if 
wait(500) 
uo.findtype("0x09AA") 
if uo.findcount() then 
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)-1),0,"finditem") 
end if 
uo.setglobal('vetki','0') 
exit2: 
uo.print('Mudilo v pope :-)') 
end sub

обкладывает 4мя ящиками(покупаеются прям у вендоров такие розоватые ящики вот) со всех сторон, не заменим когда человек в парализе подбегаешь нажимаешь, можно увеличить количество циклов будет во много рядом класть ящики, тогда практически не возможно их убрать не успеваешь убьют

Code: Select all

sub sbor()
UO.FindType('0x09A8','0x0000','ground')
UO.WaitTargetObject('finditem')
UO.Grab('1','finditem')
wait(500)
UO.FindType('0x09A8','0x0000','ground')
UO.WaitTargetObject('finditem')
UO.Grab('1','finditem')
wait(500)
UO.FindType('0x09A8','0x0000','ground')
UO.WaitTargetObject('finditem')
UO.Grab('1','finditem')
wait(500)
UO.FindType('0x09A8','0x0000','ground')
UO.WaitTargetObject('finditem')
UO.Grab('1','finditem')
end sub

собирает ети яшики на шардах где яшики поварачиваются можно переделать изменив типы

[Angelok]

Code: Select all

sub Loot()
      UO.UseObject('lastcorpse')

   if UO.GetQuantity('lastcorpse') then
      UO.SetArm('temp')
      UO.WaitTargetObject('lastcorpse')
      uo.useobject("dagger")
      wait(1000)
      UO.Arm('temp')
      wait(1500)
   endif
   UO.msg("Стасик Чикатила.")
end sub

режет труп по ласту, предварительно нужно занести Dagger в обьекты

Code: Select all

sub Lootbody() 
   VAR i,k,Exit  
   DIM Loot[30] 

   Loot[0]=0x13B9 ; Halberd
   Loot[1]=0x143E ; Vikin Sword 
   Loot[2]=0x0EED ; gp
   Loot[3]=0x1B76 ; Shield   
   Loot[4]=0x1B77 ; Shield
   Loot[5]=0x1415 ; Body
   Loot[6]=0x1416 ; Body  
   Loot[7]=0x1411 ; Legs 
   Loot[8]=0x141A ; Legs 
   Loot[9]=0x1414 ; Gauntlets
   Loot[10]=0x1418 ; Gauntlets
   Loot[11]=0x1410 ; Arms 
   Loot[12]=0x140E ; Helm 
   Loot[13]=0x1413 ; Gorget 
   Loot[14]=0x1086 ; Mana Bracelet 
   Loot[15]=0x1F5F ; Fs
   Loot[16]=0x0F0E ; Bag 
   Loot[17]=0x1F52 ; Total Mana 
   Loot[18]=0x1406 ; War Mace
   Loot[19]=0x1412 ; Plate Helm
   Loot[20]=0x0E21 ; Bandages
   Loot[21]=0x0EED ; 
   Loot[22]=0x0EED ; 
   Loot[23]=0x0EED ; 
   Loot[24]=0x0EED ; 
   Loot[25]=0x0EED ; 
   Loot[26]=0x0EED ;
   Loot[27]=0x0EED ; 
   Loot[28]=0x0EED ; 
   Loot[29]=0x0EED ; 
    
UO.SetReceivingContainer('0x400186C7')
   For i=0 to 29 
      Exit=0 
      repeat 
      if Loot[i]==0x0F0E then
         k=0x09DF
      else
         k=-1
      endif
       UO.FindType(Loot[i],k,'lastcontainer')
        if UO.FindCount('finditem') then
         UO.Grab('0','finditem')
          wait(500)
          Else
         Exit=1
        endif
      until Exit==1 OR uo.injournal("loot")
   Next 
UO.UnSetReceivingContainer()
end sub

лутить с трупа основные вещи,арм тотлы бандаги фсы можеете добавлять

[Angelok]

Code: Select all

sub horse()
   UO.FindType('0x00E2',-1,'ground')
   If UO.FindCount('finditem')>0 Then
      UO.UseObject('finditem')
   Else
      uo.UseObject('self')
      uo.waittargetobject('laststatus')
      UO.msg("All Kill")
   Endif
end sub

слазиет с ездового животного и говорит АЛЛ КИЛЛ по ластстатусу

Code: Select all

sub nightup()
uo.useobject("nigth")
UO.msg("All Stop")
end sub

говорит АЛЛ СТОП и залазиет на ездовое животное,предварительно добавив в обьекты nigth

[Angelok]

Code: Select all

sub RES2() 
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F67',-1,'my') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=25 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
         UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      endif 
   else 
      if UO.Mana>=51 then 
         UO.Cast('Resurrection','laststatus') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub 

ресает труп по ласт статусу со свитков и без,удобная вещь в бою

Code: Select all

sub res()
VAR ManaNeed=50
uo.findtype('0x0192','0x0000','ground')
if UO.Mana>=ManaNeed then
 uo.cast('Resurrection','finditem')
  else 
      UO.Print("Low mana!!!") 
   endif 
end sub

ресает госта по типу,то есть когда нет времени стаскивать табличку с твоего умершего товарища))

[Angelok]

Code: Select all

sub GRIT() 
UO.Set('lasttarget','laststatus') 
UO.Cast('Greater Heal','laststatus') 
UO.msg("ЧМОК !!!")
end sub 

лечить твоего напарника,нужно сташить с него табличку и вперед

Code: Select all

sub zashita() 
UO.Set('lasttarget','laststatus') 
UO.Cast('Magic Reflection','laststatus') 
UO.msg("Не ссы , я тя защитю..) !")
end sub 

делает рефлект на твоего товариша,также сташив табличку

[Angelok]

Code: Select all

sub clumsy() 
UO.Set('lasttarget','laststatus') 
UO.Cast('Clumsy','laststatus') 
end sub 

кидает лумси по ласттаргету и ластстатусу

Code: Select all

sub weaken() 
UO.Set('lasttarget','laststatus') 
UO.Cast('Weaken','laststatus') 
end sub 

кидает виакнес также

Code: Select all

sub strelka() 
UO.Set('lasttarget','laststatus') 
UO.Cast('Magic Arrow','laststatus') 
end sub 

кидает магик ароу также

[Angelok]

Code: Select all

sub Poison() 
   VAR ManaNeed=9 
   UO.Set('lasttarget','laststatus') 
   if NOT UO.Poisoned('lasttarget') then 
      if UO.Mana>=ManaNeed then 
         UO.Cast('Poison','laststatus') 
      else 
         UO.Print("Low mana!!!") 
      endif 
   else 
      UO.Print("Character already poisoned!") 
   endif 
end sub 

кидает поисон по ласту , если чар отравлен то поисон не кидается

Code: Select all

sub Par() 
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1f52',-1,'my') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=15 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
         UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      endif 
   else 
      if UO.Mana>=28 then 
         UO.Cast('Paralyze','laststatus') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub 

кидает парализ по ласту со свитка и без

Code: Select all

sub Flame() 
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F5F',-1,'my') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=22 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
         UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      endif 
   else 
      if UO.Mana>=45 then 
         UO.Cast('Flame Strike','laststatus') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
   wait(70)
end sub 

кидает фс по ласту со свитка и без

[Angelok]

Code: Select all

sub sanet()
UO.Cast('Reactive Armor','self')
UO.msg("Жужужу !...)")
end sub

кидает санет на себя

Code: Select all

sub shit()
UO.Cast('Protection','self')
UO.msg("А теперь я бронирован !...)")
end sub

протект на себя

Code: Select all

sub reflect()
UO.Cast('Magic Reflection','self')
end sub

рефлект на себя

[Angelok]

Code: Select all

sub healing() 
   UO.SetArm('CWeapon') 
   UO.Exec("bandageself") 
   wait(500) 
   UO.Arm('CWeapon') 
   UO.FindType('0x0F0C',-1,'my')
   
end sub 

хилинг бандагами

Code: Select all

sub BandageRess() 
var tBandage = '....' ;сюда прописать тип бинтов 
   if UO.Count(tBandage) < 20 then 
      UO.Print("Not enough b a n d a g e s") 
      return 
   end if 
   UO.SetArm('CWeapon') 
   UO.waittargetobject('laststatus') 
   UO.UseType(tBandage) 
   wait(500) 
   UO.Arm('CWeapon') 
end sub

ресание с бандаг

[Angelok]

Code: Select all

sub field()
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget"))) 
uo.cast("Paralyze Field") 
end sub

парализ филд по ластутаргету

[Angelok]

это в хоткеи

Code: Select all

waittargettile 24 0 0 27;cast 'Teleport'

телепортится на крышу здания по таилу, очень интересный хоткеи многи еспрашивали..))


это тоже в хоткей

Code: Select all

waittargetobject 'backpack';cast 'Fire Field'

фаер филд на свой бекпак, то есть фаер появляется под тобои даже если ты отбежал

[Angelok]

и еще хоткеи

Code: Select all

waittargettype 0x0f0d; cast 'Magic Arrow'

кидает магик ароу на експложен в паке(выход из парализа)

Code: Select all

waittargetobject rune;cast 'Recall'

рекол по руне в паке,предварительно забив Rune в обьекты

Code: Select all

usetype 0x0F0E 0x0631

пьет инвиз

Code: Select all

usetype 0x0f0e 0x09BB

пьет ГХ

Code: Select all

usetype 0x0f0e 0x09DF

пьет ману

Code: Select all

usetype 0x0F0E 0x0997

пьет рефреш

[Angelok]

Знаю что многие скрипты с форума Йоко, за что и хотел сказать спасибо самому Йоко и многим людям выкладывающим скрипты и помогавших в их написании..Ников называть не буду дабы не обидеть никого...скрипты все рабочие бегал с ними несколько лет в ПВП не подводили..))

Офф топ:
После моего ухода с ДРВ, Гуру забанил моих чаров которых я подарил ну да ладно не будет желания вновь заити в УО..))

Всем спасибо за внимание....удачи в реале.

[P]

Народ ищу мининг на каторгу

[newman]

Как хоткие натсраивать?
Например:
пьет ману
Code:
usetype 0x0F0E 0x0997
Что нужно из этого писать в command?