Please, What's wrong ? Simple menu, need help !

Blitz3D Forums/Blitz3D Beginners Area/Please, What's wrong ? Simple menu, need help !

etxtra

(Posted 2011) [#1]

Hi everyone ! last month I wrote a simple menu function that doesn't work anymore, please help me find out what's wrong :

;Include "F_fonctions_menu1.bb"
Dim T_Tirs_Lasers_F%( 1, 8 )
Graphics 800, 600
Graphics3D 800, 600, 0, 2
SetBuffer BackBuffer()

; Tableau des textures; 2 / 5
Dim T_Textures_Handles_E%(13)
Dim T_Obstacles_Boites_Handles_E%( 0, 0 )
; Colonnes: donnees: 0=Handle ; 1=Obstacle ; 2=pIndex ; 3=pXa ; 4=pZa ; 5=pXb ; 6=pZb ; 7=Ancien Obstacle ; 8=pXc ; 9=pZc (coordonnées Objectif); 10=Ennemi en ligne de Mire
; 11=Vitesse Initiale 12=vitesse Actu ; 13=New I.A. Angle X ; 14=Gachette ; 15=Munitions principales ; 16=Munitions Secondaires ; 17=Richesses
; lignes: entites I.A. ; T_Intelligence_Artificielle_F( 17, 7 )
Dim T_Intelligence_Artificielle_F#( 17, 7 )
Dim T_Intelligence_Handles_E%( 0, 7 )
; l'objet entre la boule concurrente et le trésor (Objectif);
Dim T_Contact_E%( 7 )
; Variables Menus 1:
; Langue: 0 = Français, 1 = Anglais
Global V_Langue_E% = 1
Global V_Taille_Texte_E%
Global V_Menu_Choix_E% = 0
Global V_Clique_E% = 0
Global V_Clique2_E% = 0
Global V_Police_E%
Global V_Fleche_E%

	f_Prepare_Menus()
	f_Menu_Principal()

; ***** Included Source File *****

; //////////// Menu Principal /////////////////////////////
Function f_Menu_Principal()
	SetBuffer BackBuffer()
;	EntityAlpha V_Obj_Bleu_E, 0.6
	V_Suivi_E = Rnd ( V_IA_A_E, V_IA_B_E )
	V_Correction_E = 0
	v_Cam_X_F# = 0.0
	v_Cam_Y_F# = 0.0
	v_Cam_Z_F# = 0.0
	Repeat
		f_Boucle_Duree_Min_A()
		If V_Duree_TOTAL_E < 1 Then V_Duree_TOTAL_E = 1

		V_Temps_Actu_E = MilliSecs ( )
		; Efface l'écran précédent;
		; SetBuffer BackBuffer()
		Cls
		
		; Jouer ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique_E = V_Clique_E + 1 : V_Menu_Choix_E = 0 : Cls
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît...",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait...",True,False
			Flip : Delay 100
			V_Obstacle_Actuel_E = 0
			ClearWorld
			FreeSound V_Musique_Jeu_E
			V_fonduNoir_F = 0.0
			V_But_Du_Jeu_E = 1
			V_Detenteur_Du_Tresor_E = 0
			V_Numero_Detenteur_E = -1
			V_Le_Plus_Riche_E = 0
			V_Num_Riche_E = -1
			V_Joueur_Mene_E = 0
			V_Message_Tresor_E = 0
			V_Message_Attaque_E = 0
			V_Message_Fuite_E = 0
			V_Fin_De_Fin_E = 0
			V_Verif_E = 0
			V_Joueur_Richesses_E = 0
			For z = 0 To 7
				T_Contact_E ( z ) = 0
				T_Intelligence_Artificielle_F( 17, Z ) = 0
				T_Intelligence_Artificielle_F( 1, Z ) = 0
				T_Intelligence_Artificielle_F( 2, Z ) = 0
				T_Intelligence_Artificielle_F( 12, Z ) = 0
				T_Tirs_Lasers_F ( 1, Z ) = 0
			Next
			T_Tirs_Lasers_F ( 1, 8 ) = 0
			V_Fin_De_Partie_E = 1
			Goto Fin_Menu_Principal_Jouer
		EndIf
		
		; Demo ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0
			f_Menu_Demo()
		EndIf
		
		; Options ; 3 ;
		If V_Menu_Choix_E = 3
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0
			f_Menu_Options()
		EndIf		
		
		; Quitter ; 6 ;
		If V_Menu_Choix_E = 6
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0
			f_Menu_Quitter()
		EndIf
		
		; Gère l'action en arrière - plan ;
		
		V_Correction_E = V_Correction_E + 1
		If V_Correction_E > 500 Then V_Correction_E = 500
		
;		f_Gestion_IA()
		
		If V_Correction_E <= 3
			For Z = V_IA_A_E To V_IA_B_E
;				PositionEntity T_Intelligence_Handles_E ( 0, Z ), ( Z * 15.0 ) + 50, TerrainY# ( V_Terrain_1_E, ( Z * 15.0 ) + 50, 0.0, 60.0 ) + 1.0, 60.0
			Next
		EndIf
		
;		f_Gestion_Partie(  )

;		PositionEntity V_Camera_Principale_E, EntityX# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) ), EntityY# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) ), EntityZ# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) )
		;RotateEntity V_Camera_Principale_E, 0.0, EntityYaw# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) ), 0.0
;		PositionEntity V_Work_Entitee_C_E, V_tresor_X_F, V_tresor_Y_F, V_tresor_Z_F
;		If V_But_Du_Jeu_E = 1 Then PointEntity V_Camera_Principale_E, V_Work_Entitee_C_E
;		If V_But_Du_Jeu_E = 1 Then RotateEntity V_Camera_Principale_E, 0.0, EntityYaw# ( V_Camera_Principale_E ), 0.0
		
		If V_But_Du_Jeu_E > 1
;			TurnEntity V_Camera_Principale_E, 0.0, 0.3, 0.0
			v_Cam_X_F = 0.0
			v_Cam_Y_F = v_Cam_Y_F + 0.3
			v_Cam_Z_F = 0.0
;			RotateEntity V_Camera_Principale_E, v_Cam_X_F, v_Cam_Y_F, v_Cam_Z_F
		EndIf
;		MoveEntity V_Camera_Principale_E, 0, 0, 0 - V_Distance_Vue_F
;		PositionEntity V_Camera_Principale_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E)+V_Hauteur_Vue_F, EntityZ# (V_Camera_Principale_E)
;		If EntityY# ( V_Camera_Principale_E ) < TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0 Then PositionEntity V_Camera_Principale_E, EntityX# (V_Camera_Principale_E), TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0, EntityZ# (V_Camera_Principale_E)

		
		
		RenderWorld
		
		;Locate 0,0
		;Print V_But_Du_Jeu_E
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Principal",0,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Main Menu",0,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Jouer !",3,1)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Play !",3,1)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Regarder la démonstration.",5,2)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Watch demo",5,2)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Options",7,3)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Options",7,3)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Aide - Commandes",9,4)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Help - Controls",9,4)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Générique - Credits",11,5)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Credits",11,5)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Quitter",13,6)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Quit - Exit",13,6)
		
		;Color 255, 255, 255
		;If V_Langue_E = 0  And V_But_Du_Jeu_E > 1 Then Text GraphicsWidth () / 2, 0, "Il reste: " + Str ( V_Chrono_Vol_B_E - ( ( V_Temps_Actu_E - V_Chrono_Vol_A_E ) / 1000 ) ) + v_Objectif_S, True
		;If V_Langue_E = 1  And V_But_Du_Jeu_E > 1 Then Text GraphicsWidth () / 2, 0, "Time left: " + Str ( V_Chrono_Vol_B_E - ( ( V_Temps_Actu_E - V_Chrono_Vol_A_E ) / 1000 ) ) + v_Objectif_S, True
 		
		f_Routine_Menus()
		f_Echap()
		
		Flip

		f_Boucle_Duree_Min_Z()
	Forever
	.Fin_Menu_Principal_Jouer
