*script MOUTH1B.SCR 10 320 200
*version 16
*ground_z 512
*speed 160
*define ATARI_CEL MOUTH2C.CEL
*define ATARI_CEL MOUTH3D.CEL
*define ATARI_CEL MOUTH2B.CEL
*define ATARI_CEL MOUTH2D.CEL
*define ATARI_CEL MOUTH1B.CEL
*define ATARI_CEL MOUTH1D.CEL
*define ATARI_CEL HEAD3.CEL
*define ATARI_CEL WHEAD3.CEL
*define ATARI_CEL HEAD2.CEL
*define ATARI_CEL HEAD1.CEL
*define ATARI_CEL WHEAD1.CEL

*tween 0 199 199 3
*act 53 INIT_COLORS -1 0 16 
        (0 0 0)(224 160 160 )(192 128 128 )(160 96 96 )
        (128 64 64 )(96 32 128 )(0 0 0 )(224 160 128 )
        (0 0 0 )(96 96 96 )(64 64 64 )(160 160 160 )
        (224 224 224 )(160 0 0 )(32 0 224 )(0 0 0 )
*act 8 INSERT_RASTER 0 WHEAD1.CEL 160 134 512 

*tween 199 199 398 3
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 0 HEAD1.CEL 153 109 512 
*act 8 INSERT_RASTER 1 MOUTH1D.CEL 157 172 512 

*tween 398 198 596 2
*act 3 KILL_POLY 1 
*act 8 INSERT_RASTER 1 MOUTH1B.CEL 159 171 512 

*tween 596 198 794 4
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 HEAD2.CEL 152 111 512 
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 MOUTH2D.CEL 159 175 512 

*tween 794 198 992 2
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 WHEAD3.CEL 155 134 512 

*tween 992 198 1190 4
*act 3 KILL_POLY 1 
*act 8 INSERT_RASTER 1 HEAD2.CEL 152 109 512 
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 MOUTH2B.CEL 161 171 512 

*tween 1190 198 1388 2
*act 3 KILL_POLY 1 
*act 8 INSERT_RASTER 1 MOUTH2D.CEL 159 171 512 

*tween 1388 198 1586 4
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 HEAD3.CEL 149 108 512 
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 MOUTH3D.CEL 151 173 512 

*tween 1586 198 1784 4
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 HEAD2.CEL 152 110 512 
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 MOUTH2C.CEL 163 174 512 

*tween 1784 198 1982 4
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 HEAD1.CEL 154 109 512 
*act 3 KILL_POLY 0 
*act 8 INSERT_RASTER 1 MOUTH1B.CEL 161 171 512