MODEL ANALYSIS

gen_yam

YAM_GenMenu

09/02/99 03:25:47

; LOOK DES MENUS Perso DES_Curseur : Personne ; Curseur du menu Entier DES_NiveauTransparence : 0 Entier DES_TaillePetitCaractere : 0 Entier DES_TailleGrosCaractere : 0 Entier DES_Temporisation : 0 Entier DES_VitesseApparition : 0 Entier INT_Map : 0 Entier INT_Sortie : 0 Perso INT_Fond : Personne Booleen INT_Rouge : Faux Booleen INT_Jaune : Faux ; VARIABLES POUR UN MENU TypeTableauTexte INT_MenuTexte : 10 TypeTableauEntier INT_Menu_PosX : 10 TypeTableauEntier INT_Menu_PosY : 10 TypeTableauEntier INT_Menu_Etat : 10 TypeTableauEntier INT_Curseur_PosX : 10 TypeTableauEntier INT_Curseur_PosY : 10 Entier INT_ChoixCourant : 0 Entier INT_ChoixSelection : 0 Entier INT_NbChoix : 0 ; VARIABLES GLOBALES Booleen INT_DansMapMonde : Faux Booleen INT_StartMenu : Faux Entier INT_NbSlotValid : 0 Entier INT_NbSlotAvailable : 0 Entier INT_NbResolution : 0 Entier INT_CurrentResolution : 0 Entier INT_NbLanguages : 0 TypeTableauEntier INT_SlotValid : 3 Entier INT_Resultat : 0 Reel INT_PadVAnalogiqueX : 0.0 Reel INT_PadVAnalogiqueY : 0.0 Booleen INT_Up : Faux Booleen INT_Down : Faux Booleen INT_Right : Faux Booleen INT_Left : Faux ; MENU YESNO Booleen INT_Yes : Faux Booleen INT_Debut : Vrai Entier INT_TypeYesNo : 0 Entier INT_TypeMessage : 0 ; MENU SOUND Entier INT_Valeur : 0 Entier INT_TypeValeur : 0 Entier INT_VolumeMin : 0 Entier INT_VolumeMax : 127 Entier INT_VolumeMusique : 0 Entier INT_VolumeBruitage : 0 Entier INT_CurseurX : 0 Entier INT_CurseurY : 0 ; VARIABLES TEMPORAIRES Entier Tmp_CharNumber : 0 Entier Tmp_PosChar : 65 Entier Tmp_Event : 0 TypeVecteur Tmp_TxtPos : VecteurConstant(0,0,0) ; Pour gerer les directions du PAD Reel Tmp_Distance : 0.0 Reel Tmp_R : 0.0 Reel Tmp_Rmax : 0.0 Reel Tmp_AnalogX : 0.0 Reel Tmp_AnalogY : 0.0 TypeVecteur Tmp_Vtemp : VecteurConstant(0,0,0) TypeVecteur Tmp_Vtemp2 : VecteurConstant(0,0,0) Entier Tmp_i : 0 Entier Tmp_i2 : 0 Entier Itemp : 0 ; Indices et boucles Entier Tmp_Ind : 0 Entier Tmp_ChoixCourant : 0 entier Tmp : 0 Reel INT_Rot : 0 Entier INT_Incr : 4 Booleen INT_Slot : Faux Entier INT_SlotIdentique : 0 Entier INT_NbLums : 0 Entier INT_OldNbLums : 0

DECLARATION Macros

SUBROUTINE YAM_AfficheMenu_SB0

subroutine :

Si ? Vrai

Alors

Tmp_Ind := 0

EnvoierequeteMenuSon("SND_Play_Menu1_clic")

Boucle (INT_NbChoix)

Si (INT_Menu_Etat[Tmp_Ind] < > 0)

Alors

Tmp_TxtPos.X:=INT_Menu_PosX[Tmp_Ind]

Tmp_TxtPos.Y:=INT_Menu_PosY[Tmp_Ind]

Si (INT_Curseur_PosY[Tmp_Ind] = 999)

Alors

Tmp_TxtPos.z := DES_TaillePetitCaractere - 3

Sinon

Tmp_TxtPos.z := DES_TaillePetitCaractere

Finsi

Si (INT_Menu_Etat[Tmp_Ind] = 1)

Alors

JFFTXT_Affiche(Tmp_Ind,Tmp_TxtPos,INT_MenuTexte[Tmp_Ind],DES_NiveauTransparence)

Sinon

JFFTXT_Affiche(Tmp_Ind,Tmp_TxtPos,INT_MenuTexte[Tmp_Ind], 255)

Finsi

; Choix de la couleur du texte autre que bleu

Si (INT_Menu_Etat[Tmp_Ind] = 3)

Alors INT_Rouge : =Vrai

Sinon INT_Rouge : =Faux

Finsi

Si (Tmp_Ind = INT_ChoixCourant)

Alors

INT_Jaune:=Vrai

Sinon

INT_Jaune:=Faux

Finsi

; Application de la couleur (bleu par defaut)

Si (INT_Jaune=Vrai)

Alors

JFFTXT_Extend(Tmp_Ind,7,3)

Sinon

Si (INT_Rouge=Vrai)

Alors

JFFTXT_Extend(Tmp_Ind,7,2)

Finsi

Tmp_Ind++

FinBoucle ()

; Pour deformer le choix courant

JFFTXT_Extend(INT_ChoixCourant,1,1)

Finsi

SUBROUTINE YAM_InitMenuPrincipal_SB0

subroutine :

INT_Slot:=Faux INT_MenuTexte[0] := "MNU_RESUME" INT_MenuTexte[1] := "MNU_SAVE" INT_MenuTexte[2] := "MNU_LOAD" INT_MenuTexte[3] := "MNU_DELETE" INT_MenuTexte[4] := "MNU_OPTION" INT_Menu_PosX[0] := 50 INT_Menu_PosX[1] := 50 INT_Menu_PosX[2] := 50 INT_Menu_PosX[3] := 50 INT_Menu_PosX[4] := 50 INT_Menu_PosY[0] := 200 INT_Menu_PosY[1] := 350 INT_Menu_PosY[2] := 500 INT_Menu_PosY[3] := 650 INT_Menu_PosY[4] := 800 INT_Curseur_PosX[0] := 500 INT_Curseur_PosX[1] := 500 INT_Curseur_PosX[2] := 500 INT_Curseur_PosX[3] := 500 INT_Curseur_PosX[4] := 500 INT_Curseur_PosY[0] := 200 INT_Curseur_PosY[1] := 350 INT_Curseur_PosY[2] := 500 INT_Curseur_PosY[3] := 650 INT_Curseur_PosY[4] := 800 INT_Menu_Etat[0] := 2 INT_Menu_Etat[1] := 2 INT_Menu_Etat[2] := 2 INT_Menu_Etat[3] := 2 INT_Menu_Etat[4] := 2

Si (INT_NbSlotValid = 0)

Alors ; Pas de chargement possible

INT_Menu_Etat[2] := 1

INT_Menu_Etat[3] := 1

Si (INT_NbSlotAvailable = 0)

Alors ; Pas de sauvegarde possible

INT_Menu_Etat[1] := 1

Finsi

INT_NbChoix := 5

INT_ChoixCourant := 0

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_SlotInformation_SB0

subroutine :

Tmp_Ind := 0 INT_NbSlotValid := 0 INT_NbSlotAvailable := OPTION_GetNbSlotsAvailable(300)

Boucle (3)

Tmp_Event := OPTION_SlotIsValid(Tmp_Ind + 1)

INT_NbSlotValid += Tmp_Event

INT_SlotValid[Tmp_Ind] := Tmp_Event

Tmp_Ind ++

FinBoucle ()

Si (INT_NbSlotAvailable < > 3)

Alors

Tmp_Ind := 2

Si (INT_NbSlotAvailable = INT_NbSlotValid)

Alors

Boucle (3)

Si (INT_SlotValid[Tmp_Ind] = 0)

Alors

INT_SlotValid[Tmp_Ind] := -1

Finsi

Tmp_Ind--

FinBoucle ()

Sinon

Tmp_Ind := 2

Tmp_Event := 3 - INT_NbSlotAvailable

Boucle (3)

Si (INT_SlotValid[Tmp_Ind] = 0)

Alors

INT_SlotValid[Tmp_Ind] := -1

Tmp_Event--

Finsi

Tmp_Ind--

Si (Tmp_Event = 0)

Alors

Break(0)

Finsi

FinBoucle ()

Finsi

SUBROUTINE YAM_SupprimeMenu_SB0

subroutine :

Si ? Vrai

Alors

Tmp_Ind := 0

Boucle (INT_NbChoix)

JFFTXT_Extend(Tmp_Ind,0,0)

Tmp_Ind++

Finboucle ()

Finsi

SUBROUTINE YAM_LitPad_SB0

subroutine :

INT_PadVAnalogiqueX := 0

INT_PadVAnalogiqueY := 0

INT_Up := Faux

INT_Down := Faux

INT_Right := Faux

INT_Left := Faux

Si BoutonAppuye("Button_Up") Alors INT_Up := Vrai INT_PadVanalogiqueY:=-100 Sinon

Si BoutonAppuye("Button_Down") Alors INT_Down := Vrai INT_PadVanalogiqueY:=100 Sinon

Si BoutonAppuye("Button_Left") Alors INT_Left := Vrai INT_PadVanalogiqueX:=-100 Sinon

Si BoutonAppuye("Button_Right") Alors INT_Right := Vrai INT_PadVanalogiqueX:=100 Sinon

Si Boutonappuye("Button_UpAnalogic")

Alors

INT_PadVAnalogiqueY := PAD_LitValeurAnalogiqueEntree("Button_UpAnalogic")

Si (INT_PAdVAnalogiqueY < -60)

Alors

INT_Up := Vrai

Finsi

Si Boutonappuye("Button_DownAnalogic")

Alors

INT_PadVAnalogiqueY := PAD_LitValeurAnalogiqueEntree("Button_DownAnalogic")

Si (INT_PAdVAnalogiqueY > 60)

Alors

INT_Down := Vrai

Finsi

Si Boutonappuye("Button_LeftAnalogic")

Alors

INT_PadVAnalogiqueX := PAD_LitValeurAnalogiqueEntree("Button_LeftAnalogic")

Si (INT_PAdVAnalogiqueX < -60)

Alors

INT_Left := Vrai

Finsi

Si Boutonappuye("Button_RightAnalogic")

Alors

INT_PadVAnalogiqueX := PAD_LitValeurAnalogiqueEntree("Button_RightAnalogic")

Si (INT_PAdVAnalogiqueX > 60)

Alors

INT_Right := Vrai

