Page 1 of 2

Помогите со скриптом плиз...

Posted: 2006-02-11 12:49:07
by kexwer
Пожалуйста... Нужен скрипт на вызывание друг другу блейдов
Например: я стою на 1 этаже, а мой напарник на 2...
И мы должны катовать друг другу блейдов, т.е. я ему на 2 этаж, а он мне на 1...
Потом отхеливаться, говорить какое нибудь сообщение,и вызывать блейдов заного....
Заранее благодарен

Posted: 2006-02-12 00:13:24
by kexwer
Никто не поможет :(?

Posted: 2006-02-12 11:53:55
by GimFlex
вот скрипт вызывает спирита на другого чара и ждет пока этот чар завалит спирита и пока он не скажет GO потом опять кастует

Code: Select all

sub summ()
var char='00000000';ID чара на которого вызываем
var spirit='0000'; тип блейд спирита
uo.set('finddistance','7')
while not uo.dead()
 uo.cast('Blade Spirit',char)
 uo.findtype(spirit,'-1','ground')
 while uo.findcount()==0
  wait(500)
  uo.findtype(spirit,'-1','ground')
 wend
 uo.findtype(spirit,'-1','ground')
 while uo.findcount()>0
  wait(500)
  uo.findtype(spirit,'-1','ground')
 wend
 while not uo.injournal("GO")
  wait(500)
 wend
 if uo.mana<20 then
  while uo.mana<>uo.int
    uo.useskill('Meditation')
    wait(5000)
  wend
 endif
wend
endsub

Posted: 2006-02-12 11:57:13
by kexwer
Огромное спасибо

Posted: 2006-02-12 12:36:32
by kexwer
Что то не пашет :(

Posted: 2006-02-12 14:18:50
by teror
ti opi6i na kakom meste poritsa,ili pi6et 4to.
var char='00000000';ID чара на которого вызываем
var spirit='0000'; тип блейд спирита
mozhet ti eti stro4ki nepro4etal ili u vas nelza kastovatj na 4ara

Posted: 2006-02-12 14:44:12
by kexwer
Я все прописал
Пишет инвалид сериал номер
И ниого не вызывает

Posted: 2006-02-12 14:55:47
by teror
zna4et probuj vizivatj na pol

Posted: 2006-02-12 16:26:11
by kexwer
нееет...
На чара то кастует вообще, а вот скрипт нет :(

Posted: 2006-02-12 23:27:43
by GimFlex
исправил

Posted: 2006-02-13 00:56:26
by kexwer
Теперь он кастует блейда, но потом он пытаеться вызвать его очень много раз, а надо, чтобы он начинал мидитировать и хиляться,как вызовет

Posted: 2006-02-13 08:57:09
by agem
Забыли журнал стереть :)

Posted: 2006-02-13 12:16:17
by kexwer
А где именно?

Posted: 2006-02-13 13:13:33
by Arsuri
Перед кастом блэйд спирита нужно воткнуть функцию очистки журнала UO.Deletejournal().

Posted: 2006-11-11 07:06:13
by PARASITE
Народ подскажите пожалуйста как сделать в этом скрипте ещё и проверку на физл, а то он кастует, если физл то стоит потом пока скрипт не перезапустишь.
Заранее благодарен.

Posted: 2006-11-11 10:37:04
by Scripts Writer
PARASITE wrote:Народ подскажите пожалуйста как сделать в этом скрипте ещё и проверку на физл, а то он кастует, если физл то стоит потом пока скрипт не перезапустишь.
Заранее благодарен.


Руки кривые у автора просто.

Posted: 2006-11-11 11:22:58
by Scripts Writer

Code: Select all

sub BladeSP()
var spell='name of a spell'
var summon='type of a summon'
var friend='serial of a friend near whom will be cast a creature'
var i,k
uo.Set('finddistance','15')
  uo.Ignore('self')
  while not uo.Dead()
    uo.FindType(summon,'-1','ground')
    if uo.FindCount() then
      k = 0
      while uo.FindCount()
        wait(1000)
        uo.FindType(summon,'-1','ground')
      wend
    else
      medit:
      uo.DeleteJournal()
      if uo.mana < uo.int then
        while uo.mana < uo.int
          uo.UseSkill('Meditation')
          wait(1000)
          CheckLag()
          if uo.InJournal('attemp') then
            repeat
              wait(100)
              if uo.InJournal('lose') then
                goto medit
              end if   
            until uo.mana == uo.int 
          else
            CheckLag()
            goto medit
          end if
        wend
      end if 
      uo.DeleteJournal()
      k = 0
      uo.Cast(spell,friend)
      repeat
        wait(100)
        k = k + 1
      until uo.InJournal('fizzle') or (k>50)
    end if
  wend
end sub

sub CheckLag()
  uo.DeleteJournal('backpack')
  uo.Click('backpack')
  repeat
    wait(100)
  until uo.InJournal('backpack')
end sub

Posted: 2006-11-11 13:12:53
by Scripts Writer
Просьба отписаться когда протестируете.
Скрипт актуальный-если работать будет, то закину в тему.

Posted: 2006-11-11 14:23:18
by kexwer
Спасибо огромное...
Хотя я его просил очень давно, но сейчас он тоже пригодится ...
Очень благодарен!!!

Posted: 2006-11-11 14:24:40
by GimFlex
You Must Die wrote:Просьба отписаться когда протестируете.
Скрипт актуальный-если работать будет, то закину в тему.


ого что это на вас вдруг нашло? :roll: