В принципе можно скрипт тамбика переделать, а потом на с4 перегнать...
Добавить в Конст Сейф-Энчант-лвл, ИД Обычного скролла и в механизме энчанта вставить Case До сейва и после сев-энч-лвл (2 разных пути, 2 разных ИД)
delphi Код:
Беагин
Если лвл
<3 : хуня:=скролл;
>3 : хуня:=блессскролл;
Эндь;
Точить(хуню);
Эндь;