aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--engines/director/lingo/tests/factory.lingo24
1 files changed, 24 insertions, 0 deletions
diff --git a/engines/director/lingo/tests/factory.lingo b/engines/director/lingo/tests/factory.lingo
index 978858fc86..169ee423fe 100644
--- a/engines/director/lingo/tests/factory.lingo
+++ b/engines/director/lingo/tests/factory.lingo
@@ -65,6 +65,30 @@ method hit
method mDispose
global fire1
set fire1 = 0
+Method mNew2 theSprite, startCastRight, endCastRight, startCastLeft, endCastLeft
+ instance startDrawLeft, endDrawLeft, startDrawRight, endDrawRight, multiDrawP
+
+ if startCastLeft and endCastLeft then set multiDrawP to TRUE
+ set startDrawLeft to startCastRight
+ set endDrawLeft to endCastRight
+ set startDrawRight to startCastLeft
+ set endDrawRight to endCastLeft
+
+ me(mInitBirdPart, theSprite, startCastRight)
+Method mAtFrame2 frame, subFrame
+ global gMouseH, gMouseV
+ set gMouseH = mouseH()
+ set gMouseV = mouseV()
+
+ -- Exit when "Done" button, which resides upon score channel 6.
+ if (the clickOn = 6) then exit
+
+ put the mouseDown into mouseClick
+ Body(mEveryFrame, mouseClick)
+ RightWing(mEveryFrame, mouseClick)
+ LeftWing(mEveryFrame, mouseClick)
+
+
--
macro KillIt2
global KillLoc