Finsi

SUBROUTINE YAM_RewriteChoice_SB0

subroutine :

Si (INT_Menu_Etat[INT_ChoixCourant] = 3)

Alors INT_Rouge : =Vrai

Sinon INT_Rouge : =Faux

Finsi

Si (INT_Slot=Vrai)

Alors

JFFTXT_Extend(INT_ChoixCourant,4,DES_TailleGrosCaractere)

Sinon

JFFTXT_Extend(INT_ChoixCourant,4,DES_TaillePetitCaractere)

Finsi

Si (INT_Jaune=Vrai)

Alors

JFFTXT_Extend(INT_ChoixCourant,7,3)

JFFTXT_Extend(INT_ChoixCourant,1,1)

Sinon

JFFTXT_Extend(INT_ChoixCourant,1,0)

Si (INT_Rouge=Vrai)

Alors

JFFTXT_Extend(INT_ChoixCourant,7,2)

Sinon

JFFTXT_Extend(INT_ChoixCourant,7,1)

Finsi

SUBROUTINE YAM_InitMenuOptions_SB0

subroutine :

INT_MenuTexte[0] := "MNU_VIDEO"

INT_MenuTexte[1] := "MNU_SOUND"

INT_MenuTexte[2] := "MNU_LANGUAGE"

INT_Menu_PosX[0] := 50

INT_Menu_PosX[1] := 50

INT_Menu_PosX[2] := 50

INT_Menu_PosY[0] := 200

INT_Menu_PosY[1] := 500

INT_Menu_PosY[2] := 800

INT_Curseur_PosX[0] := 500

INT_Curseur_PosX[1] := 500

INT_Curseur_PosX[2] := 500

INT_Curseur_PosY[0] := 200

INT_Curseur_PosY[1] := 500

INT_Curseur_PosY[2] := 800

INT_Menu_Etat[0] := 2

INT_Menu_Etat[1] := 2

INT_Menu_Etat[2] := 2

INT_NbChoix := 3

INT_ChoixCourant := 0

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_InitMenuSound_SB0

subroutine :

INT_MenuTexte[0] := "MNU_MONO" INT_MenuTexte[1] := "MNU_STEREO" INT_MenuTexte[2] := "MNU_MUSIC" INT_MenuTexte[3] := "MNU_SOUNDEFFECTS" INT_MenuTexte[4] := "MNU_MUSICVOLUME" INT_Menu_PosX[0] := 640 INT_Menu_PosX[1] := 640 INT_Menu_PosX[2] := 60 INT_Menu_PosX[3] := 60 INT_Menu_PosX[4] := 60 INT_Menu_PosY[0] := 170 INT_Menu_PosY[1] := 280 INT_Menu_PosY[2] := 480 INT_Menu_PosY[3] := 780 INT_Menu_PosY[4] := 225 INT_Curseur_PosX[0] := 630 INT_Curseur_PosX[1] := 630 INT_Curseur_PosX[2] := 630 INT_Curseur_PosX[3] := 630 INT_Curseur_PosX[4] := 630 INT_Curseur_PosY[0] := 140 INT_Curseur_PosY[1] := 310 INT_Curseur_PosY[2] := 500 INT_Curseur_PosY[3] := 800 INT_Curseur_PosY[4] := 700 INT_Menu_Etat[0] := 2 INT_Menu_Etat[1] := 2 INT_Menu_Etat[2] := 2 INT_Menu_Etat[3] := 2 INT_Menu_Etat[4] := 4

Si SOUND_IsInStereoMode()

Alors

INT_Menu_Etat[1] := 3

INT_ChoixCourant := 1

Sinon

INT_Menu_Etat[0] := 3

INT_ChoixCourant := 0

Finsi

INT_VolumeMin := 0

INT_VolumeMax := 127

INT_VolumeMusique := OPTION_GetVolumeMusical()

INT_VolumeBruitage := OPTION_getVolumeEffets()

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,128),"AGO_JaugePleineH",0)

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,128),"AGO_JaugePleineH",1)

INT_NbChoix := 5

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_InitMenuVideo_SB0

subroutine :

INT_MenuTexte[0] := "MNU_RESOLUTION" INT_MenuTexte[1] := "MNU_RESBASSE" INT_MenuTexte[2] := "MNU_RESHAUTE" INT_MenuTexte[3] := "MNU_NETTETE" INT_MenuTexte[4] := "MNU_NETSTAND" INT_MenuTexte[5] := "MNU_NETMAX" INT_MenuTexte[6] := "MNU_CENTREECRAN" INT_Menu_PosX[0] := 100 INT_Menu_PosX[1] := 600 INT_Menu_PosX[2] := 600 INT_Menu_PosX[3] := 100 INT_Menu_PosX[4] := 600 INT_Menu_PosX[5] := 600 INT_Menu_PosX[6] := 100 INT_Menu_PosY[0] := 225 INT_Menu_PosY[1] := 180 INT_Menu_PosY[2] := 270 INT_Menu_PosY[3] := 575 INT_Menu_PosY[4] := 530 INT_Menu_PosY[5] := 620 INT_Menu_PosY[6] := 850 INT_Curseur_PosX[0] := 150 INT_Curseur_PosX[1] := 575 INT_Curseur_PosX[2] := 575 INT_Curseur_PosX[3] := 150 INT_Curseur_PosX[4] := 575 INT_Curseur_PosX[5] := 575 INT_Curseur_PosX[6] := 500 INT_Curseur_PosY[0] := 225 INT_Curseur_PosY[1] := 150 INT_Curseur_PosY[2] := 300 INT_Curseur_PosY[3] := 575 INT_Curseur_PosY[4] := 500 INT_Curseur_PosY[5] := 650 INT_Curseur_PosY[6] := 850 INT_Menu_Etat[0] := 4 INT_Menu_Etat[1] := 2 INT_Menu_Etat[2] := 2 INT_Menu_Etat[3] := 4 INT_Menu_Etat[4] := 2 INT_Menu_Etat[5] := 2 INT_Menu_Etat[6] := 2 INT_NbResolution := VID_NbAvailableResolution() INT_CurrentResolution := VID_CurrentResolution() ; Si une seule resolution disponible, on desactive haute resolution

SiPas (INT_NbResolution > 1)

Alors

INT_Menu_Etat[2] := 1

Finsi

; On selectionne le mode de resolution courant

INT_Menu_Etat[INT_CurrentResolution + 1] := 3

; Si la haute resolution est activee, on desactive sharpness min

; Sans se preoccuper de la valeur du sharpness

Si (INT_CurrentResolution = 1)

Alors

INT_Menu_Etat[4] := 1

INT_Menu_Etat[5] := 3

Sinon

; On selectionne le sharpness en fonction de la valeur courante

Si VID_IsShapnessMax()

Alors

INT_Menu_Etat[4] := 2

INT_Menu_Etat[5] := 3

Sinon

INT_Menu_Etat[4] := 3

INT_Menu_Etat[5] := 2

Finsi

INT_NbChoix := 7

INT_ChoixCourant := INT_CurrentResolution + 1

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_InitMenuLangue_SB0

subroutine :

INT_MenuTexte[0] := "MNU_LANGUE1"

INT_MenuTexte[1] := "MNU_LANGUE2"

INT_MenuTexte[2] := "MNU_LANGUE3"

INT_MenuTexte[3] := "MNU_LANGUE4"

INT_MenuTexte[4] := "MNU_LANGUE5"

INT_Menu_PosX[0] := 25 INT_Menu_PosX[1] := 25 INT_Menu_PosX[2] := 25 INT_Menu_PosX[3] := 25 INT_Menu_PosX[4] := 25 INT_Menu_PosY[0] := 200 INT_Menu_PosY[1] := 350 INT_Menu_PosY[2] := 500 INT_Menu_PosY[3] := 650 INT_Menu_PosY[4] := 800 INT_Curseur_PosX[0] := 500 INT_Curseur_PosX[1] := 500 INT_Curseur_PosX[2] := 500 INT_Curseur_PosX[3] := 500 INT_Curseur_PosX[4] := 500 INT_Curseur_PosY[0] := 200 INT_Curseur_PosY[1] := 350 INT_Curseur_PosY[2] := 500 INT_Curseur_PosY[3] := 650 INT_Curseur_PosY[4] := 800 INT_Menu_Etat[0] := 2 INT_Menu_Etat[1] := 2 INT_Menu_Etat[2] := 2 INT_Menu_Etat[3] := 2 INT_Menu_Etat[4] := 2 INT_NbChoix := 5 INT_ChoixCourant := TEXT_GetCurrentLanguageId() INT_Menu_Etat[INT_ChoixCourant]:=3 INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant] INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_InitMenuSave_SB0

subroutine :

INT_Slot:=Faux INT_MenuTexte[0] := "MNU_SLOT1" INT_MenuTexte[1] := "MNU_SLOT2" INT_MenuTexte[2] := "MNU_SLOT3"

Si ? INT_StartMenu

Alors

INT_MenuTexte[3] := "MNU_TITRENEW"

Sinon

INT_MenuTexte[3] := "MNU_TITRESAVE"

Finsi

Si ? INT_StartMenu

Alors

INT_MenuTexte[4] := "MNU_AIDENEW"

Sinon

INT_MenuTexte[4] := "MNU_AIDESAVE"

Finsi

INT_MenuTexte[5] := "Tmp_Lums"

INT_MenuTexte[6] := "Tmp_Lums2"

INT_MenuTexte[7] := "Tmp_Lums3"

INT_Menu_PosX[0] := 500

INT_Menu_PosX[1] := 500

INT_Menu_PosX[2] := 500

INT_Menu_PosX[3] := 500

INT_Menu_PosX[4] := 500

INT_Menu_PosX[5] := 600

INT_Menu_PosX[6] := 600

INT_Menu_PosX[7] := 600

INT_Menu_PosY[0] := 350

INT_Menu_PosY[1] := 450

INT_Menu_PosY[2] := 550

INT_Menu_PosY[3] := 150

INT_Menu_PosY[4] := 700

INT_Menu_PosY[5] := 350

INT_Menu_PosY[6] := 450

INT_Menu_PosY[7] := 550

INT_Curseur_PosX[0] := 550

INT_Curseur_PosX[1] := 550

INT_Curseur_PosX[2] := 550

INT_Curseur_PosX[3] := 700

INT_Curseur_PosX[4] := 700

INT_Curseur_PosY[0] := 350

INT_Curseur_PosY[1] := 450

INT_Curseur_PosY[2] := 550

INT_Curseur_PosY[3] := 150

INT_Curseur_PosY[4] := 999

INT_Menu_Etat[0] := 2