End Function
; //////////////////////////////

; //////////// Menu Résolution Options /////////////////////////////
Function f_Menu_Resolution_Options()
	SetBuffer BackBuffer()
	V_Lecture0_E = CountGfxModes()
	For Z = 1 To V_Lecture0_E
		If GraphicsWidth ( ) = GfxModeWidth( Z )
			If GraphicsHeight ( ) = GfxModeHeight( Z )
				If GraphicsDepth ( ) = GfxModeDepth ( Z )
					V_Lecture1_E = Z
					Exit
				EndIf
			EndIf
		EndIf
	Next
	
	v_Resolution_Inferieure_S$ = ""
	v_Resolution_Superieure_S$ = ""
	
	v_Resolution_Basse_S$ = ""
	v_Resolution_Top_S$ = ""
	
	v_Largeur_E% = 0
	v_Hauteur_E% = 0
	v_Prof_E% = 0

	f_Routine_Menus()
	V_Menu_Choix_E = -1
	V_Clique2_E = V_Clique2_E + 3
	
	;Delay 1000
	
	Repeat
		; Efface l'écran précédent;
		Cls
		
		If ( V_Lecture1_E - 1 ) => 1 And V_Langue_E = 0 Then v_Resolution_Inferieure_S = "Cliquez ici pour: résolution inférieure: " + Str GfxModeWidth ( V_Lecture1_E - 1 ) + " x " + Str GfxModeHeight( V_Lecture1_E - 1 ) + " x " + Str GfxModeDepth( V_Lecture1_E - 1 ) + " (n°" + Str ( V_Lecture1_E - 1 ) + ")"
		If ( V_Lecture1_E - 1 ) => 1 And V_Langue_E = 1 Then v_Resolution_Inferieure_S = "Click here for: inferior Screen Resolution: " + Str GfxModeWidth ( V_Lecture1_E - 1 ) + " x " + Str GfxModeHeight( V_Lecture1_E - 1 ) + " x " + Str GfxModeDepth( V_Lecture1_E - 1 ) + " (n°" + Str ( V_Lecture1_E - 1 ) + ")"

		If V_Langue_E = 0 Then v_Resolution_Actuellle_S$ = "Vous avez sélectionné: " + Str GfxModeWidth ( V_Lecture1_E ) + " x " + Str GfxModeHeight( V_Lecture1_E ) + " x " + Str GfxModeDepth( V_Lecture1_E ) + " (n°" + Str V_Lecture1_E + ")"
		If V_Langue_E = 1 Then v_Resolution_Actuellle_S$ = "You have selected: " + Str GfxModeWidth ( V_Lecture1_E ) + " x " + Str GfxModeHeight( V_Lecture1_E ) + " x " + Str GfxModeDepth( V_Lecture1_E ) + " (n°" + Str V_Lecture1_E + ")"

		If ( V_Lecture1_E + 1 ) =< V_Lecture0_E And V_Langue_E = 0 Then v_Resolution_Superieure_S = "Cliquez ici pour: résolution supérieure: " + Str GfxModeWidth ( V_Lecture1_E + 1 ) + " x " + Str GfxModeHeight( V_Lecture1_E + 1 ) + " x " + Str GfxModeDepth( V_Lecture1_E + 1 ) + " (n°" + Str ( V_Lecture1_E + 1 ) + ")"
		If ( V_Lecture1_E + 1 ) =< V_Lecture0_E And V_Langue_E = 1 Then v_Resolution_Superieure_S = "Click here for: superior Screen Resolution: " + Str GfxModeWidth ( V_Lecture1_E + 1 ) + " x " + Str GfxModeHeight( V_Lecture1_E + 1 ) + " x " + Str GfxModeDepth( V_Lecture1_E + 1 ) + " (n°" + Str ( V_Lecture1_E + 1 ) + ")"

		
		If V_Langue_E = 0 Then v_Resolution_Basse_S = "Cliquez ici pour la plus basse résolution: " + Str GfxModeWidth ( 1 ) + " x " + Str GfxModeHeight( 1 ) + " x " + Str GfxModeDepth( 1 ) + " (n°" + Str 1 + ")"
		If V_Langue_E = 1 Then v_Resolution_Basse_S = "Click here for the lowest resolution: " + Str GfxModeWidth ( 1 ) + " x " + Str GfxModeHeight( 1 ) + " x " + Str GfxModeDepth( 1 ) + " (n°" + Str 1 + ")"

		If V_Langue_E = 0 Then v_Resolution_Top_S = "Cliquez ici pour la plus haute résolution: " + Str GfxModeWidth ( V_Lecture0_E ) + " x " + Str GfxModeHeight( V_Lecture0_E ) + " x " + Str GfxModeDepth( V_Lecture0_E ) + " (n°" + Str V_Lecture0_E + ")"
		If V_Langue_E = 1 Then v_Resolution_Top_S = "Click here for the higher resolution: " + Str GfxModeWidth ( V_Lecture0_E ) + " x " + Str GfxModeHeight( V_Lecture0_E ) + " x " + Str GfxModeDepth( V_Lecture0_E ) + " (n°" + Str V_Lecture0_E + ")"

		v_Largeur_E = GfxModeWidth ( V_Lecture1_E )
		v_Hauteur_E = GfxModeHeight( V_Lecture1_E )
		v_Prof_E = GfxModeDepth( V_Lecture1_E )
		
; ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
		
		RenderWorld
		
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Résolution, Options",0,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Screen Resolution, Options Menu",0,0)
	
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Quelle résolution / définition voulez - vous ? (les changements prendront effet une fois le jeu fermé).",3,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Wich screen resolution do you want ? (Changes will only be effective when the game ends / close",3,0)
			
			V_Menu_Choix_E = f_Menu_Texte ( v_Resolution_Inferieure_S, 6, 1 )
			
			V_Menu_Choix_E = f_Menu_Texte ( v_Resolution_Actuellle_S, 8, 0 )
			
			V_Menu_Choix_E = f_Menu_Texte ( v_Resolution_Superieure_S, 10, 2 )
			
			
			
			V_Menu_Choix_E = f_Menu_Texte ( v_Resolution_Basse_S, 14, 3 )
			
			V_Menu_Choix_E = f_Menu_Texte ( v_Resolution_Top_S, 16, 4 )
			
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Enregistrer et Quitter, revenir au menu des options.",19,5)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Save, Quit and go back to the options menu",19,5)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Ne pas enregistrer et Quitter, revenir au menu des options.",21,6)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Don't Save, Quit and go back to the options menu",21,6)
	
			f_Routine_Menus()
			f_Echap()
		
		Flip
		
		; Résolution + basse; 1 ;
		If V_Menu_Choix_E = 1
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			;Cls
			If V_Lecture1_E - 1 >= 1 Then V_Lecture1_E = V_Lecture1_E - 1
		EndIf
		
		; Résolution + haute; 2 ;
		If V_Menu_Choix_E = 2
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			Color 255,255,255
			If V_Lecture1_E + 1 <= ( V_Lecture0_E + 0 ) Then V_Lecture1_E = V_Lecture1_E + 1
		EndIf
		
		; Résolution Min. ; 3 ; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
		If V_Menu_Choix_E = 3
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			;Cls
			Color 255,255,255
			v_Largeur_E = GfxModeWidth ( 1 )
			v_Hauteur_E = GfxModeHeight( 1 )
			v_Prof_E = GfxModeDepth( 1 )
			V_Lecture_Fichier_E = WriteFile ( "Bin\config\Resolutions.a" )
			WriteInt ( V_Lecture_Fichier_E, v_Largeur_E )
			WriteInt ( V_Lecture_Fichier_E, v_Hauteur_E )
			WriteInt ( V_Lecture_Fichier_E, v_Prof_E )
			CloseFile V_Lecture_Fichier_E
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Votre choix a été validé !",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Your Choice has been validated",True,False
			Flip
			Delay 2000
			Goto Fin_Menu_Resolution
		EndIf
		
		; Résolution Max. ; 4 ;
		If V_Menu_Choix_E = 4
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			;Cls
			Color 255,255,255
			v_Largeur_E = GfxModeWidth ( V_Lecture0_E )
			v_Hauteur_E = GfxModeHeight( V_Lecture0_E )
			v_Prof_E = GfxModeDepth( V_Lecture0_E )
			V_Lecture_Fichier_E = WriteFile ( "Bin\config\Resolutions.a" )
			WriteInt ( V_Lecture_Fichier_E, v_Largeur_E )
			WriteInt ( V_Lecture_Fichier_E, v_Hauteur_E )
			WriteInt ( V_Lecture_Fichier_E, v_Prof_E )
			CloseFile V_Lecture_Fichier_E
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Votre choix a été validé !",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Your Choice has been validated",True,False
			Flip
			Delay 2000
			Goto Fin_Menu_Resolution
		EndIf
		
		; Résolution Enregistre. ; 5 ;
		If V_Menu_Choix_E = 5
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			;Cls
			Color 255,255,255
			V_Lecture_Fichier_E = WriteFile ( "Bin\config\Resolutions.a" )
			WriteInt ( V_Lecture_Fichier_E, v_Largeur_E )
			WriteInt ( V_Lecture_Fichier_E, v_Hauteur_E )
			WriteInt ( V_Lecture_Fichier_E, v_Prof_E )
			CloseFile V_Lecture_Fichier_E
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Votre choix a été validé !",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Your Choice has been validated",True,False
			Flip
			Delay 2000
			Goto Fin_Menu_Resolution
		EndIf

		; Résolution Quitte. ; 6 ;
		If V_Menu_Choix_E = 6
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			;Cls
			Color 255,255,255
			Goto Fin_Menu_Resolution
		EndIf

		;Flip
	Forever
	
	.Fin_Menu_Resolution
	
