drawcharacter.h

char removesnow(int count)
{
  if (ballcount==1)
    return 1;
  if (ballcount==2)
  {
    ballsize[1]-=count<<(SP_ACCURACY-5);
    gotchasmall=500;
    valuesmall=-count;    
    if (ballsize[1]==0)
      ballcount--;
    else
    if (ballsize[1]<0)
      return 1;
  }
  if (ballcount==3)
  {
    ballsize[0]-=count<<(SP_ACCURACY-5);
    if (ballsize[0]<0)
    {
      ballcount--;
      gotchabig=500;
      valuebig=-count-(ballsize[0]>>(SP_ACCURACY-5));
      ballsize[1]+=ballsize[0];
      ballsize[0]=0; 
      gotchasmall=500;
      valuesmall=-count-valuebig;
    }
    else
    {
      gotchabig=500;
      valuebig=-count;
    }
  }
  return 0;
}

char addonesnow()
{
  if (ballcount==3)
  {
    if (ballsize[0]>=(13<<(SP_ACCURACY-4)))
      return 0;
    ballsize[0]+=(1<<(SP_ACCURACY-5));
    gotchabig=500;
    valuebig=1;
    spSoundPlay(hu_chunk,-1,0,0,0);
    return 1;
  }
  if (ballcount==1)
  {
    //ballsize[2]+=(1<<(SP_ACCURACY-5));
    //if (ballsize[2]>=(7<<(SP_ACCURACY-4)))
    {
      ballsize[1]=0;
      ballcount++;
    }
  }
  if (ballcount==2)
  {
    ballsize[1]+=(1<<(SP_ACCURACY-5));
    gotchasmall=500;
    valuesmall=1;
    if (ballsize[1]>=(9<<(SP_ACCURACY-4)))
    {
      ballsize[0]=0;
      ballcount++;
    }
    spSoundPlay(hu_chunk,-1,0,0,0);
    return 1;
  }
  return 0;
}


void drawcharacter(Sint32 x,Sint32 y,Sint32 z,char right)
{
  Sint32* modellViewMatrix=spGetMatrix();
  int i;
  int red=((spCos(damaged*(1<<(SP_ACCURACY-6)))*127)>>SP_ACCURACY)+128;
  for (i=3-ballcount;i<3;i++)
  {
    y+=ballsize[i];
    Sint32 r=ballsize[i]+(1<<(SP_ACCURACY-5));
    //spEllipse(x,y,z,r,r,spGetRGB(255,255,255));
    Sint32 matrix[16];    
    memcpy(matrix,modellViewMatrix,64);
    spTranslate(x,y,z);
    if (i==0)
      spRotateZ(angle);
    if (i==1)
    {
      if (ballcount==3)
        spRotateZ(-angle);
      else
        spRotateZ(angle);
    }
    switch (i)
    {
      case 0:case 1:
				spBindTexture(sphere);
				spQuadTex3D(-r, r,0, 0, 0,
										-r,-r,0, 0,63,
										 r,-r,0,63,63,
										 r, r,0,63, 0,spGetRGB(255,red,red));
				break;
      case 2:
				if (right)
					spBindTexture(sphere_right);
				else
					spBindTexture(sphere_left);
				spQuadTex3D(-r*2, r,0,  0, 0,
										-r*2,-r,0,  0,63,
										 r*2,-r,0,127,63,
										 r*2, r,0,127, 0,spGetRGB(255,red,red));
				break;
		}
    memcpy(modellViewMatrix,matrix,64);
    y+=ballsize[i];
  }
  if (broom_exist)
  {
    int sum=0;
    int i;
    for (i=3-ballcount;i<3;i++)
      sum+=ballsize[i]*2;
    Sint32 matrix[16];
    memcpy(matrix,modellViewMatrix,64);
    modellViewMatrix[12]+=x;
    modellViewMatrix[13]+=y-(sum>>1);
    modellViewMatrix[14]+=z+(1<<SP_ACCURACY);    
    if (right)
    {
      spRotateZ( SP_PI>>2);
      if (in_hit>768)
        spRotateZ(-((864-in_hit)*SP_PI)>>7);
      else
        spRotateZ(-(in_hit*SP_PI)>>10);
    }
    else
    {
      spRotateZ( 7*SP_PI>>2);
      if (in_hit>768)
        spRotateZ(((864-in_hit)*SP_PI)>>7);
      else
        spRotateZ((in_hit*SP_PI)>>10);
    }
    
    if (in_hit>768)
      spMesh3DwithPos(0,(864-in_hit)<<(SP_ACCURACY-6),0,broom,0);
    else
      spMesh3DwithPos(0,(    in_hit)<<(SP_ACCURACY-9),0,broom,0);
    memcpy(modellViewMatrix,matrix,64);
  }
}

