Page 1 of 1

Нужен скрипт на обкаст себя

Posted: 2007-03-26 16:09:02
by Klanded
Народ нужен скрипт на обкаст себя 4 спелами чтоб запускаеш скрипт он снимал лук делал обкаст одевал лук обратно когда обкаст проходит он повторялбы процедуру. Играю на Middle-earth.ru. Плиз помогите. За ранее спасибо.

Posted: 2007-03-26 16:25:32
by Question_GimFlex

Code: Select all

uo.cast(
wait(


используй эту комбинацию 4 раза :)

Posted: 2007-03-26 16:39:31
by Klanded
мне нужно чтоб при включении он снял оружие обкастился одел оружие когда каст сподает он опять обкастился

Posted: 2007-03-27 06:32:47
by Question_GimFlex
запомнил
одел
снял (вроде бы так)

Code: Select all

uo.setarm(
uo.arm(
uo.disarm(

Posted: 2007-03-27 06:34:27
by Question_GimFlex
получаем
:)

Code: Select all

uo.setarm(
uo.disarm(
uo.cast(
uo.cast(
uo.cast(
uo.cast(
uo.arm(

Posted: 2007-03-27 08:08:56
by Klanded
А как чтоб когда каст спадал он заново все запускал

Posted: 2007-03-27 16:06:24
by Question_GimFlex
засеки скоко каст держиться)

Posted: 2007-03-27 16:10:31
by to4a
ну блин так и быть, щас подниму весь тот мусор что я писал два года назад, было гдето)

Code: Select all

Sub CastSpell(spell)
var timer=0
   repeat
    UO.DeleteJournal()
    UO.Cast(spell)
    repeat
     timer=timer+1
     wait(10)
    until UO.InJournal('An|Ex|Por|Lor|Des|Rel|You lack') or timer==300
    if UO.InJournal('You lack') then
     if UO.InJournal('sufficient mana') then
      if UO.Count('0x0F0E','0x09DF') then
       Mana()
       goto cast
      else
       UO.Print('КАСТ НЕВОЗМОЖЕН - НЕТУ МАНЫ')
       return 'nomana'
      endif
     else
      UO.Print('КАСТ НЕВОЗМОЖЕН - НЕТУ РЕГОВ')
      return 'noregs'
     endif
    endif
    if UO.InJournal('line|see the target') then
     UO.Print('ЦЕЛЬ НЕ ВИДАТЬ')
     return 'notarg'
    endif
    WaitManaChange(UO.Mana)
    UO.Print('КАСТ ОКОНЧЕН')
   until not UO.InJournal('fizzle')
   return 'success'
endsub