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:Скрипт канечно неплохой, но опятьже он кастует один раз а потом сразу медитирует! А вот, чтоб он кастовал раз десять а потом медил, вот это был бы скрипт
Если ты внимательно посмотришь, то там два скрипта один на прокачку медитации с магией другой просто магии.