INT_Menu_Etat[1] := 2

INT_Menu_Etat[2] := 2

INT_Menu_Etat[3] := 4

INT_Menu_Etat[4] := 4

INT_Menu_Etat[5] := 0

INT_Menu_Etat[6] := 0

INT_Menu_Etat[7] := 0

;----- Copie le nom moteur du slot dans une variable en y ajoutant un formatage -----

Si (INT_SlotValid[2] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(3), "MNU_SLOT3")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(3), "Tmp_Lums3")

TEXT_FormateTexte( "Tmp_Lums3", "MNU_POURCENT", "Tmp_Lums3")

INT_ChoixCourant:=2

INT_Menu_Etat[7]:=4

Sinon

Si (INT_SlotValid[2] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT3")

INT_ChoixCourant:=2

Sinon

INT_Menu_Etat[2]:=1

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT3")

Finsi

Si (INT_SlotValid[1] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(2), "MNU_SLOT2")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(2), "Tmp_Lums2")

TEXT_FormateTexte( "Tmp_Lums2", "MNU_POURCENT", "Tmp_Lums2")

INT_ChoixCourant:=1

INT_Menu_Etat[6]:=4

Sinon

Si (INT_SlotValid[1] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT2")

INT_ChoixCourant:=1

Sinon

INT_Menu_Etat[1]:=1

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT2")

Finsi

Si (INT_SlotValid[0] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(1), "MNU_SLOT1")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(1), "Tmp_Lums")

TEXT_FormateTexte( "Tmp_Lums", "MNU_POURCENT", "Tmp_Lums")

INT_ChoixCourant:=0

INT_Menu_Etat[5]:=4

Sinon

Si (INT_SlotValid[0] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT1")

INT_ChoixCourant:=0

Sinon

INT_Menu_Etat[0]:=1

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT1")

Finsi

INT_NbChoix := 8

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_ChangementNom_SB0

subroutine :

Tmp_PosChar:=0

Tmp_CharNumber := TEXT_LettreDuTexteALaPosition(INT_MenuTexte[INT_ChoixCourant], Tmp_PosChar)

JFFTXT_Extend(INT_ChoixCourant, 5, Tmp_PosChar+1)

Temps_AttenteFigee(TemporisationMenu)

SUBROUTINE YAM_InitialiseNom_SB0

subroutine :

Si (INT_ChoixCourant = 0)

Alors

TEXT_FormateTexte( "/C:", "MNU_INITIALSLOTNAME", "MNU_SLOT1")

Sinon

Si (INT_ChoixCourant = 1)

Alors

TEXT_FormateTexte( "/C:", "MNU_INITIALSLOTNAME2", "MNU_SLOT2" )

Sinon

Si (INT_ChoixCourant = 2)

Alors

TEXT_FormateTexte( "/C:", "MNU_INITIALSLOTNAME3", "MNU_SLOT3" )

Finsi

SUBROUTINE YAM_InitMenuLoad_SB0

subroutine :

INT_MenuTexte[0] := "MNU_SLOT1" INT_MenuTexte[1] := "MNU_SLOT2" INT_MenuTexte[2] := "MNU_SLOT3" INT_MenuTexte[3] := "MNU_TITRELOAD" INT_MenuTexte[4] := "MNU_AIDELOAD" INT_MenuTexte[5] := "Tmp_Lums" INT_MenuTexte[6] := "Tmp_Lums2" INT_MenuTexte[7] := "Tmp_Lums3" INT_Menu_PosX[0] := 100 INT_Menu_PosX[1] := 100 INT_Menu_PosX[2] := 100 INT_Menu_PosX[3] := 100 INT_Menu_PosX[4] := 100 INT_Menu_PosX[5] := 600 INT_Menu_PosX[6] := 600 INT_Menu_PosX[7] := 600 INT_Menu_PosY[0] := 350 INT_Menu_PosY[1] := 450 INT_Menu_PosY[2] := 550 INT_Menu_PosY[3] := 150 INT_Menu_PosY[4] := 700 INT_Menu_PosY[5] := 350 INT_Menu_PosY[6] := 450 INT_Menu_PosY[7] := 550 INT_Curseur_PosX[0] := 500 INT_Curseur_PosX[1] := 500 INT_Curseur_PosX[2] := 500 INT_Curseur_PosX[3] := 500 INT_Curseur_PosX[4] := 500 INT_Curseur_PosY[0] := 300 INT_Curseur_PosY[1] := 500 INT_Curseur_PosY[2] := 700 INT_Curseur_PosY[3] := 100 INT_Curseur_PosY[4] := 999 INT_Menu_Etat[0] := 2 INT_Menu_Etat[1] := 2 INT_Menu_Etat[2] := 2 INT_Menu_Etat[3] := 4 INT_Menu_Etat[4] := 4 INT_Menu_Etat[5] := 0 INT_Menu_Etat[6] := 0 INT_Menu_Etat[7] := 0

Si ? Vrai

Alors

Tmp_Ind:=2

Boucle (3)

Si ((INT_SlotValid[Tmp_Ind] = 0) ou (INT_SlotValid[Tmp_Ind] = -1))

Alors

INT_Menu_Etat[Tmp_Ind] := 1

Sinon

Tmp_i:=Tmp_Ind

Finsi

Tmp_Ind--

FinBoucle ()

Finsi

;----- Copie le nom moteur du slot dans une variable du GAME.TXT en y ajoutant un formatage -----

Si (INT_SlotValid[2] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(3), "MNU_SLOT3")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(3), "Tmp_Lums3")

TEXT_FormateTexte( "Tmp_Lums3", "MNU_POURCENT", "Tmp_Lums3")

INT_Menu_Etat[7]:=4

Sinon

Si (INT_SlotValid[2] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT3")

Sinon

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT3")

Finsi

Si (INT_SlotValid[1] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(2), "MNU_SLOT2")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(2), "Tmp_Lums2")

TEXT_FormateTexte( "Tmp_Lums2", "MNU_POURCENT", "Tmp_Lums2")

INT_Menu_Etat[6]:=4

Sinon

Si (INT_SlotValid[1] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT2")

Sinon

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT2")

Finsi

Si (INT_SlotValid[0] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(1), "MNU_SLOT1")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(1), "Tmp_Lums")

TEXT_FormateTexte( "Tmp_Lums", "MNU_POURCENT", "Tmp_Lums")

INT_Menu_Etat[5]:=4

Sinon

Si (INT_SlotValid[0] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT1")

Sinon

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT1")

Finsi

INT_NbChoix := 8

INT_ChoixCourant := Tmp_i

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_InitMenuStart_SB0

subroutine :

INT_MenuTexte[0] := "MNU_NEW" INT_MenuTexte[1] := "MNU_LOAD" INT_MenuTexte[2] := "MNU_OPTION" INT_Menu_PosX[0] := 400 INT_Menu_PosX[1] := 400 INT_Menu_PosX[2] := 400 INT_Menu_PosY[0] := 200 INT_Menu_PosY[1] := 500 INT_Menu_PosY[2] := 800 INT_Curseur_PosX[0] := 500 INT_Curseur_PosX[1] := 500 INT_Curseur_PosX[2] := 500 INT_Curseur_PosY[0] := 200 INT_Curseur_PosY[1] := 500 INT_Curseur_PosY[2] := 800 INT_Menu_Etat[0] := 2 INT_Menu_Etat[1] := 2 INT_Menu_Etat[2] := 2

Si (INT_NbSlotValid = 0)

Alors ; Pas de chargement possible

INT_Menu_Etat[1] := 1

FinSi

INT_NbChoix := 3

INT_ChoixCourant := 0

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_InitMenuDelete_SB0

subroutine :

INT_MenuTexte[0] := "MNU_SLOT1" INT_MenuTexte[1] := "MNU_SLOT2" INT_MenuTexte[2] := "MNU_SLOT3" INT_MenuTexte[3] := "MNU_TITREDELETE" INT_MenuTexte[4] := "MNU_AIDEDELETE" INT_MenuTexte[5] := "Tmp_Lums" INT_MenuTexte[6] := "Tmp_Lums2" INT_MenuTexte[7] := "Tmp_Lums3" INT_Menu_PosX[0] := 100 INT_Menu_PosX[1] := 100 INT_Menu_PosX[2] := 100 INT_Menu_PosX[3] := 100 INT_Menu_PosX[4] := 100 INT_Menu_PosX[5] := 600 INT_Menu_PosX[6] := 600 INT_Menu_PosX[7] := 600 INT_Menu_PosY[0] := 350 INT_Menu_PosY[1] := 450 INT_Menu_PosY[2] := 550 INT_Menu_PosY[3] := 150 INT_Menu_PosY[4] := 700 INT_Menu_PosY[5] := 350 INT_Menu_PosY[6] := 450 INT_Menu_PosY[7] := 550 INT_Curseur_PosX[0] := 500 INT_Curseur_PosX[1] := 500 INT_Curseur_PosX[2] := 500 INT_Curseur_PosX[3] := 500 INT_Curseur_PosX[4] := 700 INT_Curseur_PosY[0] := 350 INT_Curseur_PosY[1] := 500 INT_Curseur_PosY[2] := 650 INT_Curseur_PosY[3] := 100 INT_Curseur_PosY[4] := 999 INT_Menu_Etat[0] := 2 INT_Menu_Etat[1] := 2 INT_Menu_Etat[2] := 2 INT_Menu_Etat[3] := 4 INT_Menu_Etat[4] := 4 INT_Menu_Etat[5] := 0 INT_Menu_Etat[6] := 0 INT_Menu_Etat[7] := 0

Si ? Vrai

Alors

Tmp_Ind:=2

Boucle (3)

Si ((INT_SlotValid[Tmp_Ind] = 0) ou (INT_SlotValid[Tmp_Ind] = -1))

Alors

INT_Menu_Etat[Tmp_Ind] := 1

Sinon

Tmp_i:=Tmp_Ind

Finsi

Tmp_Ind--

FinBoucle ()

Finsi

;----- Copie le nom moteur du slot dans une variable du GAME.TXT en y ajoutant un formatage -----

Si (INT_SlotValid[2] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(3), "MNU_SLOT3")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(3), "Tmp_Lums3")

TEXT_FormateTexte( "Tmp_Lums3", "MNU_POURCENT", "Tmp_Lums3")

INT_Menu_Etat[7]:=4

Sinon

Si (INT_SlotValid[2] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT3")

Sinon

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT3")

Finsi

Si (INT_SlotValid[1] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(2), "MNU_SLOT2")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(2), "Tmp_Lums2")

TEXT_FormateTexte( "Tmp_Lums2", "MNU_POURCENT", "Tmp_Lums2")

