Аргументация до нужного скила

[vuerto]

использовал скрипт "Авто аугментация до получения нужного скила by Vilson" но он не работает там куча ошибок говорит.помогите плиз играю на грации финал relax olimp
l2rx.com

Добавлено через 21 минуту
использовал скрипт "Авто аугментация до получения нужного скила by Vilson" но он не работает там куча ошибок говорит.помогите плиз играю на грации финал relax olimp
l2rx.com

3 версию тоже пробовал там ошибка
function SetSkillID :integer;
var
i:integer;
TextID:integer;
MyText:string;
begin
if (ConnectName=MyName) and (FromClient) then
begin
i:=2;
MyText:=ReadS(i);
TextID:=ReadD(i);
if (TextID=3) then
begin
SendMsg2( MyName, 'Желаемый AugSkillID: ' + MyText);
pck:='';
try
Result:=StrToInt(MyText);
except
Result:=0;
end;
end;
end; <<<<<<<<<----тут(удалил появилась ниже ошибка)

procedure ItemList;<<<<<<<<<-------туц
var
i, j, k: integer;
ListSize: integer;
begin
j:=4; //пропускаем дo ListSize
ListSize:=ReadH(j);
for i:=1 to ListSize do
if (i<=ListSize) then
begin
end;

[J-Fobos]

Изучайте основы, исправляйте ошибки.

[vuerto]

помогите плиззз я нуб ппц(((((((((((((((