Friday, April 9, 2010

Animasi Ular

Friday, April 9, 2010
Download Source Code

#include <iostream.h>
#include <conio.h>
#include <dos.h>

void delay(int a);
void delay(int a)
{

    for (int x=0;x<a*100;x++)
   {
       for (int y=0;y<a*100;y++)
      {}
   }
}

void main()
{
   int i;
   _setcursortype(_NOCURSOR);

   //LOGIN
   sleep(1);
   textcolor(7);
    gotoxy(20,10);cprintf("____________________");
   gotoxy(24,11);cprintf("INSERT NAME");
   gotoxy(20,12);cprintf("--------------------");
   gotoxy(20,13);cprintf(" NAME:              ");
   gotoxy(20,14);cprintf("--------------------");
   gotoxy(20,15);cprintf(" OK          CANCEL ");
   gotoxy(20,16);cprintf("____________________");
   gotoxy(19,11);cprintf("|");gotoxy(40,11);cprintf("|");
   gotoxy(19,12);cprintf("|");gotoxy(40,12);cprintf("|");
   gotoxy(19,13);cprintf("|");gotoxy(40,13);cprintf("|");
   gotoxy(19,14);cprintf("|");gotoxy(40,14);cprintf("|");
   gotoxy(19,15);cprintf("|");gotoxy(40,15);cprintf("|");
   gotoxy(19,16);cprintf("|");gotoxy(40,16);cprintf("|");
   sleep(1);
   gotoxy(27,13);cprintf("F");delay(200);
   gotoxy(28,13);cprintf("A");delay(200);
   gotoxy(29,13);cprintf("I");delay(200);
   gotoxy(30,13);cprintf("Z");delay(200);
   gotoxy(31,13);cprintf("A");delay(200);
   gotoxy(32,13);cprintf("L");delay(200);
   textcolor(10);
   cprintf("\7");gotoxy(21,15);cprintf("OK");delay(200);

   clrscr();
   sleep(1);
   //LEVEL 1
   //NAMA MAINAN
   textcolor(4);
   gotoxy(10,2);cprintf("GAME ULAR");

   //PLAYER NAME
   textcolor(10);
   gotoxy(26,4);cprintf("PLAYER NAME: FAIZAL");
   gotoxy(26,6);cprintf("LEVEL: 1");
   gotoxy(26,8);cprintf("SCORE: 0000");

    //KOTAK MAIN (PLAY AREA)
   textcolor(7);
   gotoxy(5,3);cprintf(" _________________ ");
   for(i=1;i<=17;i++)
     {
          gotoxy(5,3+i);
          if(i==17)
           cprintf("|_________________|");
          else
              cprintf("|                 |");
     }

   //KE KANAN
     for(i=0;i<=8;i++)
     {
      gotoxy(21,18);cprintf("#");
          gotoxy(12+i,12);cprintf(" ");gotoxy(13+i,12);cprintf("#");
      delay(150);
    }

   //KE BAWAH + MAKAN BIJI
   for(i=0;i<=6;i++)
     {
      gotoxy(21,18);cprintf("#");
        gotoxy(21,11+i);cprintf(" ");gotoxy(21,12+i);cprintf("#");
      delay(150);
    }
   textcolor(10);
   cprintf("\7");gotoxy(26,8);cprintf("SCORE: 0010");

   textcolor(7);
    //KE KIRI
   for(i=0;i<=12;i++)
     {
      gotoxy(8,10);cprintf("#");
          gotoxy(21-i,18);cprintf("  ");gotoxy(20-i,18);cprintf("##");
      delay(150);
    }

   // KE ATAS + MAKAN
   for(i=0;i<=6;i++)
     {
      gotoxy(8,10);cprintf("#");
          gotoxy(8,18-i);cprintf("  ");gotoxy(8,17-i);cprintf("#");
      gotoxy(8,16-i);cprintf("#");gotoxy(8,18-i);cprintf(" ");
        delay(150);
    }
   gotoxy(8,9);cprintf("#");
   delay(150);
   textcolor(10);
   cprintf("\7");gotoxy(26,8);cprintf("SCORE: 0020");

    textcolor(7);
    //LEVEL 1 COMPLETE
   gotoxy(10,12);cprintf("COMPLETE");
   delay(350);

   clrscr();
   sleep(2);
   //LEVEL 2
   //NAMA MAINAN
   textcolor(4);
   gotoxy(10,2);cprintf("GAME ULAR");

   //PLAYER NAME
   textcolor(10);
   gotoxy(26,4);cprintf("PLAYER NAME: FAIZAL");
   gotoxy(26,6);cprintf("LEVEL: 2");
   gotoxy(26,8);cprintf("SCORE: 0020");

    //KOTAK MAIN (PLAY AREA)
   textcolor(7);
   gotoxy(5,3);cprintf(" _________________ ");

   for(i=1;i<=17;i++)
     {
          gotoxy(5,3+i);
          if(i==17)
           cprintf("|_________________|");
          else
              cprintf("|                 |");
     }
   gotoxy(9,10);cprintf("===========");
   gotoxy(9,14);cprintf("===========");
   gotoxy(14,11);cprintf("=");
   gotoxy(14,12);cprintf("=");
   gotoxy(14,13);cprintf("=");

   //KE BAWAH
   for(i=0;i<=3;i++)
     {
      gotoxy(15,15);cprintf("#");
          gotoxy(14,4+i);cprintf(" ");gotoxy(14,5+i);cprintf("#");
      delay(100);
    }

   //KE KANAN
   for(i=0;i<=6;i++)
   {
      gotoxy(15,15);cprintf("#");
          gotoxy(14+i,8);cprintf(" ");gotoxy(15+i,8);cprintf("#");
      delay(100);
    }

   //KE BAWAH
   for(i=0;i<=6;i++)
     {
      gotoxy(15,15);cprintf("#");
          gotoxy(21,8+i);cprintf(" ");gotoxy(21,9+i);cprintf("#");
      delay(100);
    }

   //KE KIRI + MAKAN
   for(i=0;i<=6;i++)
   {
       gotoxy(15,15);cprintf("#");
      gotoxy(22-i,15);cprintf(" ");gotoxy(21-i,15);cprintf("#");
      delay(100);
   }
   textcolor(10);
   cprintf("\7");gotoxy(26,8);cprintf("SCORE: 0030");

   textcolor(7);
   //KE BAWAH
   for(i=0;i<=1;i++)
   {
       gotoxy(21,18);cprintf("#");
      gotoxy(15,15+i);cprintf(" ");gotoxy(15,16+i);cprintf("#");
      gotoxy(15,17+i);cprintf("#");
      delay(100);
   }

   //KE KANAN + MAKAN
   for(i=0;i<=5;i++)
   {
      gotoxy(15,17);cprintf(" ");
       gotoxy(21,18);cprintf("#");
      gotoxy(15+i,18);cprintf("  ");gotoxy(16+i,18);cprintf("##");
      delay(100);
   }
   textcolor(10);
   cprintf("\7");gotoxy(26,8);cprintf("SCORE: 0040");

   textcolor(7);
    //KE ATAS
   for(i=0;i<=6;i++)
   {
      gotoxy(21,18);cprintf(" ");
      gotoxy(9,9);cprintf("#");
      gotoxy(22,18-i);cprintf(" ");gotoxy(22,17-i);cprintf("#");
      gotoxy(22,16-i);cprintf("#");gotoxy(22,15-i);cprintf("#");
      delay(100);
   }

   //KE KIRI + MAKAN
   for(i=0;i<=10;i++)
   {
      gotoxy(22,10);cprintf(" ");gotoxy(22,11);cprintf(" ");
        gotoxy(9,9);cprintf("#");
      gotoxy(20-i,9);cprintf("   ");gotoxy(19-i,9);cprintf("###");
      delay(100);
   }
   gotoxy(8,9);cprintf("#");
   delay(100);
   textcolor(10);
   cprintf("\7");gotoxy(26,8);cprintf("SCORE: 0050");

   textcolor(7);
    //LEVEL 2 COMPLETE
   gotoxy(10,12);cprintf("COMPLETE");
   delay(350);

   clrscr();
   sleep(2);
   //LEVEL 3
   //NAMA MAINAN
   textcolor(4);
   gotoxy(10,2);cprintf("GAME ULAR");

   //PLAYER NAME
   textcolor(10);
   gotoxy(26,4);cprintf("PLAYER NAME: FAIZAL");
   gotoxy(26,6);cprintf("LEVEL: 3");
   gotoxy(26,8);cprintf("SCORE: 0050");

    //KOTAK MAIN (PLAY AREA)
   textcolor(7);
   gotoxy(5,3);cprintf(" _________________ ");

   for(i=1;i<=17;i++)
     {
          gotoxy(5,3+i);
          if(i==17)
           cprintf("|_________________|");
          else
              cprintf("|                 |");
     }
   gotoxy(9,7);cprintf("===========");
   gotoxy(9,9);cprintf("===========");
   gotoxy(9,12);cprintf("===========");
   gotoxy(7,7);cprintf("=");
   gotoxy(7,8);cprintf("=");
   gotoxy(7,9);cprintf("=");
   gotoxy(7,10);cprintf("=");
   gotoxy(7,11);cprintf("=");
   gotoxy(7,12);cprintf("=");
   gotoxy(7,13);cprintf("=");
   gotoxy(7,14);cprintf("=");

   //KE ATAS
   for(i=0;i<=4;i++)
   {
      gotoxy(16,11);cprintf("#");
      gotoxy(14,19-i);cprintf(" ");gotoxy(14,18-i);cprintf("#");
      delay(50);
   }

   //KE KANAN
   for(i=0;i<=6;i++)
   {
      gotoxy(16,11);cprintf("#");
      gotoxy(14+i,14);cprintf(" ");gotoxy(15+i,14);cprintf("#");
      delay(50);
   }

   //KE ATAS
   for(i=0;i<=3;i++)
   {
      gotoxy(16,11);cprintf("#");
      gotoxy(21,15-i);cprintf(" ");gotoxy(21,14-i);cprintf("#");
      delay(50);
   }

   //KE KIRI + MAKAN
   for(i=0;i<=3;i++)
   {
      gotoxy(16,11);cprintf("#");
      gotoxy(21-i,11);cprintf(" ");gotoxy(20-i,11);cprintf("#");
      delay(50);
   }
   textcolor(10);
   cprintf("\7");gotoxy(26,8);cprintf("SCORE: 0060");

   textcolor(7);
   //KE ATAS
   gotoxy(17,11);cprintf(" ");
    gotoxy(10,6);cprintf("#");
    gotoxy(16,11);cprintf("#");delay(50);
   cprintf("\7");gotoxy(16,10);cprintf("#");

    //GAME OVER
   sleep(1);
   gotoxy(10,13);cprintf("HIT  WALL");
   gotoxy(10,15);cprintf("GAME OVER");
   delay(400);

   clrscr();
   textcolor(7);
   gotoxy(5,3);cprintf("NEW SCORE !");
    gotoxy(6,5);cprintf("_______________________________");
    gotoxy(5,6);cprintf("| NO |     NAMA     |   SCORE   |");
    gotoxy(5,7);cprintf("|-------------------------------|");
   gotoxy(5,8);cprintf("| 1  |              |           |");
   gotoxy(5,9);cprintf("| 2  | FZ           | 0030      |");
   gotoxy(5,10);cprintf("| 3  | SV           | 0020      |");
   gotoxy(5,11);cprintf("|-------------------------------|");
   gotoxy(5,12);cprintf("| NEW    RESUME    EXIT         |");
   gotoxy(5,13);cprintf("|_______________________________|");

   delay(100);

   //NAMA
   textcolor(9);
   gotoxy(12,8);cprintf("F");delay(150);
   gotoxy(13,8);cprintf("A");delay(150);
   gotoxy(14,8);cprintf("I");delay(150);
   gotoxy(15,8);cprintf("Z");delay(150);
   gotoxy(16,8);cprintf("A");delay(150);
   gotoxy(17,8);cprintf("L");delay(100);

   //SCORE
    cprintf("\7");gotoxy(27,8);cprintf("0010");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0020");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0030");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0040");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0050");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0060");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0070");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0080");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0090");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0100");delay(150);
   cprintf("\7");gotoxy(27,8);cprintf("0060");delay(150);

    //NAMA 2
   textcolor(7);
   gotoxy(12,8);cprintf("F");
   gotoxy(13,8);cprintf("A");
   gotoxy(14,8);cprintf("I");
   gotoxy(15,8);cprintf("Z");
   gotoxy(16,8);cprintf("A");
   gotoxy(17,8);cprintf("L");

   //SCORE 2
   gotoxy(27,8);cprintf("0060");
   sleep(2);

   //EXIT
   textcolor(10);
   cprintf("\7");gotoxy(24,12);cprintf("EXIT");delay(200);
    clrscr();

    getch();
}