From e740571ada83a36b4ed16575b285f029ec4b5bb8 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 24 Jul 2012 04:06:43 -0400
Subject: [PATCH] MPL theme fallback

---
 mystic/mpl_execute.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index f132cfe..e7e57c4 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -2319,7 +2319,11 @@ Begin
   If Pos('.', FN) = 0 Then FN := FN + mplExtExecute;
 
   If Pos(PathChar, FN) = 0 Then
-    FN := Config.ScriptPath + FN;
+    If FileExist(Session.Theme.ScriptPath + FN) Then
+      FN := Session.Theme.ScriptPath + FN
+    Else
+    If Session.Theme.Flags and thmFallBack <> 0 Then
+      FN := Config.ScriptPath + FN;
 
   MPEName := FN;