Yoko :: Автоматический каст при касте на вас!

Yoko http://forum.yoko.com.ua/

Автоматический каст при касте на вас! http://forum.yoko.com.ua/viewtopic.php?f=20&t=4798	Page 1 of 3

Author:	-=icq=- [ 2005-08-13 18:33:37 ]
Post subject:	Автоматический каст при касте на вас!
Корчое нужен скрипт такой чтобы чар автоматом кастовал стрелку, когда на него кидают парализ, т.е. прилетел парализ он автоматом стрелку кидает! Поиск юзал, но он не работает вообще, ни одно слово не находит! Спасибо!

Author:

Leo [ 2005-08-13 18:36:48 ]

Post subject:

Code:

sub main() 
Var ser, ManaNeed=4, CastTime = 500 
 while not uo.dead() 
   if uo.injournal("An Ex Por") then 
     ser=uo.getserial(UO.JournalSerial(uo.InJournal("An Ex Por")-1)) 
     if UO.Mana>=ManaNeed then 
          UO.Cast('Magic Arrow',ser) 
     else 
          UO.Print("Low mana!!!") 
     end if 
     wait(CastTime) 
   else 
        wait(1000) 
   end if 
 wend 
end sub

Author:	-=icq=- [ 2005-08-13 19:18:47 ]
Post subject:
Спасибо, но: 1. Он тихо работает, т.е. кинули парализ и он через несколько секунд начинает только стрелку кидать! 2. Он не заканчивает своё действие и пытаеся кинуть стрелку дальше! 3. А можно такой скрипт который кидает на ся стрелку и не вырубается, а продолжает работать, т.е. ждать когда снова кинут парализ и снова стрелку кастовать на ся и так сидеть в режим ожидания

Author:	MazaFaka [ 2005-08-14 13:13:54 ]
Post subject:
хороший скрипт но с таким скриптом тока 1х1 бегать)

Author:	Leo [ 2005-08-14 13:18:35 ]
Post subject:
MazaFaka wrote: хороший скрипт но с таким скриптом тока 1х1 бегать) Навтыкать туда проверок и можно бегать командами.

Author:	Dread Masta [ 2005-08-15 17:34:46 ]
Post subject:
Класный скрипт! НО стрелку он кастит бесконечно

Author:

flake [ 2005-08-15 19:52:29 ]

Post subject:

Вот так будет лучше:

Code:

sub main() 
Var ser, ManaNeed=4, CastTime = 500 
 while not uo.dead() 
   if uo.injournal("An Ex Por") then 
     ser=uo.getserial(UO.JournalSerial(uo.InJournal("An Ex Por")-1)) 
     uo.deletejournal()
     if UO.Mana>=ManaNeed then 
          UO.Cast('Magic Arrow',ser) 
     else 
          UO.Print("Low mana!!!") 
     end if 
     wait(CastTime) 
   else 
        wait(1000) 
   end if 
 wend 
end sub

Author:	Adil [ 2005-08-26 15:29:36 ]
Post subject:
Flake a ved pri pomoshi etogo scripta mojno shahterov ubivat pomenyav an ex por na an lor xen i kal ort por

Author:	PCGamer [ 2005-08-26 16:45:39 ]
Post subject:
Мне вот интересно, а можно этот скрипт защитит от флуда? Потому как если кто-то в радиусе экрана будет флудить "An Ex Por", то этот скрипт самого себя насмерть стрелками закидает .

Author:	Leo [ 2005-08-26 16:47:08 ]
Post subject:
Не узнаешь ты флудят это или кастуют, так что скрипт такой используется на свой же страх и риск

Author:	Adil [ 2005-08-26 16:53:09 ]
Post subject:
А можно сделать так чтобы он одной и тойже клавишей включался/выключался ?

Author:	Leo [ 2005-08-26 16:55:49 ]
Post subject:
Проще двумя Вот функция выключения: Code: sub Terminate() UO.Exec('terminate main') wait(100) end sub

