mouse, mouse, mouse

ediv/CHANGE_LOG.txt

@@ -1,3 +1,14 @@
+10/10/2002
+----------
+ * Corregido pequeño bug en load_bmp, que no seteaba correctamente el centro del
+   grafico (Er_Makina)
+ * Ya funciona el mouse. Faltan algunas cosas de la estructura mouse por añadir.
+   La ruedecilla del ratón no funciona, hay que leerla en SDL_PollEvents (en el
+   stub :P) (Er_Makina)
+ * Añadido "type mouse". Debe actualizarse collision() para que reconozca colisio-
+   nes con el ratón (si recibe como parámetro un 0 es que se ha usado type mouse)
+   (Er_Makina)
+
 7/10/2002
 ---------
  * Limpieza de codigo y comentarizacion en compiler.* (Daijo)

ediv/doc/doku.c

@@ -151,7 +151,7 @@ int main(int argc, char* argv[])
 
 	printf("Procesando...\n");
 
-	fprintf(f,"<!-- Generado con Sion Doku - http://sion.edivcentral.com -->\n");
+	fprintf(f,"<!-- Generado con Sion Doku - http://www.sionhq.com -->\n");
 	for(i=0;i<tamano;i++) {
 		if(buffer[i]=='<' && buffer[i+1]=='%') {
 			buffer[i]=0;

ediv/doc/html/template.txt

@@ -5,7 +5,7 @@
 	"<a name=\"top\"></a>"
 <%end%> "<br /><br /><a href=\"#top\">Ir arriba</a><br /><hr />\n"
 	"<font size=\"-2\" color=\"#5555DD\">Esta documentaci&oacute;n ha sido escrita por el equipo de\n"
-	"Sion Ltd. y forma parte del proyecto eDIV. Las actualizaciones de esta\n"
+	"<a href=\"http://www.sionhq.com\" target=\"_blank\">Sion Ltd.</a> y forma parte del proyecto eDIV. Las actualizaciones de esta\n"
 	"documentaci&oacute;n pueden obtenerse en <a href=\"http://ediv.divsite.net\" "
 	"target=\"_blank\">http://ediv.divsite.net</a>.\nSi ve alg&uacute;n error o anomal&iacute;a "
 	"en cualquiera de los documentos que\nse incluyen en este proyecto, por favor "

ediv/src/dlls/graphics/main.c

@@ -505,7 +505,7 @@ int eDIV_LOAD_BMP(FUNCTION_PARAMS)
 			files[0].mapa[i].Surface = SDL_LoadBMP( filename ) ;
 			files[0].mapa[i].existe = 1 ;
 			files[0].mapa[i].cpoint[0].x = (int)files[0].mapa[i].Surface->w / 2 ;
-			files[0].mapa[i].cpoint[1].y = (int)files[0].mapa[i].Surface->h / 2 ;
+			files[0].mapa[i].cpoint[0].y = (int)files[0].mapa[i].Surface->h / 2 ;
 			SDL_SetColorKey( files[0].mapa[i].Surface , SDL_SRCCOLORKEY | SDL_RLEACCEL , color_trasparente ) ;
 			if ( i > last_map[0] )
 				last_map[0] = i ;
@@ -1531,6 +1531,7 @@ void first_load(FUNCTION_PARAMS2)
 	define_region = 1 ;
 
 	SDL_WM_SetCaption(fp->nombre_program, NULL);
+	SDL_ShowCursor(SDL_DISABLE);
 
 	//prueba = SDL_LoadBMP("prueba.bmp" );
 

ediv/src/dlls/input/input.c

@@ -528,6 +528,7 @@ void frame(FUNCTION_PARAMS)
 	int numkeys ;
 	int _mouse=globalptr("mouse");
 	SDL_Rect srcrect,dstrect;
+	SDL_Surface* mapamouse;
 	
 	keys = SDL_GetKeyState(&numkeys ) ;
 
@@ -555,12 +556,19 @@ void frame(FUNCTION_PARAMS)
 	
 	/* si mouse.graph!=0 */
 	if(fp->mem[_mouse+2]!=0) {
-		srcrect.x=srcrect.y=srcrect.w=srcrect.h=dstrect.w=dstrect.h=0;
+		mapamouse=fp->files[fp->mem[_mouse+3]].mapa[fp->mem[_mouse+2]].Surface;
-		dstrect.x=fp->mem[_mouse];
+		srcrect.x=0;
-		dstrect.y=fp->mem[_mouse+1];
+		srcrect.y=0;
+		srcrect.w=mapamouse->w;
+		srcrect.h=mapamouse->h;
+		
+		dstrect.x=fp->mem[_mouse]-fp->files[fp->mem[_mouse+3]].mapa[fp->mem[_mouse+2]].cpoint[0].x;
+		dstrect.y=fp->mem[_mouse+1]-fp->files[fp->mem[_mouse+3]].mapa[fp->mem[_mouse+2]].cpoint[0].y;
+		dstrect.w=mapamouse->w;
+		dstrect.h=mapamouse->h;
 
 		// TODO: añadir chequeo de error si no existe file o mapa
-		fp->Dibuja(fp->files[fp->mem[_mouse+3]].mapa[fp->mem[_mouse+2]].Surface,srcrect,dstrect,fp->mem[_mouse+4],0);
+		fp->Dibuja(mapamouse,srcrect,dstrect,/*fp->mem[_mouse+4]*/0,255);
 	}
 
 	/* FIN DE MOUSE */

ediv/src/doku/doku.c

@@ -151,7 +151,7 @@ int main(int argc, char* argv[])
 
 	printf("Procesando...\n");
 
-	fprintf(f,"<!-- Generado con Sion Doku - http://sion.edivcentral.com -->\n");
+	fprintf(f,"<!-- Generado con Sion Doku - http://www.sionhq.com -->\n");
 	for(i=0;i<tamano;i++) {
 		if(buffer[i]=='<' && buffer[i+1]=='%') {
 			buffer[i]=0;

ediv/src/ediv/expresion.c

@@ -577,8 +577,7 @@ void factor(void) {
         case tproc:
           (*_exp).tipo=econs; (*_exp++).valor=(int)o; break;
         case tsglo:
-          /* POR HACER: esto hay que cambiarlo, que compruebe que el nombre es "mouse" */
+			if (!strcmp((*o).name,"mouse")) { /* "type mouse" = "0"  */
-          if ((*o).sglo.offset==long_header) { /* type mouse ð 0 */
             (*_exp).tipo=econs; (*_exp++).valor=0; break;
           }
         default: error(0,20); /* no es un tipo de proceso */

ediv/todo.txt

@@ -8,19 +8,14 @@ yo me lio con estos ficheros todo, asi k pongo mi propia seccion todo ( Riseven
 
 Cosas por hacer cuanto antes:
 
-- Añadir mnemónicos al kernel del stub (acabar los normales y añadir los
+- Añadir mnemónicos al kernel del stub (acabar los normales y añadir los de byte, word y string)
-  optimizados, y los de byte, word y string)
-- Al compilar con --debug, añadir el codigo fuente comprimido al exe, en
-  lugar de la ruta absoluta hacia el .prg (ya que si no el trazador daria
-  problemas si modificamos el prg despues de haber creado el exe)
 - Hacer desaparecer la tabla procs_s y sustituirla por variables indexadas
 - Revisar muchísimo el kernel del stub (compilar cosas, debugear...)
-- Entender el stub ke no me empano de na xD y limpiarlo un pokito de paso
 - Actualizar los makefiles y proyectos de KDevelop, y comprobar que rule
   bien bajo Linux
 - Hacer unos msgbox decentes para Linux, con X11 a pelo o con una libreria
   pekeñita (ver error.c del stub)
-- Adaptar la rutina de MOTD a Linux
+- Adaptar la rutina de MOTD a Linux <- ya rula?
 - Documentarlo todo, ahora tenemos el DOKU, kien no lo tenga ke se lo pida
   a Er_Makina :)
 - A la hora de implementar la funcion qsort(), hay que introducir una nueva