From ba5b776c0a6643889aa8f6449148e2160721189a Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 10 Mar 2012 03:54:53 -0500
Subject: [PATCH] Percent bar active

---
 mystic/109to110.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/mystic/109to110.pas b/mystic/109to110.pas
index 1e84f33..5f158f7 100644
--- a/mystic/109to110.pas
+++ b/mystic/109to110.pas
@@ -707,6 +707,8 @@ Var
 Begin
   WriteLn ('[-] Updating user database...');
 
+  FileMode := 66;
+
   If Not ReNameFile(Config.DataPath + 'users.dat', Config.DataPath + 'users.old') Then Begin
     WriteLn('ERROR: Unable to copy user database.  Restore a backup and try again after');
     WriteLn('       eliminating any protential access issues.');
@@ -869,6 +871,7 @@ Procedure ConvertThemes;
     Result.Format    := 0;
     Result.StartY    := 1;
     Result.StartX    := 79;
+    Result.Active    := True;
   End;
 
 Var
@@ -901,6 +904,7 @@ Begin
     TempBar.Format := 0;
     TempBar.StartY := 1;
     TempBar.StartX := 79;
+    TempBar.Active := True;
 
     Theme.FileName     := OldLang.FileName;
     Theme.Desc         := OldLang.Desc;