char testX(Sint32 x,Sint32 ox)
{
	biggest = getBiggest();
  bx =((x>>(SP_ACCURACY))+1)>>1;
  bxl=(((x-ballsize[biggest])>>(SP_ACCURACY))+1)>>1;
  bxr=(((x+ballsize[biggest])>>(SP_ACCURACY))+1)>>1;
  by =((y>>(SP_ACCURACY))+1)>>1;
  byb=by;
  if (((2*by-1)<<SP_ACCURACY)!=y)
    byb+=1;
  int sum=0;
  int i;
  for (i=3-ballcount;i<3;i++)
    sum+=ballsize[i]*2;
  byt =((((y-sum)>>(SP_ACCURACY))+1)>>1);
  bym =(byt + byb)>>1;
  //Solid Block on the left?
  if (bxl>=0 && bxl<level->width)
  {
    if (byb>0 && byb<=level->height &&
        level->symbollist[level->layer[1][bxl+(byb-1)*level->width]]!= NULL &&
        level->symbollist[level->layer[1][bxl+(byb-1)*level->width]]->form > 0)
    {
      if ((level->symbollist[level->layer[1][bxl+(byb-1)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
        return 0; 
      if ((level->symbollist[level->layer[1][bxl+(byb-1)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
        return 0; 
      return 1;
    }
    if (byt>=0 && byt<level->height &&
        level->symbollist[level->layer[1][bxl+(byt)*level->width]]!= NULL &&
        level->symbollist[level->layer[1][bxl+(byt)*level->width]]->form > 0)
    {
      if ((level->symbollist[level->layer[1][bxl+(byt)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
        return 0; 
      if ((level->symbollist[level->layer[1][bxl+(byt)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
        return 0; 
      return 1;
    }
    if (bym>=0 && bym<level->height &&
        level->symbollist[level->layer[1][bxl+(bym)*level->width]]!= NULL &&
        level->symbollist[level->layer[1][bxl+(bym)*level->width]]->form > 0)
    {
      if ((level->symbollist[level->layer[1][bxl+(bym)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
        return 0; 
      if ((level->symbollist[level->layer[1][bxl+(bym)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
        return 0; 
      return 1;
    }
  }
  //Solid Block on the right?
  if (bxr>=0 && bxr<level->width)
  {
    if (byb>0 && byb<=level->height &&
        level->symbollist[level->layer[1][bxr+(byb-1)*level->width]]!= NULL &&
        level->symbollist[level->layer[1][bxr+(byb-1)*level->width]]->form > 0)
    {
      if ((level->symbollist[level->layer[1][bxr+(byb-1)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
        return 0; 
      if ((level->symbollist[level->layer[1][bxr+(byb-1)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
        return 0; 
      return 2;
    }
    if (byt>=0 && byt<level->height &&
        level->symbollist[level->layer[1][bxr+(byt)*level->width]]!= NULL &&
        level->symbollist[level->layer[1][bxr+(byt)*level->width]]->form > 0)
    {
      if ((level->symbollist[level->layer[1][bxr+(byt)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
        return 0; 
      if ((level->symbollist[level->layer[1][bxr+(byt)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
        return 0; 
      return 2;
    }
    if (bym>=0 && bym<level->height &&
        level->symbollist[level->layer[1][bxr+(bym)*level->width]]!= NULL &&
        level->symbollist[level->layer[1][bxr+(bym)*level->width]]->form > 0)
    {
      if ((level->symbollist[level->layer[1][bxr+(bym)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
        return 0; 
      if ((level->symbollist[level->layer[1][bxr+(bym)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
        return 0; 
      return 2;
    }
  }
  return 0;
}

char testX_down(Sint32 x,Sint32 ox)
{
	biggest = getBiggest();
	int sum=0;
	int i;
	for (i=3-ballcount;i<3;i++)
		sum+=ballsize[i]*2;
	bx =((x>>(SP_ACCURACY))+1)>>1;
	bxl=(((x-ballsize[biggest])>>(SP_ACCURACY))+1)>>1;
	bxr=(((x+ballsize[biggest])>>(SP_ACCURACY))+1)>>1;
	bym = (((y-sum/2)>>SP_ACCURACY)+1)/2;
	//Solid Block on the left?
	if (bxl>=0 && bxl<level->width)
	{
		if (bym>=0 && bym<level->height &&
		    level->symbollist[level->layer[1][bxl+(bym)*level->width]]!= NULL &&
		    level->symbollist[level->layer[1][bxl+(bym)*level->width]]->form > 0)
		{
			if ((level->symbollist[level->layer[1][bxl+(bym)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
				return 0; 
			if ((level->symbollist[level->layer[1][bxl+(bym)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
				return 0; 
			return 1;
		}
	}
	//Solid Block on the right?
	if (bxr>=0 && bxr<level->width)
	{
		if (bym>=0 && bym<level->height &&
		    level->symbollist[level->layer[1][bxr+(bym)*level->width]]!= NULL &&
		    level->symbollist[level->layer[1][bxr+(bym)*level->width]]->form > 0)
		{
			if ((level->symbollist[level->layer[1][bxr+(bym)*level->width]]->functionmask & 8) == 8 && ox<x) //left open
				return 0; 
			if ((level->symbollist[level->layer[1][bxr+(bym)*level->width]]->functionmask & 4) == 4 && ox>x) //right open
				return 0; 
			return 2;
		}
	}
}

char fattest(Sint32 *x,Sint32 ox)
{
  char i=testX_down((*x),ox);
  if (i==1)
  {
    while (i==1)
    {
      i=testX_down((*x),ox);
      (*x)+=(1<<(SP_ACCURACY-4));
      printf("Left\n");
    }
    return 1;
  }
  if (i==2)
  {
    while (i==2)
    {
      i=testX_down((*x),ox);
      (*x)-=(1<<(SP_ACCURACY-4));
      printf("Right\n");
    }
    return 1;
  }
  return 0;
}

void playerEnemyInteraction()
{
  if (damaged)
    return;
  int sum=0;
  int i;
  for (i=3-ballcount;i<3;i++)
    sum+=ballsize[i]*2;
  biggest=getBiggest();
  penemy enemy=level->firstenemy;
  while (enemy!=NULL)
  {
    //Distance
    if ( x+ballsize[biggest] >= enemy->x-enemy->symbol->measures[2] &&
         x-ballsize[biggest] <= enemy->x+enemy->symbol->measures[2] &&
         y-sum               <= enemy->y+enemy->symbol->measures[3] &&
         y                   >= enemy->y-enemy->symbol->measures[3] ) //Hit
    {
      damaged=SP_PI>>(SP_ACCURACY-8);
      if (removesnow(3))
      {
        fade2=1024;
        spSoundPlay(negative_chunk,-1,0,0,0);
        return;
      }
      return;
    }
    enemy=enemy->next;
  }
}

void broomEnemyInteraction(char right)
{
  int sum=0;
  int i;
  for (i=3-ballcount;i<3;i++)
    sum+=ballsize[i]*2;
  Sint32 broomx=x;
  if (right)
    broomx+=+(2<<SP_ACCURACY);
  else
    broomx-=+(2<<SP_ACCURACY);
  Sint32 broomy=y-(sum>>1)+(1<<SP_ACCURACY);
  penemy ebefore=NULL;
  penemy enemy=level->firstenemy;
  while (enemy!=NULL)
  {
    //Distance
    if ( broomx >= enemy->x-enemy->symbol->measures[2]-(1<<SP_ACCURACY) &&
         broomx <= enemy->x+enemy->symbol->measures[2]+(1<<SP_ACCURACY) &&
         broomy >= enemy->y-enemy->symbol->measures[3]-(1<<SP_ACCURACY) &&
         broomy <= enemy->y+enemy->symbol->measures[3]+(1<<SP_ACCURACY) ) //Hit
    {
      //newexplosion(PARTICLES,broomx,broomy,0,1024,spGetRGB(86,22,0));
      enemy->health-=2;
      newexplosion(2*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;
        //newexplosion(PARTICLES,enemy->x,enemy->y,0,1024,enemy->symbol->color);
        free(enemy);
        enemy=ebefore;
      }
      break;
    }
    ebefore=enemy;
    if (enemy!=NULL)
      enemy=enemy->next;
  }
}

void savelevelcount()
{
  SDL_RWops *file=SDL_RWFromFile("./levelcount.dat","wb");
  levelcount^=1337;
  SDL_RWwrite(file,&levelcount,sizeof(int),1);
  SDL_RWwrite(file,&volume,sizeof(int),1);
  SDL_RWwrite(file,&volumefactor,sizeof(int),1);
  levelcount^=1337;
  SDL_RWclose(file);
}

void loadlevelcount()
{
  SDL_RWops *file=SDL_RWFromFile("./levelcount.dat","rb");
  if (file==NULL)
  {
    //Compatibility
    file=SDL_RWFromFile("./data/levelcount.dat","rb");
    if (file==NULL)
      return;
  }
  SDL_RWread(file,&levelcount,sizeof(int),1);
  SDL_RWread(file,&volume,sizeof(int),1);
  SDL_RWread(file,&volumefactor,sizeof(int),1);
  levelcount^=1337;
  SDL_RWclose(file);
}