End Function
; //////////////////////////////

; //////////// Menu Langage /////////////////////////////
Function f_Menu_Langage()
	SetBuffer BackBuffer()
	Repeat
		; Efface l'écran précédent;
		Cls
		RenderWorld
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Langages",0,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Language Menu",0,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("What's your language? / Quelle est votre langue ?",3,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Quelle est votre langue? / What's your language?",3,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("French / Français.",5,1)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Français / French.",5,1)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("English / Anglais.",7,2)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Anglais / English.",7,2)
	 		
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Quitter, revenir au menu 'options'.",11,3)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Quit and go back to the 'options' menu",11,3)
	
			f_Routine_Menus()
			f_Echap()
			
		Flip

		
		; Résolution ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Votre choix a été validé !",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Your Choice has been validated",True,False
			Flip : Cls : Delay 2000 : Cls
			V_Langue_E = 0
		EndIf
		
		; Langage ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Votre choix a été validé !",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Your Choice has been validated",True,False
			Flip : Cls : Delay 2000 : Cls
			V_Langue_E = 1
		EndIf
		
		; Quitter ; 3 ;
		If V_Menu_Choix_E = 3
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			Goto Fin_Menu_Langage
		EndIf
		
		;Flip
	Forever
	
	.Fin_Menu_Langage
	V_Lecture_Fichier_E = WriteFile ( "Bin\config\langue.a" )
	WriteInt ( V_Lecture_Fichier_E, V_Langue_E )
	CloseFile V_Lecture_Fichier_E
End Function
; //////////////////////////////

; //////////// Menu Sensibilite /////////////////////////////
Function f_Menu_Sensibilite()
	SetBuffer BackBuffer()
	Repeat
		; Efface l'écran précédent;
		Cls
		RenderWorld
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Sensibilité Souris",0,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Mouse sensitivity Menu",0,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Cliquez ci-dessous pour modifier la sensibilté de la souris / camera:",3,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Click below to change mouse / camera sensitivity:",3,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Cliquez - ici pour: Plus Sensible.",5,1)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Click here for: more sensitivity.",5,1)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(Str V_Sensibilite_F,7,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(Str V_Sensibilite_F,7,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Cliquez - ici pour: Moins Sensible.",9,2)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Click here for: less sensitivity.",9,2)
	 		
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Quitter, revenir au menu 'options'.",11,3)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Quit and go back to the 'options' menu",11,3)
	
			f_Routine_Menus()
			f_Echap()
		
		Flip
		
		; Plus ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls
			V_Sensibilite_F = V_Sensibilite_F + 0.02
		EndIf
		
		; Moins ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			V_Sensibilite_F = V_Sensibilite_F - 0.02
		EndIf
		
		; Quitter ; 3 ;
		If V_Menu_Choix_E = 3
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			Goto Fin_Menu_Sensibilite2
		EndIf
		
		;Flip
	Forever
	
	.Fin_Menu_Sensibilite2
	V_Lecture_Fichier_E = WriteFile ( "Bin\config\sensibilite.a" )
	WriteFloat ( V_Lecture_Fichier_E, V_Sensibilite_F )
	CloseFile V_Lecture_Fichier_E
End Function
; //////////////////////////////

; //////////// Menu Inversion /////////////////////////////
Function f_Menu_Inversion()
	SetBuffer BackBuffer()
	Repeat
		; Efface l'écran précédent;
		Cls
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Inverser Souris",0,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Invert Mouse Menu",0,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Cliquez ci-dessous pour modifier la direction de rotation de la souris / camera:",3,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Click below to change the way mouse / camera moves:",3,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Cliquez - ici pour: Souris / Camera normale.",5,1)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Click here for: normal mouse / camera",5,1)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Cliquez - ici pour: Souris / Camera inversée.",7,2)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Click here for: Inverted Mouse / Camera.",7,2)
 		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Quitter, revenir au menu 'options'.",10,3)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Quit and go back to the 'options' menu",10,3)

		f_Routine_Menus()
		f_Echap()
		
		; Plus ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls
			V_Inversion_E = 0
		EndIf
		
		; Moins ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			V_Inversion_E = 1
		EndIf
		
		; Quitter ; 3 ;
		If V_Menu_Choix_E = 3
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			Goto Fin_Menu_Inversion
		EndIf
		
		Flip
	Forever
	
	.Fin_Menu_Inversion
	V_Lecture_Fichier_E = WriteFile ( "Bin\config\inversion.a" )
	WriteInt ( V_Lecture_Fichier_E, V_Inversion_E )
	CloseFile V_Lecture_Fichier_E
