лук одевание несколько

[Gromiz]

Добрый день!

помогите доделать скрипт.
искал скрипт подобный и не обнаружил, пришлось воять из нескольких, если есть более гуманный способ использовать необходимый алгоритм, просьба поделиться)

хотелось бы:
есть несколько луков, отличающихся только цветом, и необходимо, чтобы в зависимости от того, который лежит в паке, чар брал в руки
ниже написал примерно, но выдает ошибку постоянно "parse error" в 19 строчке, хотя их 18

Code: Select all

sub Bow()
   uo.findtype('лук','цвет')
   if uo.findcount()>0 then
      UO.UseType('лук','цвет')
      wait(100)
   else
      UO.Findtype('лук','цвет')
      If UO.GetQuantity( 'finditem' ) > 0 Then
      UO.UseType('лук','цвет')
            wait(100)
    else
      UO.Findtype('лук','цвет')
      If UO.GetQuantity( 'finditem' ) > 0 Then
      UO.UseType('лук','цвет')
            wait(100)
      end if
   end if
   end sub

[mysteryua]

Добрый день!
sub Bow()
uo.findtype('лук','цвет')
if uo.findcount()>0 then
UO.UseType('лук','цвет')
wait(100)
else
UO.Findtype('лук','цвет')
If UO.GetQuantity( 'finditem' ) > 0 Then
UO.UseType('лук','цвет')
wait(100)
else
UO.Findtype('лук','цвет')
If UO.GetQuantity( 'finditem' ) > 0 Then
UO.UseType('лук','цвет')
wait(100)
end if
end if
end if
end sub

в роде как не хватает одного end if на первый взгляд)
и была у меня такая тема только написана была через сет глобал

[Gromiz]

все заработало, спасибо.
действительно не хватало одного "end if"

[Gromiz]

Добрый день!
sub Bow()
end if
end if
end if
end sub

в роде как не хватает одного end if на первый взгляд)
и была у меня такая тема только написана была через сет глобал

а ты этим профилем писал, просто не нашел подобного, только про касты.?


Если кто-то может предложить более лучший вариант, прошу поделиться)

[Mirage]

Если работает то это конечно неплохо но так то UO.GetQuantity = количество предметов в стопке. Причем тут луки?
Лучше делать либо
uo.findtype('лук','цвет')
if uo.findcount()>0 then
либо так:

Code: Select all

sub Bow()
   if uo.count('лук','цвет')>0 then
      UO.UseType('лук','цвет')
   else
      if uo.count('лук','цвет')>0 then
         UO.UseType('лук','цвет')
      else
         if uo.count('лук','цвет')>0 then
            UO.UseType('лук','цвет')
         else
         end if
      end if
   end if
   wait(100)
end sub

либо еще проще:

Code: Select all

sub Bow()
   var i
   dim bowcol[3]
   bowcol[0]='цвет1'
   bowcol[1]='цвет2'
   bowcol[2]='цвет3'
   for i = 0 to 2
      if uo.count('type лука','bowcol[i]')>0 then
         UO.UseType('лук','bowcol[i]')
         return
      end if
   next
   wait(100)
end sub

[Gromiz]

Если работает то это конечно неплохо но так то UO.GetQuantity = количество предметов в стопке. Причем тут луки?
Лучше делать либо
uo.findtype('лук','цвет')
if uo.findcount()>0 then
либо так:

Code: Select all

 использую

либо еще проще:

Code: Select all

не работает, даже ошибок не выдает, просто лук не одевает

[Mirage]

Лишних кавычек понаставил

Code: Select all

sub Bow()
   var i
   var bow = '0x13B1' ; тип лука
   dim bowcol[3]
   bowcol[0]='0x099F' ; цвет лука
   bowcol[1]='0x0482'
   bowcol[2]='0x0492'
   for i = 0 to 2
      if uo.count(bow, bowcol[i]) then
         UO.UseType(bow, bowcol[i])
         return
      end if
   next
   wait(100)
end sub

жизнеспособно

[Gromiz]

а ничего если будет вверху добавлено:

Code: Select all

sub Bow()
   var i
   var bow = '0x13B1' 

uo.warmode( 1 )                                     #  добавил
uo.attack('lastattack')                             #  добавил
If UO.AR<=30  Then                                #  добавил
UO.Print("No Arrows, No Arrows")              #  добавил
wait(100)                                             #  добавил
Endif                                                   #  добавил

   dim bowcol[3]
   bowcol[0]='0x099F' 
   bowcol[1]='0x0487'
   bowcol[2]='0x027C'
   for i = 0 to 2
      if uo.count(bow, bowcol[i]) then
         UO.UseType(bow, bowcol[i])
         return
      end if
   next
   wait(100)
   
   If UO.AR<=30  Then
   UO.Print("No Arrows, No Arrows")
   wait(100)   
Endif

     # <--  Если эти проверки сюда добавлять, то они не работают

end sub