kcast.c

//keyvan mehrbakhsh 2024
// note : it's a progressive attempt so it's not to be the same as time passes
// till it getting to some reasonable point maybe or maybe not :D .

#include <allegro.h>
#include <math.h>
#include <stdio.h>

char *bitmapbuffer;
int vertices[]={50,50,70,100,150,50};
double dirrx=0;
double dirry=0.66;
int drawstart,drawend;
double olddirx;
double oldplanex;
 double anglevalue=0.001;
 int invx=1;
  float raydiry;
  float raydirx;
  double speed;
double lhight;

double times=1;  
int vlinemin=50;
int vlinemax=100;
                                



int  mapx;
int mapy;

  double j=0.1;
int orient[]={10,20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,160,150,140,130,120,110,100,90,80,70,60,50,40,30,20,10};
int z;

double pixdirx=10;
double pixdiry=33;
double stepx=0.01;
double stepy=0.01;


int hit=0;
double frame=0;

int color;
int y=60;
int k;
int x=103;
double   posx;
double posy;
double t;
double t2;
int x2;
 double planex=0;
 double planex2;

 double planey=0.66;
double angle;
int r=1;;
int k;
int ti;
int ti2;
int ti3=1;
  int vertlines;
int ti4;
int colx,coly;
int xoffset=0;
int playerx=0;
int playery=0;
int swi=1;
int swi2=0;
int blockx;
int blocky;
 int pixhitx=1;
 int pixhity=1;
 double frame;
 int k;
 double camerax;

 int disx,disy;
 int tx=1;
 int tx2=0;
int f;
int walltall;
int colmap2[]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
               4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
               7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
               10,10,10,10,10,10,10,10,10,10.10,10,10,10,10,10,10,10,10,10};
int colmap[]={1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,
              4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,
              7,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9,9,
               10,10,10,10,10,10,10,10,10,10};

               
int incdec=1;


  int vertical=0;
   int plus1=0;
     int plus2=0;
int lenght;
 BITMAP *the_image;
   BITMAP *the_block1;
   PALETTE the_palette1;
   PALETTE the_palette;
   PALETTE the_palette2;
   BITMAP *walkingspr;
   BITMAP *sprites;
     BITMAP *surface;
    BITMAP *sprsheet;
    BITMAP *spr1;
