Div GO : Div Games Online

Entorno de desarrollo de juegos online en HTML5

Haz clic para obtener el control del teclado

PROGRAM example_signal;
GLOBAL
	file1;

PRIVATE
    id_text;

BEGIN
    set_mode(m320x200);
    file1=load_fpg("graficos/help");
    
    put_screen(file1, 1);
    
    text_size=50;
    write(0, 0, 0, 0, "1 - create the process");
    write(0, 0, 10, 0, "2 - kill the process");
    write(0, 0, 20, 0, "3 - sleep the process");
    write(0, 0, 30, 0, "4 - freeze the process");
    write(0, 0, 40, 0, "5 - wake up the process");
    id_text=write(0, 0, 190, 0, "There is no process");
    LOOP
        IF (key(_1) AND NOT son)
            delete_text(id_text);
            my_process();
            id_text=write(0, 0, 190, 0, "Process alive");
        END
        IF (key(_2) AND son)
            delete_text(id_text);
            signal(son, s_kill);
            id_text=write(0, 0, 190, 0, "There is no process");
        END
        IF (key(_3) AND son)
            delete_text(id_text);
            signal(son, s_sleep);
            id_text=write(0, 0, 190, 0, "Process slept");
        END
        IF (key(_4) AND son)
            delete_text(id_text);
            signal(son, s_freeze);
            id_text=write(0, 0, 190, 0, "Process frozen");
        END
        IF (key(_5) AND son)
            delete_text(id_text);
            signal(son, s_wakeup);
            id_text=write(0, 0, 190, 0, "Process alive");
        END
        FRAME;
    END
END

PROCESS my_process()
BEGIN
    graph=100;
    file=file1;
    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