Div GO : Div Games Online

Entorno de desarrollo de juegos online en HTML5

Haz clic para obtener el control del teclado

Program TURMITE;

Global
orientacion=1;
xa;
ya;
velocidad=10;
a=1;

Begin
  set_mode(m320x240);
  xa=160;
  ya=120;
  text_size=50;
  write(0,0,0,0,"Pulsa A para aumentar la velocidad");
  write(0,0,10,0,"Pulsa D para disminuir la velocidad");

Repeat
    If(xa<0)xa=320;End
    If(xa>320)xa=0;End
    If(ya<0)ya=240;End
    If(ya>240)ya=0;End
    If(key(_a))velocidad--; 
    If(velocidad<1)velocidad=1;End;End
    If(key(_d))velocidad++;End
    
    Switch(get_pixel(xa,ya))
      Case "0,0,0":put_pixel(xa,ya,rgb(100,255,0));derecha();End
      Case "100,255,0":put_pixel(xa,ya,rgb(255,100,0));derecha();End
      Case "255,100,0":put_pixel(xa,ya,rgb(0,100,255));izquierda();izquierda();End
      Case "0,100,255":put_pixel(xa,ya,rgb(0,0,0));izquierda();izquierda();End
  End
  
  Frame(velocidad);
  Until(key(_esc))
End

Function derecha();
  Begin
    orientacion++;
    If(orientacion>4)orientacion=1;End
    Switch(orientacion)
      Case 1:xa-=a;End
      Case 2:ya+=a;End
      Case 3:xa+=a;End
      Case 4:ya-=a;End
  End
End

Function izquierda();
  Begin
    orientacion--;
    If(orientacion<1)orientacion=4;End
    Switch(orientacion)
      Case 1:xa+=a;End
      Case 2:ya-=a;End
      Case 3:xa-=a;End
      Case 4:ya+=a;End
  End
End

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5