; THE ROCKET-DEMO
; I knew I ever would be able to play along with my own vectorball routines!
; © :
; 17-Jul-91	KP van Gend	a rocket flies around.
; 23-Jul-91	KP van Gend	Added something looking like stars in the
;				background. Looks quite ugly sometimes.
; 27-Jul-91	R Knaapen	added some BALLS #ON#/#OFF#.
; 11-Aug-91	KP van Gend	added VIPER  &  EXPLOSION.
;
;
; This file is written to show the possibilities of ChemniMaTe...
; 

Data 1
;r   ang  hei  typ lin	;nr	(comment)
37    0   -5   H6   4	;1	one of basement 
37   21   -5   H6   4	;2	two of basement
37   43   -5   H6   4	;3	three of basement
 0    0   0    C0   4	;4	body of rocket
 0    0   50   Hr20 4	;5	antenna of rocket.
Data 11 ;skip a few...
60   0    0    In12 12	;11	here below are the data for the stars.
61   0	  0    In12 11	;12
70   19   0    In12 14	;13
71   19   0    In12 13	;14
60   25   0    In12 16	;15
60   25	  0    In12 15	;16
70   48   0    In12 18	;17
71   48   0    In12 17	;18
30    7   0    In12 20	;19
30    7	  0    In12 19	;20
80   35   0    In12 22	;21
81   35   0    In12 21	;22
20   55   0    In12 24	;23
20   54	  0    In12 23	;24
90   11   0    In12 26	;25
91   11   0    In12 25	;26
120  22   0    In12 28  ;27
120  22   0    In12 27	;28
120  42   0    In12 30	;29
120  42   0    In12 29	;30
120   2   0    In12 32	;31
120   2   0    In12 31	;32
EndData

 DisplayMode 1	;two-dimensional look.

 THeader "      Do You Know What This Is ???"
 TFooter "          Guess You Don't Know!"

 I:=120;
Repeat 2
  Loop
    Middle (160 , 120)	; Set Middle of screen.
    Balls #Off#		; this one is to improve the playing speed.
    ShowNS 11 32
    Balls #On#
    CM 11 32 1 -3
    Middle (#i# , 125)	; Set Middle of screen.
    Show 1 1 5
    i:= [#i# + 2]	; Move spaceship to the right...
  Until #I# >= 200
  TFooter "   Is it a molecule? Is it an alien?"
  Loop
    Middle (160 , 120)	; Set Middle of screen.
    Balls #Off#		; The stars consist of lines, and In12 -> no need
    ShowNS 11 32
    Balls #On#		; To display 20 invisibles. Thus, set Balls off.
    CM 11 32 1 -3
    Middle (#i# , 125)	; Set Middle of screen.
    Show 1 1 5
    i:= [#i# - 2]	; Move spaceship to the right...
  Until 120 >= #I# 
EndRepeat

; empty screen 
 TFooter " "
 Theader " "
 SPages

 DisplayMode 0	;normal 3-d look.
Data 1
;r   ang  hei  typ lin	;nr	comment
59   16    0    C0  1	;1	back-backbody
63   16    0    C0  2	;2	front-backbody
88   14   -26   H6  2	;3      front-leg
38   13   -26   H6  1   ;4	back-leg
61   13    31   H6  1   ;5	upper-leg
64   19    0    C0  6	;6	back-frontbody
65   19    0	C0  7	;7	front-frontbody
81   23    0   Hr20 6	;8	top 
81   23    0   In12 7	;9	top (second line)
61   15    0   Hr22 10  ;10	fire...
EndData

 Middle (160 , 120)	; Set Middle of screen.
Repeat 33
  Show 1 1 9
  Show 1 1 10
EndRepeat
 THeader "     NO! Geezz, It's a Rocket..."
 Tfooter "Didnt know you could do such with CHMNMT"
Repeat 33
  DisplayMode 1
    Balls #Off#
    ShowNS 11 32	;show stars
    Balls #On#
    CM 11 32 1 -1
  DisplayMode 0
    Show 1 1 9		;show rocket without fire
  DisplayMode 1
    Balls #Off#
    ShowNS 11 32	;show stars
    Balls #On#
    CM 11 32 1 -1
  DisplayMode 0
    Show 1 1 10		;show rocket WITH fire.
EndRepeat


Data 12
;r   ang  hei  typ lin	;nr	(comment)
20    0   14   In12 13	;12
20   32   14   In12 14  ;13
30   16	  14   In12 15	;14
70   16    0   C0   16  ;15
30   16  -14   In12 17	;16
20   32  -14   In12 18	;17
20    0  -14   In12 19	;18
32    0    0   C0   12	;19
20   32   14   In12 21	;20
32   32    0   C0   17	;21
30   16  -14   In12 18	;22
30   16   14   In12 12	;23
32    0    0   In12 15	;24
32   32    0   In12 15	;25

EndData

DisplayMode 0
  Middle (160, 100)
  Balls #Off#
  Theader " "
  TFooter " "
  DAn:= 0;
  Ang:= 2;
  Show 1 12 25
  Wait 20;

  Text (74, 165) "VIPER class (POLICE SHIP)"
  Show 1 12 25
  Wait 20
  Text (74, 165) "VIPER class (POLICE SHIP)"
  Text (14, 182) "ARMAMENTS: PulseLaser & Seeker Missiles"
  Text (14, 190) "VELOCITY: 0.32 LM     CREW: 1 (up to 10)"
  Text (14, 198) "MOTORS: deLacy Super Thrust VC10"
  Show 1 12 25

  Wait 150;
  DAn:= 2;		/* fast(er) turn */

Repeat 24
  Text (74, 165) "VIPER class (POLICE SHIP)"
  Show 1 12 25
EndRepeat

  Text (14, 200) "This craft makes a warp to our rocket."
  TFooter "Guess what will happen when they meet ?"
  SPages
  Wait 150

  Dan:= 1;
  CM 1 10 1 -50

Repeat 13
  Middle (100, 125)
  Balls #ON#
  CM 1 10 1 -1	;I don't want to let the rocket turn as fast as the viper
  ShowNS 1 10;
  Middle (210,125)
  Balls #Off#
  Show 1 12 25	;show the viper
EndRepeat
  Wait 50

; B O O M ! ! 
  TFooter "            B O O M ! !"
  Text (0,125) "B O O M !"
  Dan:= 0
  Show 1 12 25
 Wait 200
; That's all folks!!! How did you like it?
; Nah, better not say...