For funsies I decided to make my own version of this script that strips out massive amounts of code duplication.
× Set var "CurrentMana" = 10
Speech "$CurrentMana$ Mana",Normal,Player,0,.
Label Start
Wait 0
Wait for player to input Special Command
Answer option "Teleport (2 Mana)",Teleport
Question Einen Zauber benutzen? Du hast $CurrentMana$ Mana.
Go to Start
Label Teleport
If ...
Wait until var "CurrentMana" >= 2
Set var "_MyX" = _X + (_O % 3 ) - 1
Set var "_MyY" = _Y + (_O / 3 ) - 1
Set var "_MyScriptX" = _O
If ...
Wait for open move northwest
Set var "_MyScriptX" = -9999
Set var "CurrentMana" - 2
Ambient sound 20042,0
Set var "_MyScriptX" = _X
Set var "_MyScriptY" = _Y
Game effect Center,Spark,0,0,Off
Set var "_MyScriptX" = _MyX + (_O % 3 ) - 1
Set var "_MyScriptY" = _MyY + (_O / 3 ) - 1
Teleport Player to 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Speech "$CurrentMana$ Mana",Normal,Player,0,.
Else
Set var "_MyScriptX" = -9999
Speech "Das funktioniert nicht...",Normal,Player,0,.
If End
Else
Speech "Nicht genug Mana...",Normal,Player,0,.
If End
Go to Start