Programando un juego

#include <allegro.h>
// incluye la librería Allegro

void main()
{
allegro_init();
// inicia Allegro

install_keyboard();
// nos permite usar el teclado

install_mouse();
// nos permite usar el mouse

set_color_depth(16); 
// coloca la pantalla en modo de colores de 16 bit

set_gfx_mode(GFX_AUTODETECT,640,480,0,0);
// cambia la resolucion de pantalla a 640x480

clear_to_color(screen,makecol(0,180,0));
// Borra la pantalla y la deja de un color verde
// con makecol(rojo, verde, azul) se crean combinaciones de colores

rectfill(screen,220,220,420,270,makecol(0,0,100));
// dibuja un rectángulo relleno en color azul oscuro en la pantalla 

textout_centre_ex(screen,font,"Click para salir",320,240,makecol(255,255,255),makecol(0,0,100));
//coloca el mensaje en color blanco sobre el boton azul

show_mouse(screen);
// muestra el mouse en pantalla

do{}while(!key[KEY_ESC] && !(mouse_b&1 && mouse_x>=220 && mouse_x<=420 && mouse_y>=220 && mouse_y<=270));
//continua el ciclo do-while mientras no se presione ESC
//ni se haga click izquierdo del mouse en las coordenadas del boton azul

allegro_exit();
// sale de allegro

} END_OF_MAIN();

void main()
{
do{ }while();
}

#include <allegro.h>
#include <string> // para usar cadenas de caracteres
using namespace std;
BITMAP *fondoinput;
string CADENA;
int x;
int y;
int cursorpoint=0;
int cursorx=0;
int tecla;
string textaux;
void cursor()
{
cursorpoint=1-cursorpoint;
rectfill(screen,x+2+cursorx*8,y+4,x+2+cursorx*8+6,y+13,makecol(70+185*cursorpoint,70+185*cursorpoint,70+185*cursorpoint));
}
string input(int tipoDato,string Mensaje,int px, int py)
{
cursorx=0;
int largocadena=0;
int cadenascroll=0;
string Cadena="";
int puntodecimal=0;
int posicionpuntodecimal=0;
x=px;
y=py;
textprintf_ex(screen,font,x,y,makecol(255,255,255),-1,"%s",Mensaje.c_str());
x=x+ustrlen(Mensaje.c_str())*8+3;
y=y-5;
blit(screen,fondoinput,x-1,y-1,0,0,362,22);
rectfill(screen,x-1,y-1,x+360,y+18,makecol(0,0,0));
rectfill(screen,x,y,x+361,y+19,makecol(130,130,130));
rectfill(screen,x,y,x+360,y+18,makecol(70,70,70));
install_int(cursor,500);
do{
tecla=readkey() & 0x00ff;
if(tipoDato<=1) // números enteros
{
if(tecla == 45 && largocadena==0) {Cadena=Cadena+"-"; largocadena++;}
if(tecla == 48) {Cadena=Cadena+"0"; largocadena++;}
if(tecla == 49) {Cadena=Cadena+"1"; largocadena++;}
if(tecla == 50) {Cadena=Cadena+"2"; largocadena++;}
if(tecla == 51) {Cadena=Cadena+"3"; largocadena++;}
if(tecla == 52) {Cadena=Cadena+"4"; largocadena++;}
if(tecla == 53) {Cadena=Cadena+"5"; largocadena++;}
if(tecla == 54) {Cadena=Cadena+"6"; largocadena++;}
if(tecla == 55) {Cadena=Cadena+"7"; largocadena++;}
if(tecla == 56) {Cadena=Cadena+"8"; largocadena++;}
if(tecla == 57) {Cadena=Cadena+"9"; largocadena++;}
}
if(tipoDato==1) // números decimales
{
if(tecla == 45 && largocadena==0) {Cadena=Cadena+"-"; largocadena++;}
if(tecla == 46 && puntodecimal==0)
{
if(largocadena==0 || (largocadena==1 && Cadena=="-")) {Cadena=Cadena+"0"; largocadena++;}
Cadena=Cadena+".";
largocadena++; puntodecimal=1; posicionpuntodecimal=largocadena;
}
}
if(tipoDato==2) // cadena de texto letras solo mayusculas numeros y simbolos
{
if(tecla >= 32 && tecla <= 126 )
{
Cadena=Cadena+string(" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]~_~ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~",tecla-32,1);
largocadena++;
}
}
if(tipoDato==3) // cadena de texto cualquier letra (mayuscula o minuscula) numeros y simbolos
{
if(tecla >= 32 && tecla <= 126 )
{
Cadena=Cadena+string(" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]~_~abcdefghijklmnopqrstuvwxyz{|}~",tecla-32,1);
largocadena++;
}
}
if(key[KEY_BACKSPACE] && largocadena>0) {Cadena=string(Cadena,0,(largocadena--)-1); cursorpoint=0; if(puntodecimal==1 && largocadena<posicionpuntodecimal) {puntodecimal=0; posicionpuntodecimal=0;} }
if(key[KEY_DEL]) {Cadena=""; largocadena=0; cursorpoint=0; puntodecimal=0; posicionpuntodecimal=0;}
rectfill(screen,x,y,x+360,y+18,makecol(70,70,70));
if(largocadena>43)
{
cursorx=43;
cadenascroll=largocadena-43;
}
else
{
cursorx=largocadena;
cadenascroll=0;
}
textprintf_ex(screen,font,x+2,y+5,makecol(255,255,255),-1,"%s",string(Cadena,cadenascroll,43).c_str());
}while(!key[KEY_ENTER]);
remove_int(cursor);
blit(fondoinput,screen,0,0,x-1,y-1,362,22);
if(tipoDato==0){textprintf_ex(screen,font,x+2,y+5,makecol(255,255,255),-1,"%i",atoi(Cadena.c_str()));}
if(tipoDato==1){textprintf_ex(screen,font,x+2,y+5,makecol(255,255,255),-1,"%f",atof(Cadena.c_str()));}
if(tipoDato>=2){textprintf_ex(screen,font,x+2,y+5,makecol(255,255,255),-1,"%s",Cadena.c_str());}
return Cadena;
}
void main()
{
allegro_init();
install_keyboard();
install_timer();
set_color_depth(16);
set_gfx_mode(GFX_AUTODETECT,800,600,0,0);
clear_to_color(screen,makecol(100,100,175));
fondoinput=create_bitmap(362,22);
//ejemplo para leer un numero entero:
int Numero_Entero;
CADENA=input(0,"Entrar un numero entero?",10,100);
Numero_Entero=atoi(CADENA.c_str());
//ejemplo para leer un numero decimal:
double Numero_Decimal;
CADENA=input(1,"Entrar un numero cualquiera?",10,130);
Numero_Decimal=atof(CADENA.c_str());
//ejemplo para leer una cadena (letras mayusculas, numeros o simbolos):
string Cadena_Mayusculas;
Cadena_Mayusculas=input(2,"Cadena de Caracteres (letras mayusculas, numeros o simbolos)?",10,160);
//ejemplo para leer una cadena (letras mayusculas o minusculas, numeros o simbolos):
string Cadena_Teclado_Completo;
Cadena_Teclado_Completo=input(3,"Cadena de Caracteres (teclado completo)?",10,190);
destroy_bitmap(fondoinput);
allegro_exit();
}END_OF_MAIN();