char spritebuf[256];
int spr01[]={
0,0,0,0,0,0,0,230,230,230,230,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,230,249,249,249,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,230,249,249,249,249,249,249,230,0,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,230,0,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,249,230,230,230,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,290,249,249,230,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,249,230,230,230,0,0,0,0,
0,0,0,0,230,230,249,249,249,249,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,249,249,249,249,249,249,249,249,249,249,0,0,0,0,0,
0,0,0,249,249,249,249,249,249,249,249,249,230,249,249,249,0,0,0,0,
0,0,249,249,249,0,230,27,27,27,27,27,249,230,249,249,249,0,0,0,
0,249,249,249,0,0,230,27,27,27,27,27,249,230,0,0,0,0,0,0,
0,0,0,0,0,0,230,27,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,230,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,230,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,230,27,249,0,230,230,240,230,0,0,0,0,0,0,
0,0,0,0,0,230,249,249,0,230,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,230,240,240,0,0,230,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,230,240,240,0,0,230,230,249,240,230,0,0,0,0,0,0,
0,0,0,0,0,230,240,0,0,0,0,230,230,230,230,0,0,0,0,0,


0,0,0,0,0,0,0,230,230,230,230,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,230,249,249,249,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,230,249,249,249,249,249,249,230,0,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,230,0,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,249,230,230,230,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,290,249,249,230,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,249,230,230,230,0,0,0,0,
0,0,0,0,230,230,249,249,249,249,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,249,249,249,249,249,249,249,249,249,0,0,0,0,0,0,
0,0,0,0,249,249,249,249,249,249,249,249,230,249,249,0,0,0,0,0,
0,0,0,249,249,0,230,27,27,27,27,27,249,230,249,249,0,0,0,0,
0,0,249,0,0,0,230,27,27,27,27,27,249,230,0,0,0,0,0,0,
0,0,0,0,0,0,230,27,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,230,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,230,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,230,27,249,0,230,230,240,230,0,0,0,0,0,0,
0,0,0,0,0,0,230,249,249,230,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,230,240,240,0,230,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,230,240,240,0,230,230,249,240,230,0,0,0,0,0,0,
0,0,0,0,0,0,230,240,0,0,230,230,230,230,0,0,0,0,0,0,


0,0,0,0,0,0,0,230,230,230,230,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,230,249,249,249,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,230,249,249,249,249,249,249,230,0,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,230,0,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,249,230,230,230,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,290,249,249,230,0,0,0,0,0,0,
0,0,0,0,230,249,249,249,249,249,249,249,249,230,230,230,0,0,0,0,
0,0,0,0,230,230,249,249,249,249,249,230,0,0,0,0,0,0,0,0,
0,0,0,0,0,249,249,249,249,249,249,249,249,249,0,0,0,0,0,0,
0,0,0,0,249,249,249,249,249,249,249,249,230,249,249,0,0,0,0,0,
0,0,0,249,249,0,230,27,27,27,27,27,249,230,249,249,0,0,0,0,
0,0,249,0,0,0,230,27,27,27,27,27,249,230,0,0,0,0,0,0,
0,0,0,0,0,0,230,27,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,230,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,230,27,27,27,27,230,0,0,0,0,0,0,0,
0,0,0,0,0,0,230,27,249,0,230,230,240,230,0,0,0,0,0,0,
0,0,0,0,0,0,230,249,249,0,230,249,230,0,0,0,0,0,0,0,
0,0,0,0,0,230,240,240,0,0,230,249,230,0,0,0,0,0,0,0,
0,0,0,0,0,230,240,240,0,0,230,230,249,240,230,0,0,0,0,0,
0,0,0,0,0,0,230,240,0,0,0,0,230,230,230,230,0,0,0,0,

};
int map[10][10]={
{1,1,1,1,1,1,1,1,1,1},
{1,0,1,1,0,0,1,0,0,1},
{1,0,0,0,1,0,0,0,0,1},
{1,0,1,0,0,0,0,0,0,1},
{1,0,0,0,0,0,0,1,1,1},
{1,0,0,1,0,1,0,0,0,1},
{1,0,0,0,0,0,0,0,0,1},
{1,1,0,0,1,1,0,1,0,1},
{1,0,0,0,0,0,0,0,0,1},
{1,1,1,1,1,1,1,1,1,1},};
int keyboard();
int timer(){




     if(ti>1000){z=z+1;}
          if(ti<1000){z=z-1;}
 if (ti>=2000){incdec=-1;}
   if (ti<=0){incdec=1;}
//  if (shift>=32){shift=1;}


             ti=ti+(incdec);

          //x+=y/10;




         x+=ti/500+(z)/20;
         x2+=ti/500+(z)/20;
         x2=x2-1;
















}


int drawroad (){


                          ti2++;
    if (ti2>100){timer();ti2=0;}


              k=k+1;
             // drawroad();

          if (k>=400){k=0;  x=0;x2=0;}




      //   for (int k=100;k<200;k=k+2)  {
          hline(screen,((x)+68)*2,((-k+800)/4),(x2+122)*2,3);
          hline(screen,((x)+60)*2,((-k+800)/4),(x2+120)*2,1);







}




int bg(){



              f=f+1;

              y=y+2;

             // drawroad();
           if (y>=200){y=0;}
          if (f>=100){f=0;}

             hline(screen,0,f+100,320,9);

        hline(screen,0,y-100,320,7);











}