INT_Menu_Etat[6]:=4

Sinon

Si (INT_SlotValid[1] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT2")

Sinon

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT2")

Finsi

Si (INT_SlotValid[0] = 1)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", TEXT_LitNomDuSlot(1), "MNU_SLOT1")

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(1), "Tmp_Lums")

TEXT_FormateTexte( "Tmp_Lums", "MNU_POURCENT", "Tmp_Lums")

INT_Menu_Etat[5]:=4

Sinon

Si (INT_SlotValid[0] = 0)

Alors

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_SLOTFREE", "MNU_SLOT1")

Sinon

TEXT_FormateTexte( "MNU_FORMATSLOTNAME", "MNU_NOENOUGHSPACE", "MNU_SLOT1")

Finsi

INT_NbChoix := 8

INT_ChoixCourant := Tmp_i

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

SUBROUTINE YAM_CompteurLums_SB0

subroutine :

INT_NbLums:=ACT_LitNombreDeBooleensDansTableau("Global".GLOBAL_Bits,1,800)

INT_NbLums+=ACT_LitNombreDeBooleensDansTableau("Global".GLOBAL_Bits,1201,1400)

SUBROUTINE YAM_AfficheScore_SB0

subroutine :

Si (INT_ChoixCourant = 2)

Alors

MNU_ValideNomDuSlot(3,"MNU_SLOT3",INT_NbLums)

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(3), "Tmp_Lums3")

TEXT_FormateTexte( "Tmp_Lums3", "MNU_POURCENT", "Tmp_Lums3")

INT_Menu_Etat[7]:=4

JFFTXT_Affiche(7,Vecteur(600,550,20),"Tmp_Lums3",255)

Sinon

Si (INT_ChoixCourant = 1)

Alors

MNU_ValideNomDuSlot(2,"MNU_SLOT2",INT_NbLums)

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(2), "Tmp_Lums2")

TEXT_FormateTexte( "Tmp_Lums2", "MNU_POURCENT", "Tmp_Lums2")

INT_Menu_Etat[6]:=4

JFFTXT_Affiche(6,Vecteur(600,450,20),"Tmp_Lums2",255)

Sinon

MNU_ValideNomDuSlot(1,"MNU_SLOT1",INT_NbLums)

TEXT_FormateTexte( "MNU_FORMATSCORENAME", TEXT_LitScoreDuSlot(1), "Tmp_Lums")

TEXT_FormateTexte( "Tmp_Lums", "MNU_POURCENT", "Tmp_Lums")

INT_Menu_Etat[5]:=4

JFFTXT_Affiche(5,Vecteur(600,350,20),"Tmp_Lums",255)

Finsi

SUBROUTINE YAM_RetablitScore_SB0

subroutine :

NeRienFaire()

REFLEX BEHAVIOUR YAM_GestionMenuStandard

RegleInterruption

; ARG : CB28 sert a oblige le joueur a repasser le PAD ; au neutre avant de redeclencher un mouvement

SiPas BoutonJusteAppuye("Button_Selection")

Alors

YAM_LitPad_SB0

Tmp_Vtemp := Vecteur(INT_PadVAnalogiqueX,INT_PadVAnalogiqueY,0)

Si (VEC_VecteurNorme(Tmp_Vtemp) > 50.0)

Alors

SiPas ACT_TestCustomBit(28)

Alors

Tmp_Vtemp := VEC_Normer(Tmp_Vtemp)

Tmp_Rmax:=0

Tmp_AnalogX:=0

Tmp_AnalogY:=0

; Cherche le + dans l'axe

Si (INT_NbChoix > 0)

Alors

Tmp_i := 0

Boucle (INT_NbChoix)

Si ((INT_Menu_Etat[Tmp_i] > 1) et (INT_Menu_Etat[Tmp_i] < > 4))

Alors

Tmp_AnalogX := INT_Curseur_PosX[Tmp_i] - INT_Curseur_PosX[INT_ChoixCourant]

Tmp_AnalogY := INT_Curseur_PosY[Tmp_i] - INT_Curseur_PosY[INT_ChoixCourant]

Tmp_Vtemp2 := Vecteur(Tmp_AnalogX,Tmp_AnalogY,0)

Tmp_Distance := VEC_VecteurNorme(Tmp_Vtemp2)

Si (Tmp_Distance < 10) Alors Tmp_Distance:=1000 Finsi

; Deja sur bouton

Tmp_Vtemp2 := VEC_Normer(Tmp_Vtemp2)

Tmp_R := VEC_ProduitScalaire(Tmp_Vtemp, Tmp_Vtemp2)

Tmp_R /= (Tmp_Distance/250.0)

Si (Tmp_R>Tmp_Rmax)

Alors

Tmp_Rmax := Tmp_R

Tmp_I2 := Tmp_i

Finsi

Tmp_i++

FinBoucle ()

Si (Tmp_Rmax < >0)

Alors

INT_Jaune:=Faux

YAM_RewriteChoice_SB0

INT_ChoixCourant:= Tmp_I2

INT_Rot:=100

INT_Incr:=4

INT_Jaune:=Vrai

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

YAM_RewriteChoice_SB0

FinSi

Finsi

ACT_ChangeCustomBit(28, Vrai)

Finsi

Sinon

ACT_ChangeCustomBit(28, Faux)

Finsi

REFLEX BEHAVIOUR YAM_NeRienFaire

REFLEX BEHAVIOUR YAM_GestionNomSlot

RegleInterruption

SiPas BoutonJusteAppuye("Button_Selection")

Alors

YAM_LitPad_SB0

Si ((INT_Up = Vrai) et (MATH_ValeurAbsolue(INT_PadVAnalogiqueY) > 60))

Alors

Tmp_CharNumber++

Si ((Tmp_CharNumber>90) ou (Tmp_CharNumber=33))

Alors

Tmp_CharNumber := 48

Sinon

Si ((Tmp_CharNumber>57) et (Tmp_CharNumber < 65))

Alors

Tmp_CharNumber := 65

Finsi

JFFTXT_Modify(INT_ChoixCourant,Tmp_PosChar+3,Tmp_CharNumber)

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

TEMPS_AttenteFigee(100)

Sinon

Si ((INT_Down = Vrai) et (MATH_ValeurAbsolue( INT_PadVAnalogiqueY) > 60) )

Alors

Tmp_CharNumber--

Si ((Tmp_CharNumber < 65) et (Tmp_CharNumber>57))

Alors

Tmp_CharNumber := 57

Sinon

Si ((Tmp_CharNumber < 48) ou (Tmp_CharNumber=31))

Alors

Tmp_CharNumber := 90

Finsi

JFFTXT_Modify(INT_ChoixCourant,Tmp_PosChar+3,Tmp_CharNumber)

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

TEMPS_AttenteFigee(100)

Sinon

Si ? INT_Right

Alors

Si (Tmp_PosChar < 2)

Alors

Tmp_PosChar++

Sinon

Tmp_PosChar := 0

Finsi

Tmp_CharNumber:=TEXT_LettreDuTexteALaPosition(INT_MenuTexte[INT_ChoixCourant],Tmp_PosChar)

JFFTXT_Extend(INT_ChoixCourant, 5, Tmp_PosChar+1)

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

Temps_AttenteFigee(TemporisationMenu)

Sinon

Si ? INT_Left

Alors

Si (Tmp_PosChar>0)

Alors

Tmp_PosChar--

Sinon

Tmp_PosChar :=2

Finsi

Tmp_CharNumber:=TEXT_LettreDuTexteALaPosition(INT_MenuTexte[INT_ChoixCourant],Tmp_PosChar)

JFFTXT_Extend(INT_ChoixCourant, 5, Tmp_PosChar+1)

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

Temps_AttenteFigee(TemporisationMenu)

Finsi

REFLEX BEHAVIOUR YAM_GestionMenuYesNo

RegleInterruption

SiPas BoutonJusteAppuye("Button_Selection")

Alors

YAM_LitPad_SB0

Si ? INT_Debut

Alors

Tmp_TxtPos.X := 70

Tmp_TxtPos.Y := 700

Tmp_TxtPos.Z := DES_TaillePetitCaractere - 3

INT_Yes:=Faux

INT_Debut:=Vrai

Si (INT_TypeYesNo = 0)

Alors

TEXT_FormateTexte( "MNU_CONFIRMERASE", "MNU_No", "TMP_String" )

Sinon

Si (INT_TypeYesNo = 1)

Alors

TEXT_FormateTexte( "MNU_CONFIRMDELETE", "MNU_No", "TMP_String" )

Sinon

Si (INT_TypeYesNo = 2)

Alors

TEXT_FormateTexte( "/O400:", "MNU_DISABLEDNAME", "TMP_String" )

TEXT_FormateTexte( "TMP_string",TEXT_LitNomDuSlot(INT_SlotIdentique), "TMP_String" )

TEXT_FormateTexte( "TMP_string","MNU_DISABLEDNAME_Fin", "TMP_Cage" )

TEXT_FormateTexte( "TMP_cage","MNU_No", "TMP_String" )

Sinon

TEXT_FormateTexte( "MNU_CONFIRMLOAD1", "MNU_No", "TMP_String" )

Finsi

JFFTXT_Affiche(9,Tmp_TxtPos,"TMP_String",255)

; JFFTXT_Extend(9,2,0)

; JFFTXT_Extend(9,7,3)

INT_Debut:=Faux

Finsi

Si ((? INT_Right ou ? INT_Left) ou (? INT_Down ou ? INT_Up))

Alors

SiPas ACT_TestCustomBit(28)

Alors

Tmp_TxtPos.X := 70

Tmp_TxtPos.Y := 700

Si ? INT_Yes

Alors

INT_Yes := FAUX

Si (INT_TypeYesNo = 0)

Alors

TEXT_FormateTexte( "MNU_CONFIRMERASE", "MNU_No", "TMP_String" )

Sinon

Si (INT_TypeYesNo = 1)

Alors

TEXT_FormateTexte( "MNU_CONFIRMDELETE", "MNU_No", "TMP_String" )

Sinon

Si (INT_TypeYesNo = 2)

Alors

TEXT_FormateTexte( "TMP_cage", "MNU_No", "TMP_String" )

Sinon

TEXT_FormateTexte( "MNU_CONFIRMLOAD1", "MNU_No", "TMP_String" )

Finsi

Sinon

INT_Yes := VRAI

Si (INT_TypeYesNo = 0)

Alors

TEXT_FormateTexte( "MNU_CONFIRMERASE", "MNU_Yes", "TMP_String" )

Sinon

Si (INT_TypeYesNo = 1)

Alors

TEXT_FormateTexte( "MNU_CONFIRMDELETE", "MNU_Yes", "TMP_String" )