End Function
; //////////////////////////////

; //////////// Menu Options /////////////////////////////
Function f_Menu_Options()
	SetBuffer BackBuffer()
	
	f_Routine_Menus()
	V_Menu_Choix_E = -1
	V_Clique2_E = V_Clique2_E + 3
	;Delay 1000
	Repeat
		; Efface l'écran précédent;
		Cls
		RenderWorld
		
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Options",0,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Options Menu",0,0)
			
			;If V_Jeu_En_Cours_E = 0 And V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Modifier Résolution de l'écran / Définition de l'image.",3,1)
			;If V_Jeu_En_Cours_E = 0 And V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Change screen resolution.",3,1)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Modifier Résolution de l'écran / Définition de l'image.",3,1)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Change screen resolution.",3,1)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Change language / Modifier le langage du jeu.",5,2)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Modifier le langage / Change language.",5,2)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Modifier la sensibilité de la souris",7,3)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Change mouse sensitivity",7,3)
	 		
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Inverser les mouvements de la souris / camera lors de la partie.",9,4)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Invert the mouse / camera movements",9,4)
	
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Quitter, revenir au menu principal.",12,5)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Quit and go back to the main menu",12,5)
	
			f_Routine_Menus()
			f_Echap()
		
		Flip
		
		; Résolution ; 1 ;
		If V_Menu_Choix_E = 1
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			;: Cls
			f_Menu_Resolution_Options()
		EndIf
		
		; Langage ; 2 ;
		If V_Menu_Choix_E = 2
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			Color 255,255,255 ;: Cls 
			f_Menu_Langage()
		EndIf
		
		; Sensibilite souris ; 3 ;
		If V_Menu_Choix_E = 3
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			Color 255,255,255 ;: Cls
			f_Menu_Sensibilite()
		EndIf
		
		; Inversion souris ; 4 ;
		If V_Menu_Choix_E = 4
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			Color 255,255,255 ;: Cls
			f_Menu_Inversion()
		EndIf		
		
		; Quitter ; 5 ;
		If V_Menu_Choix_E = 5
			;f_Routine_Menus()
			V_Menu_Choix_E = 0
			Color 255,255,255 ;: Cls
			Goto Fin_Menu_Options
		EndIf
		
		;Flip
	Forever
	
	.Fin_Menu_Options
End Function
; //////////////////////////////

; //////////// Demo /////////////////////////////
Function f_Menu_Demo()
	SetBuffer BackBuffer()
;	EntityAlpha V_Obj_Bleu_E, 0.0
	v_Cam_X_F# = 0.0
	v_Cam_Y_F# = 0.0
	v_Cam_Z_F# = 0.0
	Repeat
		f_Boucle_Duree_Min_A()
		If V_Duree_TOTAL_E < 1 Then V_Duree_TOTAL_E = 1

		V_Temps_Actu_E = MilliSecs ( )
		; Efface l'écran précédent;
		; SetBuffer BackBuffer()
		Cls
		
		If V_Clique2_E = 1 Then Goto Fin_Demo
		
		; Gère l'action en arrière - plan ;
		
		V_Correction_E = V_Correction_E + 1
		If V_Correction_E > 500 Then V_Correction_E = 500
		
		f_Gestion_IA()
		
		If V_Correction_E <= 3
			For Z = V_IA_A_E To V_IA_B_E
;				PositionEntity T_Intelligence_Handles_E ( 0, Z ), ( Z * 15.0 ) + 50, TerrainY# ( V_Terrain_1_E, ( Z * 15.0 ) + 50, 0.0, 60.0 ) + 1.0, 60.0
			Next
		EndIf
		
		f_Gestion_Partie(  )

;		PositionEntity V_Camera_Principale_E, EntityX# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) ), EntityY# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) ), EntityZ# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) )
		;RotateEntity V_Camera_Principale_E, 0.0, EntityYaw# ( T_Intelligence_Handles_E( 0, V_Suivi_E ) ), 0.0
;		PositionEntity V_Work_Entitee_C_E, V_tresor_X_F, V_tresor_Y_F, V_tresor_Z_F
;		If V_But_Du_Jeu_E = 1 Then PointEntity V_Camera_Principale_E, V_Work_Entitee_C_E
;		If V_But_Du_Jeu_E = 1 Then RotateEntity V_Camera_Principale_E, 0.0, EntityYaw# ( V_Camera_Principale_E ), 0.0
		
		If V_But_Du_Jeu_E > 1
;			TurnEntity V_Camera_Principale_E, 0.0, 0.3, 0.0
			v_Cam_X_F = 0.0
			v_Cam_Y_F = v_Cam_Y_F + 0.3
			v_Cam_Z_F = 0.0
			RotateEntity V_Camera_Principale_E, v_Cam_X_F, v_Cam_Y_F, v_Cam_Z_F
		EndIf
