Unknow identifier ("case")

[hellcross]

Buenas!
Bueno pues tengo un problema :S

Estoy probando a crear mi primer menu (si sale bien el definitivo del juego) y lo creo igual y siguiendo los pasos del tutorial (ese de 529 paginas xD)

todo bien, corrijo puntos y comas y tal... voy a testear... ERROR!

me dice: Error in file C:\... at line 42: Unknow identifier ("CASE")

Este es el codigo que tengo

Program ClockTower;
//establecemos variable global
Global
int file1;
//variables de las fuentes
int select_fnt;
int title_fnt;

Int level=1;
int selection;
//variables del personaje
int mychar_position_X=1516;
int Mychar_position_y=1549;
//proceso cursor
Process cursor()
Private
int c;
end
begin
file=file1;
graph=5;
x=70;
y=140;
c=3; //efecto tembleque

selection=0;

while (not key(_enter)and selection==0)
if (key (_up)) y=20;end
if (key(_down)) y=-20; end
if (key(_esc))selection=2;end
//efecto tembleque horizontal
x=x+c;
If (x>=80) c=-3; End
if (x<=70) c=3; end
frame;
end
switch(y);
case 30:
selection=1;
case 100:
selection=2;
end
end
end
End
//inicio del programa
Begin
set_mode(320,240,16);
set_fps(32,1);
//se cargan las fuentes
file1=load_fpg("menus.fpg");
select_fnt=load_fnt("select.fnt");
title_fnt=load_fnt("titlescr.fnt");
Loop
switch(level)
case 1:
put_screen(file1,605);
//opciones a elegir en el menu
write(select_fnt,0,30,4,"game start");
write(select_fnt,0,50,4,"quick start");
write(select_fnt,0,80,4,"continue");
write(select_fnt,0,100,4,"ending list");
//llamamos a la variable del cursor
cursor();

Loop
if(selection==1) level=2; break;end;
if(selection==2) fade_off();exit("gracias por jugar");end
frame;
end

fade_off();
delete_text(0);
clear_screen();
let_me_alone();
fade_on();
End

loop;
frame;
end
end


case 2:
//permite salir al menu en cualquier sitio (Esta tambien en case 3 y 4)
loop
if(key(_esc))
//generar retardo
while(key(_esc))frame;end

//salir
level=1;
break;
end
frame;
end
fade_off();
delete_text(0);
clear_screen();
LET_ME_ALONE();
fade_on();
end



case 3:
loop
loop
if(key(_esc))
//generar retardo
while(key(_esc))frame;end

//salir
level=1;
break;
end
frame;
end

frame;
end
fade_off();
delete_text(0);
clear_screen();
LET_ME_ALONE();
fade_on();
end


case 4:
loop
loop
if(key(_esc))
//generar retardo
while(key(_esc))frame;end

//salir
level=1;
break;
end
frame;
end

frame;
end
fade_off();
delete_text(0);
clear_screen();
LET_ME_ALONE();
fade_on();
end

case 5:
loop
frame;
end
end
end



tiene tabulaciones y eso pero aqui no se ve...

[ZeNiTRaM]

hellcross me ha preguntado por el MSN y al final hemos conseguido compilar el código así:

Program ClockTower;
//establecemos variable global
	Global
		int file1;
		//variables de las fuentes
		int select_fnt;
		int title_fnt;
		
		Int level=1; 
		int selection;
  	//variables del personaje
  	int mychar_position_X=1516;
		int Mychar_position_y=1549;
//proceso cursor
Process cursor()
Private
	int c;
	end
begin
	file=file1;
	graph=5;
	x=70;
	y=140;
	c=3; //efecto tembleque
	
	selection=0;
	
	while (not key(_enter)and selection==0)
	if (key (_up)) y=20;end
	if (key(_down)) y=-20; end
	if (key(_esc))selection=2;end
	//efecto tembleque horizontal
	x=x+c;
	If (x>=80) c=-3; End
	if (x<=70) c=3; end
		frame;
	end

if (y == 30) selection=1; end
if (y == 100) selection=2;
   end
   end
//inicio del programa
Begin
		set_mode(320,240,16);
	set_fps(32,1);
	//se cargan las fuentes
	file1=load_fpg("menus.fpg");
	select_fnt=load_fnt("select.fnt");
	title_fnt=load_fnt("titlescr.fnt");
	Loop
		if(level == 1)
			put_screen(file1,605);
			//opciones a elegir en el menu
			write(select_fnt,0,30,4,"game start");
			write(select_fnt,0,50,4,"quick start");
			write(select_fnt,0,80,4,"continue");
			write(select_fnt,0,100,4,"ending list");
			//llamamos a la variable del cursor
			cursor();
			
			Loop
				if(selection==1) level=2; break;end;
				if(selection==2) fade_off();exit("gracias por jugar");end
					frame;
				end
				
				fade_off();
				delete_text(0);
				clear_screen();
				let_me_alone();
				fade_on();
					frame;
			end
		end   
		
		
                   if(level == 2)
			//permite salir al menu en cualquier sitio (Esta tambien en case 3 y 4)
			loop
					if(key(_esc))
						//generar retardo
						while(key(_esc))frame;end
						
						//salir
						level=1;
						break;
					end
					frame;
			end
		fade_off();
	  delete_text(0);
	  clear_screen();
		LET_ME_ALONE();
		fade_on();
		end
		
		
		
            if(level == 3)
			loop
								loop
					if(key(_esc))
						//generar retardo
						while(key(_esc))frame;end
						
						//salir
						level=1;
						break;
					end
					frame;
			end
	
					frame;
		end			
		fade_off();
	  delete_text(0);
	  clear_screen();
		LET_ME_ALONE();
		fade_on();
		end				
		
		
		if(level == 4):
			loop
								loop
					if(key(_esc))
						//generar retardo
						while(key(_esc))frame;end
						
						//salir
						level=1;
						break;
					end
					frame;
			end
	
					frame;
		end			
		fade_off();
	  delete_text(0);
	  clear_screen();
		LET_ME_ALONE();
		fade_on();
		end			
		
  if(level == 5)
			loop
					frame;
			end
		end
 end

Parece ser que la version de Fenix no soporta bien los switch/case, o que estaban mal puestos pero cambiandolos por if ya compila bien el codigo.

[hellcross]

Arreglado, gracias ZenitraM

[Drumpi]

Perdon por no responder antes, pero como no suelo pasar por aqui, sino por el de gp2x... ^^U
En fin, Hellcross, Fenix si que soporta switch/case, pero en lugar de escribir:
switch(y);
case 30:
selection=1;
case 100:
selection=2;
end
end
end

deberias haber escrito:
switch(y);
case 30:
selection=1;
end
case 100:
selection=2;
end
end

Cuando acaba un case debe cerrarse antes de abrir otro, y no al final