Работа с массивом

[untouch]

Здравствуйте,

При написании скрипта столкнулся с проблемой, а именно с работой массива, вот ниже пример:

Допустим, необходимо произвести действие с рядом стоящими объектами, по-очереди:

Code: Select all

Program test;

{$Include 'all.inc'}

var

i : integer;
obj :array[0..4] of cardinal;

Begin

obj[0] := $1239ABFF;
obj[1] := $1239B519;
obj[2] := $1239FD99;
obj[3] := $123A1540;
obj[4] := $123A7EBF;

for i:=0 to 4 do

UseObject(ObjAtLayerEx(RhandLayer, self));
WaitTargetObject(obj[i]);
wait(1000);

End.

где здесь ошибка и почему?
(разбираюсь в скриптинге сам, поэтому не судите меня строго)

[nah nah]

Code: Select all

for i:=0 to 4 do
begin
UseObject(ObjAtLayerEx(RhandLayer, self));
WaitTargetObject(obj[i]);
wait(1000);
end;

[untouch]

[quote="nah nah"][/quote]
капец,
спс

[nah nah]

На питоне разбираться удобнее. Весь код можно было бы уместить в 4 строки

Code: Select all

for i in (0x1239ABFF, 0x1239B519, 0x1239FD99, 0x123A1540, 0x123A7EBF):
    UseObject(ObjAtLayerEx(RhandLayer(), Self()))
    WaitTargetObject(i)
    Wait(1000)

[Vizit0r]

что ни тема, то питонщики рассказывают за красоту и удобство кода:)

[Lietman]

Сделали б уроки на питоне =) было бы круто =)

[chernysh]

Сделали б уроки на питоне =) было бы круто =)

А что их делать? Все тоже самое, только синтаксис питона понять нужно.
Из преимуществ, нету типизации, т.е не нужно задавать везде переменные String, Char, Cardinal, Word. Да и синтаксис удобный

[Alex]

что ни тема, то питонщики рассказывают за красоту и удобство кода:)

[Scripts Writer]

На питоне разбираться удобнее. Весь код можно было бы уместить в 4 строки

Code: Select all

for i in (0x1239ABFF, 0x1239B519, 0x1239FD99, 0x123A1540, 0x123A7EBF):
    UseObject(ObjAtLayerEx(RhandLayer(), Self()))
    WaitTargetObject(i)
    Wait(1000)

А если у тебя будет 50 элементов массива и понадобится работать с ним в 5 разных местах, продублируешь код 5 раз с коллекций по 50 элементов для перебора в каждом?

[chernysh]

На питоне разбираться удобнее. Весь код можно было бы уместить в 4 строки

Code: Select all

for i in (0x1239ABFF, 0x1239B519, 0x1239FD99, 0x123A1540, 0x123A7EBF):
    UseObject(ObjAtLayerEx(RhandLayer(), Self()))
    WaitTargetObject(i)
    Wait(1000)

А если у тебя будет 50 элементов массива и понадобится работать с ним в 5 разных местах, продублируешь код 5 раз с коллекций по 50 элементов для перебора в каждом?

На самом деле это был пример говнокода Не в обиду автора.
Конечно же, писать нужно так:

Code: Select all

obj_ids = [0x1239ABFF, 0x1239B519, 0x1239FD99, 0x123A1540, 0x123A7EBF]

for obj in obj_ids:
    UseObject(ObjAtLayerEx(RhandLayer(), Self()))
    WaitTargetObject(obj)
    Wait(1000)

[nah nah]

А если у тебя будет 50 элементов массива и понадобится работать с ним в 5 разных местах, продублируешь код 5 раз с коллекций по 50 элементов для перебора в каждом?

Я бы присвоил список переменной

зы. не успел ответить

[Tomers]

У меня реализовано так:

Code: Select all

var
obj:array of cardinal;
i:integer;

begin
obj:=[$1239ABFF,$1239B519,$1239FD99,$123A1540,$123A7EBF];
for i:=0 to hight(obj) do begin
...
end;

End.

Плюс этого метода в том, что при необходимости увеличения колличества обрабатываемых предметов, просто добавляеш их в obj:=[$1239ABFF,$1239B519,...]; и все.

Впринципе и твой код верен, тут проблема не в масиве, у меня была подобна проблема, когда просто не успевал отработать прицел. Не особо вдаваясь в причину я ставил после юза объекта: wait(200);

п.с. С юзом объекта из руки не работал по причине отсутствия необходимости в таковой.

[nah nah]

тут проблема не в масиве

Верно! У топик-стартера просто не было begin и end в скрипте после for