Sinon

Si (INT_TypeYesNo = 2)

Alors

TEXT_FormateTexte( "TMP_cage", "MNU_Yes", "TMP_String" )

Sinon

TEXT_FormateTexte( "MNU_CONFIRMLOAD1", "MNU_Yes", "TMP_String" )

Finsi

JFFTXT_Affiche(9,Tmp_TxtPos,"TMP_String",255)

; JFFTXT_Extend(9,7,3)

ACT_ChangeCustomBit(28, Vrai)

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

Finsi

Sinon

ACT_ChangeCustomBit(28, Faux)

Finsi

REFLEX BEHAVIOUR YAM_GestionModifValeur

RegleInterruption

YAM_LitPad_SB0

Si ((INT_Left = Vrai) ou (INT_Right = Vrai))

Alors

INT_Up := Faux

INT_Down := Faux

Finsi

Si ((INT_Up = Faux) et (INT_Down = Faux))

Alors

ACT_ChangeCustomBit(28, Faux)

Finsi

SiPas ACT_TestCustomBit(28) Alors

Si (INT_Up = Vrai)

Alors

INT_Jaune:=Faux

YAM_RewriteChoice_SB0

INT_ChoixCourant -= 1

Si (INT_ChoixCourant = 2)

Alors

INT_TypeValeur := 0

INT_VolumeBruitage:=INT_Valeur

INT_VolumeMusique:= OPTION_GetVolumeMusical()

INT_Valeur:=INT_VolumeMusique

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

INT_Jaune:=Vrai

YAM_RewriteChoice_SB0

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,255),"AGO_JaugePleineH",0)

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,128),"AGO_JaugePleineH",1)

ACT_ChangeCustomBit(28, Vrai)

Finsi

Sinon

Si ((INT_Down = Vrai) et (INT_ChoixCourant < > 3))

Alors

INT_Jaune:=Faux

YAM_RewriteChoice_SB0

INT_ChoixCourant+=1

Si (INT_ChoixCourant = 3)

Alors

INT_TypeValeur := 1

INT_VolumeMusique:=INT_Valeur

INT_VolumeBruitage:= OPTION_GetVolumeEffets()

INT_Valeur:=INT_VolumeBruitage

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

INT_Jaune:=Vrai

YAM_RewriteChoice_SB0

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,128),"AGO_JaugePleineH",0)

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,255),"AGO_JaugePleineH",1)

Finsi

ACT_ChangeCustomBit(28, Vrai)

Finsi

Si ? INT_Left

Alors

INT_Right:=Faux

Si (INT_Valeur>INT_VolumeMin)

Alors

INT_Valeur += MATH_ConversionEnEntier(INT_PadVAnalogiqueX / 20)

Si (INT_Valeur < INT_VolumeMin) Alors INT_Valeur:=INT_VolumeMin Finsi

Si (INT_TypeValeur = 0)

Alors

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_Valeur / 1.27), vecteur(93,53,255),"AGO_JaugePleineH",0)

OPTION_ChangeVolumeMusical(INT_Valeur)

Sinon

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_Valeur / 1.27), vecteur(93,83,255),"AGO_JaugePleineH",1)

OPTION_ChangeVolumeEffets(INT_Valeur)

Finsi

Sinon

Si ? INT_Right

Alors

INT_Left:=Faux

Si (INT_Valeur < INT_VolumeMax)

Alors

INT_Valeur += MATH_ConversionEnEntier(INT_PadVAnalogiqueX / 20)

Si (INT_Valeur > INT_VolumeMax) Alors INT_Valeur:=INT_VolumeMax Finsi

Si (INT_TypeValeur = 0)

Alors

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_Valeur / 1.27), vecteur(93,53,255),"AGO_JaugePleineH",0)

OPTION_ChangeVolumeMusical(INT_Valeur)

Sinon

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_Valeur / 1.27), vecteur(93,83,255),"AGO_JaugePleineH",1)

OPTION_ChangeVolumeEffets(INT_Valeur)

Finsi

INTELLIGENCE BEHAVIOUR YAM_AttenteActivation

RegleInterruption

"Global".No_Camera_Icon:=Vrai ; Initialisation du look du menu DES_NiveauTransparence := 90 DES_TaillePetitCaractere := 20 DES_TailleGrosCaractere := 35 DES_Temporisation := 100 DES_VitesseApparition := 16 INT_Rot:=100 INT_Incr:=4 MAP_LitLaSortieUtilisee(INT_Map,INT_Sortie)

Si ((INT_Map = 0) et (INT_Sortie = 0))

Alors

INT_StartMenu:=Vrai

Sinon

INT_StartMenu:=Faux

Finsi

;INT_StartMenu:=Faux

;ACT_FixeBooleenDansTableau('Global'.GLOBAL_Bits,1006,Vrai)

YAM_CompteurLums_SB0

; Generation du curseur

SiPas ObjetValide(Des_Curseur)

Alors

DES_Curseur := Personne

DES_Curseur := GenereObjet("ALW_CurseurMenu_I1",vecteur(0,0,0))

Si Alw_EstAMoi(DES_Curseur)

Alors

DES_Curseur."ARG_CurseurMenu"@DES_Menu := moi

Finsi

YAM_SlotInformation_SB0

Si ? INT_StartMenu

Alors

; Et que ce n'est pas la premiere fois que l'on arrive

Si ? ACT_LitBooleenDansTableau("Global".GLOBAL_Bits,1006)

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuLangue_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuLangue")

Finsi

Sinon

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

INTELLIGENCE BEHAVIOUR YAM_Desactivation

RegleInterruption

Si ? INT_StartMenu

Alors

YAM_SlotInformation_SB0

YAM_SupprimeMenu_SB0

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur] ChangeMonComportement("YAM_MenuStart")

Finsi

Si ALW_EstAMoi(DES_Curseur)

Alors

DetruitPerso(DES_Curseur)

FinSi

Si ALW_EstAMoi(INT_Fond)

Alors

DetruitPerso(INT_Fond)

FinSi

MAP_IndiqueLaSortieUtilisee(INT_Map,INT_Sortie)

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

ChangeMap("Mapmonde")

INTELLIGENCE BEHAVIOUR YAM_MenuPrincipal

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

Temps_AttenteFigee(DES_Temporisation)

; ---------- RESUME ---------------

Si (INT_ChoixCourant = 0)

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Sinon

; ---------- SAVE --------------

Si (INT_ChoixCourant = 1)

Alors

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable < > 0)

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuSave_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuSave")

Sinon

YAM_SupprimeMenu_SB0

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

; ---------- LOAD --------------

Si (INT_ChoixCourant = 2)

Alors

YAM_SlotInformation_SB0

Si (INT_NbSlotValid < > 0)

Alors ; Pas de chargement possible

YAM_SupprimeMenu_SB0

YAM_InitMenuLoad_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuLoad")

Sinon

YAM_SupprimeMenu_SB0

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

; ---------- DELETE --------------

Si (INT_ChoixCourant = 3)

Alors

YAM_SlotInformation_SB0

Si (INT_NbSlotValid < > 0)

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuDelete_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuDelete")

Sinon

YAM_SupprimeMenu_SB0

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

; ---------- OPTIONS ---------------

Si (INT_ChoixCourant = 4)

Alors

YAM_SlotInformation_SB0

YAM_SupprimeMenu_SB0

YAM_InitMenuOptions_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuOptions")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuOptions

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

YAM_SupprimeMenu_SB0

YAM_SlotInformation_SB0

Si ? INT_StartMenu

Alors

YAM_InitMenuStart_SB0

INT_ChoixCourant:=2

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

Sinon

YAM_InitMenuPrincipal_SB0

INT_ChoixCourant:=4

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

Finsi

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

Si ? INT_StartMenu

Alors

ChangeMonComportement("YAM_MenuStart")

Sinon

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

Temps_AttenteFigee(DES_Temporisation)

; ---------- VIDEO --------------

Si (INT_ChoixCourant = 0)

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuVideo_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuVideo")

Finsi

; ---------- SON ---------------

Si (INT_ChoixCourant = 1)

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuSound_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuSound")

Finsi

; ---------- LANGUE --------------

Si (INT_ChoixCourant = 2)

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuLangue_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuLangue")

Finsi

FinSi

INTELLIGENCE BEHAVIOUR YAM_MenuSound

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

ChangeMonComportementReflexe("YAM_NeRienFaire")

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,0),"AGO_JaugePleineH",0)

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,0),"AGO_JaugePleineH",1)

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,0),"AGO_JaugePleineH",0)

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,0),"AGO_JaugePleineH",1)

YAM_SupprimeMenu_SB0

YAM_InitMenuOptions_SB0

INT_ChoixCourant:=1

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportement("YAM_MenuOptions")

Finsi

; ---------- VOLUME1 --------------

Si (INT_ChoixCourant = 2)

Alors

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,255),"AGO_JaugePleineH",0)

INT_TypeValeur := 0

INT_Valeur:= INT_VolumeMusique

ACT_ChangeCustomBit(28, Vrai)

ChangeMonComportementReflexe("YAM_GestionModifValeur")

ChangeMonComportement("YAM_MenuChangeValeur")

Finsi

; ---------- VOLUME2 ---------------

Si (INT_ChoixCourant = 3)

Alors

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,255),"AGO_JaugePleineH",1)

INT_TypeValeur := 1

INT_Valeur:=INT_VolumeBruitage

ACT_ChangeCustomBit(28, Vrai)

ChangeMonComportementReflexe("YAM_GestionModifValeur")

ChangeMonComportement("YAM_MenuChangeValeur")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

Temps_AttenteFigee(DES_Temporisation)

; ---------- MONO --------------

Si (INT_ChoixCourant = 0)

Alors

SOUND_SetInStereoMode(Faux)

Tmp_ChoixCourant:=INT_ChoixCourant

YAM_SupprimeMenu_SB0

YAM_InitMenuSound_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Finsi

; ---------- STEREO --------------

Si (INT_ChoixCourant = 1)

Alors

SOUND_SetInStereoMode(Vrai)

Tmp_ChoixCourant:=INT_ChoixCourant

YAM_SupprimeMenu_SB0

YAM_InitMenuSound_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Finsi

FinSi

INTELLIGENCE BEHAVIOUR YAM_MenuVideo

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuOptions_SB0

INT_ChoixCourant:=0

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuOptions")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

Temps_AttenteFigee(DES_Temporisation)

; ---------- RESOLUTION BASSE

Si (INT_ChoixCourant = 1)

Alors

VID_SelectResolution(0)

Tmp_ChoixCourant:=INT_ChoixCourant

YAM_SupprimeMenu_SB0

