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

лук одевание несколько
http://forum.yoko.com.ua/viewtopic.php?f=20&t=16292		 Page 1 of 1
Author:  Gromiz [ 2011-04-13 22:32:02 ]
Post subject:  лук одевание несколько
Добрый день!

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

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

Code:
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
Author:  mysteryua [ 2011-04-14 00:22:51 ]
Post subject:  Re: лук одевание несколько
Gromiz wrote:
Добрый день!
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 на первый взгляд)
и была у меня такая тема только написана была через сет глобал
Author:  Gromiz [ 2011-04-14 08:00:24 ]
Post subject:  Re: лук одевание несколько
все заработало, спасибо.
действительно не хватало одного "end if"
Author:  Gromiz [ 2011-04-14 08:04:29 ]
Post subject:  Re: лук одевание несколько
mysteryua wrote:
Gromiz wrote:
Добрый день!
sub Bow()
end if
end if
end if
end sub


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


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


Если кто-то может предложить более лучший вариант, прошу поделиться)
Author:  Mirage [ 2011-04-14 08:14:24 ]
Post subject:  Re: лук одевание несколько
Если работает то это конечно неплохо но так то UO.GetQuantity = количество предметов в стопке. Причем тут луки?
Лучше делать либо
uo.findtype('лук','цвет')
if uo.findcount()>0 then
либо так:

Code:
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:
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
Author:  Gromiz [ 2011-04-14 22:31:25 ]
Post subject:  Re: лук одевание несколько
Mirage wrote:
Если работает то это конечно неплохо но так то UO.GetQuantity = количество предметов в стопке. Причем тут луки?
Лучше делать либо
uo.findtype('лук','цвет')
if uo.findcount()>0 then
либо так:

Code:
 использую

либо еще проще:
Code:
не работает, даже ошибок не выдает, просто лук не одевает
Author:  Mirage [ 2011-04-14 23:03:01 ]
Post subject:  Re: лук одевание несколько
Лишних кавычек понаставил :roll:
Code:
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

жизнеспособно 8)
Author:  Gromiz [ 2011-04-15 12:54:26 ]
Post subject:  Re: лук одевание несколько
а ничего если будет вверху добавлено:

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