From afe86e1c8dd9b22f646b0e53a966e7edab1039ab Mon Sep 17 00:00:00 2001
From: utak3r <utak3r>
Date: Sun, 1 Jul 2007 17:29:00 +0000
Subject: [PATCH] Single-transform flames are now understood by scripts.

---
 2.10/Source/ScriptForm.dfm | 3 +--
 2.10/Source/ScriptForm.pas | 6 +++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/2.10/Source/ScriptForm.dfm b/2.10/Source/ScriptForm.dfm
index 60f8323..520abcd 100644
--- a/2.10/Source/ScriptForm.dfm
+++ b/2.10/Source/ScriptForm.dfm
@@ -191,7 +191,7 @@ object ScriptEditor: TScriptEditor
       UrlStyle.BkColor = clWhite
       UrlStyle.Style = [fsUnderline]
       UseStyler = True
-      Version = '1.6.0.17'
+      Version = '1.6.0.13'
       WordWrap = wwNone
       OnChange = EditorChange
     end
@@ -609,7 +609,6 @@ object ScriptEditor: TScriptEditor
     LibOptions.SourceFileExt = '.psc'
     LibOptions.CompiledFileExt = '.pcu'
     LibOptions.UseScriptFiles = False
-    CallExecHookEvent = False
     Left = 360
     Top = 32
   end
diff --git a/2.10/Source/ScriptForm.pas b/2.10/Source/ScriptForm.pas
index d538f61..963e5af 100644
--- a/2.10/Source/ScriptForm.pas
+++ b/2.10/Source/ScriptForm.pas
@@ -1849,7 +1849,7 @@ end;
 
 procedure TOperationLibrary.PreviewProc(AMachine: TatVirtualMachine);
 begin
-  if NumTransforms > 1 then
+  if NumTransforms > 0 then
   begin
     AMachine.Paused := True;
     PreviewForm.cp.Copy(ScriptEditor.cp);
@@ -1864,7 +1864,7 @@ end;
 
 procedure TOperationLibrary.RenderProc(AMachine: TatVirtualMachine);
 begin
-  if NumTransforms > 1 then
+  if NumTransforms > 0 then
   begin
     ScriptRenderForm.cp.Copy(ScriptEditor.cp);
     ScriptRenderForm.Caption := 'Rendering ' + ScriptEditor.Renderer.Filename; ;
@@ -3463,7 +3463,7 @@ begin
     //Compile;
     Execute;
   end;
-  if (NumTransforms < 2) and UpdateIt then
+  if (NumTransforms < 1) and UpdateIt then
   begin
     Console.Lines.Add('Not enough transforms.');
     ScriptRenderForm.Close;