;		MoveEntity V_Camera_Principale_E, 0, 0, 0 - V_Distance_Vue_F
;		PositionEntity V_Camera_Principale_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E)+V_Hauteur_Vue_F, EntityZ# (V_Camera_Principale_E)
;		If EntityY# ( V_Camera_Principale_E ) < TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0 Then PositionEntity V_Camera_Principale_E, EntityX# (V_Camera_Principale_E), TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0, EntityZ# (V_Camera_Principale_E)

		
		
		RenderWorld
		
		;Locate 0,0
		;Print V_But_Du_Jeu_E
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Regarder Démonstration.",0,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Watch Demo",0,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Clic-gauche pour quitter la démonstration.",2,1)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Left - click to quit / exit Demo.",2,1)
		
		;Color 255, 255, 255
		;If V_Langue_E = 0  And V_But_Du_Jeu_E > 1 Then Text GraphicsWidth () / 2, 0, "Il reste: " + Str ( V_Chrono_Vol_B_E - ( ( V_Temps_Actu_E - V_Chrono_Vol_A_E ) / 1000 ) ) + v_Objectif_S, True
		;If V_Langue_E = 1  And V_But_Du_Jeu_E > 1 Then Text GraphicsWidth () / 2, 0, "Time left: " + Str ( V_Chrono_Vol_B_E - ( ( V_Temps_Actu_E - V_Chrono_Vol_A_E ) / 1000 ) ) + v_Objectif_S, True
 		
		f_Routine_Menus()
		f_Echap()
		
		Flip

		f_Boucle_Duree_Min_Z()
	Forever
	.Fin_Demo
;	EntityAlpha V_Obj_Bleu_E, 0.6
	V_Clique2_E = V_Clique2_E + 1
End Function
; //////////////////////////////


; //////////// Menu FIN /////////////////////////////
Function f_Menu_FIN()
	SetBuffer BackBuffer()
	PositionEntity V_Objets3D_Joueur_A_E, ( 8 * 15.0 ) + 50, TerrainY# ( V_Terrain_1_E, ( 8 * 15.0 ) + 50, 0.0, 60.0 ) + 1.0, 60.0
	RotateEntity V_Camera_Principale_E, 30.0, 0.0, 0.0
	v_Cam_X_F# = 30.0
	v_Cam_Y_F# = 0.0
	v_Cam_Z_F# = 0.0
	Repeat
	
		V_fonduNoir_F = V_fonduNoir_F - ( V_Duree_TOTAL_E / 7000.0 )
		;V_Fondu_Noir_F = 0.1
		If V_fonduNoir_F <= 0.25 Then V_fonduNoir_F = 0.25
;		EntityAlpha V_Obj_Noir_E, V_fonduNoir_F
		
;		PositionEntity V_Camera_Principale_E, ( 8 * 15.0 ) + 50, TerrainY# ( V_Terrain_1_E, ( 8 * 15.0 ) + 50, 0.0, 60.0 ) + 1.0, 60.0
;		TurnEntity V_Camera_Principale_E, 0.0, 0.35, 0.0
		v_Cam_X_F# = 30.0
		v_Cam_Y_F# = v_Cam_Y_F + 0.35
		v_Cam_Z_F# = 0.0
		
;		MoveEntity V_Camera_Principale_E, 0.0, 0.0, - 12.0
		
;		RotateEntity V_Camera_Principale_E, 30.0, v_Cam_Y_F, 0.0
		
;		If EntityY# ( V_Camera_Principale_E ) < TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0 Then PositionEntity V_Camera_Principale_E, EntityX# (V_Camera_Principale_E), TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0, EntityZ# (V_Camera_Principale_E)

		
		; Continuer ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît... Chargement",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait... Loading",True,False
			Flip : Delay 200
			Goto Fin_Menu_Gagne
		EndIf
		
		; Quitter ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît... Fin du programme...",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait... Ending...",True,False
			Flip : Cls : Delay 1000 : Cls : End
		EndIf
		
		RenderWorld
		
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Reprendre du début / Quitter",0,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Restart from beginning / Quit Menu",0,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin1_S,3,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin1_S,3,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Vous êtes parvenu à la fin du jeu !",5,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("You have reached the end of the game !",5,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Visitez '" + V_Site_FR_S + "' pour télécharger gratuitement la suite, chaque mois!",6,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Visit '" + V_Site_UK_S + "' to download the continuation, for free",6,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Voulez-vous reprendre le jeu du début ?",8,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Do you want to restart the game from the beginning ?",8,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Oui, reprendre.",10,1)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Yes, restart.",10,1)
	
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Non, quitter.",12,2)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("No, quit.",12,2)
		
		f_Routine_Menus()
		
		Flip
		
	Forever
	
	.Fin_Menu_Gagne
End Function
; //////////////////////////////

; //////////// Menu GAGNé /////////////////////////////
Function f_Menu_GAGNE()
	SetBuffer BackBuffer()
;	PositionEntity V_Objets3D_Joueur_A_E, ( 8 * 15.0 ) + 50, TerrainY# ( V_Terrain_1_E, ( 8 * 15.0 ) + 50, 0.0, 60.0 ) + 1.0, 60.0
;	RotateEntity V_Camera_Principale_E, 30.0, 0.0, 0.0
	v_Cam_X_F# = 30.0
	v_Cam_Y_F# = 0.0
	v_Cam_Z_F# = 0.0
	Repeat
	
		V_fonduNoir_F = V_fonduNoir_F - ( V_Duree_TOTAL_E / 7000.0 )
		;V_Fondu_Noir_F = 0.1
		If V_fonduNoir_F <= 0.25 Then V_fonduNoir_F = 0.25
