Page 1 of 1

СКРИПТ НА МАГИЮ !!!

Posted: 2006-08-03 10:32:36
by StimulyatoR
в поиске не нашол....
нужен скрипт на магию чтобы чар тупо кастовал пойзон на спелбук а когда мана заканчивается медитировал....дайте плиз :oops:

Posted: 2006-08-03 11:00:50
by StimulyatoR
распишите еще как че в нем делать))

Posted: 2006-08-03 11:17:23
by Джесси
Плохо искал

Code: Select all

sub Magery() 
   VAR NS='0x0F88' ; Тип Nighshade.
   VAR Sunduk='0x401C517F' ; Сериал(ID) Сундука.
   VAR Kolvo=100 ; Количество регов, которое чар берёт из сундука.
   While NOT UO.Dead()
      While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
         UO.DeleteJournal()
         UO.Cast('Poison', 'backpack') #зы сюды ставь на че кастовать поизон будешь, т.е вместо надписи 'backpack', поставь 'id шмота на который кастовать или ящика'
         wait(3000)
      wend
      If UO.Mana<9 Then ;*
         While UO.Mana<UO.Int
            UO.DeleteJournal()
            wait(1000)
                      UO.Useskill('Meditation')
            Repeat
               wait(100)
            until UO.InJournal("You are") OR UO.InJournal("Медитация") # ЗДЕСБ ЕСЛИ ИГРАЕТЕ НЕ НА ОСКОМЕ - ИСПРАВЬТЕ  СООБЩЕНИЯ СЕРВА
         Wend
      Endif
      If UO.NS == 0 Then
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.NS>0
Endif
   Wend
end sub



Взято с viewtopic.php?t=8388
стоит чуть ниже в этом разделе

Posted: 2006-08-03 19:52:17
by ghost_hnt
блин задолбали такими темами - выложил скрипт в другом топе - ниже
и будто бы поиск ничего не дал
ППЦ ОБЛЕНИЛИСЬ ВСЕ :evil:

Posted: 2006-08-03 23:26:51
by StimulyatoR
Джесси
этот нашол....но он не рабтает почему-то!!!!!!!!!

Posted: 2006-08-04 09:07:05
by Scripts Writer

Code: Select all

sub Magery()
var mana = 100 # До скольки медитировать
var spellbook = ' ID of item '
  while not uo.Dead()
    while uo.mana <> mana
      uo.UseSkill('Meditation')
      wait(1500)
    wend
    while uo.mana > 10
      uo.Cast('Poison',spellbook)
      wait(2500)
    wend
  wend
end sub

Posted: 2006-08-04 09:44:27
by StimulyatoR
You Must Die
скажи плиз что надо тут изменить чтоб скрипт заработал??

Posted: 2006-08-06 02:20:19
by StimulyatoR
блин чуваки дайте скрипт оскомовский плиз!!!
чтоб ничо менять не надо былО!!!!!!!!

Posted: 2006-08-06 18:16:31
by Scripts Writer
Скрипты на магию есть. 2 скрипта так же выложены, в этом топе. Тебе впадлу менять? Тебе впадлу искать? А мне впадлу читать твой бред.

Топ клоуз.