Author:	Adil [ 2005-08-26 17:02:49 ]
Post subject:
Санкс, тока есть и ещё одна проблема, я переделал чтобы не паралтизы сбивать а реколы, но рядом реколиться может кто угодно и если дело идёт в гз то можно стать запросто кримом, возможно ли добавить суда определения статуса чара крим ли он для тебя или пк или гильдвраг и тока в етом случаи атаковать ?

Author:

Leo [ 2005-08-26 17:05:48 ]

Post subject:

Code:

sub main() 
Var ser, color, ManaNeed=4, CastTime = 500 
 while not uo.dead() 
   if uo.injournal("An Ex Por") then 
     ser=uo.getserial(UO.JournalSerial(uo.InJournal("An Ex Por")-1)) 
     сolor=UO.GetNotoriety(Enemy)
     uo.deletejournal() 
     if color==2 OR color==1 then
          wait(100)
     else 
          UO.Cast('Magic Arrow',ser)
     end if 
     wait(CastTime) 
   else 
        wait(1000) 
   end if 
 wend 
end sub

Author:	Adil [ 2005-08-26 17:08:18 ]
Post subject:
Leo wrote: Проще двумя Вот функция выключения: Code: sub Terminate() UO.Exec('terminate main') wait(100) end sub И если у меня все боевые скрипты сохранены в автозапуске и что не писать Terminate для каждого скритпа отдельно, то нужно написать Code: sub Terminate() UO.Exec('all terminate') wait(100) end sub ?

Author:	Leo [ 2005-08-26 17:10:25 ]
Post subject:
Code: sub Terminate() UO.Exec('terminate all') wait(100) end sub

Author:

Adil [ 2005-08-26 17:24:12 ]

Post subject:

Leo wrote:

Code:

sub main() 
Var ser, color, ManaNeed=4, CastTime = 500 
 while not uo.dead() 
   if uo.injournal("An Ex Por") then 
     ser=uo.getserial(UO.JournalSerial(uo.InJournal("An Ex Por")-1)) 
     сolor=UO.GetNotoriety(Enemy)
     uo.deletejournal() 
     if color==2 OR color==1 then
          wait(100)
     else 
          UO.Cast('Magic Arrow',ser)
     end if 
     wait(CastTime) 
   else 
        wait(1000) 
   end if 
 wend 
end sub

нет не пашет пишет Variabel undefined - ENEMY ((

Author:

Leo [ 2005-08-26 17:27:57 ]

Post subject:

Сорри

Code:

sub main() 
Var ser, color, ManaNeed=4, CastTime = 500 
 while not uo.dead() 
   if uo.injournal("An Ex Por") then 
     ser=uo.getserial(UO.JournalSerial(uo.InJournal("An Ex Por")-1)) 
     сolor=UO.GetNotoriety(ser) 
     uo.deletejournal() 
     if color==2 OR color==1 then 
          wait(100) 
     else 
          UO.Cast('Magic Arrow',ser) 
     end if 
     wait(CastTime) 
   else 
        wait(1000) 
   end if 
 wend 
end sub

Author:	Adil [ 2005-08-26 17:34:26 ]
Post subject:
Огромный спс )) всё пашет замечательно ))

Author:

empty_ [ 2005-08-31 19:31:41 ]

Post subject:

ошибка =(

Leo wrote:

Сорри

Code:

sub main() 
Var ser, color, ManaNeed=4, CastTime = 500 
 while not uo.dead() 
   if uo.injournal("An Ex Por") then 
     ser=uo.getserial(UO.JournalSerial(uo.InJournal("An Ex Por")-1)) 
     сolor=UO.GetNotoriety(ser) 
     uo.deletejournal() 
     if color==2 OR color==1 then 
          wait(100) 
     else 
          UO.Cast('Magic Arrow',ser) 
     end if 
     wait(CastTime) 
   else 
        wait(1000) 
   end if 
 wend 
end sub

а вот у меня ошибка выскакивает! ":Variable undefined - COLOR

Page 1 of 3	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/