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

kexwer · Post by **kexwer** » 2006-02-11 12:49:07

Пожалуйста... Нужен скрипт на вызывание друг другу блейдов
Например: я стою на 1 этаже, а мой напарник на 2...
И мы должны катовать друг другу блейдов, т.е. я ему на 2 этаж, а он мне на 1...
Потом отхеливаться, говорить какое нибудь сообщение,и вызывать блейдов заного....
Заранее благодарен

kexwer · Post by **kexwer** » 2006-02-12 00:13:24

Никто не поможет

?

GimFlex · Post by **GimFlex** » 2006-02-12 11:53:55

вот скрипт вызывает спирита на другого чара и ждет пока этот чар завалит спирита и пока он не скажет 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

kexwer · Post by **kexwer** » 2006-02-12 11:57:13

Огромное спасибо

kexwer · Post by **kexwer** » 2006-02-12 12:36:32

Что то не пашет

teror · Post by **teror** » 2006-02-12 14:18:50

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

kexwer · Post by **kexwer** » 2006-02-12 14:44:12

Я все прописал
Пишет инвалид сериал номер
И ниого не вызывает

teror · Post by **teror** » 2006-02-12 14:55:47

zna4et probuj vizivatj na pol

kexwer · Post by **kexwer** » 2006-02-12 16:26:11

нееет...
На чара то кастует вообще, а вот скрипт нет

GimFlex · Post by **GimFlex** » 2006-02-12 23:27:43

исправил

kexwer · Post by **kexwer** » 2006-02-13 00:56:26

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

agem · Post by **agem** » 2006-02-13 08:57:09

Забыли журнал стереть

kexwer · Post by **kexwer** » 2006-02-13 12:16:17

А где именно?

Arsuri · Post by **Arsuri** » 2006-02-13 13:13:33

Перед кастом блэйд спирита нужно воткнуть функцию очистки журнала UO.Deletejournal().

PARASITE · Post by **PARASITE** » 2006-11-11 07:06:13

Народ подскажите пожалуйста как сделать в этом скрипте ещё и проверку на физл, а то он кастует, если физл то стоит потом пока скрипт не перезапустишь.
Заранее благодарен.

Scripts Writer · Post by **Scripts Writer** » 2006-11-11 10:37:04

PARASITE wrote:Народ подскажите пожалуйста как сделать в этом скрипте ещё и проверку на физл, а то он кастует, если физл то стоит потом пока скрипт не перезапустишь.
Заранее благодарен.

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

Scripts Writer · Post by **Scripts Writer** » 2006-11-11 11:22:58

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

Scripts Writer · Post by **Scripts Writer** » 2006-11-11 13:12:53

Просьба отписаться когда протестируете.
Скрипт актуальный-если работать будет, то закину в тему.

kexwer · Post by **kexwer** » 2006-11-11 14:23:18

Спасибо огромное...
Хотя я его просил очень давно, но сейчас он тоже пригодится ...
Очень благодарен!!!

GimFlex · Post by **GimFlex** » 2006-11-11 14:24:40

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

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