Помощь с введением массива)

[Nevada]

const
CLEANSE_ID = 1409;
range=600;
var
skill: TL2Skill;
i: Integer;
Buffs: TBuffList;
targ:TL2Live;

begin


while Engine.Status = lsOnline do
begin
if ((Engine.GetSkillList.byid(1409, skill)) and (Skill.EndTime < 950)) then
begin
for i:=0 to Party.Chars.Count - 1 do
begin
targ := Party.Chars.Items(i);
begin
if ((targ.Buffs.ById (456, buffs) or (targ.Buffs.ById (123, buffs) ) and
((targ.Name='qbs') or (targ.Name='asd')) and
(User.DistTo(targ) < range)
then
begin
Engine.SetTarget(targ);
delay(10);
Engine.Usekey($keeeeeey);
end;
end;
end;
end;
end;
end.


Всем привет) Помогите пожалуйста ввести массивы с дебафом дабы привести строчку

if ((targ.Buffs.ById (456, buffs) or (targ.Buffs.ById (123, buffs) )

к виду

if (targ.Buffs.ById (?, buffs)

Гуглил, пробовал, ничего не помогло(
Было бы замечательно, если вы показали на моем же примере)

 

[Krickt]

var
BuffList: array of integer = [43534, 43543, 43543];
...

begin
for i:= 0 to high(BuffList) do
if (targ.Buffs.ById(BuffList, Buffs)...
...
end.
high в данном случае эквивалентен length - 1

 

[Nevada]

Спасибо большое) length - 1 эт что значит?)
И обязательна ли эта строка for i:= 0 to high(BuffList) do

 

[rsd]

length

длина массива.
поскольку индексация динамических массивов начинается с нуля,

length - 1

будет индексом последнего элемента

 

[Nevada]

Ребят, спасибо большое за ответы)
Еще вопрос такой, если я объединяю скрипт с другими скриптами, к примеру

uses SysUtils,Classes;
procdeure 1;
.....
end;

procedure2;
....
end;

procedure cleanse;
const...
var
BuffList: array of integer = [522, 627];
....
end;

begin
scriptnewthread(@cleanse);
...
end.
ругается на строку с массивом

что делать?

 

[rsd]

; не хватает.
что за глупые вопросы.

 

[Nevada]

эт я пример неудачно написал. ";" стоит.
Просто скрипт вида

Спойлер

begin
var
BuffList: array of integer = [522, 627];
...
end.

работает без проблем.



а в скрипте вида

Спойлер

uses SysUtils,Classes;
procdeure 1;
.....
end;

procedure2;
....
end;

procedure cleanse;
const...
var
BuffList: array of integer = [522, 627];
....
end;

begin
scriptnewthread(@cleanse);
...
end.

ругается на строчку массива

 

[rsd]

не обратил внимание, что массив глобальный.
литл хинт - описание ошибок компиляции/выполнения пишутся в логе.

procedure cleanse;
var
  BuffList: array of integer;
begin
  BuffList:= [522, 627];
  ..
end;

 

[Nevada]

const
range=600;
var
skill: TL2Skill;
i: Integer;
Buffs: TBuffList;
targbc, targ:TL2Live;
BuffList: array of integer;
begin
bufflist:= [522, 627];
begin
while Engine.Status = lsOnline do
begin
if ((Engine.GetSkillList.byid(1409, skill)) and (Skill.EndTime < 950))then
begin
for i:=0 to Party.Chars.Count -1 do
begin
targ := Party.Chars.Items(i);
begin
for i:=0 to high(Bufflist) do
begin
If (targ.Buffs.ById(BuffList, buffs)) and
((targ.name='') or (targ.name='')) and
then
begin
Engine.SetTarget(targ);
delay(10);
Engine.Usekey($32);
delay(100);
end;


end;
end;
end;
end;
end;
end;
end.



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

 

[Krickt]

@Nevada, помогу, если сделаешь норм форматирование кода.

 

[Nevada]

const
range=600;
var
skill: TL2Skill;
i: Integer;
Buffs: TBuffList;
targbc,targ: TL2Live;
BuffList: array of integer;
begin
bufflist:= [522, 627];
begin
while Engine.Status = lsOnline do
begin
if ((Engine.GetSkillList.byid(1409, skill)) and (Skill.EndTime < 950)) then
begin
for i:= 0 to Party.Chars.Count -1 do
begin
targ:= Party.Chars.Items(i);
begin
for i:= 0 to high(Bufflist) do
begin
If targ.Buffs.ById(BuffList, buffs) and
((targ.name='Ник1') or (targ.name='НикN'))
then
begin
Engine.SetTarget(targ);
delay(10);
Engine.Usekey($32);
delay(100);
end;
end;
end;
end;
end;
end;
end;
end.

надеюсь, я тебя правильно понял на счет форматирования)

 

[Krickt]

@Nevada, нет, поставить в тупую на каждой строчке табы это не форматирование. На, почитай - http://citforum.ru/programming/delphi/style_delphi/
http://joxi.ru/RmzzbQKsWO66Zm- это что за бегин?

 

[Nevada]

эт чтоб можно было использовать массив)

 

[Nevada]

ну чего, может кто помочь то?)

 

[Krickt]

@Nevada, ты i обнуляешь во втором цикле. нужна еще 1 переменная для счетчика.

 

[magogs]

const
range=600;
var
skill: TL2Skill;
i: Integer;
Buffs: TBuffList;
targbc,targ: TL2Live;
BuffList: array of integer;
begin
bufflist:= [522, 627];
begin
while Engine.Status = lsOnline do
begin
if ((Engine.GetSkillList.byid(1409, skill)) and (Skill.EndTime < 950)) then
begin
for i:= 0 to Party.Chars.Count -1 do //ТЫ окрыл цикл
begin //Запустил
targ:= Party.Chars.Items(i); //Засетил
begin //Зачем тут бегин и почему? . Р.С. Может я дурак?
for i:= 0 to high(Bufflist) do
begin
If targ.Buffs.ById(BuffList, buffs) and
((targ.name='Ник1') or (targ.name='НикN'))
then
begin
Engine.SetTarget(targ);
delay(10);
Engine.Usekey($32);
delay(100);
end;
end;
end;
end;
end;
end;
end;
end.
Читай коментайрий

 

[Krickt]

@magogs, вот я об этом же бегине и говорил.