YAM_InitMenuVideo_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Finsi

; ---------- RESOLUTION HAUTE

Si (INT_ChoixCourant = 2)

Alors

VID_SelectResolution(1)

Tmp_ChoixCourant:=INT_ChoixCourant

YAM_SupprimeMenu_SB0

YAM_InitMenuVideo_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Finsi

; ---------- SHARPNESS STANDARD

Si (INT_ChoixCourant = 4)

Alors

VID_SelectShapnessMax(Faux)

Tmp_ChoixCourant:=INT_ChoixCourant

YAM_SupprimeMenu_SB0

YAM_InitMenuVideo_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Finsi

; ---------- SHARPNESS MAX

Si (INT_ChoixCourant = 5)

Alors

VID_SelectShapnessMax(Vrai)

Tmp_ChoixCourant:=INT_ChoixCourant

YAM_SupprimeMenu_SB0

YAM_InitMenuVideo_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Finsi

; ---------- CENTRE ECRAN ---------------

Si (INT_ChoixCourant = 6)

Alors

YAM_SupprimeMenu_SB0

Tmp_TxtPos.X := 500

Tmp_TxtPos.Y := 300

Tmp_TxtPos.Z := DES_TaillePetitCaractere

LanceAGO(300,vecteur(0,0,0),vecteur(0,0,0),"AGO_Bulle",1.0)

JFFTXT_Affiche(0,Tmp_TxtPos,"MNU_CENTREECRANINFO",255)

JFFTXT_Extend(0,7,3)

JFFTXT_Extend(0,2,0)

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_MenuCentre")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuLangue

RegleInterruption

Si (BoutonJusteAppuye("Button_Start") et

(ACT_LitBooleenDansTableau("Global".GLOBAL_Bits,1006) = Vrai))

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si (BoutonJusteAppuye("Button_PreviousMenu") et

(ACT_LitBooleenDansTableau("Global".GLOBAL_Bits,1006) = Vrai))

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuOptions_SB0

INT_ChoixCourant:=2

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuOptions")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

Temps_AttenteFigee(DES_Temporisation)

TEXT_ChangeLangueCourante(INT_ChoixCourant)

YAM_SupprimeMenu_SB0

Si ? ACT_LitBooleenDansTableau("Global".GLOBAL_Bits,1006)

Alors

YAM_InitMenuOptions_SB0

INT_ChoixCourant:=2

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuOptions")

Sinon

ACT_FixeBooleenDansTableau("Global".GLOBAL_Bits,1006,Vrai)

YAM_SlotInformation_SB0

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuStart")

Finsi

FinSi

INTELLIGENCE BEHAVIOUR YAM_MenuSave

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

Si ? INT_StartMenu

Alors

YAM_SupprimeMenu_SB0

YAM_SlotInformation_SB0

YAM_InitMenuStart_SB0

INT_MenuTexte[3] := "MNU_SELECT"

YAM_AfficheMenu_SB0

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_SupprimeMenu_SB0

YAM_SlotInformation_SB0

YAM_InitMenuPrincipal_SB0

Si (INT_NbSlotAvailable < > 0)

Alors ; Pas de sauvegarde possible

INT_ChoixCourant:=1

Sinon

INT_ChoixCourant:=0

Finsi

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

JFFTXT_Extend(4,0,0)

Temps_AttenteFigee(DES_Temporisation)

Si (INT_SlotValid[INT_ChoixCourant] = 0) ; Slot Free

Alors

YAM_InitialiseNom_SB0

INT_Jaune:=Vrai

ChangeMonComportementReflexe("YAM_GestionNomSlot")

INT_Slot:=Vrai

YAM_RewriteChoice_SB0

YAM_ChangementNom_SB0

Tmp_CharNumber:=TEXT_LettreDuTexteALaPosition(INT_MenuTexte[INT_ChoixCourant],0)

JFFTXT_Extend(INT_ChoixCourant, 5, Tmp_PosChar+1)

Tmp_TxtPos.X := 500

Tmp_TxtPos.Y := 700

Tmp_TxtPos.Z := DES_TaillePetitCaractere - 3

Si ? INT_StartMenu

Alors

JFFTXT_Affiche(8,Tmp_TxtPos,"MNU_AIDE2",255)

Sinon

YAM_AfficheScore_SB0

JFFTXT_Affiche(8,Tmp_TxtPos,"MNU_AIDE",255)

Finsi

JFFTXT_Extend(8,2,0)

ChangeMonComportement("YAM_MenuChangeSlot")

Sinon

INT_Debut:=Vrai

INT_TypeYesNo := 0

INT_Jaune:=Vrai

YAM_RewriteChoice_SB0

ChangeMonComportementReflexe("YAM_GestionMenuYesNo")

ChangeMonComportement("YAM_MenuYesNo")

Finsi

FinSi

INTELLIGENCE BEHAVIOUR YAM_MenuChangeSlot

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

INT_Slot:=Faux

MNU_RestoreNomDuSlot(INT_ChoixCourant+1)

YAM_SupprimeMenu_SB0

JFFTXT_Extend(8,0,0)

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

INT_Slot:=Faux

JFFTXT_Extend(8,0,0)

SiPas ? INT_StartMenu

Alors

MNU_RestoreNomDuSlot(INT_ChoixCourant+1)

Finsi

YAM_SupprimeMenu_SB0

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable = 0)

Alors ; Pas de sauvegarde possible

INT_Slot:=Faux

Si ? INT_StartMenu

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Tmp_ChoixCourant:=INT_ChoixCourant

YAM_InitMenuSave_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuSave")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

INT_Slot:=Faux

JFFTXT_Extend(8,0,0)

Temps_AttenteFigee(DES_Temporisation)

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable = 0)

Alors ; Pas de sauvegarde possible

INT_Slot:=Faux

Si ? INT_StartMenu

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_SupprimeMenu_SB0

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

INT_SlotIdentique:=OPTION_IsAValidSlotName(INT_MenuTexte[INT_ChoixCourant],INT_ChoixCourant+1, 3)

Si (INT_SlotIdentique = 0)

Alors

Si (INT_SlotValid[INT_ChoixCourant] = 0)

Alors

INT_SlotValid[INT_ChoixCourant] := 1

INT_NbSlotValid ++

Finsi

MNU_ValideNomDuSlot(INT_ChoixCourant+1,INT_MenuTexte[INT_ChoixCourant],INT_NbLums)

YAM_SupprimeMenu_SB0

INT_Resultat:=SauvePartie(INT_ChoixCourant+1)

Si (INT_Resultat = 1)

Alors

Si ? INT_StartMenu

Alors

Temps_AttenteFigee(DES_Temporisation)

INT_startMenu:=faux

ChangeMonComportementReflexe("YAM_NeRienFaire")

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

ChangeMap("Jail_10")

Temps_AttenteFigee(5000)

Sinon

INT_SlotValid[INT_ChoixCourant] := 0

INT_NbSlotValid --

Tmp_TxtPos.x :=100

Tmp_TxtPos.y :=400

Tmp_TxtPos.z :=DES_TaillePetitCaractere

INT_CurseurX := 500

INT_CurseurY := 500

JFFTXT_Affiche(0,Tmp_TxtPos,"MNU_SAVED",255)

JFFTXT_Extend(0,2,0)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_MenuFinSave")

Finsi

Sinon

Si ? INT_StartMenu

Alors

Temps_AttenteFigee(DES_Temporisation)

INT_startMenu:=faux

ChangeMonComportementReflexe("YAM_NeRienFaire")

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

ChangeMap("Jail_10")

Temps_AttenteFigee(5000)

Sinon

YAM_SlotInformation_SB0

INT_Slot:=Faux

YAM_InitMenuPrincipal_SB0

Si (INT_NbSlotAvailable < > 0)

Alors ; Pas de sauvegarde possible

INT_ChoixCourant:=1

Sinon

INT_ChoixCourant:=0

Finsi

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

INT_Debut:=Vrai

INT_TypeYesNo := 2

INT_Jaune:=Vrai

JFFTXT_Extend(INT_ChoixCourant,5,0)

YAM_RewriteChoice_SB0

ChangeMonComportementReflexe("YAM_GestionMenuYesNo")

ChangeMonComportement("YAM_MenuYesNo")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuYesNo

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

JFFTXT_Extend(9,0,0)

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

JFFTXT_Extend(9,0,0)

YAM_SupprimeMenu_SB0

Tmp_ChoixCourant:=INT_ChoixCourant

; Save / New : Voulez-vous vraiment ecraser cette partie ?

Si (INT_TypeYesNo = 0)

Alors

; Le controleur Pack a-t-il ete arrache ?

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable < > 0)

Alors ; Le Controler est OK

Tmp_ChoixCourant:=INT_ChoixCourant ; On conserve l"item courant

YAM_InitMenuSave_SB0 ; Save

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuSave")

Sinon

Si ? INT_StartMenu ; New

Alors ; On revient au menu Start

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0 ; Save

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

; Delete : Voulez-vous vraiment effacer cette partie

Si (INT_TypeYesNo = 1)

Alors

YAM_InitMenuDelete_SB0

Sinon

; Slot Invalide : Voulez-vous vraiment

Si (INT_TypeYesNo = 2)

Alors

MNU_RestoreNomDuSlot(INT_ChoixCourant+1)

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable < > 0)

Alors

Si ? INT_StartMenu ; New

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0 ; Save

INT_ChoixCourant:=1

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

Si ? INT_StartMenu ; New

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0 ; Resume

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

YAM_InitMenuSave_SB0

; load

Sinon

YAM_InitMenuLoad_SB0

Finsi

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

Si (INT_TypeYesNo = 0)

Alors

ChangeMonComportement("YAM_MenuSave")

Sinon

Si (INT_TypeYesNo = 1)

Alors

ChangeMonComportement("YAM_MenuDelete")

Sinon

Si (INT_TypeYesNo = 2)

Alors

ChangeMonComportement("YAM_MenuSave")

Sinon

ChangeMonComportement("YAM_MenuLoad")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

ChangeMonComportementReflexe("YAM_NeRienFaire")

JFFTXT_Extend(9,0,0)

Temps_AttenteFigee(DES_Temporisation)

YAM_SupprimeMenu_SB0

Si ? INT_Yes

Alors

; Save / New : Voulez-vous vraiment ecraser cette partie ? OUI

Si (INT_TypeYesNo = 0)

Alors

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable < > 0)

Alors ; Controler OK

Tmp_ChoixCourant:=INT_ChoixCourant ; On conserve l"item courant

YAM_InitMenuSave_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

INT_Menu_Etat[4] := 0 ; On supprime l"aide

YAM_AfficheMenu_SB0

