Yoko

All sides of Injection
It is currently 2024-04-18 05:12:21

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
PostPosted: 2011-10-15 11:06:09 
Offline

Joined: 2005-02-08 18:39:50
Posts: 444
Location: Moscow
волей судеб надо использовать луки, арбалеты и малые арбалеты на разных континентах игры.

можно было обойтись несколькими скриптами, а точнее 3-мя.
Но хочется чтобы автолоад был не таким длинным и лишние кнопки не задействовать, для этого планировалось сделать 1 скрипт на 3 стрелковых вида и в разном цветовом исполнении.
и тут я в тупик пришел, и прошу вашего совета, чтобы сделать абсолютно функциональный скрипт.

а идея его такова:

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

в скриптах не силен, ни один написать не могу, только редактирую

остановился на таком варианте, правда без проверки цвета на арбалетах:

одевает только лук, арбалеты не видит
Code:
sub Bow()
   var i
   var bow = '0x13B1' 
   var crbow = '0x0F4F'
   var hcrbow = '0x13FC'

   dim bowcol[4]
   bowcol[0]='0x0035'
   bowcol[1]='0x0BAC'
   bowcol[2]='0x13FC'
   bowcol[3]='0x0000'
   for i = 0 to 3
      if uo.count(bow, bowcol[i]) then
         UO.UseType(bow, '0x0000')
      else
         UO.UseType(crbow, '0x0000')         
      else
         UO.UseType(hcrbow, '0x0000')
return
      end if
         next
end sub


скрипт вроде бы не сложный, но я на нем встрял, "help"


Top
   
PostPosted: 2011-10-16 15:48:13 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
двойное условие пишется немного по другому.
Если я тебя правильно понял в алгоритме то твой скрипт будет выглядеть вот так:
Code:
sub Bow()
   var i
   var bow = '0x13B1'
   var crbow = '0x0F4F'
   var hcrbow = '0x13FC'
   dim bowcol[4]
   bowcol[0]='0x0035'
   bowcol[1]='0x0BAC'
   bowcol[2]='0x13FC'
   bowcol[3]='0x0000'
   for i = 0 to 3 ; ghdjthztv на 3 цветных лука
      if uo.count(bow, bowcol[i]) then
         UO.UseType(bow, bowcol[i])
         return
      end if
   next
   if uo.count(crbow) then ; если луки не найдены то проверяем на первый арбалет
      UO.UseType(crbow, '0x0000')         
   else ; или второй арбалет
      UO.UseType(hcrbow, '0x0000')
   end if
end sub

Подразумевается что чтото в паке да имеется. ;)

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2011-10-16 21:15:47 
Offline

Joined: 2005-02-08 18:39:50
Posts: 444
Location: Moscow
скрипт замечательный,

работает, спасибо


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 3 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 14 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited