Yoko
http://forum.yoko.com.ua/

Ошибка при запуске скрипта
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15875		 Page 1 of 1
Author:  Morutsu [ 2010-09-27 08:48:44 ]
Post subject:  Ошибка при запуске скрипта
Написал простенький скрипт на магию. Но запустить не могу.
Ошибка выскакивает при нажатии на список функций для запуска, список при этом не открывается.
Вот такого вида:
Image
Другие скрипты работают.
Может подскажете чего?

Вот сам скрипт:
Code:
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
Author:  Mirage [ 2010-09-27 09:32:20 ]
Post subject:  Re: Ошибка при запуске скрипта
читай про циклы.
С каких пор для While закрытие цикла Next? :mrgreen:
Author:  Savage [ 2010-09-27 10:27:28 ]
Post subject:  Re: Ошибка при запуске скрипта
Ещё после магери скобки надо.
Author:  Irina E [ 2010-09-27 11:12:30 ]
Post subject:  Re: Ошибка при запуске скрипта
мне интересна а что тут не надо ставить где он првереяит нс
Code:
  UO.FindType('0x0F88') #NS v backpack
  IF UO.FindCount() > 0 Then

не так должн быть
Code:
 UO.FindType('0x0F88',-1,'beckpack') #NS v backpack
  IF UO.FindCount() > 0 Then
Author:  Morutsu [ 2010-09-27 12:43:32 ]
Post subject:  Re: Ошибка при запуске скрипта
Quote:
мне интересна а что тут не надо ставить где он првереяит нс

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

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

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

Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/