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

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

МОИ ПВП СКРИПТЫ http://forum.yoko.com.ua/viewtopic.php?f=20&t=3802	Page 1 of 1

Author:	Angelok [ 2005-04-24 10:37:32 ]
Post subject:	МОИ ПВП СКРИПТЫ
буду тут выкладывать пвп скрипты играл на многих шардах последним был ДРВ БУДУ РАД ЕСЛИ ЭТОТ МОЙ ТОП КОМУ-НИБУДЬ ПРИГОДИТСЯ

Author:

Angelok [ 2005-04-24 10:39:30 ]

Post subject:

Code:

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

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

Author:

Angelok [ 2005-04-24 10:41:58 ]

Post subject:

Code:

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

end sub

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

Code:

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:

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

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

Code:

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

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

Author:

Angelok [ 2005-04-24 10:46:43 ]

Post subject:

Code:

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мя ящиками(покупаеются прям у вендоров такие розоватые ящики вот) со всех сторон, не заменим когда человек в парализе подбегаешь нажимаешь, можно увеличить количество циклов будет во много рядом класть ящики, тогда практически не возможно их убрать не успеваешь убьют :wink:

Code:

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

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

Author:

Angelok [ 2005-04-24 10:49:04 ]

Post subject:

Code:

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:

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

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

Author:

Angelok [ 2005-04-24 10:53:29 ]

Post subject:

Code:

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:

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

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

Author:

Angelok [ 2005-04-24 10:55:39 ]

Post subject:

Code:

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:

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

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

Author:

Angelok [ 2005-04-24 10:57:54 ]

Post subject:

Code:

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

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

Code:

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

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

Author:

Angelok [ 2005-04-24 10:59:51 ]

Post subject:

Code:

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

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

Code:

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

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

Code:

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

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

Author:

Angelok [ 2005-04-24 11:04:57 ]

Post subject:

Code:

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:

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:

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

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

Author:

Angelok [ 2005-04-24 11:07:57 ]

Post subject:

Code:

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

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

Code:

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

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

Code:

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

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

Author:

Angelok [ 2005-04-24 11:10:17 ]

Post subject:

Code:

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

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

Code:

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

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

Author:	Angelok [ 2005-04-24 11:17:10 ]
Post subject:
Code: sub field() uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget"))) uo.cast("Paralyze Field") end sub парализ филд по ластутаргету

Author:

Angelok [ 2005-04-24 11:19:59 ]

Post subject:

это в хоткеи

Code:

waittargettile 24 0 0 27;cast 'Teleport'

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

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

Code:

waittargetobject 'backpack';cast 'Fire Field'

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

Author:

Angelok [ 2005-04-24 11:26:18 ]

Post subject:

и еще хоткеи

Code:

waittargettype 0x0f0d; cast 'Magic Arrow'

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

Code:

waittargetobject rune;cast 'Recall'

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

Code:

usetype 0x0F0E 0x0631

пьет инвиз

Code:

usetype 0x0f0e 0x09BB

пьет ГХ

Code:

usetype 0x0f0e 0x09DF

пьет ману

Code:

usetype 0x0F0E 0x0997

пьет рефреш

Author:	Angelok [ 2005-04-24 11:30:12 ]
Post subject:
Знаю что многие скрипты с форума Йоко, за что и хотел сказать спасибо самому Йоко и многим людям выкладывающим скрипты и помогавших в их написании..Ников называть не буду дабы не обидеть никого...скрипты все рабочие бегал с ними несколько лет в ПВП не подводили..)) Офф топ: После моего ухода с ДРВ, Гуру забанил моих чаров которых я подарил ну да ладно не будет желания вновь заити в УО..)) Всем спасибо за внимание....удачи в реале.

Author:	P [ 2006-08-12 11:58:13 ]
Post subject:
Народ ищу мининг на каторгу

Author:	newman [ 2006-08-19 14:18:15 ]
Post subject:
Как хоткие натсраивать? Например: пьет ману Code: usetype 0x0F0E 0x0997 Что нужно из этого писать в command?

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