Прокачка резиста на ДРВ.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Прокачка резиста на ДРВ.

Post by HellFire »

Уже почти весь шард бегает с ГМ резиста. Одни качнули на баге с фаер филдами ( говорят баг прикрыли ) , другие качнули пару дней назад на монстрах ( говорят,что прокачали за день или пол дня. )
Вообщем подскажите кто где качал резист ( ТОЛЬКО если вы качали недавно ) Скрипт тоже не помешает. Ж((
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Re: Прокачка резиста на ДРВ.

Post by Kynep »

HellFire wrote:Уже почти весь шард бегает с ГМ резиста. Одни качнули на баге с фаер филдами ( говорят баг прикрыли ) , другие качнули пару дней назад на монстрах ( говорят,что прокачали за день или пол дня. )
Вообщем подскажите кто где качал резист ( ТОЛЬКО если вы качали недавно ) Скрипт тоже не помешает. Ж((


Ручками качается, на всех монстрах которые кастуют магию..
Top
DokKor
Posts: 47
Joined: 2006-02-04 14:57:35

Re: Прокачка резиста на ДРВ.

Post by DokKor »

Cooper wrote:
HellFire wrote:Уже почти весь шард бегает с ГМ резиста. Одни качнули на баге с фаер филдами ( говорят баг прикрыли ) , другие качнули пару дней назад на монстрах ( говорят,что прокачали за день или пол дня. )
Вообщем подскажите кто где качал резист ( ТОЛЬКО если вы качали недавно ) Скрипт тоже не помешает. Ж((


Ручками качается, на всех монстрах которые кастуют магию..



у всех челов которые знают баги
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

ручками ...

п.с. резист.txt -описание, могу поделиться за вмз
Top
Brutos
Posts: 1
Joined: 2005-03-08 18:12:54
Location: Израиль
Contact:
Contact Brutos

Post by Brutos »

You Must Die, лучше подождать, пока не сделают обычную прокачку Резиста. :?
С уважением, Brutos.
Top
Sanch
Posts: 308
Joined: 2005-07-17 15:30:52
Location: www.drw.ru

Post by Sanch »

:x Такой политрой матерных слов вспоминаю то время когда я играл на дрв, гмы дрв первые в мире по издевательству над игроками, отключить вообще какую либо прокачку резиста и включить сам скиил на невоспреимчивость к магии с вороятностью в 100%, это просто верх идиотизма, когда я мега маньяк пвп, заредил в чела 8 фс подряд и ему по, оч сильно удивился и упал, потом со временем забанили когда в собственной випке копал на скрипте, и кто они после этого? Ответ на мое письмо был следующего содержания, плати за разбан...
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

ну так что раскажите как щас качают для меня лично это очень октуально так как с меня огонек по 40 снимает ну там 35 - 38 подскажите или скрипт дайте.
Top
Sanch
Posts: 308
Joined: 2005-07-17 15:30:52
Location: www.drw.ru

Post by Sanch »

Если ее включили, то нужен скрипт на 2 скиента, тк собсная магия себе урон у вас не наносит, нужно чтобы один кидал постоянно фиер филыд и медитировал и другой чар чтобы жарился отходил хелился и вставал обратно, а еще на скок я помню дамаг от фаер филда на дрв 20хп\сек долго ты на нем не простоишь, качать его оч долго бушь. Попробуй написать сам, там 2 простеньких скрипта, качать нужно у дома, чтобы добирать реги и бинты.
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Хех )

P.S. резист.txt
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

ващета на скоко мне известно не качается со стенок резист. ща на дрв у меня от простой мангии качается например иннох если в меня кто кинул или парализ фаербол и тд
Top
Sanch
Posts: 308
Joined: 2005-07-17 15:30:52
Location: www.drw.ru

Post by Sanch »

мож попробовать сделать так, кидаешь на себя рефлект, затем стрелку в себя, она от тя отражается и в тебя же попадает, мож получится :wink:
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

Sanch wrote:мож попробовать сделать так, кидаешь на себя рефлект, затем стрелку в себя, она от тя отражается и в тебя же попадает, мож получится :wink:


Не получится, тока если будешь кидать в когото мб...
Top
Shax
Posts: 8
Joined: 2005-04-13 05:56:15

Post by Shax »

BigMouseI wrote:
Sanch wrote:мож попробовать сделать так, кидаешь на себя рефлект, затем стрелку в себя, она от тя отражается и в тебя же попадает, мож получится :wink:


Не получится, тока если будешь кидать в когото мб...


у меня есть идея ктота ставит стенку паралеза мы в нее встаем
ктото другой наченает нас бить или постояно кидает меджек аро
в принципе есть шанс что резиста будет рости
Top
Shax
Posts: 8
Joined: 2005-04-13 05:56:15

Я нашол способ как прокачать резисту на дрв

Post by Shax »

Тока вот мен нужен скрипт чтобы чар хелялся при упадке хелов
Top
newman
Posts: 36
Joined: 2006-08-12 15:42:02

Post by newman »

Code: Select all

VAR LastTimer
     var food= '0x097B'
     var Timer=UO.Timer()
sub MR()
  UO.Exec('terminate Reconnector')
  UO.Exec('exec Reconnector')
 while 1
 if UO.Life>1 then 
 while not UO.Dead()
  Repeat
      UO.UseType(Food)
      UO.Usetype("0x0E21")
      UO.Exec("waittargetobject 0x0031F2BC")
      wait(4000)
      if UO.Count('0x0E21')>1 then
  UO.FindType('0x0E20','0x0000','backpack') 
 UO.WaitTargetType('0x1008') 
  UO.UseObject('finditem') 
  wait(500)
      else
       wait(10)
       end if
  Until (UO.InJournal("need healing"))
 wend
 else
   while not UO.InJournal('You apply')
    UO.DeleteJournal()
    UO.UseObject('0x40385B44')
    wait(2000)
    UO.Usetype("0x0E21")
    UO.Exec("waittargetobject 0x0031F2BC")  
    wait(3500)
   wend
end if  
wend
end sub


# Реконнектор
sub Reconnector() 
     var ReconnectTime, RFlag 
     ReconnectTime = '0' 
     RFlag = 1 
     Repeat 
          While (UO.ObjAtLayer('Bpack') == '') 
               if RFlag Then 
                    ReconnectTime = MakeTime() 
                    RFlag = 0 
               endif 
               Wait(20000) # WorldSave Protection 
               UO.Say('') 
               Wait(3000) 
               UO.Say('') 
               Wait(3000) 
               UO.Say('') 
               Wait(3000) 
               UO.LDblClick(357,164) 
               UO.LClick(616,459) 
               Wait(3000) 
          WEnd 
          Wait(3000) 
          if (RFlag == 0) and (ReconnectTime <> '0') Then
               UO.Exec('terminate MR') 
               UO.Exec('exec MR') 
               UO.TextOpen() 
               UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
               RFlag = 1 
               ReconnectTime = '0' 
          endif 
     Until false 
end sub 

# Функция для реконнектора
sub MakeTime() 
     VAR D, T, Ret, i 
     Ret = STR(UO.Time()) 
     T = "" 
     For i = 0 To Len(Ret) 
          T = Ret[Len(Ret)-i] + T 
          If (I == 2) OR (I == 4) Then 
               T = ":" + T 
          EndIf 
     Next 
     Ret = STR(UO.Date()) 
     D = "" 
     For i = 0 To Len(Ret) 
          D = Ret[Len(Ret)-i] + D 
          If (I == 2) OR (I == 4) Then 
               D = "." + D 
          EndIf 
     Next 
     Ret = T + " @ " + D 
     RETURN Ret 
end sub


Вот т ошт отебе нужно + рееонектор.
Top
Wermur
Posts: 22
Joined: 2007-03-16 12:48:52
Contact:
Contact Wermur

Post by Wermur »

и ?! :twisted: а дальше то что ?! :shock:
Top
Saint
Posts: 42
Joined: 2007-03-05 11:39:11

Post by Saint »

есть очень хороший способ прокачать резист на ДРВ....при этом способе резист качается за 2-3 дня...способ этот не является багом это обычный хороший скрипт...сказать я его могу,но естественно не бесплатно...я играю сам на ДРВ и согласен раскрыть этот способ за 500к ДРВ-монет))...
кому интересно ася 301303006
Top
prof
Posts: 76
Joined: 2005-01-01 04:00:14
Contact:
Contact prof

Post by prof »

Code: Select all

var DisturbingSound=('C:\WINDOWS\Media\ding.wav')

sub strelka()  
VAR NS='0x0F88' ; Тип Nighshade.
VAR BP='0x0F7A' ; Тип Black Pearls.
VAR Sunduk='0x403686A9' ; Сериал(ID) Сундука.
VAR Kolvo=200
while not uo.dead()
If UO.NS == 0 Then 
   wait(1000)
   UO.FindType(NS, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
   wait(100) 
   until UO.NS>0 
Endif
 
If UO.BP == 0 Then
   wait(1000)
   UO.FindType(BP, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
   wait(100) 
   until UO.BP>0 
Endif

if uo.mana>10 then
;uo.cast('Magic Arrow','laststatus');
;uo.cast('Fireball','laststatus')
uo.waittargetobject('0x000FF2CC') #ID игрока, на которого будем 
;wait(100) 
UO.Exec("cast 'Magic Arrow'")
wait(2000)
else
;UO.UseSkill("Spirit Speak")
;wait(3000)
         While UO.Mana<UO.Int 
            UO.DeleteJournal() 
            wait(1000) 
            UO.Useskill('Meditation') 
            Repeat 
               wait(100) 
            until UO.InJournal("You are") OR UO.InJournal("You lose") 
         Wend 

wait(1000)
endif
wend
end sub



sub resist() 
while 1==1 
wait(5000)
if UO.Life<145 then
uo.exec('bandageself') 
wait(3000) ;; если что, тут задержку на лечение менять
endif 
wait(50) 
wend 
endsub 


sub ControlOfDanger() 
while 1==1 
wait(2000)
if UO.Life<150 then
uo.Exec('exec RecallRune')
wend
wait(50)
endif 
wait(50) 
wend 

endsub 

Sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub 



sub Alarm() 

   VAR CharHP=150 
   while 1==1 
      wait(5000) 
      if UO.Life<150 then 
uo.PlayWav(DisturbingSound)
wait(3000)
      endif       
   wend 
end sub 

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
Wait(3000)
;UO.Exec('terminate resist')
UO.Exec('terminate strelka')
Wait(3000)
;UO.Exec('exec resist')
UO.Exec('exec strelka')
Wait(3000)
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub 




sub RecallRune() 

var mX,mY 
Terminate()
uo.PlayWav(DisturbingSound)
uo.UseType('0x0F0E','0x09BB') 
wait(100)  
repeat
uo.DeleteJournal() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
mX=uo.getX("self") 
mY=uo.getY("self") 
uo.DeleteJournal() 
uo.warmode(0)
uo.FindType('0x1F14',-1,'mY') 
uo.Cast('Recall','finditem') 
uo.Print('Атака! Реколимся!') 
wait(4000) 
until uo.getX("self")<>mX and not uo.getY("self")<>mY
ExitUO()
end if 



sub Terminate() 
uo.Exec('terminate strelka')
wait(200)
uo.Exec('terminate resist')
wait(200)
uo.Exec('terminate ControlOfDanger')
wait(200)
uo.Exec('terminate Reconnector')
end sub



sub ExitUO() 
wait(3000) 
uo.CloseUO() 
end sub
Top
Saint
Posts: 42
Joined: 2007-03-05 11:39:11

Post by Saint »

а зачем тут рекол по руне?
Top
Saint
Posts: 42
Joined: 2007-03-05 11:39:11

Post by Saint »

prof wrote:

Code: Select all

var DisturbingSound=('C:\WINDOWS\Media\ding.wav')

sub strelka()  
VAR NS='0x0F88' ; Тип Nighshade.
VAR BP='0x0F7A' ; Тип Black Pearls.
VAR Sunduk='0x403686A9' ; Сериал(ID) Сундука.
VAR Kolvo=200
while not uo.dead()
If UO.NS == 0 Then 
   wait(1000)
   UO.FindType(NS, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
   wait(100) 
   until UO.NS>0 
Endif
 
If UO.BP == 0 Then
   wait(1000)
   UO.FindType(BP, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
   wait(100) 
   until UO.BP>0 
Endif

if uo.mana>10 then
;uo.cast('Magic Arrow','laststatus');
;uo.cast('Fireball','laststatus')
uo.waittargetobject('0x000FF2CC') #ID игрока, на которого будем 
;wait(100) 
UO.Exec("cast 'Magic Arrow'")
wait(2000)
else
;UO.UseSkill("Spirit Speak")
;wait(3000)
         While UO.Mana<UO.Int 
            UO.DeleteJournal() 
            wait(1000) 
            UO.Useskill('Meditation') 
            Repeat 
               wait(100) 
            until UO.InJournal("You are") OR UO.InJournal("You lose") 
         Wend 

wait(1000)
endif
wend
end sub



sub resist() 
while 1==1 
wait(5000)
if UO.Life<145 then
uo.exec('bandageself') 
wait(3000) ;; если что, тут задержку на лечение менять
endif 
wait(50) 
wend 
endsub 


sub ControlOfDanger() 
while 1==1 
wait(2000)
if UO.Life<150 then
uo.Exec('exec RecallRune')
wend
wait(50)
endif 
wait(50) 
wend 

endsub 

Sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub 



sub Alarm() 

   VAR CharHP=150 
   while 1==1 
      wait(5000) 
      if UO.Life<150 then 
uo.PlayWav(DisturbingSound)
wait(3000)
      endif       
   wend 
end sub 

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
Wait(3000)
;UO.Exec('terminate resist')
UO.Exec('terminate strelka')
Wait(3000)
;UO.Exec('exec resist')
UO.Exec('exec strelka')
Wait(3000)
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub 




sub RecallRune() 

var mX,mY 
Terminate()
uo.PlayWav(DisturbingSound)
uo.UseType('0x0F0E','0x09BB') 
wait(100)  
repeat
uo.DeleteJournal() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
mX=uo.getX("self") 
mY=uo.getY("self") 
uo.DeleteJournal() 
uo.warmode(0)
uo.FindType('0x1F14',-1,'mY') 
uo.Cast('Recall','finditem') 
uo.Print('Атака! Реколимся!') 
wait(4000) 
until uo.getX("self")<>mX and not uo.getY("self")<>mY
ExitUO()
end if 



sub Terminate() 
uo.Exec('terminate strelka')
wait(200)
uo.Exec('terminate resist')
wait(200)
uo.Exec('terminate ControlOfDanger')
wait(200)
uo.Exec('terminate Reconnector')
end sub



sub ExitUO() 
wait(3000) 
uo.CloseUO() 
end sub


скрипт хорош не спорю...но им за 2-3 дня резист не прокачаешь))а моим скриптом-способом прокачаешь))
Top
Post Reply

Return to “Scripting Ore”