home *** CD-ROM | disk | FTP | other *** search
- /* Brent's Funhouse */
- /* By Brent Malnack */
- /* note: a lot of hard coding of file names etc. */
- /* OK for testing ... not good for general use */
- waitforport dmm_rx
- our_address = address()
- address value dmm_rx
- say address()
- say "reading scene"
- 'READ_SCENE scenes/Funbowl'
- SET_OBJ 1 KEY
- x = 1
- y = 0
- do i = 1 to 10
- SET_OBJ x DYNO
- SET_OBJ x ELAST y
- x = x + 1
- say x
- say y
- y = y + .1
- end
- 'DYNO'
- say "writing scene file"
- 'WRITE_SCENE scenes/funbowl.dyn'
- address
-