import "mod_video"
import "mod_proc"//Es muy importante este módulo, pues te permite interactuar con otros programas, cerrarlos, o cosas tan interesantes como obtener el tamaño del escritorio.
import "mod_key"
import "mod_wm"
import "mod_draw"
import "mod_map"
import "mod_mouse"
import "mod_text"//Esto te lo pongo como ejemplo para escribir textos, pero ten cuidado, porque estos se invocan de forma algo distinta. Lo usaré en tu ejemplo para poner los valores de los colores.
//#include "libgenerica.inc";// la libreria con las funciones definidas comunes en todos los sitios, por ejemplo, init_video();
 
// Paint algo malo, ejemplo para BennuGD By Almamu
 
// Variables globales
Global
	int r;
	int g;
	int b;
	int texto[2];//Puesto que vamos a imprimir 3 textos en pantalla, creo un array, o tabla, con 3 variables(el 0 también se cuenta). NOTA: un array es un grupo de variables bajo un mismo nombre y cada variable se identifica con un número entre corchetes.
End
 
// Funcion de inicio del video
Function int initVideo()
Begin
	set_title("BennuPaint by Almamu");//¿Qué es una ventana sin su título?
	set_mode(640,480,32);// A mi me gusta declarar la profundidad de color, aquí x, porque en otras plataformas no soportan 32 bits, solo 16 como máximo, y tampoco se cuál es la profundidad determinada. Puede ser 8, 16 o 32
	set_fps(60, 0); // Aquí he quitado el 5 del frameskip, porque este programa no consume mucho, y si se te queda atascado, pues deberías pensar en cambiarlo ya :P
End
 
// Dibujamos un pixel
Function int putPixel(int x, int y) //Si no me equivoco, la función putpixel está definida en el módulo "mod_map" como put_pixel.
Begin
	Drawing_color(rgb(r, g, b));
	Draw_line(x, y, x, y);
End
 
// Dibujamos una linea
Function int putLine(int x1, int x2, int y1, int y2)
Begin
	Drawing_color(rgb(r, g, b));
	Draw_line(x1, y1, x2, y2);
End
 
// Proceso inicial
Process Main()
Private
	int lastx;
	int lasty;
Begin
	initVideo();
	Loop // Cambio el Repeat por el Loop, puesto que es único, yo el repeat lo pondría como un proceso hijo, un enemigo en un juego a lo 1945.
		if(mouse.left)
			lastx = mouse.x;
			lasty = mouse.y;
			putPixel(mouse.x, mouse.y);
		end
		if(mouse.left && lastx != 0 && lasty != 0) //¿Has pensado en poner estos dos condicionales juntos separados con un elseif?
			putLine(mouse.x, lastx, mouse.y, lasty);
		end
		if(!mouse.left)
			lastx = 0;
			lasty = 0;
		end
		if(key(_UP))
			r++;
		elseif(key(_DOWN))
			r--;
		elseif(key(_LEFT))
			g--;
		elseif(key(_RIGHT))
			g++;
		elseif(key(_MINUS))
			b--;
		elseif(key(_PLUS))
			b++;
		end
		if(r >= 256)r=255;
		elseif(r <= 0)r = 0;
		elseif(g >= 256)g = 255;
		elseif(g <= 0)g = 0;
		elseif(b >= 256)b = 255;
		elseif(b <= 0)b = 0;
		end
		IF (key(_esc))
			exit();//Solo se puede usar si tenemos el mod_proc importado al principio
		end //Por tanto, si quitamos el Repeat no podemos poner Until, así que pondré una secuencia IF, porque yo sencillamente lo veo más seguro y cómodo.
		texto[0]=write(0,0,10,3,"R="+r);//Los textos se declaran antes del frame
		texto[1]=write(0,0,20,3,"G="+g);//y se declara su eliminación después del
		texto[2]=write(0,0,30,3,"B="+b);//frame, para que se quiten después de imprimirse.
		FRAME;//El frame siempre al final, porque a veces se te olvida ponerlo, y si no sabes dónde buscar, te puedes tirar muuucho tiempo. NOTA: El frame puede llevar un número entre paréntesis, para indicar las veces que se ejecuta sin mostrar en pantalla. Es como una fracción, donde 100 es una vez por impresión en pantalla.
		delete_text (texto[0]);
		delete_text (texto[1]);
		delete_text (texto[2]);
	END
End