void spritefunction(){
    int j=0;
    int k=0;
   
   for (int i=frame;i<frame+400;i++){

      putpixel(spr1, k, j ,spr01[i]+4);
   k++;
   if (k>=20){j++;k=0;}

       if (j>=20){j=0;}

                      }







}
int raycast(){





                                 














}
int mapfunc(){




                    // putpixel(screen,mapx,mapx,5);
                   //    putpixel(screen,pixstepsxmax*10,pixstepsymax*10,5);



                            putpixel(screen,(posx*10)+100,(posy*10)+50,3);


                               //                rayy[r]-=0.1;
                              // rayx[r]+=i/1000;





                              //   color++;if (color>10){color=1;}






                  //  pixx+=;
                  //  pixy+=;
               //        x=x*invx;
              //  y=y*invy;
                 //  x=stepx;
                 //  y=stepy;


                    //   if (pixx<50){invx=-invx;}


                 //     if (x>1){x=1;}
                  //  if (y>1){y=1;}
                   //  if (x<-1){x=-1;}
                  //  if (y<-1){y=-1;}

               //   else {invx=1;  invy=-1;}


                         


                 int dirx,diry;
                //   pixx+=((pixdirx*sin(x))/(pixdiry*cos(x)))/2;
                //   pixy+=((pixdirx*sin(y))/(pixdiry*cos(y)))/2;

                    dirx=(blockx)*10;
                    diry=(blocky)*10;
                 hit=0;

                 if (map[blockx][blocky]==1){

              hit=1;
              }

      //     for (int k=0;k<320;k=k+1){
                 //     dirx=7;
                  //    diry=4;
                   //   hit=0;
  //    putpixel(screen,(pixx[r])+100,(pixy[r])+50,3);





                       //    if (posx<0){posx=100;}


            // int dirx=abs(1/camerax);

          //   planex2 =(camerax)-(cameray);


                 //    posx++;

                   //                 z++;


                                      // int w=1;
                              for (int i=0;i<100;i=i+10){
                              for (int j=0;j<100;j=j+10){

                            if (map[i/10][j/10]==1){  rectfill(screen,i+100,j+50,i+110,j+60,3);             }

                             // hline(screen,i,j,j+10,5 )
                              line(screen,i+100,j+50,i+100,j+60,1);    line(screen,i+100,j+50,i+110,j+50,1);  } }

                              rect(screen,dirx+100,diry+50,dirx+110,diry+60,8);
                              
              if (hit==1) {
                //  cameray=dirx;
                      planey++;

                     // if (posx>40){posx=0;}




                           rectfill(screen,dirx+100,diry+50,dirx+110,diry+60,1);

                                              }



    // if (map[planey]>0){







   //  rectfill(screen,50,50,100,100,8);



                      // if (dirx>=100){dirx=0;}
}


int draw(){
int w=320;
         double camerax;
            clear_to_color(surface,0);
         frame=0;
     double deltadistx;
     double deltadisty;
     double sidedistx;
     double sidedisty;






             //    if (camerax<0){camerax=0;}

             //   camerax=frame/(float)w-1;
 //   for (int vertlines=0;vertlines<=w;vertlines=vertlines+1){


                                  frame=vertlines;
                                //  vertlines++;


     int h=200;

           int fov=32;
                    //   if (map[pixstepsxmin][pixstepsymin]=0){
                   for (int camerax=0;camerax<320;camerax=camerax+1){
                 //                 raycast()
                                  int vertlines=(camerax);

                                  raydirx=dirrx+planex+vertlines;
                                  raydiry=dirry+planey+vertlines;




                                    int  mapx=(int)(posx);
                                    int   mapy=(int)(posy);
                                  deltadistx=sqrt(1+(raydiry*raydiry)/(raydirx*raydirx));
                                            
                                  deltadisty=sqrt(1+(raydirx*raydirx)/(raydiry*raydiry));
                                            speed=0.001;
                                                int rayhit=0;
                                     int stepx;
                                     int stepy;










                                                   //              else {vertlines=0;}

                                                                                    


             if (raydirx<0){   stepx=-1;
             sidedistx=(posx-mapx)*deltadistx;}

              else {   stepx=1;
             sidedistx=(mapx+1.0 -posx)*deltadistx;}

             
                if (raydiry<0){   stepy=-1;
             sidedisty=(posy-mapy)*deltadisty;}

             
                else{   stepy=1;
             sidedisty=(mapy+1.0 -posy)*deltadisty;}
             
                     int side;
                          float perpwalldist;
                   while(  rayhit==0){
                   if( sidedistx<sidedisty)
                   {sidedistx=deltadistx+sidedistx;
                   mapx+= stepx;
                   side=0;
                   }
                   else
                   { sidedisty= deltadisty+sidedisty;
                   mapy+= stepy;
                   side =1;


                   }

                     if (map[mapx][mapy]>0){ rayhit=1;







                     }


                       }


                                   if (side==0) perpwalldist=sidedistx-deltadistx;
                          if( side==1)    perpwalldist=sidedisty-deltadisty;
                        int lhight=100/perpwalldist;
                         if (side==1){color=9;}
                      if (side==0){color=7;}
                  //    else (color=map[mapx][mapy]);


                                   drawstart= (-(lhight)/2)+100;
                if (drawstart <0){ drawstart=0; }
                 drawend= lhight/2+100;
                if (drawend>200){ drawend=200; }






                      vline(surface,camerax,drawstart,drawend,color);



                                          }





                     //           vertlines++;





                   blit(surface,screen,0,0,0,0,320,240);
    





}



