From 62c0700588d1414446a02222fcd9a14fb387f837 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko <sev@scummvm.org>
Date: Tue, 2 Aug 2016 11:59:54 +0300
Subject: [PATCH] DIRECTOR: Lingo: Extended factory test to one from Warlock
 D5.safe-movie-1

---
 engines/director/lingo/tests/factory.lingo | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/engines/director/lingo/tests/factory.lingo b/engines/director/lingo/tests/factory.lingo
index d458ba4bff92..388d2c3a5164 100644
--- a/engines/director/lingo/tests/factory.lingo
+++ b/engines/director/lingo/tests/factory.lingo
@@ -7,6 +7,8 @@ factory aim2
 method mNew
     dontpassevent
     global aim1
+	when mousedown then aim1(fire)
+	when keydown then aim1(mExit)
     set the locv of sprite 24 to 540
 method mMove x, y
     set the locH of sprite 15 to x
@@ -31,6 +33,7 @@ method mDispose
 factory fire2
 method mNew
     dontpassevent
+	when mousedown then nothing
     set the castnum of sprite 14 to f15
 method mAtFrame
     Global StartH, StartV, targetv, stepH, stepV, bcast