関数内で宣言されてない変数名を使うとエラーを起こすのは当たり前なんだから
Var active=unitしておくか引用する関数のactiveをunitに置き換えればいいだけやろそれ