Yoko

All sides of Injection
It is currently 2026-01-02 16:58:17

All times are UTC+02:00




Post new topic  Reply to topic  [ 18 posts ] 
Author Message
PostPosted: 2005-04-24 10:37:32 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
буду тут выкладывать пвп скрипты играл на многих шардах последним был ДРВ


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


Last edited by Angelok on 2005-04-24 11:33:15, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2005-04-24 10:39:30 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 10:41:58 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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:


Last edited by Angelok on 2005-04-24 11:18:37, edited 2 times in total.

Top
   
 Post subject:
PostPosted: 2005-04-24 10:46:43 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 10:49:04 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 10:53:29 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


Top
   
 Post subject:
PostPosted: 2005-04-24 10:55:39 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 10:57:54 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 10:59:51 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 11:04:57 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 11:07:57 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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


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


Top
   
 Post subject:
PostPosted: 2005-04-24 11:10:17 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
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



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


Last edited by Angelok on 2005-04-24 11:22:02, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2005-04-24 11:17:10 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
Code:
sub field()
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Paralyze Field")
end sub


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


Last edited by Angelok on 2005-04-24 11:20:47, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2005-04-24 11:19:59 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
это в хоткеи

Code:
waittargettile 24 0 0 27;cast 'Teleport'


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


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

Code:
waittargetobject 'backpack';cast 'Fire Field'


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


Top
   
 Post subject:
PostPosted: 2005-04-24 11:26:18 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
и еще хоткеи

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


пьет рефреш


Top
   
 Post subject:
PostPosted: 2005-04-24 11:30:12 
Offline

Joined: 2004-07-15 09:43:11
Posts: 76
Знаю что многие скрипты с форума Йоко, за что и хотел сказать спасибо самому Йоко и многим людям выкладывающим скрипты и помогавших в их написании..Ников называть не буду дабы не обидеть никого...скрипты все рабочие бегал с ними несколько лет в ПВП не подводили..))

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

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


Top
   
 Post subject:
PostPosted: 2006-08-12 11:58:13 
Offline
User avatar

Joined: 2006-02-20 14:38:22
Posts: 54
Народ ищу мининг на каторгу


Top
   
 Post subject:
PostPosted: 2006-08-19 14:18:15 
Offline

Joined: 2006-08-12 15:42:02
Posts: 36
Как хоткие натсраивать?
Например:
пьет ману
Code:
usetype 0x0F0E 0x0997
Что нужно из этого писать в command?


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 18 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 5 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited