ballbullet.h

tbullet ballbullet;
Sint32 ballBulletSize;
char ballBulletExists;

void fireBallBullet()
{
  if (ballBulletExists)
    return;
  if (ballcount<3)
    return;
  ballBulletSize=ballsize[0];
  ballsize[0]=0;
  ballBulletExists=1;
  ballbullet.color=spGetRGB(255,255,255);
  ballbullet.dx=(facedir)?(1<<(SP_ACCURACY-7)):(-1<<(SP_ACCURACY-7));
  ballbullet.dy=0;
  ballbullet.lifetime=2000;
  ballbullet.x=x;
  ballbullet.y=y-ballBulletSize;
  spSoundPlay(ballshot_chunk,-1,0,0,0);
}

void drawBallBullet(Sint32 x,Sint32 y)
{
  if (!ballBulletExists)
    return;
  //spEllipse(bullet->x-x,y-bullet->y,0,3<<(SP_ACCURACY-3),3<<(SP_ACCURACY-3),bullet->color);
  Sint32 matrix[16];
  memcpy( matrix, spGetMatrix(), 16 * sizeof( Sint32 ) ); //glPush()
  spTranslate(ballbullet.x-x,y-ballbullet.y,0);
	spBindTexture(sphere);
	spQuadTex3D(-ballBulletSize, ballBulletSize,0, 0, 0,
							-ballBulletSize,-ballBulletSize,0, 0,63,
							 ballBulletSize,-ballBulletSize,0,63,63,
							 ballBulletSize, ballBulletSize,0,63, 0,ballbullet.color);
  memcpy( spGetMatrix(), matrix, 16 * sizeof( Sint32 ) ); //glPop()
}

void calcBallBullet()
{
  if (!ballBulletExists)
    return;
  ballbullet.x+=ballbullet.dx;
  ballbullet.y+=ballbullet.dy;
  ballbullet.lifetime--;
  char collision=0;
  if (ballbullet.lifetime<0)
    collision=1;
  penemy ebefore=NULL;
  penemy enemy=level->firstenemy;
  while (enemy!=NULL)
  {
    //Distance
    if ( ballbullet.x+ballBulletSize >= enemy->x-enemy->symbol->measures[2] &&
         ballbullet.x-ballBulletSize <= enemy->x+enemy->symbol->measures[2] &&
         ballbullet.y+ballBulletSize >= enemy->y-enemy->symbol->measures[3] &&
         ballbullet.y-ballBulletSize <= enemy->y+enemy->symbol->measures[3] ) //Hit
    {
      newexplosion(PARTICLES,ballbullet.x,ballbullet.y,0,1024,spGetRGB(255,255,255));
      ballBulletSize-=1<<(SP_ACCURACY-5);
      if (ballBulletSize<=0)
        ballBulletExists=0;
      enemy->health--;
      newexplosion(PARTICLES,enemy->x,enemy->y,0,1024,enemy->symbol->color);
      if (enemy->health<=0)
      {
        enemyKilled++;
        if (ebefore==NULL)
          level->firstenemy=enemy->next;
        else
          ebefore->next=enemy->next;
        free(enemy);
        enemy=ebefore;
      }
      break;
    }
    ebefore=enemy;
    if (enemy!=NULL)
      enemy=enemy->next;
  }
  
  int bx =(( ballbullet.x                >>(SP_ACCURACY))+1)>>1;
  int bxl=(((ballbullet.x-ballBulletSize)>>(SP_ACCURACY))+1)>>1;
  int bxr=(((ballbullet.x+ballBulletSize)>>(SP_ACCURACY))+1)>>1;
  int byb=(((ballbullet.y+ballBulletSize)>>(SP_ACCURACY))+1)>>1;
  int byt=(((ballbullet.y-ballBulletSize)>>(SP_ACCURACY))+1)>>1;
  int bym=(( ballbullet.y                >>(SP_ACCURACY))+1)>>1;
  //Solid Block on the left?
  if (bxl>=0 && bxl<level->width)
  {
    if (byb>0 && level->symbollist[level->layer[1][bxl+(byb-1)*level->width]]       != NULL &&
                 level->symbollist[level->layer[1][bxl+(byb-1)*level->width]]->form > 0)
      collision=1;
    if (byt>=0 && level->symbollist[level->layer[1][bxl+(byt)*level->width]]       != NULL &&
                  level->symbollist[level->layer[1][bxl+(byt)*level->width]]->form > 0)
      collision=1;
    if (bym>=0 && level->symbollist[level->layer[1][bxl+(bym)*level->width]]       != NULL &&
                  level->symbollist[level->layer[1][bxl+(bym)*level->width]]->form > 0)
      collision=1;
  }
  //Solid Block on the right?
  if (bxr>=0 && bxr<level->width)
  {
    if (byb>0 && level->symbollist[level->layer[1][bxr+(byb-1)*level->width]]       != NULL &&
                 level->symbollist[level->layer[1][bxr+(byb-1)*level->width]]->form > 0)
      collision=2;
    if (byt>=0 && level->symbollist[level->layer[1][bxr+(byt)*level->width]]       != NULL &&
                  level->symbollist[level->layer[1][bxr+(byt)*level->width]]->form > 0)
      collision=2;
    if (bym>=0 && level->symbollist[level->layer[1][bxr+(bym)*level->width]]       != NULL &&
                  level->symbollist[level->layer[1][bxr+(bym)*level->width]]->form > 0)
      collision=2;
  }
  if (collision)
  {  
    Sint32 c=ballBulletSize>>(SP_ACCURACY-4);
    int i;
    for (i=0;i<c;i++)
      newBullet(ballbullet.x,ballbullet.y,spCos((2*SP_PI*i)/c)>>5,spSin((2*SP_PI*i)/c)>>5,1000,2,ballbullet.color);
    ballBulletExists=0;
  }
}