diff options
| -rw-r--r-- | engines/director/lingo/tests/factory.lingo | 24 |
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 |