использовал скрипт "Авто аугментация до получения нужного скила by Vilson" но он не работает там куча ошибок говорит.помогите плиз играю на грации финал relax olimp
l2rx.com
Добавлено через 21 минуту
Цитата:
Сообщение от vuerto
использовал скрипт "Авто аугментация до получения нужного скила 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;