Вопрос по массивам.

[Mirage]

Чейто я в тяпницу никак не соображу. Мыслями уже в субботе.

Задача состоит в следующем:
есть 3 предмета - ножницы, книга, ключ.
Скриптом нужно разложить их по разным углам рюкзака.
Теоретически это выглядит вот так:

Code: Select all

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: Select all

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: Select all

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

В таком виде скрипт к сожалению не работает.

[Sirocco]

универсальная ф-ция для перекладывания по координатам тебе в помощь.

[Mirage]

Этот вариант у меня есть, мне интересно именно в массиве можно это использовать?

[Sirocco]

@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);
}


Советую

[Tiger1989]

че за код ваще такой первый раз вижу =)

[Sirocco]

perl

[kobol]

Да, уже 2014. Просьба не ругаться

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

Code: Select all

[...]
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

[Juicy Fruit]

GetWord(Source,WordIndex,[Separator]) - получение слова из строки Source под номером WordIndex разделенного пробелом (или Separator'ом, если он указан)
GetWordCount(Source,[Separator]) - получение общего кол-ва слов, содержащихся в строке Source разделенных пробелом (или Separator'ом, если он указан)

От сюда