;		EntityAlpha V_Obj_Noir_E, V_fonduNoir_F
		
;		PositionEntity V_Camera_Principale_E, ( 8 * 15.0 ) + 50, TerrainY# ( V_Terrain_1_E, ( 8 * 15.0 ) + 50, 0.0, 60.0 ) + 1.0, 60.0
;		TurnEntity V_Camera_Principale_E, 0.0, 0.35, 0.0
		v_Cam_X_F# = 30.0
		v_Cam_Y_F# = v_Cam_Y_F + 0.35
		v_Cam_Z_F# = 0.0
		
;		MoveEntity V_Camera_Principale_E, 0.0, 0.0, - 12.0
		
;		RotateEntity V_Camera_Principale_E, 30.0, v_Cam_Y_F, 0.0
		
;		If EntityY# ( V_Camera_Principale_E ) < TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0 Then PositionEntity V_Camera_Principale_E, EntityX# (V_Camera_Principale_E), TerrainY# ( V_Terrain_1_E, EntityX# (V_Camera_Principale_E), EntityY# (V_Camera_Principale_E), EntityZ# (V_Camera_Principale_E) ) + 2.0, EntityZ# (V_Camera_Principale_E)

		
		; Continuer ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît... Chargement",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait... Loading",True,False
			Flip : Delay 200
			Goto Fin_Menu_Gagne
		EndIf
		
		; Quitter ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît... Fin du programme...",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait... Ending...",True,False
			Flip : Cls : Delay 1000 : Cls : End
		EndIf
		
		RenderWorld
		
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Continuer / Quitter",0,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Continue / Quit Menu",0,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin1_S,3,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin1_S,3,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Voulez-vous continuer sur une autre île ?",5,0)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Do you want to continue to another island ?",5,0)
			
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Oui, continuer.",7,1)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Yes, continue.",7,1)
	
			If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Non, quitter.",9,2)
			If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("No, quit.",9,2)
		
		f_Routine_Menus()
		
		Flip
		
	Forever
	
	.Fin_Menu_Gagne
End Function
; //////////////////////////////

; //////////// Menu Perdu /////////////////////////////
Function f_Menu_Perdu()
	SetBuffer BackBuffer()
	Repeat
		; Efface l'écran précédent;
		Cls
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Recommencer / Quitter",0,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Restart / Quit Menu",0,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin1_S,3,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin1_S,3,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin2_S,4,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Mesage_Fin2_S,4,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Voulez-vous recommencer ?",6,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Do you want to play again ?",6,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Oui, recommencer.",8,1)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Yes, play again.",8,1)

		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Non, quitter.",10,2)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("No, quit.",10,2)
 		
		f_Routine_Menus()
		
		; Continuer ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît... Chargement",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait... Loading",True,False
			Flip : Delay 200
			Goto Fin_Menu_Perdu
		EndIf
		
		; Quitter ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît... Fin du programme...",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait... Ending...",True,False
			Flip : Cls : Delay 1000 : Cls : End
		EndIf
		
		Flip
	Forever
	
	.Fin_Menu_Perdu
End Function
; //////////////////////////////

; //////////// Menu Pause /////////////////////////////
Function f_Menu_Pause()
	SetBuffer BackBuffer()
	Repeat
		; Efface l'écran précédent;
		Cls
				
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Pause",0,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Pause Menu",0,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Continuer",3,1)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Resume",3,1)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Score",5,2)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Score",5,2)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Options",7,3)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Options",7,3)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Aide - Commandes",9,4)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Help - Controls",9,4)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Quitter",11,5)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Quit",11,5)
 		
		f_Routine_Menus()
		f_Echap()
		
		; Jouer ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît...",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait...",True,False
			Flip : Delay 500 : Goto Fin_Menu_Pause
		EndIf

		; Quitter ; 5 ;
		If V_Menu_Choix_E = 5
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0
			f_Menu_Quitter()
		EndIf
		Flip
	Forever
	.Fin_Menu_Pause
End Function
; //////////////////////////////


; //////////// Menu Quitter /////////////////////////////
Function f_Menu_Quitter()
	SetBuffer BackBuffer()
	Repeat
		; Efface l'écran précédent;
		Cls
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuF0_S+": Menu Quitter",0,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte(V_Nom_Du_JeuA1_S+": Quit Menu",0,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Voulez vous Quitter ?",3,0)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Do you want to quit ?",3,0)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Oui, quitter",5,1)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("Yes, quit",5,1)
		
		If V_Langue_E = 0 Then V_Menu_Choix_E = f_Menu_Texte("Non, ne pas quitter",7,2)
		If V_Langue_E = 1 Then V_Menu_Choix_E = f_Menu_Texte("No, don't quit",7,2)
 		
		f_Routine_Menus()
		
		; Quitter ; 1 ;
		If V_Menu_Choix_E = 1
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls
			If V_Langue_E = 0 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Patientez S'il vous plaît... Fin du programme...",True,False
			If V_Langue_E = 1 Then Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait... Ending...",True,False
			Flip : Cls : Delay 500 : Cls : End
		EndIf
		
		; Continuer ; 2 ;
		If V_Menu_Choix_E = 2
			V_Clique2_E = V_Clique2_E + 1 : V_Menu_Choix_E = 0 : Cls : Color 255,255,255
			Goto Fin_Menu_Quitter_zGOT
		EndIf
		
		Flip
	Forever
	
	.Fin_Menu_Quitter_zGOT
