NLObP, написал вставь это
замени 87 на 81
и в конце вместо 0 поставь 3 здесь:
Код:
CurEnchLvl:=0; //начнем с начала. Заменять на то значение, в которое сбрасывает при точке блесседами
а кусок что ты показал удали этот;
Код:
#$81: if readd(2)=0 then begin
CurEnchLvl:=0; //начнем с начала