void Init_Crystal(void)
{
// this function initializes and loads all the crystals 

int z = 0;
// load the crystal imagery 

Load_Bitmap_File(&bitmap8bit, "crystal1.bmp");

#if(CRYSTAL_STATE_ON)
{
// create the first bob

Create_BOB(&crystal,0,0,120,120,19,
            BOB_ATTR_VISIBLE | BOB_ATTR_MULTI_ANIM,
            DDSCAPS_SYSTEMMEMORY);

// load animation frames

for (int frame=0; frame < 19; frame++)
    Load_Frame_BOB(&crystal,&bitmap8bit,frame,frame%5,frame/5,BITMAP_EXTRACT_MODE_CELL);  

// load animation sequences

// ...blah blah


// set animation rate

Set_Anim_Speed_BOB(&crystal,1);
Set_Vel_BOB(&crystal, 0, 1000);
Set_Pos_BOB(&crystal, 270,0);

z = rand()%19;	
crystal.curr_frame = z;   

// set state to off

crystal.state = CRYSTAL_STATE_OFF;

// unload data infile

Unload_Bitmap_File(&bitmap8bit);
}
#endif// end Init_Crystal  

}  
  

              
void Start_Crystal(void)
{
// this functions generates a crystal if state is on


if (crystal.state == CRYSTAL_STATE_OFF)
         { // turn crystal gen on

           crystal.state = CRYSTAL_STATE_ON;
       return;
        
    } // end if


} // end Start_Crystal  

  

              
void Draw_Crystal(void)
{
//this function draws the crystal

if (crystal.state == CRYSTAL_STATE_ON)      
{
  Draw_BOB(&crystal,lpDDSBack);
}
}      

  int Create_Bitmap(BITMAP_IMAGE_PTR image, int x, int y, int width, int height){// this function is used to intialize a bitmap// allocate the memoryif (!(image->buffer = (UCHAR *)malloc(width*height)))   return(0);// initialize variablesimage->state     = BITMAP_STATE_ALIVE;image->attr      = 0;image->width     = width;image->height    = height;image->x         = x;image->y         = y;image->num_bytes = width*height;// clear memory outmemset(image->buffer,0,width*height);// return successreturn(1);} // end Create_Bitmap  

  int Load_Image_Bitmap(BITMAP_IMAGE_PTR image, // bitmap image to load with data                      BITMAP_FILE_PTR bitmap,    // bitmap to scan image data from                      int cx,int cy,   // cell or absolute pos. to scan image from                      int mode)        // if 0 then cx,cy is cell position, else                                     // cx,cy are absolute coords{// this function extracts a bitmap out of a bitmap fileUCHAR *source_ptr,   // working pointers      *dest_ptr;// is this a valid bobif (!image)   return(0);// test the mode of extraction, cell based or absoluteif (mode==BITMAP_EXTRACT_MODE_CELL)   {   // re-compute x,y   cx = cx*(image->width+1) + 1;   cy = cy*(image->height+1) + 1;   } // end if// extract bitmap datasource_ptr = (UCHAR *)bitmap->buffer +      cy*bitmap->bitmapinfoheader.biWidth+cx;// assign a pointer to the bimap imagedest_ptr = (UCHAR *)image->buffer;// iterate thru each scanline and copy bitmapfor (int index_y=0; index_y<image->height; index_y++)    {    // copy next line of data to destination    memcpy(dest_ptr, source_ptr,image->width);    // advance pointers    dest_ptr   += image->width;    source_ptr += bitmap->bitmapinfoheader.biWidth;    } // end for index_y// set state to loadedimage->attr |= BITMAP_ATTR_LOADED;// return successreturn(1);} // end Load_Image_Bitmap