Ошибка при запуске скрипта

[Morutsu]

Написал простенький скрипт на магию. Но запустить не могу.
Ошибка выскакивает при нажатии на список функций для запуска, список при этом не открывается.
Вот такого вида:

Другие скрипты работают.
Может подскажете чего?

Вот сам скрипт:

Code: Select all

sub magery
 Repeat
  UO.FindType('0x0F88') #NS v backpack
  IF UO.FindCount() > 0 Then
   While not UO.Injournal('You lack sufficient mana')
    UO.Cast('poison','self')
    wait(3000)
   Next
   UO.FindType('0x0F0E','0x4051C4A2') #Mana v bochke
   IF UO.Findcount() > 0 Then
    UO.Grab('1','finditem')
    wait(500)
    UO.UseType('0x0F0E') #Mana v backpack
    wait(500)
   Else
    Repeat
     UO.Print('No total mana')
     wait(10000)
    Until UO.Dead()
   EndIF
  Else
   UO.FindType('0x0F88','0x4051C4A2') #NS v bochke
   IF UO.FindCount() > 0 Then
    UO.Grab('50','finditem')
    wait(500)
    UO.UseFromGround('0x098C') #Eda
    wait(500)
   Esle
    UO.Print('No Nightshade')
    wait(10000)
   EndIF
  EndIF
 Until UO.Dead()
end sub

[Mirage]

читай про циклы.
С каких пор для While закрытие цикла Next?

[Savage]

Ещё после магери скобки надо.

[Irina E]

мне интересна а что тут не надо ставить где он првереяит нс

Code: Select all

  UO.FindType('0x0F88') #NS v backpack
  IF UO.FindCount() > 0 Then

не так должн быть

Code: Select all

 UO.FindType('0x0F88',-1,'beckpack') #NS v backpack
  IF UO.FindCount() > 0 Then

[Morutsu]

мне интересна а что тут не надо ставить где он првереяит нс

Если не указан контейнер должно искать в бекпаке вроде)

Вобщем, налажал, да) Всем спасибо.
Поправил, переделал, дописал. Выглядит корявенько конечно, но работает стабильно:)

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

Code: Select all

sub Magery()
 Repeat
    While UO.Mana >= 15
     UO.FindType('0x0F88') #NS v backpack
     IF UO.FindCount() <= 0 Then
      Regs()
     EndIF
     UO.Cast('Poison','self')
     wait(3000)
    Wend
   Mana()
 Until UO.Dead()
End sub

Sub Mana()
UO.FindType('0x0F0E','0x09DF','0x4051C4A2') #Mana v bochke
   IF UO.Findcount() > 0 Then
    UO.Grab('1','finditem')
    wait(1000)
    UO.UseType('0x0F0E') #Mana v backpack
    wait(1000)
    UO.SetReceivingContainer('0x405311DD') #Sunduk dlya pustoj tari
    UO.FindType('0x0F0E','0x0000',-1)
    UO.Grab('1','finditem')
    UO.UnSetReceivingContainer()
    wait(500)
   Else
    Repeat
     UO.Print('No total mana')
     wait(10000)
    Until UO.Dead()
   EndIF
End Sub

Sub Regs()
UO.FindType('0x0F88',-1,'0x4051C4A2') #NS v bochke
   IF UO.FindCount() > 0 Then
    UO.Grab('50','finditem')
    wait(500)
    UO.UseFromGround('0x098C') #Eda
    wait(500)
   Else
    UO.Print('No Nightshade')
    wait(10000)
   EndIF
End Sub