Yoko

All sides of Injection
https://yoko.uokit.com/

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

https://yoko.uokit.com/viewtopic.php?t=3802

Page 1 of 1

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

Posted: 2005-04-24 10:37:32
by Angelok
буду тут выкладывать пвп скрипты играл на многих шардах последним был ДРВ


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

Posted: 2005-04-24 10:39:30
by 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


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

Posted: 2005-04-24 10:41:58
by 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


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

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




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


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

Posted: 2005-04-24 10:49:04
by 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


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

Posted: 2005-04-24 10:53:29
by 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

Posted: 2005-04-24 10:55:39
by 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


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

Posted: 2005-04-24 10:57:54
by 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


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

Posted: 2005-04-24 10:59:51
by 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


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

Posted: 2005-04-24 11:04:57
by 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


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

Posted: 2005-04-24 11:07:57
by 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


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

Posted: 2005-04-24 11:10:17
by 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



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

Posted: 2005-04-24 11:17:10
by 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


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

Posted: 2005-04-24 11:19:59
by Angelok
это в хоткеи

Code: Select all

waittargettile 24 0 0 27;cast 'Teleport'


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


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

Code: Select all

waittargetobject 'backpack';cast 'Fire Field'


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

Posted: 2005-04-24 11:26:18
by 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


пьет рефреш

Posted: 2005-04-24 11:30:12
by Angelok
Знаю что многие скрипты с форума Йоко, за что и хотел сказать спасибо самому Йоко и многим людям выкладывающим скрипты и помогавших в их написании..Ников называть не буду дабы не обидеть никого...скрипты все рабочие бегал с ними несколько лет в ПВП не подводили..))

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

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

Posted: 2006-08-12 11:58:13
by P
Народ ищу мининг на каторгу

Posted: 2006-08-19 14:18:15
by newman
Как хоткие натсраивать?
Например:
пьет ману
Code:
usetype 0x0F0E 0x0997
Что нужно из этого писать в command?
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited