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

Вопрос по массивам.
http://forum.yoko.com.ua/viewtopic.php?f=3&t=16296		 Page 1 of 1
Author:  Mirage [ 2011-04-15 11:51:41 ]
Post subject:  Вопрос по массивам.
Чейто я в тяпницу никак не соображу. Мыслями уже в субботе.

Задача состоит в следующем:
есть 3 предмета - ножницы, книга, ключ.
Скриптом нужно разложить их по разным углам рюкзака.
Теоретически это выглядит вот так:
Code:
sub sort()
UO.MoveItem('_0x0EFA', '0', 'backpack', 10, 10, 0) ; spellbook 
      wait(500)
UO.MoveItem('_0x0F9E', '0', 'backpack', 150, 10, 0) ; Silver Scissors
      wait(500)
UO.MoveItem('_0x1012', '0', 'backpack', 10, 150, 0) ; Key
      wait(500)
end sub


Но это не спортивно. Модифицируем через for:

Code:
sub sort()
   var i 
   DIM item[3]
   item[0] = '0x0EFA' ; spellbook 
   item[1] = '0x0F9E' ; Silver Scissors
   item[2] = '0x1012' ; Key

   for i = 0 to 2
      UO.MoveItem(item[i], '0', 'backpack', X, Y, Z)
      wait(500)
   next
end sub


И вот тут мы подходим к моей проблеме.
Как задать массив координат не делая 3 (2 для XY) отдельных массива?


То-есть конечный результат должен иметь вид примерно следующего плана:

Code:
sub sort()
   var i 
   DIM item[3], XYZ[3]
   item[0] = '0x0EFA' ; spellbook 
   item[1] = '0x0F9E' ; Silver Scissors
   item[2] = '0x1012' ; Key
   XYZ[0] = '10, 10, 0'
   XYZ[1] = '150, 10, 0'
   XYZ[3] = '10, 150, 0'

   for i = 0 to 2
      UO.MoveItem(item[i], '0', 'backpack', XYZ[i])
      wait(500)
   next
end sub

В таком виде скрипт к сожалению не работает.
Author:  Sirocco [ 2011-04-15 19:14:07 ]
Post subject:  Re: Вопрос по массивам.
универсальная ф-ция для перекладывания по координатам тебе в помощь.
Author:  Mirage [ 2011-04-15 19:23:44 ]
Post subject:  Re: Вопрос по массивам.
Этот вариант у меня есть, мне интересно именно в массиве можно это использовать?
Author:  Sirocco [ 2011-04-15 19:40:02 ]
Post subject:  Re: Вопрос по массивам.
@reag = (
['0x0F7A',-1,100,'Black Pearl',137,124],['0x0F7B',-1,100,'Blood Moss',137,124],['0x0F86',-1,100,'Mandrake Root',137,124],['0x0F84',-1,100,'Garlic',137,124],['0x0F85',-1,100,'Ginseng',137,124],['0x0F88',-1,100,'Night Shade',137,124],['0x0F8C',-1,100,'Sulfurous Ash',137,124],['0x0F8D',-1,100,'Spiders Silk',137,124],['0x0E21',-1,150,'Bandage',96,65]
,['0x0F87',-1,0,'Eye of Newt',96,65],['0x0F80',-1,0,'Daemon Bones',96,65],['0x0F7E',-1,0,'Bones',96,65]
);
$array = scalar(@reag);
for ($i;$i < $array;$i++) {
&supply($reag[$i][0],$reag[$i][1],$reag[$i][2],$reag[$i][4],$reag[$i][5],$container);
}


Советую
Author:  Tiger1989 [ 2011-05-21 09:57:21 ]
Post subject:  Re: Вопрос по массивам.
че за код ваще такой первый раз вижу =)
Author:  Sirocco [ 2011-05-21 10:19:02 ]
Post subject:  Re: Вопрос по массивам.
perl
Author:  kobol [ 2014-03-22 18:19:43 ]
Post subject:  Re: Вопрос по массивам.
Да, уже 2014. Просьба не ругаться :lol:

Что-то в таком духе. Только разделители надо поменять.

Code:

[...]
for i = 0 to 2
      UO.MoveItem(item[i], '0', 'backpack', GetWord(XYZ[i],1), GetWord(XYZ[i],2), GetWord(XYZ[i],3)  )
      wait(500)
   next

Sub GetWord( st, nom )
; (c) Edred
; Возвращает слово из строки str за номером num
; если такого слова нет - возвращаем ''
;
; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
;
   VAR tmpst, i, dlin, kol = 0, start = 0
   dlin = len( st )
   For i=0 To dlin - 1
      If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
         kol = kol + 1
         If kol == nom Then
            ; это первый пробел после нужного нам слова
            tmpst = mid( st, start, i - start )
            return tmpst
         Else
            While mid( st, i, 1 ) == ' '
               i = i + 1
            Wend
            If kol == nom - 1 Then
               start = i
            Endif
         Endif
      Endif
   Next
   tmpst = ''
   return tmpst
endsub
Author:  Juicy Fruit [ 2014-03-22 20:02:21 ]
Post subject:  Re: Вопрос по массивам.
Juicy Fruit wrote:
GetWord(Source,WordIndex,[Separator]) - получение слова из строки Source под номером WordIndex разделенного пробелом (или Separator'ом, если он указан)
GetWordCount(Source,[Separator]) - получение общего кол-ва слов, содержащихся в строке Source разделенных пробелом (или Separator'ом, если он указан)
От сюда
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/