INT_Jaune:=Vrai ; Le slot courant est jaune

INT_Slot:=Vrai ; Grossi

YAM_RewriteChoice_SB0

YAM_ChangementNom_SB0 ; On initialise le nom courant

; On initialise le message d'aide pour rentrer le nom

Tmp_TxtPos.X := 500

Tmp_TxtPos.Y := 700

Tmp_TxtPos.Z := DES_TaillePetitCaractere - 3

Si ? INT_StartMenu

Alors

JFFTXT_Affiche(8,Tmp_TxtPos,"MNU_AIDE2",255)

Sinon

JFFTXT_Affiche(8,Tmp_TxtPos,"MNU_AIDE",255)

YAM_AfficheScore_SB0

Finsi

JFFTXT_Extend(8,2,0)

ChangeMonComportementReflexe("YAM_GestionNomSlot")

ChangeMonComportement("YAM_MenuChangeSlot")

Sinon ; Controler ARRACHE

Si ? INT_StartMenu

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

; Delete : Voulez-vous vraiment effacer cette partie ? OUI

Si (INT_TypeYesNo = 1)

Alors

INT_Resultat:=EffacePartie(INT_ChoixCourant+1)

Si (INT_Resultat = 1) ; Tout c"est bien passe

Alors

INT_SlotValid[INT_ChoixCourant] := 0

INT_NbSlotValid --

Tmp_TxtPos.x :=100

Tmp_TxtPos.y :=400

Tmp_TxtPos.z :=DES_TaillePetitCaractere

INT_CurseurX := 500

INT_CurseurY := 500

JFFTXT_Affiche(0,Tmp_TxtPos,"MNU_ERASED",255)

JFFTXT_Extend(0,2,0)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_MenuFinDelete")

Finsi

; Cas ou il y a un Probleme

YAM_SlotInformation_SB0

YAM_InitMenuPrincipal_SB0

Si (INT_NbSlotValid < > 0)

Alors

INT_ChoixCourant:=3

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

Finsi

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Sinon

; Slot Invalide : Voulez-vous vraiment Ecraser ? OUI

Si (INT_TypeYesNo = 2)

Alors

; On restaure l'ancien nom

MNU_RestoreNomDuSlot(INT_ChoixCourant+1)

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable = 0)

Alors

Si ? INT_StartMenu

Alors ; New

INT_startMenu:=faux

ChangeMonComportementReflexe("YAM_NeRienFaire")

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

ChangeMap("Jail_10")

Sinon ; Save

YAM_SupprimeMenu_SB0

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

; Tout est Ok

INT_ChoixCourant:=INT_SlotIdentique - 1

MNU_ValideNomDuSlot(INT_ChoixCourant+1,INT_MenuTexte[INT_ChoixCourant],INT_NbLums)

INT_Resultat:=SauvePartie(INT_ChoixCourant+1)

Si (INT_Resultat = 1)

Alors ; Tout se passe bien

INT_SlotValid[INT_ChoixCourant] := 0

INT_NbSlotValid --

Si ? INT_StartMenu

Alors

INT_startMenu:=faux

ChangeMonComportementReflexe("YAM_NeRienFaire")

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

ChangeMap("Jail_10")

Sinon

; On affiche la belle page de sauvegarde

Tmp_TxtPos.x :=100

Tmp_TxtPos.y :=400

Tmp_TxtPos.z :=DES_TaillePetitCaractere

INT_CurseurX := 500

INT_CurseurY := 500

JFFTXT_Affiche(0,Tmp_TxtPos,"MNU_SAVED",255)

JFFTXT_Extend(0,2,0)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_MenuFinSave")

Finsi

Sinon ; La sauvegarde a foire

Si ? INT_StartMenu

Alors

INT_startMenu:=faux

ChangeMonComportementReflexe("YAM_NeRienFaire")

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

ChangeMap("Jail_10")

Sinon

YAM_InitMenuPrincipal_SB0 ; Save

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

; load Voulez vous perdre vos donnees ? OUI

Sinon

INT_Resultat:=ChargePartie(INT_ChoixCourant+1)

Si (INT_Resultat = 1)

Alors

; On affiche la belle page de chargement

Tmp_TxtPos.x :=100

Tmp_TxtPos.y :=400

Tmp_TxtPos.z :=DES_TaillePetitCaractere

INT_CurseurX := 500

INT_CurseurY := 500

JFFTXT_Affiche(0,Tmp_TxtPos,"MNU_LOADED",255)

JFFTXT_Extend(0,2,0)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_MenuFinLoad")

Sinon

YAM_SlotInformation_SB0

Si ? INT_StartMenu

Alors

YAM_InitMenuStart_SB0

Sinon

YAM_InitMenuPrincipal_SB0

Finsi

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

Si ? INT_StartMenu

Alors

ChangeMonComportement("YAM_MenuStart")

Sinon

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

JFFTXT_Extend(9,0,0)

Tmp_ChoixCourant:=INT_ChoixCourant

; Save / New : Voulez-vous vraiment ecraser cette partie ? NON

Si (INT_TypeYesNo = 0)

Alors

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable < > 0)

Alors ; Le Controler est OK

Tmp_ChoixCourant:=INT_ChoixCourant ; On conserve l"item courant

YAM_InitMenuSave_SB0 ; Save

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuSave")

Sinon ; Controler ARRACHE

Si ? INT_StartMenu

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

; Delete : Voulez-vous vraiment effacer cette partie ? NON

Si (INT_TypeYesNo = 1)

Alors

YAM_InitMenuDelete_SB0

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

INT_Menu_Etat[4] := 0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuDelete")

Sinon

; Slot Invalide : Voulez-vous vraiment Ecraser ? NON

Si (INT_TypeYesNo = 2)

Alors

MNU_RestoreNomDuSlot(INT_ChoixCourant+1)

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable < > 0)

Alors ; Controler OK

Si ? INT_StartMenu ; New

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0 ; Save

INT_ChoixCourant:=1

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon ; Controler ARRACHE

Si ? INT_StartMenu ; New

Alors

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuStart")

Sinon

YAM_InitMenuPrincipal_SB0 ; Save

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

[BloquantMoteur]ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Sinon

; load Voulez vous perdre vos donnees ? NON Tmp_ChoixCourant:=INT_ChoixCourant ; On conserve l"item courant YAM_InitMenuLoad_SB0 ; Load INT_ChoixCourant:=Tmp_ChoixCourant INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant] INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant] YAM_AfficheMenu_SB0 ChangeMonComportementReflexe("YAM_GestionMenuStandard") ChangeMonComportement("YAM_MenuLoad")

Finsi

INT_ChoixCourant:=Tmp_ChoixCourant

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

Si (INT_TypeYesNo = 0)

Alors

YAM_AfficheMenu_SB0

INT_Menu_Etat[4] := 0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuSave")

Sinon

Si (INT_TypeYesNo = 1)

Alors

YAM_AfficheMenu_SB0

INT_Menu_Etat[4] := 0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuDelete")

Sinon

Si (INT_TypeYesNo = 2)

Alors

INT_Menu_Etat[4] := 0

YAM_AfficheMenu_SB0

INT_Jaune:=Vrai

INT_Slot:=Vrai

YAM_RewriteChoice_SB0

YAM_ChangementNom_SB0

Tmp_TxtPos.X := 500

Tmp_TxtPos.Y := 700

Tmp_TxtPos.Z := DES_TaillePetitCaractere

JFFTXT_Affiche(8,Tmp_TxtPos,"MNU_AIDE",255)

JFFTXT_Extend(8,2,0)

ChangeMonComportementReflexe("YAM_GestionNomSlot")

ChangeMonComportement("YAM_MenuChangeSlot")

Sinon

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuLoad")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuLoad

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

YAM_SupprimeMenu_SB0

YAM_SlotInformation_SB0

Si ? INT_StartMenu

Alors

YAM_InitMenuStart_SB0

Sinon

YAM_InitMenuPrincipal_SB0

Finsi

Si (INT_NbSlotAvailable < > 0)

Alors

Si ? INT_StartMenu

Alors

INT_ChoixCourant:=1

Sinon

INT_ChoixCourant:=2

Finsi

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant] INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant] YAM_AfficheMenu_SB0 Temps_AttenteFigee(DES_Temporisation) ChangeMonComportementReflexe("YAM_GestionMenuStandard")

Si ? INT_StartMenu

Alors

ChangeMonComportement("YAM_MenuStart")

Sinon

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

Si ? INT_StartMenu

Alors

Temps_AttenteFigee(DES_Temporisation)

INT_Resultat:=ChargePartie(INT_ChoixCourant+1)

Si (INT_Resultat = 1)

Alors

YAM_SupprimeMenu_SB0

Tmp_TxtPos.x :=100

Tmp_TxtPos.y :=400

Tmp_TxtPos.z :=DES_TaillePetitCaractere

INT_CurseurX := 500

INT_CurseurY := 500

JFFTXT_Affiche(0,Tmp_TxtPos,"MNU_LOADED",255)

JFFTXT_Extend(0,2,0)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_MenuFinLoad")

Sinon

YAM_SupprimeMenu_SB0

YAM_SlotInformation_SB0

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuStart")

Finsi

Sinon

Temps_AttenteFigee(DES_Temporisation)

INT_Debut:=Vrai

INT_TypeYesNo := 3

INT_Jaune:=Vrai

YAM_RewriteChoice_SB0

JFFTXT_Extend(4,0,0)

ChangeMonComportementReflexe("YAM_GestionMenuYesNo")

ChangeMonComportement("YAM_MenuYesNo")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuStart

RegleInterruption

Si BoutonJusteAppuye("Button_Selection")

Alors

Temps_AttenteFigee(DES_Temporisation)

; ---------- NEW --------------

Si (INT_ChoixCourant = 0)

Alors

YAM_SlotInformation_SB0

Si (INT_NbSlotAvailable < > 0)

Alors

YAM_SupprimeMenu_SB0

YAM_InitMenuSave_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuSave")

Sinon

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

INT_startMenu:=faux

ChangeMonComportementReflexe("YAM_NeRienFaire")

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

ChangeMap("Jail_10")

Finsi

Sinon

; ---------- LOAD --------------

Si (INT_ChoixCourant = 1)

Alors

YAM_SlotInformation_SB0

Si (INT_NbSlotValid < > 0)

Alors ; Pas de chargement possible

YAM_SupprimeMenu_SB0

YAM_InitMenuLoad_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuLoad")

Sinon

YAM_SupprimeMenu_SB0

YAM_InitMenuStart_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuStart")

Finsi

Sinon

; ---------- OPTIONS ---------------

