Yoko

хихи.. ) нема таких способов на ДРВ уже, нема)

MacTepeo wrote:хихи.. ) нема таких способов на ДРВ уже, нема)

да есть еще... кому надо стучите в асю...

...

Saint wrote:

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

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

Мой способ был таким"на ДРВ" на моём чаре было 30%рез. нашел чела с 30,35% магери МАКСИМУМ....залоченой до тех пор пока не вырости РЕЗ. до 60-70% этого достаточно что бы разлочить магери напарнику.... если нужно..... а нет так искать чела с 80% магери..........нет возможности?!продолжать качать ньюба))),почему резист плохо ростёт?! потому что магери пробивает его!!!выходит что.......чем больше чар резистит тем быстрее он ростёт .....ЗА 3 ДНЯ его прокачал.....обычным скриптом ...ньюбом в доме брал из сундука реги каставал стрелку...своим стоял с щитов + хилялся..... рос резист паринг хилинг.....

почему не растет резист??? на меня кастуют 5 человек с другого ИП адреса и у меня резист за 20 мин ни на 0.1 невырос?? в чем проблема кто знает подскажите....

тебе уже дали совет спросить на твоем шарде. Это не проблемы скрипта или макроса. Это проблемы специфики шарда. Может у вас вообще отключили прокачку от игрока. Сперва узнай сам принцип роста а уже потом приходи за скриптами.