Div GO : Div Games Online

Entorno de desarrollo de juegos online en HTML5

Haz clic para obtener el control del teclado

PROGRAM ejemplo_signal;
GLOBAL
	fichero;

PRIVATE
    id_text;

BEGIN
    set_mode(m320x200);
    fichero=load_fpg("graficos/help");
    
    put_screen(fichero, 1);
    
    text_size=50;
    write(0, 0, 0, 0, "1 - crear el proceso");
    write(0, 0, 10, 0, "2 - matar el proceso");
    write(0, 0, 20, 0, "3 - dormir el proceso");
    write(0, 0, 30, 0, "4 - congelar el proceso");
    write(0, 0, 40, 0, "5 - despertar el proceso");
    id_text=write(0, 0, 190, 0, "No hay proceso");
    LOOP
        IF (key(_1) AND NOT son)
            delete_text(id_text);
            mi_proceso();
            id_text=write(0, 0, 190, 0, "Proceso vivo");
        END
        IF (key(_2) AND son)
            delete_text(id_text);
            signal(son, s_kill);
            id_text=write(0, 0, 190, 0, "No hay proceso");
        END
        IF (key(_3) AND son)
            delete_text(id_text);
            signal(son, s_sleep);
            id_text=write(0, 0, 190, 0, "Proceso dormido");
        END
        IF (key(_4) AND son)
            delete_text(id_text);
            signal(son, s_freeze);
            id_text=write(0, 0, 190, 0, "Proceso congelado");
        END
        IF (key(_5) AND son)
            delete_text(id_text);
            signal(son, s_wakeup);
            id_text=write(0, 0, 190, 0, "Proceso vivo");
        END
        FRAME;
    END
END

PROCESS mi_proceso()
BEGIN
    graph=100;
    file=fichero;
    LOOP
        x=160+get_distx(angle, 140);
        y=100+get_disty(angle, 80);
        angle+=5000;
        FRAME;
    END
END

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5