Magery Night Sight + Spirit [DRW]

[HaxboY]

Привет
Вот взял 2 скрипта и сделал 1
Скрипт должен брать из сундука SS и SA, потом кастовать Night Sight на себя, когда мана кончилась - Meditation и после медитаций один раз използовать Spirit Speak.

Всё работает до того , когда мана фулл и използовал спирит спик. Потом он нечево болше неделает
Помогите пожалуста, што там надо переписать , менять итд.. ?


Сам скрипт.

Code: Select all

sub NightSight()
VAR m, h
VAR bag = '0x4012C297' ; Lade ar SS un SA
While UO.SkillVal( 'Magery' ) < 1000

uo.findtype('0x0F8D', -1 ,'backpack')
if uo.findcount() < 10 then
uo.useobject( bag )
uo.findtype('0x0F8D', -1 , bag )
if uo.findcount() then
uo.moveitem('finditem','100','backpack')
checklag()
else
return
end if
end if

uo.findtype('0x0F8C', -1 ,'backpack')
if uo.findcount() < 10 then
uo.useobject( bag )
uo.findtype('0x0F8C', -1 , bag )
if uo.findcount() then
uo.moveitem('finditem','100','backpack')
checklag()
else
return
end if
end if

While UO.Mana>=9
         UO.DeleteJournal()
         UO.Cast('Night Sight', 'self')
         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("You lose") # ЗДЕСБ ЕСЛИ ИГРАЕТЕ НЕ НА ДРВ - ИСПРАВЬТЕ  СООБЩЕНИЯ СЕРВА
         uo.useskill('Spirit Speak')
         Wait(6000)
         Wend
      Endif
end sub 

Sub checklag()
   del('backpack')
   uo.click('backpack')
   repeat
   wait(50)
   until uo.injournal('backpack')
   del('backpack')
   wend
end sub

Sub del(msg)
   while uo.injournal(msg)
   uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!")
   wend
end sub

Болшое спасибо!

[Kynep]

http://forum.yoko.com.ua/viewforum.php?f=18

[HaxboY]

Нда, аватар тебе, как раз )))

неужели скрипт стоко плохой , што мне щас нада идти и всю ету толпу читать в твой линк? :/

[Kynep]

неужели скрипт стоко плохой , што мне щас нада идти и всю ету толпу читать в твой линк? :/

А почему нет? Я в свое время не по-ленился и прочитал и даже понял и запомнил, чего и вам желаю.

[HaxboY]

Прочитать то прочитаю, но щас просто там лазить через всех топиках, и искать почему нету repat, нехочетса :/

[Kynep]

нехочетса :/

А зря... очень даже зря...
В скрипте не хватало одного wend, точнее он стоял не там где нужно.
Если бы прочитали - были бы внимательней.

Code: Select all

sub NightSight()
   VAR m, h
   VAR bag = '0x4012C297' ; Lade ar SS un SA
   While UO.SkillVal( 'Magery' ) < 1000
      
      uo.findtype('0x0F8D', -1 ,'backpack')
      if uo.getquantity('finditem') < 10 then
         uo.useobject( bag )
         uo.findtype('0x0F8D', -1 , bag )
         if uo.findcount() then
            checklag()
            uo.moveitem('finditem','100','backpack')
            wait(500)
         else
            wait(100)
         end if
      end if
      
      uo.findtype('0x0F8C', -1 ,'backpack')
      if uo.getquantity('finditem') < 10 then
         uo.useobject( bag )
         uo.findtype('0x0F8C', -1 , bag )
         if uo.findcount() then
            checklag()
            uo.moveitem('finditem','100','backpack')
            wait(500)
         else
            wait(100)
         end if
      end if
      
      While UO.Mana>=9
         UO.DeleteJournal()
         UO.Cast('Night Sight', 'self')
         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("You lose")
            uo.useskill('Spirit Speak')
            Wait(6000)
         Wend
      Endif
   wend
end sub

Sub checklag()
   del('backpack')
   uo.click('backpack')
   repeat
      wait(50)
   until uo.injournal('backpack')
   del('backpack')
end sub

Sub del(msg)
   while uo.injournal(msg)
      uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!")
   wend
end sub

[HaxboY]

Нда, щас repeat есть, но он каждий раз берёт по 100 регоф )))

я пошол четать ... )))

[Kynep]

:)
Нда, щас repeat есть, но он каждий раз берёт по 100 регоф )))

я пошол четать ... )))

Поправил, пробуйте.

[HaxboY]

Есть!
Огромное спасибо! ^^

[Kynep]

Есть!
Огромное спасибо! ^^

А теперь возмите мой и свой скрипт и сравните, что не так. На будующее, для нормального просмотра и редактирования скриптов советую пользоваться ссылкой из моей подписи.

***Выставляем отступы в скриптах***©Destruction.