home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe 1 / Pegasus_Graphics_Universe.iso / p11 / demo / mcgademo / flagwave.txt < prev    next >
Encoding:
Text File  |  1992-12-04  |  2.2 KB  |  46 lines
  1. \ON KEY F10 JUMP ENDWAVE2\MOVE 132 TO X\MOVE 120 TO Y
  2. \MOVE 1 TO W\ON ERROR JUMP LRGFLAG\SAVE SCREEN
  3. \READ USA_FLAG.PIC\JUMP FLAGS_IN\X LRGFLAG\ON ERROR JUMP MEDFLAG
  4. \READ LRG_FLAG.PIC\JUMP FLAGS_IN
  5. \X MEDFLAG\ON ERROR JUMP ENDWAVE\READ MED_FLAG.PIC\ADD 10 TO X\ADD 3 TO Y
  6. \X FLAGS_IN\CLEAR ON ERROR
  7. \X FLAGLOOP\CLEAR SPRITES\ON ERROR JUMP NOVARIABLE_SPD
  8. \ROUNDS 29 SPEE [25,R]\JUMP VARSPEED\X NOVARIABLE_SPD
  9. \ROUNDS 29 SPEED 32\X VARSPEED\ON ERROR
  10. \SPRITE A=1 F=Y L=X,Y\SAVE SCREEN
  11. \SPRINT 1,2,3,5,7,9,12,13,14,15,17,19,20,21,24,2,4,5,7,10,12,14,15,17,19,20
  12. \SPRINT 21,23,1,2,5,8,9,11,14,16,17,18,19,21,22,24,1,2,3,4,6,10,11,12,14,15
  13. \SPRINT 16,18,19,21,22,23,24,2,3,4,6,7,8,10,11,12,14,16,17,20,21,22,23,24
  14. \RUN
  15. \ON KEY 7181 JUMP ENDWAVE2\MOVE 139 TO J\ON KEY 14624 JUMP ENDDEMO
  16. \ON ERROR JUMP LONGNOVAR\ROUNDS 300 SPEE [25,R]\JUMP LONGVAR
  17. \X LONGNOVAR\ROUNDS 300 SPEED 30\BEEP\X LONGVAR\ON ERROR
  18. \MOVE 0 TO B\RUN\BLANK 0,0,320,Y-1\BLANK 0,170,320,199\SAVE SCREEN
  19. \FRAME ?\IF A<26\JUMP ONEFLAG\ENDIF
  20. \ROUNDS 1\CLEAR SHOW
  21. \MOVE 1 TO W\MOVE 2 TO Z
  22. \ROUNDS 1 SPEED 1\CLEAR SHOW\X SHOWX\+
  23. \ACTIVATE SCREEN 1\SHOW F=W,W P=26,Z L=-20,-10\ACTIVATE SCREEN 0\+
  24. \SHOW F=W,W P=26,Z L=-20,-10\ADD 1 TO W\IF W>24\MOVE 1 TO W\ENDIF\+
  25. \ADD 1 TO Z\IF Z<230\JUMP SHOWX\ENDIF
  26. \MOVE -2 TO R\PEN W=2
  27. \X CIRCLELOOP\ADD 2 TO R\ADD 1 TO T\WAIT NOW 3
  28. \CIRCLE L=160,100 R=R/3,R/4 C=31-R/10\ADD 1 TO R\IF R<145\JUMP CIRCLELOOP\ENDIF
  29. \SAVE SCREEN\X FLAGLOOP2\CLEAR SPRITES
  30. \MOVE 132 TO X\MOVE 80 TO Y\ON ERROR JUMP NOMOREVAR
  31. \ROUNDS 290 SPEE [25,R]\JUMP MOREVAR\X NOMOREVAR\ROUNDS 290 SPEED 34
  32. \X MOREVAR\ON ERROR
  33. \SPRITE A=1 F=Y L=X,Y
  34. \SPRINT 1,2,3,5,7,9,12,13,14,15,17,19,20,21,24,2,4,5,7,10,12,14,15,17,19,20
  35. \SPRINT 21,23,1,2,5,8,9,11,14,16,17,18,19,21,22,24,1,2,3,4,6,10,11,12,14,15
  36. \SPRINT 16,18,19,21,22,23,24,2,3,4,6,7,8,10,11,12,14,16,17,20,21,22,23,24
  37. \X ONEFLAG
  38. \ON KEY 7181 JUMP ENDDEMO\MOVE 139 TO J
  39. \MOVE 0 TO B
  40. \ON ERROR JUMP NOLASTVAR\ROUNDS #1141*35 SPEE [25,R]\JUMP LASTVAR
  41. \X NOLASTVAR\ROUNDS #1141*35 SPEED 31\X LASTVAR\ON ERROR
  42. \RUN\IF B=0\READ MENU.TXT\ENDIF\X ENDDEMO\END
  43. \X ENDWAVE\CLEAR PICS\APPEND LRG_FLAG.PIC 1,1\SPRITE L=X,Y F=Y\SPRINT 1\ROUND 1
  44. \MOVE 0 TO B\RUN\WAIT NOW #1141*20\IF B=0\READ MENU.TXT\ELSE\END\ENDIF
  45. \X ENDWAVE2\READ MENU.TXT
  46.