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

HellFire · Post by **HellFire** » 2006-04-29 22:47:22

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

Kynep · Post by **Kynep** » 2006-04-30 06:35:10

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

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

DokKor · Post by **DokKor** » 2006-04-30 07:12:35

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

у всех челов которые знают баги

Scripts Writer · Post by **Scripts Writer** » 2006-05-01 06:21:51

ручками ...

п.с. резист.txt -описание, могу поделиться за вмз

Brutos · Post by **Brutos** » 2006-05-01 15:08:23

You Must Die, лучше подождать, пока не сделают обычную прокачку Резиста.

Sanch · Post by **Sanch** » 2006-05-03 10:25:05

Такой политрой матерных слов вспоминаю то время когда я играл на дрв, гмы дрв первые в мире по издевательству над игроками, отключить вообще какую либо прокачку резиста и включить сам скиил на невоспреимчивость к магии с вороятностью в 100%, это просто верх идиотизма, когда я мега маньяк пвп, заредил в чела 8 фс подряд и ему по, оч сильно удивился и упал, потом со временем забанили когда в собственной випке копал на скрипте, и кто они после этого? Ответ на мое письмо был следующего содержания, плати за разбан...

BoBBaH · Post by **BoBBaH** » 2006-05-03 21:09:32

ну так что раскажите как щас качают для меня лично это очень октуально так как с меня огонек по 40 снимает ну там 35 - 38 подскажите или скрипт дайте.

Sanch · Post by **Sanch** » 2006-05-04 11:43:07

Если ее включили, то нужен скрипт на 2 скиента, тк собсная магия себе урон у вас не наносит, нужно чтобы один кидал постоянно фиер филыд и медитировал и другой чар чтобы жарился отходил хелился и вставал обратно, а еще на скок я помню дамаг от фаер филда на дрв 20хп\сек долго ты на нем не простоишь, качать его оч долго бушь. Попробуй написать сам, там 2 простеньких скрипта, качать нужно у дома, чтобы добирать реги и бинты.

Scripts Writer · Post by **Scripts Writer** » 2006-05-04 13:17:58

Хех )

P.S. резист.txt

BoBBaH · Post by **BoBBaH** » 2006-05-04 13:43:55

ващета на скоко мне известно не качается со стенок резист. ща на дрв у меня от простой мангии качается например иннох если в меня кто кинул или парализ фаербол и тд

Sanch · Post by **Sanch** » 2006-05-04 14:04:27

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

BigMouseI · Post by **BigMouseI** » 2006-05-04 14:49:28

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

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

Shax · Post by **Shax** » 2007-01-03 17:11:56

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

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

Shax · Post by **Shax** » 2007-03-10 18:12:10

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

newman · Post by **newman** » 2007-03-18 11:53:48

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

Вот т ошт отебе нужно + рееонектор.

Wermur · Post by **Wermur** » 2007-03-20 03:55:59

и ?!

а дальше то что ?!

Saint · Post by **Saint** » 2007-03-21 10:57:30

есть очень хороший способ прокачать резист на ДРВ....при этом способе резист качается за 2-3 дня...способ этот не является багом это обычный хороший скрипт...сказать я его могу,но естественно не бесплатно...я играю сам на ДРВ и согласен раскрыть этот способ за 500к ДРВ-монет))...
кому интересно ася 301303006

prof · Post by **prof** » 2007-03-21 14:23:17

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

Saint · Post by **Saint** » 2007-03-21 17:44:56

а зачем тут рекол по руне?

Saint · Post by **Saint** » 2007-03-21 22:57:02

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 дня резист не прокачаешь))а моим скриптом-способом прокачаешь))

Yoko

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

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

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

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

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