#include <allegro.h>
#include <string> // para usar cadenas de caracteres

using namespace std;

BITMAP *fondoinput;

string CADENA;
int x;
int y;
int cursorpoint=0;
int cursorx=0;
int tecla;
string textaux;

void cursor()
{
 cursorpoint=1-cursorpoint;
 rectfill(screen,x+2+cursorx*8,y+4,x+2+cursorx*8+6,y+13,makecol(70+185*cursorpoint,70+185*cursorpoint,70+185*cursorpoint));
}

string input(string Mensaje,int px, int py)
{
cursorx=0;
int largocadena=0;
int cadenascroll=0;
string Cadena="";
x=px;
y=py;
textprintf_ex(screen,font,x,y,makecol(255,255,255),-1,"%s",Mensaje.c_str());
x=x+ustrlen(Mensaje.c_str())*8+3;
y=y-5;
blit(screen,fondoinput,x-1,y-1,0,0,362,22);
rectfill(screen,x-1,y-1,x+360,y+18,makecol(0,0,0));
rectfill(screen,x,y,x+361,y+19,makecol(130,130,130));
rectfill(screen,x,y,x+360,y+18,makecol(70,70,70));
install_int(cursor,500);
do{
    tecla=readkey() & 0x00ff;
      if(tecla >= 32 && tecla <= 126 )
         {
          Cadena=Cadena+string(" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]~_~abcdefghijklmnopqrstuvwxyz{|}~",tecla-32,1);
          largocadena++;
         }

if(key[KEY_BACKSPACE] && largocadena>0) {Cadena=string(Cadena,0,(largocadena--)-1); cursorpoint=0;}
if(key[KEY_DEL]) {Cadena=""; largocadena=0; cursorpoint=0;}

rectfill(screen,x,y,x+360,y+18,makecol(70,70,70));
if(largocadena>43)
                  {
                  cursorx=43;
                  cadenascroll=largocadena-43;
                  }
                  else
                  {
                  cursorx=largocadena;
                  cadenascroll=0;
                  }
                  
textprintf_ex(screen,font,x+2,y+5,makecol(255,255,255),-1,"%s",string(Cadena,cadenascroll,43).c_str());
}while(!key[KEY_ENTER]);
remove_int(cursor);
blit(fondoinput,screen,0,0,x-1,y-1,362,22);
textprintf_ex(screen,font,x+2,y+5,makecol(255,255,255),-1,"%s",Cadena.c_str());
return Cadena;
}

void main()
{
allegro_init();
install_keyboard();
install_timer();

set_color_depth(16);
set_gfx_mode(GFX_AUTODETECT,800,600,0,0);
clear_to_color(screen,makecol(100,100,175));
fondoinput=create_bitmap(362,22);

//ejemplo para leer una cadena
string Tu_Variable_Cadena;
Tu_Variable_Cadena=input("Escribe un texto de prueba:",10,10);

destroy_bitmap(fondoinput);
allegro_exit();

}END_OF_MAIN();