void render(){


                      }



int keyboard(){

if (key[KEY_A]) {             draw();        }
           if (key[KEY_Q]) {            draw();   }
             if (key[KEY_UP]) {     if(map[(int)(posx+dirrx*speed)][(int)posy]!=1){  posx+=dirrx*speed; }
                                 if(map[(int)posx][(int)(posy+dirry*speed)]!=1){  posy+=dirry*speed;}                                                    draw(); }

             if (key[KEY_DOWN])  {    if(map[(int)(posx-dirrx*speed)][(int)posy]!=1){  posx-=dirrx*speed; }
                                                                          if(map[(int)posx][(int)(posy+dirry*speed)]!=1){  posy-=dirry*speed; }   draw();     }

                if (key[KEY_RIGHT]) {
                                                       olddirx=dirrx;

                                        oldplanex=planex;
                                                         anglevalue=0.01;

                                                       dirrx=dirrx*cos(anglevalue)-dirry*sin(anglevalue);
                                                       dirry=olddirx*sin(anglevalue)+dirry*cos(anglevalue);

                                                           planex=planex*cos(anglevalue)-planey*sin(anglevalue);
                                                       planey=oldplanex*sin(anglevalue)+planey*cos(anglevalue);


                                                             draw();


                                                                                 }

                 if (key[KEY_LEFT]) {
                                                      olddirx=dirrx;

                                        oldplanex=planex;
                                                         anglevalue=0.01;
                                                       dirrx=dirrx*cos(-anglevalue)-dirry*sin(-anglevalue);
                                                       dirry=olddirx*sin(-anglevalue)+dirry*cos(-anglevalue);

                                                           planex=planex*cos(-anglevalue)-planey*sin(-anglevalue);
                                                       planey=oldplanex*sin(-anglevalue)+planey*cos(-anglevalue);
                                                             draw();






                                               }
                                  else {camerax=0;}
}



int main(int argc, char *argv[]) {

               posx=6;
       posy=7;


   int x=1;
   int *dots;
   if (allegro_init() != 0)
      return 1;

  // if (argc != 2) {
    //  allegro_message("Usage: 'exbitmap filename.[bmp|lbm|pcx|tga]'\n");
    //  return 1;
  // }

   install_keyboard();

   if (set_gfx_mode(GFX_AUTODETECT, 320, 200, 0, 0) != 0) {
      if (set_gfx_mode(GFX_SAFE, 320, 200, 0, 0) != 0) {
       set_gfx_mode(GFX_TEXT, 0, 0, 0, 0);
         allegro_message("Unable to set any graphic mode\n%s\n", allegro_error);
 return 1;
      }   }
   //  drawing_mode(DRAW_MODE_TRANS, NULL,0,0);
//set_multiply_blender(0, 0, 0, 0);
  //     set_color_depth(8);
   //set_write_alpha_blender();
//bitmapbuffer="metal.bmp";
   /* read in the bitmap file */

       //   solid_mode();
  // the_image= load_bitmap(bitmapbuffer, the_palette1);
   sprsheet=load_bitmap("spritesheet.bmp",the_palette2);
   //   set_palette(the_palette);
//    the_block1= load_bitmap("block1.bmp",the_palette2);
     spr1=create_bitmap(320,240);
  surface=create_bitmap(320,240);
 //      spritefunction();
       walkingspr=load_pcx("walking.pcx",the_palette);
   // mapfunc();
//   set_palette(the_palette2);
//    set_alpha_blender();

    t=1;
    int i;
    i=1;
    plus1=0;


   draw();

     while (i!=0){
                             ti2++;  if (ti2>10000){ti2=0;ti3++;   mapfunc();           keyboard();







                                 if (ti3>=500){ti3=0;     }







                          }






                   }





destroy_bitmap(screen); destroy_bitmap(the_image);

   
   readkey();
//   return 0;
}END_OF_MAIN()