I missed a perl function that unscribes all spells. For those who missed it too just add this diff to your source.
perl command is just
quest::unscribespells();
it will unscribe all spells of the player triggering it.
enjoy it
https://www.projectf.de/unscribespells.diff