Code: 
scn SpellLockUnlockScript

short x

Begin ScriptEffectStart
 if ( IsActor == 0 )
  set x to GetGameSetting iLockLevelMaxVeryHard
  if ( GetLocked )
   if ( GetLockLevel <= x )
    Unlock
   else
    Message "Das Schloss ist zu gut versiegelt."
   endif
  else
   Lock x
  endif
 endif
End
Skript einem Skripteffekts des Zaubers zuweisen und der Zauber wird alle Schlösser, die kein Actor sind (für genauere Bestimmung gäbe es noch die OBSE-Funktionen IsContainer/IsDoor) öffnen.
Sollte das Ziel nicht verschlossen sein wird es mit einem sehr schwerem Schloss versehen.

Sollte eine andere Stärke gewählt werden einfach ein anderes GameSetting verwenden (z.B.: iLockLevelMaxVeryEasy).