End Function
; //////////////////////////////


; //////////////////////////////
Function f_Menu_Texte(v_Texte_S$,v_Ligne_E%,v_Option_N_E%)
	; Si la souris survole alors change la couleur;
	If Int(MouseY()/V_Taille_Texte_E) = v_Ligne_E And v_Option_N_E > 0
		Color 255,255,0
		If V_Clique2_E = 1
			V_Clique_E = v_Option_N_E
		Else
			V_Clique_E = 0
		EndIf
	Else
		Color 255,255,255
	EndIf
	; Affiche Texte;
	;Color 255,255,0
	Text GraphicsWidth()/2,Int(v_Ligne_E * V_Taille_Texte_E),v_Texte_S,True,False	
	Return V_Clique_E
End Function
; //////////////////////////////


; //////////////////////////////
Function f_Routine_Menus()
	If MouseDown(1)
		V_Clique2_E = V_Clique2_E + 1
	Else
		V_Clique2_E = 0
	EndIf
	;;; Dessine Une flèche;
	;DrawImage V_Fleche_E,MouseX(),MouseY()
	
End Function
; //////////////////////////////
Function f_Prepare_Menus()
	V_Taille_Texte_E = Int( GraphicsHeight() / 25 )
	V_Police_E = LoadFont("arial",V_Taille_Texte_E,True)
	SetFont V_Police_E
	;V_Fleche_E = LoadImage("Bin\Media\Flèche.bmp")
	
End Function

; //////// Boucle Durée Minimale A ; //////////////////////
Function f_Boucle_Duree_Min_A()
    V_Boucle_A_E = MilliSecs()
    V_BoucleTOTAL_A_E = MilliSecs()
End Function
; ///////////////////////////////////////////

; //////// Boucle Durée Minimale Z ; //////////////////////
Function f_Boucle_Duree_Min_Z()
    V_Boucle_Z_E = MilliSecs()
    V_Duree_Boucle_E = V_Boucle_Z_E - V_Boucle_A_E
    If V_Duree_Boucle_E < V_Duree_MIN_E
        V_Duree_Attente_E = V_Duree_MIN_E - V_Duree_Boucle_E
        V_Boucle_A_E = MilliSecs()
        Repeat
            V_Boucle_Z_E = MilliSecs()
            If V_Boucle_Z_E - V_Boucle_A_E => V_Duree_Attente_E Then Exit
        Forever
    EndIf
    V_BoucleTOTAL_Z_E = MilliSecs()
    V_Duree_TOTAL_E = (V_BoucleTOTAL_Z_E - V_BoucleTOTAL_A_E) - V_Duree_PAUSE_E
	V_Duree_TOTAL_E = V_Duree_TOTAL_E - V_Duree_Echap_E
;//     V_Duree_TOTAL_E = V_Duree_TOTAL_E - V_Duree_PAUSE_E
    V_Duree_PAUSE_E = 0
	V_Duree_Echap_E = 0
End Function
; ///////////////////////////////////////////

; ////// Echap Fonction ///////////////////
Function f_Echap()
	If KeyDown(1)
		If V_Jeu_En_Cours_E = 1 Then V_Echap_A_E = MilliSecs()
		f_Menu_Quitter()
		If V_Jeu_En_Cours_E = 1 Then V_Echap_Z_E = MilliSecs()
		If V_Jeu_En_Cours_E = 1 Then V_Duree_Echap_E = V_Echap_Z_E - V_Echap_A_E
		V_Echap_A_E = 0 : V_Echap_Z_E = 0
	EndIf
End Function
; /////////////////////////////////////////

Function f_Gestion_IA()
End Function

Function f_Gestion_Partie(  )

End Function

this code displays my simple menu function, but if you click "options" then "change mouse sensitivity" you'll see that the related menu doesn't appear, and this is an exemple amongst many other problems, so how can I correct this program ? Maybe what I'm asking for is hard or complex, but I really need your help.

How can I make this menu go OK ? !

PS: note: I can give explanations about the program above if you want.

Last edited 2011

Warner

(Posted 2011) [#2]

1. Change the start of f_Menu_Options to this:

Function f_Menu_Options()
	SetBuffer BackBuffer()
	
	f_Routine_Menus()
	V_Menu_Choix_E = -1

2. Change "MouseDown" in "MouseHit"
3. Change f_Menu_Texte to this:

; //////////////////////////////
Function f_Menu_Texte(v_Texte_S$,v_Ligne_E%,v_Option_N_E%)
	retval = V_Menu_Choix_E
	; Si la souris survole alors change la couleur;
	If Int(MouseY()/V_Taille_Texte_E) = v_Ligne_E And v_Option_N_E > 0
		Color 255,255,0
		If V_Clique2_E > 0
			DebugLog "click " + Rand(255)
			retval = v_Option_N_E
		Else
			retval = 0
		EndIf
	Else
		Color 255,255,255
	EndIf
	; Affiche Texte;
	;Color 255,255,0
	Text GraphicsWidth()/2,Int(v_Ligne_E * V_Taille_Texte_E),v_Texte_S,True,False	
	Return retval
End Function
; //////////////////////////////

It is just a fix, but it seems to work. Hopefully it gets you back on the track.
Edit: it fixes selecting 'options', then 'mouse sensitity'.

Last edited 2011

etxtra

(Posted 2011) [#3]

Hi, @Warner ! Thank you ! right now my menus works well, thanks to your help.