Page 1 of 1

Кто нибудь может дать хороший скрипт на Меджери?

Posted: 2004-06-27 23:41:44
by AD
А дело все в том что все скрипты которые я тут нашел, скажем так не о4ень хороши, а именно кастуют магию один раз потом сразу медетруют до того момента когда хватет на каст! А мнеб очень хотелось бы увидеть профессиональный макрос !
А именно чтоб он медил до конца потом кастов на скоко хватет маны потом опать медел до конца!

Posted: 2004-06-28 12:27:33
by Savage
Поправь число которое 200 на свое количество маны для второго варианта.


Code: Select all

sub magery()
   VAR LastTimer
   while NOT UO.Dead()
      UO.DeleteJournal()
      CheckLag()
      while UO.Mana>=10
         UO.Cast('Poison','0x400A8F68')
;         UO.Cast('Bless','0x4006D332')
;         UO.Cast('Poison','0x405D1397') ;Oskom
;         UO.Cast('Fireball','0x405D1397') ;oskom
;         UO.Cast('Fireball','0x4006D332')
;         UO.Cast('Wall','0x4006E5C9')
;         UO.Cast('Night','self')
;         UO.Cast('Cure','self')
;         UO.Cast('Telekinesis','self')
         wait(3000)
      wend
      while UO.Mana<UO.Int
         LastTimer=UO.Timer()
         UO.UseSkill('Meditation')
         repeat
            wait(100)
         until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200
         UO.DeleteJournal()
         wait(2000)
      wend
   wend
end sub

sub magmed()
   VAR LastTimer
   while NOT UO.Dead()
      UO.DeleteJournal()
      CheckLag()
      If UO.Mana==200 then
;         UO.Cast('Poison','0x4006D332')
;         UO.Cast('Bless','0x4006D332')
;         UO.Cast('Fireball','0x4006D332')
;         UO.Cast('Wall','0x4006E5C9')
         UO.Cast('Night','self')
;         UO.Cast('Cure','self')
         wait(6000)
      else
         while UO.Mana<200
            LastTimer=UO.Timer()
            UO.UseSkill('Meditation')
            repeat
               wait(100)
            until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200
            UO.DeleteJournal()
            wait(2000)
         wend
      endif
   wend
end sub


sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')

   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub



!!

Posted: 2004-06-28 23:03:19
by AD
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(500)
until UO.InJournal('backpack')
end sub
Это схавать курицу или 4то??

Re: !!

Posted: 2004-06-29 01:06:48
by SVG
AD wrote:sub CheckLag()
Это схавать курицу или 4то??


ХА-ХА-ХА

:mrgreen: :mrgreen: :mrgreen: :mrgreen:


Ето проверка на лаги :) :) :)

!!

Posted: 2004-06-29 23:06:11
by AD
Скрипт канечно неплохой, но опятьже он кастует один раз а потом сразу медитирует! А вот, чтоб он кастовал раз десять а потом медил, вот это был бы скрипт

Posted: 2004-06-29 23:22:11
by SVG
Вот забацал прям щас вроде должен работать

Code: Select all

sub magery()
 while not uo.dead()
   if uo.mana<20 then
     while uo.mana<uo.int
       re:
        uo.deletejournal()
        uo.useskill("Meditation")
         while 1
           if uo.injournal("Несмог сконцентрироваться") then
             goto re
           endif
           if uo.injournal("Ура я сконцентрировался!!!!") then
             goto ex
           endif
           wait(200)
         wend
       ex:
     wend
   endif
   uo.cast("XXXXXXXXXXXX")
   wait(1000)
 wend
endsub

Posted: 2004-06-30 00:11:13
by Kazoo
я ешо не видел некогда скрипт на маджери где берот реги из сундука когда они кончелис !

Re: !!

Posted: 2004-06-30 10:09:12
by Savage
AD wrote:Скрипт канечно неплохой, но опятьже он кастует один раз а потом сразу медитирует! А вот, чтоб он кастовал раз десять а потом медил, вот это был бы скрипт

Если ты внимательно посмотришь, то там два скрипта один на прокачку медитации с магией другой просто магии.