diff options
author | Eugene Sandulenko | 2019-12-23 13:13:31 +0100 |
---|---|---|
committer | Eugene Sandulenko | 2019-12-23 13:14:54 +0100 |
commit | 0b6ab63586aee51dadc558ecd2a492bf679e202e (patch) | |
tree | d89505d48876923203b2eb02e3f2b1d322b3921d | |
parent | b2ce2231a1c14a124a0f6727c5689637e70c6c12 (diff) | |
download | scummvm-rg350-0b6ab63586aee51dadc558ecd2a492bf679e202e.tar.gz scummvm-rg350-0b6ab63586aee51dadc558ecd2a492bf679e202e.tar.bz2 scummvm-rg350-0b6ab63586aee51dadc558ecd2a492bf679e202e.zip |
DIRECTOR: LINGO: Added tests for new grammar
-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 |