Div GO : Div Games Online

Entorno de desarrollo de juegos online en HTML5

Haz clic para obtener el control del teclado

/*
 * TEXTOS.PRG by miau
 * (c) 2019 miau
 */

PROGRAM TEXTOS;

BEGIN

set_mode(m800x600);
    load_fpg("graficos");
    put_screen(0, 24);
    frase(25, 112, 338, 20);
    frase(26, 206, 338, 35);
    frase(27, 368, 340, 40);
    frase(28, 531, 338, 55);
    frase(29, 242, 386, 60);
    frase(30, 435, 384, 75);
    frase(31, 557, 384, 80);
    frase(32, 206, 431, 95);
    frase(33, 429, 431, 100);
    frase(34, 605, 433, 115);
    frase_parpadea(35, 379, 541, 80);

LOOP
        FRAME;
    END
END

PROCESS frase(grafico, coord_x, coord_y, tiempo)
BEGIN

x=coord_x;
   y=coord_y;

LOOP
      IF (timer[0]>=tiempo)
           graph=grafico;
       END
       FRAME;
   END
END

PROCESS frase_parpadea(grafico, coord_x, coord_y, tiempo)
PRIVATE
    activo=0;
BEGIN

x=coord_x;
   y=coord_y;

LOOP
      IF (timer[1]>=tiempo AND activo==0)
           graph=grafico;
           timer[1]=0;
           activo=1;
       ELSE
           IF (timer[1]>=tiempo AND activo==1)
               graph=36;
               timer[1]=0;
               activo=0;
           END
       END
       FRAME;
   END
END

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5