Yoko

Posted: **2005-08-13 18:33:37**

Корчое нужен скрипт такой чтобы чар автоматом кастовал стрелку, когда на него кидают парализ, т.е. прилетел парализ он автоматом стрелку кидает!

Поиск юзал, но он не работает вообще, ни одно слово не находит!

Спасибо!

Posted: **2005-08-13 18:36:48**

Code: Select all

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

Posted: **2005-08-13 19:18:47**

Спасибо, но:
1. Он тихо работает, т.е. кинули парализ и он через несколько секунд начинает только стрелку кидать!
2. Он не заканчивает своё действие и пытаеся кинуть стрелку дальше!
3. А можно такой скрипт который кидает на ся стрелку и не вырубается, а продолжает работать, т.е. ждать когда снова кинут парализ и снова стрелку кастовать на ся и так сидеть в режим ожидания

Posted: **2005-08-14 13:13:54**

хороший скрипт но с таким скриптом тока 1х1 бегать)

Posted: **2005-08-14 13:18:35**

MazaFaka wrote:хороший скрипт но с таким скриптом тока 1х1 бегать)

Навтыкать туда проверок и можно бегать командами.

Posted: **2005-08-15 17:34:46**

Класный скрипт!
НО стрелку он кастит бесконечно

Posted: **2005-08-15 19:52:29**

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

Code: Select all

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

Posted: **2005-08-26 15:29:36**

Flake a ved pri pomoshi etogo scripta mojno shahterov ubivat pomenyav an ex por na an lor xen i kal ort por

Posted: **2005-08-26 16:45:39**

Мне вот интересно, а можно этот скрипт защитит от флуда? Потому как если кто-то в радиусе экрана будет флудить "An Ex Por", то этот скрипт самого себя насмерть стрелками закидает :lol:

.

Posted: **2005-08-26 16:47:08**

Не узнаешь ты флудят это или кастуют, так что скрипт такой используется на свой же страх и риск :wink:

Posted: **2005-08-26 16:53:09**

А можно сделать так чтобы он одной и тойже клавишей включался/выключался ?

Posted: **2005-08-26 16:55:49**

Проще двумя :wink:

Вот функция выключения:

Code: Select all

sub Terminate() 
UO.Exec('terminate main') 
wait(100) 
end sub

Posted: **2005-08-26 17:02:49**

Санкс, тока есть и ещё одна проблема, я переделал чтобы не паралтизы сбивать а реколы, но рядом реколиться может кто угодно и если дело идёт в гз то можно стать запросто кримом, возможно ли добавить суда определения статуса чара крим ли он для тебя или пк или гильдвраг и тока в етом случаи атаковать ?

Posted: **2005-08-26 17:05:48**

Code: Select all

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

Posted: **2005-08-26 17:08:18**

Leo wrote:Проще двумя
Вот функция выключения:
Code: Select all
sub Terminate() 
UO.Exec('terminate main') 
wait(100) 
end sub

И если у меня все боевые скрипты сохранены в автозапуске и что не писать Terminate для каждого скритпа отдельно, то нужно написать

Code: Select all

sub Terminate()
UO.Exec('all terminate')
wait(100)
end sub

?

Posted: **2005-08-26 17:10:25**

Code: Select all

sub Terminate() 
UO.Exec('terminate all') 
wait(100) 
end sub

Posted: **2005-08-26 17:24:12**

Leo wrote:

Code: Select all

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 ((

Posted: **2005-08-26 17:27:57**

Сорри

Code: Select all

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

Posted: **2005-08-26 17:34:26**

Огромный спс )) всё пашет замечательно ))

Posted: **2005-08-31 19:31:41**

Leo wrote:Сорри :oops:

Code: Select all

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

Yoko

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

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

ошибка =(