Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Ejemplo Div GO (Div Games Online)
// by Jose Manuel Habas

program ejemplo_pause_continue_song;
global
	musica, canales, linea, posicion, i;
    id_canal[32];
    crea_canal = true;
    sonando = 0;
    
begin
	set_mode(480, 240);
	set_fps(60, 0);

musica = load_song("sonidos/AMIGA64.mod", 1);
    //musica = load_song("sonidos/HELP.XM", 1);
	song(musica);
  
    text_size  = 400;
    text_color = cc_black;
    write_int(0, 250, 100, 3, offset linea);
    write_int(0, 230, 100, 5, offset posicion);
    
    stroke_size= 2;
    text_style = txt_stroke_normal;
    text_color = cc_green; 
    write_int(0, 250, 100, 3, offset linea);
    write_int(0, 230, 100, 5, offset posicion);
    
    text_size  = 70;
    text_style = txt_paint_normal;
    text_color = cc_green; 
    write(0, 240, 200, 4, "Pulsa [INTRO] para pausar y reanudar");
    write(0, 240, 220, 4, "Pulsa [ESC] para parar song");

loop
    	sonando		= is_playing_song();
		linea		= get_song_line();
        posicion	= get_song_pos();
        canales		= get_song_channels();
		
        if (crea_canal)
            for (i = 0; i < canales; i++)
            	id_canal[i] = draw(3, rgb(0, 40, 0), 15, 0, 40 + i + (400 / canales * i), 180, 400 / canales, 1);
            end

crea_canal = false;
        else
            for (i = 0; i < canales; i++)
            	move_draw(id_canal[i], rgb(0, 40 + get_channel(i), 0), 15, 40 + i + (400 / canales * i), 180 - get_channel(i) * 1.5, 400 / canales, 1 + get_channel(i) * 1.5);
            end
        end
        
        if (key_in(_enter))
        	if (sonando)
        		pause_song();
            else
        		continue_song();
            end
        end
        
        if (key_in(_esc)) stop_song(); end

frame;
	end
end

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5