Si (INT_ChoixCourant = 2)

Alors

YAM_SlotInformation_SB0

YAM_SupprimeMenu_SB0

YAM_InitMenuOptions_SB0

YAM_AfficheMenu_SB0

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuOptions")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuChangeValeur

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

ChangeMonComportementReflexe("YAM_NeRienFaire")

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,0),"AGO_JaugePleineH",0)

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,0),"AGO_JaugePleineH",1)

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,0),"AGO_JaugePleineH",0)

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",1)

LanceAGO(120,vecteur(68,78,INT_VolumeBruitage / 1.27), vecteur(93,83,0),"AGO_JaugePleineH",1)

YAM_SupprimeMenu_SB0

YAM_InitMenuOptions_SB0

INT_ChoixCourant:=1

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportement("YAM_MenuOptions")

Finsi

Si (INT_ChoixCourant > 3) Alors INT_ChoixCourant:=3 Finsi

Si (INT_ChoixCourant < 2)

Alors

ACT_ChangeCustomBit(28, Vrai)

INT_VolumeMusique:=INT_Valeur

LanceAGO(50,vecteur(0,0,0),vecteur(0,0,0),"AGO_JaugeVideH",0)

LanceAGO(120,vecteur(68,48,INT_VolumeMusique / 1.27), vecteur(93,53,128),"AGO_JaugePleineH",0)

INT_Jaune:=Vrai

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_RewriteChoice_SB0

EnvoierequeteMenuSon("SND_Play_Menu4_CLIC")

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuSound")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuCentre

RegleInterruption

VID_CenterScreen()

Si BoutonJusteAppuye("Button_Start")

Alors

JFFTXT_Extend(0,0,0)

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si (BoutonJusteAppuye("Button_Selection") ou BoutonJusteAppuye("Button_PreviousMenu"))

Alors

JFFTXT_Extend(0,0,0)

YAM_InitMenuVideo_SB0

INT_ChoixCourant:=6

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuVideo")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuDelete

RegleInterruption

Si BoutonJusteAppuye("Button_Start")

Alors

Si ((((INT_SlotValid[0] = 1) et

(TEXT_LettreDuTexteALaPosition("MNU_SLOT1",0) = 82)) et

(TEXT_LettreDuTexteALaPosition("MNU_SLOT1",1) = 65)) et

(TEXT_LettreDuTexteALaPosition("MNU_SLOT1",2) = 89))

Alors ; eh eh eh

ChangeMap("Staff_10")

Sinon

YAM_SupprimeMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_NeRienFaire")

ChangeMonComportement("YAM_Desactivation")

Finsi

Si BoutonJusteAppuye("Button_PreviousMenu")

Alors

YAM_SupprimeMenu_SB0

YAM_SlotInformation_SB0

YAM_InitMenuPrincipal_SB0

Si (INT_NbSlotAvailable < > 0)

Alors

INT_ChoixCourant:=3

Finsi

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

Si BoutonJusteAppuye("Button_Selection")

Alors

Temps_AttenteFigee(DES_Temporisation)

INT_Debut:=Vrai

INT_TypeYesNo := 1

INT_Jaune:=Vrai

YAM_RewriteChoice_SB0

JFFTXT_Extend(4,0,0)

ChangeMonComportementReflexe("YAM_GestionMenuYesNo")

ChangeMonComportement("YAM_MenuYesNo")

FinSi

INTELLIGENCE BEHAVIOUR YAM_MenuFinLoad

RegleInterruption

Si BoutonJusteAppuye("Button_Selection")

Alors

JFFTXT_Extend(0,0,0)

ACT_FixePointsDeVieInit("rayman",ACT_LitPointsDeVie("rayman"))

Si (ACT_LitBooleenDansTableau("Global".GLOBAL_Bits,1133) = Vrai)

Alors

"Global".CAGE_Machine_A_Sous:=ACT_LitNombreDeBooleensDansTableau("Global".GLOBAL_Bits,840,919)

"Global".LUMS_Machine_A_Sous:=0

ChangeMap("MapMonde")

Sinon

"Global".CAGE_Machine_A_Sous:=0

"Global".LUMS_Machine_A_Sous:=0

ChangeMap("Jail_10")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenuFinSave

RegleInterruption

Si BoutonJusteAppuye("Button_Selection")

Alors

YAM_SlotInformation_SB0

YAM_InitMenuPrincipal_SB0

INT_ChoixCourant:=1

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

INTELLIGENCE BEHAVIOUR YAM_MenufinDelete

RegleInterruption

Si BoutonJusteAppuye("Button_Selection")

Alors

JFFTXT_Extend(0,0,0)

YAM_SlotInformation_SB0

YAM_InitMenuPrincipal_SB0

Si (INT_NbSlotValid < > 0)

Alors

INT_ChoixCourant:=3

INT_CurseurX := INT_Curseur_PosX[INT_ChoixCourant]

INT_CurseurY := INT_Curseur_PosY[INT_ChoixCourant]

Finsi

YAM_AfficheMenu_SB0

Temps_AttenteFigee(DES_Temporisation)

ChangeMonComportementReflexe("YAM_GestionMenuStandard")

ChangeMonComportement("YAM_MenuPrincipal")

Finsi

ShowPrivate(0)

FAMILY ALLOCATION MINI-STRUCTURES

3D_Data

Current_Action	Not_Linked	ActionInerte

Initial_Action	Not_Linked	ActionInerte

Object_Table	Not_Linked	"No Object Table"

Object_Table_Init	Not_Linked	"No Object Table"

Current_Frame	Not_Linked	0

Repeat_Anim	Not_Linked	0

Next_Event	Not_Linked	0

Draw_Mask	Not_Linked	4294967295

Shadow_Scale_X	Not_Linked	"1.000"

Shadow_Scale_Y	Not_Linked	"1.000"

Shadow_Material	Not_Linked	"No Material!"

Shadow_Quality	Not_Linked	"Complete calculation"

Shadow_Height	Not_Linked	"0.200"

Crt_Position	Not_Linked	"0.000"	"0.000"	"0.000"

Brain_Computation_Frequency	Not_Linked	1

Light_Computation_Frequency	Not_Linked	1

Standard_Game

Family_Type	Not_Linked	0

Model_Type	Not_Linked	0

Perso_Type	Not_Linked	0

Last_Trame	Not_Linked	0

Hit_Points	Not_Linked	3

Initial_Hit_Points	Not_Linked	3

Hit_Points_Max	Not_Linked	3

Initial_Hit_Points_Max	Not_Linked	3

Hit_Points_Max_Max	Not_Linked	3

Desactivate_At_All	Not_Linked	False

Activable	Not_Linked	True

Active	Not_Linked	False

Flag_Out_of_Zone	Not_Linked	"Out Of Action Zone"

Flag_Dead_or_Taken	Not_Linked	"Out Of Action Zone"

Platform_Type	Not_Linked	None

Traction_Factor	Not_Linked	0

Actor_Capabilities	Not_Linked	0

Transparency_Zone_Min	Not_Linked	70

Transparency_Zone_Max	Not_Linked	80

Too_Far_Limit	Not_Linked	70

CustomBit_1	Not_Linked	False

Initial_CustomBit_1	Not_Linked	False

CustomBit_2	Not_Linked	False

Initial_CustomBit_2	Not_Linked	False

CustomBit_3	Not_Linked	False

Initial_CustomBit_3	Not_Linked	False

CustomBit_4	Not_Linked	False

Initial_CustomBit_4	Not_Linked	False

CustomBit_5	Not_Linked	False

Initial_CustomBit_5	Not_Linked	False

CustomBit_6	Not_Linked	False

Initial_CustomBit_6	Not_Linked	False

CustomBit_7	Not_Linked	False

Initial_CustomBit_7	Not_Linked	False

CustomBit_8	Not_Linked	False

Initial_CustomBit_8	Not_Linked	False

CustomBit_9	Not_Linked	False

Initial_CustomBit_9	Not_Linked	False

CustomBit_10	Not_Linked	False

Initial_CustomBit_10	Not_Linked	False

CustomBit_11	Not_Linked	False

Initial_CustomBit_11	Not_Linked	False

CustomBit_12	Not_Linked	False

Initial_CustomBit_12	Not_Linked	False

CustomBit_13	Not_Linked	False

Initial_CustomBit_13	Not_Linked	False

CustomBit_14	Not_Linked	False

Initial_CustomBit_14	Not_Linked	False

CustomBit_15	Not_Linked	False

Initial_CustomBit_15	Not_Linked	False

CustomBit_16	Not_Linked	False

Initial_CustomBit_16	Not_Linked	False

CustomBit_17	Not_Linked	False

Initial_CustomBit_17	Not_Linked	False

CustomBit_18	Not_Linked	False

Initial_CustomBit_18	Not_Linked	False

CustomBit_19	Not_Linked	False

Initial_CustomBit_19	Not_Linked	False

CustomBit_20	Not_Linked	False

Initial_CustomBit_20	Not_Linked	False

CustomBit_21	Not_Linked	True

Initial_CustomBit_21	Not_Linked	True

CustomBit_22	Not_Linked	False

Initial_CustomBit_22	Not_Linked	False

CustomBit_23	Not_Linked	False

Initial_CustomBit_23	Not_Linked	False

CustomBit_24	Not_Linked	False

Initial_CustomBit_24	Not_Linked	False

CustomBit_25	Not_Linked	False

Initial_CustomBit_25	Not_Linked	False

CustomBit_26	Not_Linked	False

Initial_CustomBit_26	Not_Linked	False

CustomBit_27	Not_Linked	False

Initial_CustomBit_27	Not_Linked	False

CustomBit_28	Not_Linked	False

Initial_CustomBit_28	Not_Linked	False

CustomBit_29	Not_Linked	False

Initial_CustomBit_29	Not_Linked	False

CustomBit_30	Not_Linked	False

Initial_CustomBit_30	Not_Linked	False

CustomBit_31	Not_Linked	False

Initial_CustomBit_31	Not_Linked	False

CustomBit_32	Not_Linked	True

Initial_CustomBit_32	Not_Linked	True

Brain

FastC_Run	Always_Linked	False

FastC_Index	Always_Linked	0

Sect_Info

Current_Sector	Not_Linked	"No Sector!"

YAM_GenMenu

Behav

AIC= 71796

unk= 55.10%

YAM_GenMenu

Reflex

AIC= 7611

unk= 62.33%

YAM_GenMenu

Macro

AIC= 6050

unk= 92.11%

WARNING :

Var not used :

int_choixselection * int_dansmapmonde * int_nblanguages * int_typemessage

WARNING :

Var not used :

itemp * tmp * int_oldnblums

Instanced in map :

menu