авто заточка

[TAMBIK]

NLObP, написал вставь это
замени 87 на 81
и в конце вместо 0 поставь 3 здесь:

CurEnchLvl:=0; //начнем с начала. Заменять на то значение, в которое сбрасывает при точке блесседами

а кусок что ты показал удали этот;

#$81: if readd(2)=0 then begin
CurEnchLvl:=0; //начнем с начала

[moOYkoOn]

я всё зделал как скозал нло но когда запускаю скрипт то у меня обводит красным самую последнюю end: и рядом с 87 бегин тоже обводит и скрипт не запускается

[TAMBIK]

Сообщение от moOYkoOn

я всё зделал как скозал нло но когда запускаю скрипт то у меня обводит красным самую последнюю end: и рядом с 87 бегин тоже обводит и скрипт не запускается

обводит красным самую последнюю end:
в конце скрипта то удали

[moOYkoOn]

Сообщение от TAMBIK

обводит красным самую последнюю end:
в конце скрипта то удали

я удалил , потом бегин красным обводило я тоже удалил а потом не чё не обводило но скрипт не запускался

[TAMBIK]

Сообщение от moOYkoOn

я удалил , потом бегин красным обводило я тоже удалил а потом не чё не обводило но скрипт не запускался

покажи кусок какой ты вставил
бегин - нужно чтоб было
и дай ссылку какой скрипт ты используеш

[moOYkoOn]

http://coderx.ru/downloads.php?do=file&id=24 скрипт этот

Добавлено через 1 минуту
#$87: begin и тут <---------
case readd(2) of
0: begin
msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(good);
end;
1: begin
msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(broken);
end;
2: begin
msg.Lines.Add('Сбросило в 0 ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
CurEnchLvl:=0; //начнем с начала. Заменять на то значение, в которое сбрасывает при точке блесседами
end;
end;
end; ошибка тут <-------

встовлял этот