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/