Yoko

All sides of Injection
It is currently 2024-03-28 16:12:01

All times are UTC+02:00




Post new topic  Reply to topic  [ 26 posts ]  Go to page Previous 1 2
Author Message
 Post subject:
PostPosted: 2007-04-14 19:51:55 
Offline

Joined: 2007-04-14 16:11:34
Posts: 52
Location: Москоу
хихи.. ) нема таких способов на ДРВ уже, нема)


Top
   
 Post subject:
PostPosted: 2007-04-16 11:53:14 
Offline

Joined: 2007-03-05 11:39:11
Posts: 42
MacTepeo wrote:
хихи.. ) нема таких способов на ДРВ уже, нема)

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


Top
   
 Post subject:
PostPosted: 2009-12-26 14:03:33 
Offline

Joined: 2009-11-14 12:48:27
Posts: 25
...


Top
   
 Post subject: Re:
PostPosted: 2010-02-05 01:29:31 
Offline

Joined: 2009-11-14 12:48:27
Posts: 25
Saint wrote:
prof wrote:
Code:
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 дня резист не прокачаешь))а моим скриптом-способом прокачаешь))


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

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


Top
   
PostPosted: 2011-08-02 18:03:32 
Offline

Joined: 2011-06-15 15:33:34
Posts: 16
почему не растет резист??? на меня кастуют 5 человек с другого ИП адреса и у меня резист за 20 мин ни на 0.1 невырос?? в чем проблема кто знает подскажите....


Top
   
PostPosted: 2011-08-03 05:48:11 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
тебе уже дали совет спросить на твоем шарде. Это не проблемы скрипта или макроса. Это проблемы специфики шарда. Может у вас вообще отключили прокачку от игрока. Сперва узнай сам принцип роста а уже потом приходи за скриптами.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 26 posts ]  Go to page Previous 1 2

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 22 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited