Un outil pour créer et maintenir des plateaux de jeux 2D

' demo_generer_monde_pour_jeu_de_plateau.bas

labels()
constantes()
variables()
GenererDefauts()
invisibles()
form0()
saisie1()    : ' saisie d'une cellule
saisie2()    : ' saisie du nombre d'étages
saisie3()    : ' saisie des dimensions des étages
saisie4()    : ' saisie des dimensions des cellules
menus()
MenuDesEtages()

end

sortir:
  sortir()
  return
 
NouveauJeu:
  NouveauJeu()
  return
 
FermerJeu:
  FermerJeu()
  return
 
EnregistrerJeu:
  EnregistrerJeu()
  return
 
EnregistrerJeuSous:
  EnregistrerJeuSous()
  return
 
OuvrirJeu:
  OuvrirJeu()
  return
 
SelectionnerEtage:
  SelectionnerEtage()
  return
 
ClicEtage:
  ClicEtage()
  return
 
Saisie1Abandonner:
  Saisie1Abandonner()
  return

Saisie1Valider:
  Saisie1Valider()
  return
 
KeyEtage:
  KeyEtage()
  return
 
NombreEtages:
  NombreEtages()
  return

Saisie2Abandonner:
  Saisie2Abandonner()
  return

Saisie2Valider:
  Saisie2Valider()
  return
 
DimensionsEtages:
  DimensionsEtages()
  return

Saisie3Abandonner:
  Saisie3Abandonner()
  return

Saisie3Valider:
  Saisie3Valider()
  return

DimensionsCellules:
  DimensionsCellules()
  return

Saisie4Abandonner:
  Saisie4Abandonner()
  return

Saisie4Valider:
  Saisie4Valider()
  return
 
Apropos:
  Apropos()
  return

sub labels()
  label sortir, NouveauJeu, FermerJeu, EnregistrerJeu, EnregistrerJeuSous, OuvrirJeu
  label SelectionnerEtage, ClicEtage, Saisie1Valider, Saisie1Abandonner, KeyEtage, Apropos
  label NombreEtages, Saisie2Valider, Saisie2Abandonner
  label DimensionsEtages, Saisie3Valider, Saisie3Abandonner
  label DimensionsCellules, Saisie4Valider, Saisie4Abandonner
end_sub

sub constantes()
  ' dimensions d'une unité graphique en pixels
  dim defaut_LargeurCellule% : defaut_LargeurCellule% =  20
    dim min_LargeurCellule% :    min_LargeurCellule% =  5
    dim max_LargeurCellule% :    max_LargeurCellule% = 100
  dim defaut_HauteurCellule% : defaut_HauteurCellule% =  20
    dim min_HauteurCellule% :    min_HauteurCellule% =  5
    dim max_HauteurCellule% :    max_HauteurCellule% = 100
  ' dimensions des étages (en nombre de cellules)
  dim defaut_LargeurEtage% : defaut_LargeurEtage% =  50
    dim min_LargeurEtage% :    min_LargeurEtage% =  10
    dim max_LargeurEtage% :    max_LargeurEtage% = 1000
  dim defaut_HauteurEtage% : defaut_HauteurEtage% =  50
    dim min_HauteurEtage% :    min_HauteurEtage% =  10
    dim max_HauteurEtage% :    max_HauteurEtage% = 1000
  ' nombe d'étages superposés
  dim defaut_NombreEtages% : defaut_NombreEtages% =  3
    dim min_NombreEtages% :    min_NombreEtages% =  1
    dim max_NombreEtages% :    max_NombreEtages% = 20
  ' numéro d'objet de base pour les menus des étages (+1, +2, ...)
  dim base_MenuEtage%      : base_MenuEtage% = 1000
  ' numéro d'objet de base pour les grids des étages (+1, +2, ...)
  dim base_GridEtage%      : base_GridEtage% = 2000
  ' numéro d'objet de la fenêtre de saisie d'une cellule
  dim no_SaisieCellule%    : no_SaisieCellule% = 3000
  ' numéro d'objet de la fenêtre de saisie du nombre d'étages
  dim no_SaisieNombreEtages%    : no_SaisieNombreEtages% = 3100
  ' numéro d'objet de la fenêtre de saisie des dimsions des étages
  dim no_SaisieDimensionsEtages% : no_SaisieDimensionsEtages% = 3200
  ' numéro d'objet de la fenêtre de saisie des dimsions des cellules
  dim no_SaisieDimensionsCellules% : no_SaisieDimensionsCellules% = 3300
end_sub

sub variables()
  ' variables techniques
  dim no%, no_OpenDialog%, no_SaveDialog%, no_parent_menu_etages%
 
  ' variables de gestion
  dim JeuEnCours%          : ' flag 1=la définition d'un jeu est en cours
  dim NomDuJeu$            : ' le nom du jeu
  dim DossierDuJeu$        : ' le dossier dans lequel je jeu réside
  dim EtageSelectionne%    : ' numéro de l'étage sélectionné
  dim CodeActif$          : ' dernier code saisie pour une cellule
  dim LigneActive%        : '  et son numéro de ligne
  dim ColonneActive%      : '  et son numéro de colonne

  ' variables à initialiser avec des valeurs par défaut
  dim LargeurCellule%      : ' dimensions actuelles des cellules graphiques en pixels
  dim HauteurCellule%
  dim LargeurEtage%        : ' dimensions actuelles des étages en nombre de cellules
  dim HauteurEtage%
  dim NombreEtages%        : ' nombre actuel des étages
end_sub

sub invisibles()
  no% = no% + 1 : open_dialog no% : no_OpenDialog% = no%
  no% = no% + 1 : save_dialog no% : no_SaveDialog% = no%
end_sub

sub form0()
  full_space 0
  AfficherCaption()
end_sub

sub menus()
  dim_local no1%, no2%
  no% = no% + 1 : main_menu no% : no1% = no%
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Jeux"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau"              : on_click no%,NouveauJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..."            : on_click no%,OuvrirJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer"          : on_click no%,EnregistrerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..."  : on_click no%,EnregistrerJeuSous
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Fermer"                : on_click no%,FermerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir"                : on_click no%,sortir
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Edition" : no_parent_menu_etages% = no%
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des cellules"  : on_click no%,DimensionsCellules
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des étages" : on_click no%,DimensionsEtages
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nombre d'étages"      : on_click no%,NombreEtages
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Aide"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"A propos"              : on_click no%,Apropos
end_sub



sub NouveauJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 1
  GenererDefauts()
  MenuDesEtages()
  NomDuJeu$ = ""
  AfficherCaption()
  DossierDuJeu$ = dir_current$
end_sub

sub FermerJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  AfficherCaption()
end_sub

sub Sortir()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  terminate
end_sub

sub GenererDefauts()
  LargeurCellule%  = defaut_LargeurCellule%
  HauteurCellule%  = defaut_HauteurCellule%
  LargeurEtage%    = defaut_LargeurEtage%
  HauteurEtage%    = defaut_HauteurEtage%
  NombreEtages%    = defaut_NombreEtages%
  EtageSelectionne% = 1
  CodeActif$ = ""
  GenererEtages()
end_sub

sub GenererEtages()
  dim_local i%, ne%
  for i%=1 to NombreEtages%
    ne% = base_GridEtage% + i%
    if object_exists(ne%)=1
      grid_row ne%,HauteurEtage%+1 : grid_column ne%,LargeurEtage%+1
      grid_column_width ne%,12 : grid_row_height ne%,12
      grid_clear ne%,HauteurEtage%+1,LargeurEtage%+1
    else
      grid ne% : '
      full_space ne% : '
      hide ne% : '
      on_click ne%,ClicEtage : '
      on_key_down ne%,KeyEtage
        grid_row ne%,HauteurEtage%+1 : grid_column ne%,LargeurEtage%+1
        grid_column_width ne%,12 : grid_row_height ne%,12
    end_if
  next i%
  ne% = base_GridEtage% + NombreEtages% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  show base_GridEtage%+EtageSelectionne%
end_sub

sub EnregistrerJeu()
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  if NomDuJeu$=""
    message "Utiliser <Enregistrer sous...>."
    exit_sub
  end_if
  EnregistrerInterne()
end_sub

sub EnregistrerJeuSous()
  dim_local f$, p$, n$, e$
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  filter no_SaveDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_SaveDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=1
    if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
  end_if
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  EnregistrerInterne()
  end_sub
 
sub EnregistrerInterne()
  dim_local i%, il%, ic%, f$
  ' enregister le jeu
  f$ = DossierDuJeu$ + NomDuJeu$ + ".pjp"
  if file_exists(f$)=1 then file_delete f$
  file_open_write 1,f$
  file_writeln 1,"Jeu Plateau"
  file_writeln 1,NomDuJeu$
  file_writeln 1,str$(LargeurCellule%)
  file_writeln 1,str$(HauteurCellule%)
  file_writeln 1,str$(LargeurEtage%)
  file_writeln 1,str$(HauteurEtage%)
  file_writeln 1,str$(NombreEtages%)
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_writeln 1,"Etage "+str$(i%)
    for il%=1 to HauteurEtage%+1
      for ic%=1 to LargeurEtage%+1
        file_writeln 1,grid_read$(base_GridEtage%+i%,il%,ic%)
      next ic%
    next il%
  next i%
  file_writeln 1,"Fin"
  file_close 1
  message "Sauvegarde effectuée."
end_sub

sub OuvrirJeu()
  dim_local f$, p$, n$, e$, s$, v%, i%, il%, ic%
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  filter no_OpenDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_OpenDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=0
    message "Ce fichier est introuvable."
    exit_sub
  end_if
  ' charger le jeu
  file_open_read 1,f$
  ' --- entête du fichier
  file_readln 1,s$
  if s$<>"Jeu Plateau"
    message "Ce n'est pas une sauvegarde d'un projet de jeu."
    file_close 1
    exit_sub
  end_if
  ' --- nom du jeu
  file_readln 1,s$
  if s$<>n$
    message "Le nom du jeu ne correspond pas au fichier."
    file_close 1
    exit_sub
  end_if
  JeuEnCours% = 0
  ' --- largeur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurCellule%) or (v%>max_LargeurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurCellule% = v%
  ' --- hauteur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurCellule%) or (v%>max_HauteurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurCellule% = v%
  ' --- largeur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurEtage%) or (v%>max_LargeurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurEtage% = v%
  ' --- hauteur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurEtage%) or (v%>max_HauteurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurEtage% = v%
  ' --- nombre d'étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_NombreEtages%) or (v%>max_NombreEtages%)
    JeuCorrompu()
    exit_sub
  end_if
  NombreEtages% = v%
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_readln 1,s$
    if s$<>"Etage "+str$(i%)
      JeuCorrompu()
      exit_sub
    end_if
    for il%=1 to HauteurEtage%+1
      for ic%=1 to LargeurEtage%+1
        file_readln 1,s$
        grid_write base_GridEtage%+i%,il%,ic%,s$
      next ic%
    next il%
  next i%
  file_readln 1,s$
  if s$<>"Fin"
    JeuCorrompu()
    exit_sub
  end_if
  file_close 1
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  MenuDesEtages()
  JeuEnCours% = 1
end_sub

sub JeuCorrompu()
  message "Le projet de jeu est corrompu."
  file_close 1
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  GenererDefauts()
  AfficherCaption()
  MenuDesEtages()
end_sub

sub AfficherCaption()
  if NomDuJeu$=""
    caption 0,"Création de Jeu - <Nouveau>  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  else
    caption 0,"Création de Jeu - <"+NomDuJeu$+">  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  end_if
end_sub

sub MenuDesEtages()
  dim_local ne%, i%
  ne% = base_MenuEtage% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  for i%=1 to NombreEtages%
    ne% = base_MenuEtage% + i%
    sub_menu ne% : parent ne%,no_parent_menu_etages% : caption ne%,"Etage "+str$(i%) : on_click ne%,SelectionnerEtage
  next i%
  mark_on base_MenuEtage%+EtageSelectionne%
end_sub

sub SelectionnerEtage()
  mark_off base_MenuEtage%+EtageSelectionne%
  hide base_GridEtage%+EtageSelectionne%
  EtageSelectionne% = number_click - base_MenuEtage%
  mark_on base_MenuEtage%+EtageSelectionne%
  show base_GridEtage%+EtageSelectionne%
  AfficherCaption()
end_sub

sub ClicEtage()
  dim_local ne%, x%, y%, l%, c%
  if JeuEnCours%=0 then exit_sub
  ne% = number_click
  x% = mouse_x_left_down(ne%)
  y% = mouse_y_left_down(ne%)
  c% = grid_x_to_column(ne%,x%)
  l% = grid_y_to_row(ne%,y%)
  position no_SaisieCellule%+21,ne%-base_GridEtage%
  position no_SaisieCellule%+22,l%
  position no_SaisieCellule%+23,c%
  text no_SaisieCellule%+24,grid_read$(ne%,l%,c%)
  inactive 0
  show no_SaisieCellule%
  set_focus no_SaisieCellule%+24
  LigneActive% = 0
  ColonneActive% = 0
end_sub

sub saisie1()
  dim_local no%
  no% = no_SaisieCellule%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,20 : left no%,20 : caption no%,"Etage:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,50 : left no%,20 : caption no%,"Ligne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,80 : left no%,20 : caption no%,"Colonne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,110 : left no%,20 : caption no%,"Contenu:"
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie1Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie1Abandonner
  no% = no_SaisieCellule% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+21
    top no%,20 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+22
    top no%,50 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+23
    top no%,80 : left no%,120 : max no%,20000
  no% = no% + 1 : edit no% : parent no%,no_SaisieCellule% : width no%,60                : ' no_SaisieCellule%+24
    top no%,110 : left no%,120
end_sub

sub Saisie1Valider()
  CodeActif$    = text$(no_SaisieCellule%+24)
  LigneActive%  = position(no_SaisieCellule%+22)
  ColonneActive% = position(no_SaisieCellule%+23)
  grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
  hide no_SaisieCellule%
  active 0
end_sub

sub Saisie1Abandonner()
  hide no_SaisieCellule%
  active 0
end_sub

sub saisie2()
  dim_local no%
  no% = no_SaisieNombreEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieNombreEtages%
    top no%,20 : left no%,20 : caption no%,"Nombre d'étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie2Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie2Abandonner
  no% = no_SaisieNombreEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieNombreEtages% : width no%,60 : ' no_SaisieNombreEtages%+21
    top no%,20 : left no%,120 : min no%,1 : max no%,100
end_sub

sub KeyEtage()
  dim_local ne%, x%, y%, l%, c%
  if JeuEnCours%=0 then exit_sub
  if LigneActive%=0 then exit_sub
  select scancode
    case 37: ' flèche à gauche
      if ColonneActive%=2 then exit_sub
      ColonneActive% = ColonneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 38: ' flèche en haut
      if LigneActive%=2 then Exit_sub
      LigneActive% = LigneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 39: ' flèche à droite
      if ColonneActive%=LargeurEtage%+1 then exit_sub
      ColonneActive% = ColonneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 40: ' flèche en bas
      if LigneActive%=HauteurEtage%+1 then Exit_sub
      LigneActive% = LigneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
  end_select
end_sub

sub NombreEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieNombreEtages%+21,NombreEtages%
  show no_SaisieNombreEtages%
  set_focus no_SaisieNombreEtages%+21
end_sub

sub Saisie2Valider()
  dim_local n%
  n% = position(no_SaisieNombreEtages%+21)
  if n%<NombreEtages%
    if message_confirmation_yes_no("Vous allez perdre des étages. Continuer ?")<>1 then exit_sub
  end_if
  NombreEtages% = n%
  GenererEtages()
  MenuDesEtages()
  hide no_SaisieNombreEtages%
  active 0
end_sub

sub Saisie2Abandonner()
  hide no_SaisieNombreEtages%
  active 0
end_sub

sub saisie3()
  dim_local no%
  no% = no_SaisieDimensionsEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie3Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie3Abandonner
  no% = no_SaisieDimensionsEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+21
    top no%,20 : left no%,130 : min no%,min_LargeurEtage% : max no%,max_LargeurEtage%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+22
    top no%,50 : left no%,130 : min no%,min_HauteurEtage% : max no%,max_HauteurEtage%
end_sub

sub DimensionsEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsEtages%+21,LargeurEtage%
  position no_SaisieDimensionsEtages%+22,HauteurEtage%
  show no_SaisieDimensionsEtages%
  set_focus no_SaisieDimensionsEtages%+21
end_sub

sub Saisie3Valider()
  LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
  HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  if JeuEnCours%=0
    defaut_LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
    defaut_HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  end_if
  GenererEtages()
  hide no_SaisieDimensionsEtages%
  active 0
end_sub

sub Saisie3Abandonner()
  hide no_SaisieDimensionsEtages%
  active 0
end_sub

sub saisie4()
  dim_local no%
  no% = no_SaisieDimensionsCellules%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie4Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie4Abandonner
  no% = no_SaisieDimensionsCellules% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+21
    top no%,20 : left no%,130 : min no%,min_LargeurCellule% : max no%,max_LargeurCellule%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+22
    top no%,50 : left no%,130 : min no%,min_HauteurCellule% : max no%,max_HauteurCellule%
end_sub

sub DimensionsCellules()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsCellules%+21,LargeurCellule%
  position no_SaisieDimensionsCellules%+22,HauteurCellule%
  show no_SaisieDimensionsCellules%
  set_focus no_SaisieDimensionsCellules%+21
end_sub

sub Saisie4Valider()
  if JeuEnCours%=0
    defaut_LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
    defaut_HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  end_if
  LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
  HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  hide no_SaisieDimensionsCellules%
  active 0
end_sub

sub Saisie4Abandonner()
  hide no_SaisieDimensionsCellules%
  active 0
end_sub

sub Apropos()
  dim_local s$, crlf$
  crlf$ = chr$(13) + chr$(10)
  s$ = "Génération d'un monde 2D"+crlf$+crlf$
  s$ = s$ + "Version: 1.00"+crlf$+crlf$
  s$ = s$ + "Auteur: Klaus"+crlf$+crlf$
  s$ = s$ + "Créé le: 12/02/2017"
  message s$
end_sub

' demo_generer_monde_pour_jeu_de_plateau.bas

labels()
constantes()
variables()
GenererDefauts()
invisibles()
form0()
saisie1()    : ' saisie d'une cellule
saisie2()    : ' saisie du nombre d'étages
saisie3()    : ' saisie des dimensions des étages
saisie4()    : ' saisie des dimensions des cellules
menus()
MenuDesEtages()

end

sortir:
  sortir()
  return
 
NouveauJeu:
  NouveauJeu()
  return
 
FermerJeu:
  FermerJeu()
  return
 
EnregistrerJeu:
  EnregistrerJeu()
  return
 
EnregistrerJeuSous:
  EnregistrerJeuSous()
  return
 
OuvrirJeu:
  OuvrirJeu()
  return
 
SelectionnerEtage:
  SelectionnerEtage()
  return
 
ClicEtage:
  ClicEtage()
  return
 
Saisie1Abandonner:
  Saisie1Abandonner()
  return

Saisie1Valider:
  Saisie1Valider()
  return
 
KeyEtage:
  KeyEtage()
  return
 
NombreEtages:
  NombreEtages()
  return

Saisie2Abandonner:
  Saisie2Abandonner()
  return

Saisie2Valider:
  Saisie2Valider()
  return
 
DimensionsEtages:
  DimensionsEtages()
  return

Saisie3Abandonner:
  Saisie3Abandonner()
  return

Saisie3Valider:
  Saisie3Valider()
  return

DimensionsCellules:
  DimensionsCellules()
  return

Saisie4Abandonner:
  Saisie4Abandonner()
  return

Saisie4Valider:
  Saisie4Valider()
  return
 
Apropos:
  Apropos()
  return

sub labels()
  label sortir, NouveauJeu, FermerJeu, EnregistrerJeu, EnregistrerJeuSous, OuvrirJeu
  label SelectionnerEtage, ClicEtage, Saisie1Valider, Saisie1Abandonner, KeyEtage, Apropos
  label NombreEtages, Saisie2Valider, Saisie2Abandonner
  label DimensionsEtages, Saisie3Valider, Saisie3Abandonner
  label DimensionsCellules, Saisie4Valider, Saisie4Abandonner
end_sub

sub constantes()
  ' dimensions d'une unité graphique en pixels
  dim defaut_LargeurCellule% : defaut_LargeurCellule% =  20
    dim min_LargeurCellule% :    min_LargeurCellule% =  5
    dim max_LargeurCellule% :    max_LargeurCellule% = 100
  dim defaut_HauteurCellule% : defaut_HauteurCellule% =  20
    dim min_HauteurCellule% :    min_HauteurCellule% =  5
    dim max_HauteurCellule% :    max_HauteurCellule% = 100
  ' dimensions des étages (en nombre de cellules)
  dim defaut_LargeurEtage% : defaut_LargeurEtage% =  50
    dim min_LargeurEtage% :    min_LargeurEtage% =  10
    dim max_LargeurEtage% :    max_LargeurEtage% = 1000
  dim defaut_HauteurEtage% : defaut_HauteurEtage% =  50
    dim min_HauteurEtage% :    min_HauteurEtage% =  10
    dim max_HauteurEtage% :    max_HauteurEtage% = 1000
  ' nombe d'étages superposés
  dim defaut_NombreEtages% : defaut_NombreEtages% =  3
    dim min_NombreEtages% :    min_NombreEtages% =  1
    dim max_NombreEtages% :    max_NombreEtages% = 20
  ' numéro d'objet de base pour les menus des étages (+1, +2, ...)
  dim base_MenuEtage%      : base_MenuEtage% = 1000
  ' numéro d'objet de base pour les grids des étages (+1, +2, ...)
  dim base_GridEtage%      : base_GridEtage% = 2000
  ' numéro d'objet de la fenêtre de saisie d'une cellule
  dim no_SaisieCellule%    : no_SaisieCellule% = 3000
  ' numéro d'objet de la fenêtre de saisie du nombre d'étages
  dim no_SaisieNombreEtages%    : no_SaisieNombreEtages% = 3100
  ' numéro d'objet de la fenêtre de saisie des dimsions des étages
  dim no_SaisieDimensionsEtages% : no_SaisieDimensionsEtages% = 3200
  ' numéro d'objet de la fenêtre de saisie des dimsions des cellules
  dim no_SaisieDimensionsCellules% : no_SaisieDimensionsCellules% = 3300
end_sub

sub variables()
  ' variables techniques
  dim no%, no_OpenDialog%, no_SaveDialog%, no_parent_menu_etages%
 
  ' variables de gestion
  dim JeuEnCours%          : ' flag 1=la définition d'un jeu est en cours
  dim NomDuJeu$            : ' le nom du jeu
  dim DossierDuJeu$        : ' le dossier dans lequel je jeu réside
  dim EtageSelectionne%    : ' numéro de l'étage sélectionné
  dim CodeActif$          : ' dernier code saisie pour une cellule
  dim LigneActive%        : '  et son numéro de ligne
  dim ColonneActive%      : '  et son numéro de colonne

  ' variables à initialiser avec des valeurs par défaut
  dim LargeurCellule%      : ' dimensions actuelles des cellules graphiques en pixels
  dim HauteurCellule%
  dim LargeurEtage%        : ' dimensions actuelles des étages en nombre de cellules
  dim HauteurEtage%
  dim NombreEtages%        : ' nombre actuel des étages
end_sub

sub invisibles()
  no% = no% + 1 : open_dialog no% : no_OpenDialog% = no%
  no% = no% + 1 : save_dialog no% : no_SaveDialog% = no%
end_sub

sub form0()
  full_space 0
  AfficherCaption()
end_sub

sub menus()
  dim_local no1%, no2%
  no% = no% + 1 : main_menu no% : no1% = no%
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Jeux"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau"              : on_click no%,NouveauJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..."            : on_click no%,OuvrirJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer"          : on_click no%,EnregistrerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..."  : on_click no%,EnregistrerJeuSous
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Fermer"                : on_click no%,FermerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir"                : on_click no%,sortir
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Edition" : no_parent_menu_etages% = no%
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des cellules"  : on_click no%,DimensionsCellules
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des étages" : on_click no%,DimensionsEtages
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nombre d'étages"      : on_click no%,NombreEtages
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Aide"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"A propos"              : on_click no%,Apropos
end_sub



sub NouveauJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 1
  GenererDefauts()
  MenuDesEtages()
  NomDuJeu$ = ""
  AfficherCaption()
  DossierDuJeu$ = dir_current$
end_sub

sub FermerJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  AfficherCaption()
end_sub

sub Sortir()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  terminate
end_sub

sub GenererDefauts()
  LargeurCellule%  = defaut_LargeurCellule%
  HauteurCellule%  = defaut_HauteurCellule%
  LargeurEtage%    = defaut_LargeurEtage%
  HauteurEtage%    = defaut_HauteurEtage%
  NombreEtages%    = defaut_NombreEtages%
  EtageSelectionne% = 1
  CodeActif$ = ""
  GenererEtages(1)
end_sub

sub GenererEtages(vider%)
  dim_local i%, ne%
  for i%=1 to NombreEtages%
    ne% = base_GridEtage% + i%
    if object_exists(ne%)=1
      grid_row ne%,HauteurEtage%+1 : grid_column ne%,LargeurEtage%
      grid_column_width ne%,12 : grid_row_height ne%,12
      if vider%=1 then grid_clear ne%,HauteurEtage%+1,LargeurEtage%
    else
      grid ne% : full_space ne% : hide ne%
        grid_row ne%,HauteurEtage% : grid_column ne%,LargeurEtage%
        grid_row_fixed ne%,0 : grid_column_fixed ne%,0
        grid_column_width ne%,12 : grid_row_height ne%,12
        on_click ne%,ClicEtage : on_key_down ne%,KeyEtage
    end_if
  next i%
  ne% = base_GridEtage% + NombreEtages% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  show base_GridEtage%+EtageSelectionne%
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub EnregistrerJeu()
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  if NomDuJeu$=""
    message "Utiliser <Enregistrer sous...>."
    exit_sub
  end_if
  EnregistrerInterne()
end_sub

sub EnregistrerJeuSous()
  dim_local f$, p$, n$, e$
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  filter no_SaveDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_SaveDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=1
    if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
  end_if
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  EnregistrerInterne()
  end_sub
 
sub EnregistrerInterne()
  dim_local i%, il%, ic%, f$
  ' enregister le jeu
  f$ = DossierDuJeu$ + NomDuJeu$ + ".pjp"
  if file_exists(f$)=1 then file_delete f$
  file_open_write 1,f$
  file_writeln 1,"Jeu Plateau"
  file_writeln 1,NomDuJeu$
  file_writeln 1,str$(LargeurCellule%)
  file_writeln 1,str$(HauteurCellule%)
  file_writeln 1,str$(LargeurEtage%)
  file_writeln 1,str$(HauteurEtage%)
  file_writeln 1,str$(NombreEtages%)
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_writeln 1,"Etage "+str$(i%)
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_writeln 1,grid_read$(base_GridEtage%+i%,il%,ic%)
      next ic%
    next il%
  next i%
  file_writeln 1,"Fin"
  file_close 1
  message "Sauvegarde effectuée."
end_sub

sub OuvrirJeu()
  dim_local f$, p$, n$, e$, s$, v%, i%, il%, ic%
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  filter no_OpenDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_OpenDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=0
    message "Ce fichier est introuvable."
    exit_sub
  end_if
  ' charger le jeu
  file_open_read 1,f$
  ' --- entête du fichier
  file_readln 1,s$
  if s$<>"Jeu Plateau"
    message "Ce n'est pas une sauvegarde d'un projet de jeu."
    file_close 1
    exit_sub
  end_if
  ' --- nom du jeu
  file_readln 1,s$
  if s$<>n$
    message "Le nom du jeu ne correspond pas au fichier."
    file_close 1
    exit_sub
  end_if
  JeuEnCours% = 0
  ' --- largeur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurCellule%) or (v%>max_LargeurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurCellule% = v%
  ' --- hauteur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurCellule%) or (v%>max_HauteurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurCellule% = v%
  ' --- largeur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurEtage%) or (v%>max_LargeurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurEtage% = v%
  ' --- hauteur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurEtage%) or (v%>max_HauteurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurEtage% = v%
  ' --- nombre d'étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_NombreEtages%) or (v%>max_NombreEtages%)
    JeuCorrompu()
    exit_sub
  end_if
  NombreEtages% = v%
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_readln 1,s$
    if s$<>"Etage "+str$(i%)
      JeuCorrompu()
      exit_sub
    end_if
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_readln 1,s$
        grid_write base_GridEtage%+i%,il%,ic%,s$
      next ic%
    next il%
  next i%
  file_readln 1,s$
  if s$<>"Fin"
    JeuCorrompu()
    exit_sub
  end_if
  file_close 1
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  GenererEtages(0)
  MenuDesEtages()
  JeuEnCours% = 1
end_sub

sub JeuCorrompu()
  message "Le projet de jeu est corrompu."
  file_close 1
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  GenererDefauts()
  AfficherCaption()
  MenuDesEtages()
end_sub

sub AfficherCaption()
  if NomDuJeu$=""
    caption 0,"Création de Jeu - <Nouveau>  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  else
    caption 0,"Création de Jeu - <"+NomDuJeu$+">  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  end_if
end_sub

sub MenuDesEtages()
  dim_local ne%, i%
  ne% = base_MenuEtage% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  for i%=1 to NombreEtages%
    ne% = base_MenuEtage% + i%
    sub_menu ne% : parent ne%,no_parent_menu_etages% : caption ne%,"Etage "+str$(i%) : on_click ne%,SelectionnerEtage
  next i%
  mark_on base_MenuEtage%+EtageSelectionne%
end_sub

sub SelectionnerEtage()
  mark_off base_MenuEtage%+EtageSelectionne%
  hide base_GridEtage%+EtageSelectionne%
  EtageSelectionne% = number_click - base_MenuEtage%
  mark_on base_MenuEtage%+EtageSelectionne%
  show base_GridEtage%+EtageSelectionne%
  set_focus base_GridEtage%+EtageSelectionne%
  AfficherCaption()
end_sub

sub saisie1()
  dim_local no%
  no% = no_SaisieCellule%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,20 : left no%,20 : caption no%,"Etage:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,50 : left no%,20 : caption no%,"Ligne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,80 : left no%,20 : caption no%,"Colonne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,110 : left no%,20 : caption no%,"Contenu:"
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie1Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie1Abandonner
  no% = no_SaisieCellule% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+21
    top no%,20 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+22
    top no%,50 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+23
    top no%,80 : left no%,120 : max no%,20000
  no% = no% + 1 : edit no% : parent no%,no_SaisieCellule% : width no%,60                : ' no_SaisieCellule%+24
    top no%,110 : left no%,120
end_sub

sub ClicEtage()
  dim_local ne%, x%, y%, l%, c%
  if JeuEnCours%=0 then exit_sub
  ne% = number_click
  x% = mouse_x_left_down(ne%)
  y% = mouse_y_left_down(ne%)
  c% = grid_x_to_column(ne%,x%)
  l% = grid_y_to_row(ne%,y%)
  position no_SaisieCellule%+21,ne%-base_GridEtage%
  position no_SaisieCellule%+22,l%
  position no_SaisieCellule%+23,c%
  text no_SaisieCellule%+24,grid_read$(ne%,l%,c%)
  inactive 0
  show no_SaisieCellule%
  set_focus no_SaisieCellule%+24
  LigneActive% = l%
  ColonneActive% = c%
end_sub

sub Saisie1Valider()
  CodeActif$    = text$(no_SaisieCellule%+24)
  LigneActive%  = position(no_SaisieCellule%+22)
  ColonneActive% = position(no_SaisieCellule%+23)
  grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie1Abandonner()
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie2()
  dim_local no%
  no% = no_SaisieNombreEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieNombreEtages%
    top no%,20 : left no%,20 : caption no%,"Nombre d'étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie2Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie2Abandonner
  no% = no_SaisieNombreEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieNombreEtages% : width no%,60 : ' no_SaisieNombreEtages%+21
    top no%,20 : left no%,120 : min no%,1 : max no%,100
end_sub

sub KeyEtage()
  dim_local ne%, x%, y%, l%, c%
  if JeuEnCours%=0 then exit_sub
  if LigneActive%=0 then exit_sub
  select scancode
    case 37: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 100: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 38: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 104: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 39: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 102: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 40: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 98: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
  end_select
end_sub

sub NombreEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieNombreEtages%+21,NombreEtages%
  show no_SaisieNombreEtages%
  set_focus no_SaisieNombreEtages%+21
end_sub

sub Saisie2Valider()
  dim_local n%
  n% = position(no_SaisieNombreEtages%+21)
  if n%<NombreEtages%
    if message_confirmation_yes_no("Vous allez perdre des étages. Continuer ?")<>1 then exit_sub
  end_if
  NombreEtages% = n%
  GenererEtages(0)
  MenuDesEtages()
  hide no_SaisieNombreEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie2Abandonner()
  hide no_SaisieNombreEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie3()
  dim_local no%
  no% = no_SaisieDimensionsEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie3Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie3Abandonner
  no% = no_SaisieDimensionsEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+21
    top no%,20 : left no%,130 : min no%,min_LargeurEtage% : max no%,max_LargeurEtage%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+22
    top no%,50 : left no%,130 : min no%,min_HauteurEtage% : max no%,max_HauteurEtage%
end_sub

sub DimensionsEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsEtages%+21,LargeurEtage%
  position no_SaisieDimensionsEtages%+22,HauteurEtage%
  show no_SaisieDimensionsEtages%
  set_focus no_SaisieDimensionsEtages%+21
end_sub

sub Saisie3Valider()
  LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
  HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  if JeuEnCours%=0
    defaut_LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
    defaut_HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  end_if
  GenererEtages(0)
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie3Abandonner()
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie4()
  dim_local no%
  no% = no_SaisieDimensionsCellules%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie4Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie4Abandonner
  no% = no_SaisieDimensionsCellules% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+21
    top no%,20 : left no%,130 : min no%,min_LargeurCellule% : max no%,max_LargeurCellule%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+22
    top no%,50 : left no%,130 : min no%,min_HauteurCellule% : max no%,max_HauteurCellule%
end_sub

sub DimensionsCellules()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsCellules%+21,LargeurCellule%
  position no_SaisieDimensionsCellules%+22,HauteurCellule%
  show no_SaisieDimensionsCellules%
  set_focus no_SaisieDimensionsCellules%+21
end_sub

sub Saisie4Valider()
  if JeuEnCours%=0
    defaut_LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
    defaut_HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  end_if
  LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
  HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie4Abandonner()
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Apropos()
  dim_local s$, crlf$
  crlf$ = chr$(13) + chr$(10)
  s$ = "Génération d'un monde 2D"+crlf$+crlf$
  s$ = s$ + "Version: 1.00"+crlf$+crlf$
  s$ = s$ + "Auteur: Klaus"+crlf$+crlf$
  s$ = s$ + "Créé le: 12/02/2017"
  message s$
end_sub

label clic, key, ukey

full_space 0
grid 1 : full_space 1 : grid_row 1,30 : grid_column 1,50
grid_row_height 1,12 : grid_column_width 1,12
 on_click 1,clic
 on_key_down 1,key
 on_key_up 1,ukey
set_focus 1
end

clic:
  caption 0,"clic "+str$(mouse_x_left_down(1))+","+str$(mouse_y_left_down(1))
return

key:
  off_click 1
  caption 0,"key "+str$(scancode)
'  on_click 1,clic
return

ukey:
  on_click 1,clic
return

sub Saisie1Valider()
  dim_local s$ : ' <========= variable bidon
  CodeActif$    = text$(no_SaisieCellule%+24)
  LigneActive%  = position(no_SaisieCellule%+22)
  ColonneActive% = position(no_SaisieCellule%+23)
  grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
  s$ = "write scan="+str$(scancode) : ' <========= bidon, juste pour contourner le bug !
end_sub

' demo_generer_monde_pour_jeu_de_plateau.bas

labels()
constantes()
variables()
GenererDefauts()
invisibles()
form0()
saisie1()    : ' saisie d'une cellule
saisie2()    : ' saisie du nombre d'étages
saisie3()    : ' saisie des dimensions des étages
saisie4()    : ' saisie des dimensions des cellules
menus()
MenuDesEtages()

end

sortir:
  sortir()
  return
 
NouveauJeu:
  NouveauJeu()
  return
 
FermerJeu:
  FermerJeu()
  return
 
EnregistrerJeu:
  EnregistrerJeu()
  return
 
EnregistrerJeuSous:
  EnregistrerJeuSous()
  return
 
OuvrirJeu:
  OuvrirJeu()
  return
 
SelectionnerEtage:
  SelectionnerEtage()
  return
 
ClicEtage:
  ClicEtage()
  return
 
Saisie1Abandonner:
  Saisie1Abandonner()
  return

Saisie1Valider:
  Saisie1Valider()
  return
 
KeyEtage:
  KeyEtage()
  return

KeyUpEtage:
  KeyUpEtage()
  return
 
NombreEtages:
  NombreEtages()
  return

Saisie2Abandonner:
  Saisie2Abandonner()
  return

Saisie2Valider:
  Saisie2Valider()
  return
 
DimensionsEtages:
  DimensionsEtages()
  return

Saisie3Abandonner:
  Saisie3Abandonner()
  return

Saisie3Valider:
  Saisie3Valider()
  return

DimensionsCellules:
  DimensionsCellules()
  return

Saisie4Abandonner:
  Saisie4Abandonner()
  return

Saisie4Valider:
  Saisie4Valider()
  return
 
Apropos:
  Apropos()
  return

sub labels()
  label sortir, NouveauJeu, FermerJeu, EnregistrerJeu, EnregistrerJeuSous, OuvrirJeu
  label SelectionnerEtage, ClicEtage, Saisie1Valider, Saisie1Abandonner, KeyEtage, Apropos
  label KeyUpEtage
  label NombreEtages, Saisie2Valider, Saisie2Abandonner
  label DimensionsEtages, Saisie3Valider, Saisie3Abandonner
  label DimensionsCellules, Saisie4Valider, Saisie4Abandonner
end_sub

sub constantes()
  ' dimensions d'une unité graphique en pixels
  dim defaut_LargeurCellule% : defaut_LargeurCellule% =  20
    dim min_LargeurCellule% :    min_LargeurCellule% =  5
    dim max_LargeurCellule% :    max_LargeurCellule% = 100
  dim defaut_HauteurCellule% : defaut_HauteurCellule% =  20
    dim min_HauteurCellule% :    min_HauteurCellule% =  5
    dim max_HauteurCellule% :    max_HauteurCellule% = 100
  ' dimensions des étages (en nombre de cellules)
  dim defaut_LargeurEtage% : defaut_LargeurEtage% =  50
    dim min_LargeurEtage% :    min_LargeurEtage% =  10
    dim max_LargeurEtage% :    max_LargeurEtage% = 1000
  dim defaut_HauteurEtage% : defaut_HauteurEtage% =  50
    dim min_HauteurEtage% :    min_HauteurEtage% =  10
    dim max_HauteurEtage% :    max_HauteurEtage% = 1000
  ' nombe d'étages superposés
  dim defaut_NombreEtages% : defaut_NombreEtages% =  3
    dim min_NombreEtages% :    min_NombreEtages% =  1
    dim max_NombreEtages% :    max_NombreEtages% = 20
  ' numéro d'objet de base pour les menus des étages (+1, +2, ...)
  dim base_MenuEtage%      : base_MenuEtage% = 1000
  ' numéro d'objet de base pour les grids des étages (+1, +2, ...)
  dim base_GridEtage%      : base_GridEtage% = 2000
  ' numéro d'objet de la fenêtre de saisie d'une cellule
  dim no_SaisieCellule%    : no_SaisieCellule% = 3000
  ' numéro d'objet de la fenêtre de saisie du nombre d'étages
  dim no_SaisieNombreEtages%    : no_SaisieNombreEtages% = 3100
  ' numéro d'objet de la fenêtre de saisie des dimsions des étages
  dim no_SaisieDimensionsEtages% : no_SaisieDimensionsEtages% = 3200
  ' numéro d'objet de la fenêtre de saisie des dimsions des cellules
  dim no_SaisieDimensionsCellules% : no_SaisieDimensionsCellules% = 3300
end_sub

sub variables()
  ' variables techniques
  dim no%, no_OpenDialog%, no_SaveDialog%, no_parent_menu_etages%
 
  ' variables de gestion
  dim JeuEnCours%          : ' flag 1=la définition d'un jeu est en cours
  dim NomDuJeu$            : ' le nom du jeu
  dim DossierDuJeu$        : ' le dossier dans lequel je jeu réside
  dim EtageSelectionne%    : ' numéro de l'étage sélectionné
  dim CodeActif$          : ' dernier code saisie pour une cellule
  dim LigneActive%        : '  et son numéro de ligne
  dim ColonneActive%      : '  et son numéro de colonne

  ' variables à initialiser avec des valeurs par défaut
  dim LargeurCellule%      : ' dimensions actuelles des cellules graphiques en pixels
  dim HauteurCellule%
  dim LargeurEtage%        : ' dimensions actuelles des étages en nombre de cellules
  dim HauteurEtage%
  dim NombreEtages%        : ' nombre actuel des étages
end_sub

sub invisibles()
  no% = no% + 1 : open_dialog no% : no_OpenDialog% = no%
  no% = no% + 1 : save_dialog no% : no_SaveDialog% = no%
end_sub

sub form0()
  full_space 0
  AfficherCaption()
end_sub

sub menus()
  dim_local no1%, no2%
  no% = no% + 1 : main_menu no% : no1% = no%
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Jeux"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau"              : on_click no%,NouveauJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..."            : on_click no%,OuvrirJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer"          : on_click no%,EnregistrerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..."  : on_click no%,EnregistrerJeuSous
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Fermer"                : on_click no%,FermerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir"                : on_click no%,sortir
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Edition" : no_parent_menu_etages% = no%
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des cellules"  : on_click no%,DimensionsCellules
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des étages" : on_click no%,DimensionsEtages
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nombre d'étages"      : on_click no%,NombreEtages
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Aide"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"A propos"              : on_click no%,Apropos
end_sub



sub NouveauJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 1
  GenererDefauts()
  MenuDesEtages()
  NomDuJeu$ = ""
  AfficherCaption()
  DossierDuJeu$ = dir_current$
end_sub

sub FermerJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  AfficherCaption()
end_sub

sub Sortir()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  terminate
end_sub

sub GenererDefauts()
  LargeurCellule%  = defaut_LargeurCellule%
  HauteurCellule%  = defaut_HauteurCellule%
  LargeurEtage%    = defaut_LargeurEtage%
  HauteurEtage%    = defaut_HauteurEtage%
  NombreEtages%    = defaut_NombreEtages%
  EtageSelectionne% = 1
  CodeActif$ = ""
  GenererEtages(1)
end_sub

sub GenererEtages(vider%)
  dim_local i%, ne%
  for i%=1 to NombreEtages%
    ne% = base_GridEtage% + i%
    if object_exists(ne%)=1
      grid_row ne%,HauteurEtage%+1 : grid_column ne%,LargeurEtage%
      grid_column_width ne%,12 : grid_row_height ne%,12
      if vider%=1 then grid_clear ne%,HauteurEtage%+1,LargeurEtage%
    else
      grid ne% : full_space ne% : hide ne%
        grid_row ne%,HauteurEtage% : grid_column ne%,LargeurEtage%
        grid_row_fixed ne%,0 : grid_column_fixed ne%,0
        grid_column_width ne%,12 : grid_row_height ne%,12
        on_click ne%,ClicEtage : on_key_down ne%,KeyEtage : on_key_up ne%,KeyUpEtage
    end_if
  next i%
  ne% = base_GridEtage% + NombreEtages% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  show base_GridEtage%+EtageSelectionne%
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub EnregistrerJeu()
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  if NomDuJeu$=""
    message "Utiliser <Enregistrer sous...>."
    exit_sub
  end_if
  EnregistrerInterne()
end_sub

sub EnregistrerJeuSous()
  dim_local f$, p$, n$, e$
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  filter no_SaveDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_SaveDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=1
    if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
  end_if
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  EnregistrerInterne()
  end_sub
 
sub EnregistrerInterne()
  dim_local i%, il%, ic%, f$
  ' enregister le jeu
  f$ = DossierDuJeu$ + NomDuJeu$ + ".pjp"
  if file_exists(f$)=1 then file_delete f$
  file_open_write 1,f$
  file_writeln 1,"Jeu Plateau"
  file_writeln 1,NomDuJeu$
  file_writeln 1,str$(LargeurCellule%)
  file_writeln 1,str$(HauteurCellule%)
  file_writeln 1,str$(LargeurEtage%)
  file_writeln 1,str$(HauteurEtage%)
  file_writeln 1,str$(NombreEtages%)
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_writeln 1,"Etage "+str$(i%)
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_writeln 1,grid_read$(base_GridEtage%+i%,il%,ic%)
      next ic%
    next il%
  next i%
  file_writeln 1,"Fin"
  file_close 1
  message "Sauvegarde effectuée."
end_sub

sub OuvrirJeu()
  dim_local f$, p$, n$, e$, s$, v%, i%, il%, ic%
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  filter no_OpenDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_OpenDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=0
    message "Ce fichier est introuvable."
    exit_sub
  end_if
  ' charger le jeu
  file_open_read 1,f$
  ' --- entête du fichier
  file_readln 1,s$
  if s$<>"Jeu Plateau"
    message "Ce n'est pas une sauvegarde d'un projet de jeu."
    file_close 1
    exit_sub
  end_if
  ' --- nom du jeu
  file_readln 1,s$
  if s$<>n$
    message "Le nom du jeu ne correspond pas au fichier."
    file_close 1
    exit_sub
  end_if
  JeuEnCours% = 0
  ' --- largeur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurCellule%) or (v%>max_LargeurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurCellule% = v%
  ' --- hauteur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurCellule%) or (v%>max_HauteurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurCellule% = v%
  ' --- largeur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurEtage%) or (v%>max_LargeurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurEtage% = v%
  ' --- hauteur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurEtage%) or (v%>max_HauteurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurEtage% = v%
  ' --- nombre d'étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_NombreEtages%) or (v%>max_NombreEtages%)
    JeuCorrompu()
    exit_sub
  end_if
  NombreEtages% = v%
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_readln 1,s$
    if s$<>"Etage "+str$(i%)
      JeuCorrompu()
      exit_sub
    end_if
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_readln 1,s$
        grid_write base_GridEtage%+i%,il%,ic%,s$
      next ic%
    next il%
  next i%
  file_readln 1,s$
  if s$<>"Fin"
    JeuCorrompu()
    exit_sub
  end_if
  file_close 1
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  GenererEtages(0)
  MenuDesEtages()
  JeuEnCours% = 1
end_sub

sub JeuCorrompu()
  message "Le projet de jeu est corrompu."
  file_close 1
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  GenererDefauts()
  AfficherCaption()
  MenuDesEtages()
end_sub

sub AfficherCaption()
  if NomDuJeu$=""
    caption 0,"Création de Jeu - <Nouveau>  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  else
    caption 0,"Création de Jeu - <"+NomDuJeu$+">  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  end_if
end_sub

sub MenuDesEtages()
  dim_local ne%, i%
  ne% = base_MenuEtage% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  for i%=1 to NombreEtages%
    ne% = base_MenuEtage% + i%
    sub_menu ne% : parent ne%,no_parent_menu_etages% : caption ne%,"Etage "+str$(i%) : on_click ne%,SelectionnerEtage
  next i%
  mark_on base_MenuEtage%+EtageSelectionne%
end_sub

sub SelectionnerEtage()
  mark_off base_MenuEtage%+EtageSelectionne%
  hide base_GridEtage%+EtageSelectionne%
  EtageSelectionne% = number_click - base_MenuEtage%
  mark_on base_MenuEtage%+EtageSelectionne%
  show base_GridEtage%+EtageSelectionne%
  set_focus base_GridEtage%+EtageSelectionne%
  AfficherCaption()
end_sub

sub saisie1()
  dim_local no%
  no% = no_SaisieCellule%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,20 : left no%,20 : caption no%,"Etage:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,50 : left no%,20 : caption no%,"Ligne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,80 : left no%,20 : caption no%,"Colonne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,110 : left no%,20 : caption no%,"Contenu:"
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie1Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie1Abandonner
  no% = no_SaisieCellule% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+21
    top no%,20 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+22
    top no%,50 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+23
    top no%,80 : left no%,120 : max no%,20000
  no% = no% + 1 : edit no% : parent no%,no_SaisieCellule% : width no%,60                : ' no_SaisieCellule%+24
    top no%,110 : left no%,120
end_sub

sub ClicEtage()
  dim_local ne%, x%, y%, l%, c%
  if JeuEnCours%=0 then exit_sub
  ne% = number_click
  x% = mouse_x_left_down(ne%)
  y% = mouse_y_left_down(ne%)
  c% = grid_x_to_column(ne%,x%)
  l% = grid_y_to_row(ne%,y%)
  position no_SaisieCellule%+21,ne%-base_GridEtage%
  position no_SaisieCellule%+22,l%
  position no_SaisieCellule%+23,c%
  text no_SaisieCellule%+24,grid_read$(ne%,l%,c%)
  inactive 0
  show no_SaisieCellule%
  set_focus no_SaisieCellule%+24
  LigneActive% = l%
  ColonneActive% = c%
end_sub

sub Saisie1Valider()
  dim_local s$
  CodeActif$    = text$(no_SaisieCellule%+24)
  LigneActive%  = position(no_SaisieCellule%+22)
  ColonneActive% = position(no_SaisieCellule%+23)
  grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
  s$ = "write scan="+str$(scancode)
end_sub

sub Saisie1Abandonner()
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie2()
  dim_local no%
  no% = no_SaisieNombreEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieNombreEtages%
    top no%,20 : left no%,20 : caption no%,"Nombre d'étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie2Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie2Abandonner
  no% = no_SaisieNombreEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieNombreEtages% : width no%,60 : ' no_SaisieNombreEtages%+21
    top no%,20 : left no%,120 : min no%,1 : max no%,100
end_sub

sub KeyEtage()
  dim_local ne%, x%, y%, l%, c%, sc%
  if JeuEnCours%=0 then exit_sub
  if LigneActive%=0 then exit_sub
  off_click number_key_down
  sc% = scancode
caption 0,"scan "+str$(sc%)
  select sc%  : ' scancode
    case 37: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 100: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 38: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 104: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 39: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 102: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 40: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
    case 98: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      grid_write base_GridEtage%+position(no_SaisieCellule%+21),LigneActive%,ColonneActive%,CodeActif$
  end_select
end_sub

sub KeyUpEtage()
  on_click number_key_up,ClicEtage
end_sub

sub NombreEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieNombreEtages%+21,NombreEtages%
  show no_SaisieNombreEtages%
  set_focus no_SaisieNombreEtages%+21
end_sub

sub Saisie2Valider()
  dim_local n%
  n% = position(no_SaisieNombreEtages%+21)
  if n%<NombreEtages%
    if message_confirmation_yes_no("Vous allez perdre des étages. Continuer ?")<>1 then exit_sub
  end_if
  NombreEtages% = n%
  GenererEtages(0)
  MenuDesEtages()
  hide no_SaisieNombreEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie2Abandonner()
  hide no_SaisieNombreEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie3()
  dim_local no%
  no% = no_SaisieDimensionsEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie3Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie3Abandonner
  no% = no_SaisieDimensionsEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+21
    top no%,20 : left no%,130 : min no%,min_LargeurEtage% : max no%,max_LargeurEtage%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+22
    top no%,50 : left no%,130 : min no%,min_HauteurEtage% : max no%,max_HauteurEtage%
end_sub

sub DimensionsEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsEtages%+21,LargeurEtage%
  position no_SaisieDimensionsEtages%+22,HauteurEtage%
  show no_SaisieDimensionsEtages%
  set_focus no_SaisieDimensionsEtages%+21
end_sub

sub Saisie3Valider()
  LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
  HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  if JeuEnCours%=0
    defaut_LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
    defaut_HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  end_if
  GenererEtages(0)
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie3Abandonner()
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie4()
  dim_local no%
  no% = no_SaisieDimensionsCellules%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie4Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie4Abandonner
  no% = no_SaisieDimensionsCellules% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+21
    top no%,20 : left no%,130 : min no%,min_LargeurCellule% : max no%,max_LargeurCellule%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+22
    top no%,50 : left no%,130 : min no%,min_HauteurCellule% : max no%,max_HauteurCellule%
end_sub

sub DimensionsCellules()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsCellules%+21,LargeurCellule%
  position no_SaisieDimensionsCellules%+22,HauteurCellule%
  show no_SaisieDimensionsCellules%
  set_focus no_SaisieDimensionsCellules%+21
end_sub

sub Saisie4Valider()
  if JeuEnCours%=0
    defaut_LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
    defaut_HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  end_if
  LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
  HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie4Abandonner()
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Apropos()
  dim_local s$, crlf$
  crlf$ = chr$(13) + chr$(10)
  s$ = "Génération d'un monde 2D"+crlf$+crlf$
  s$ = s$ + "Version: 1.01"+crlf$+crlf$
  s$ = s$ + "Auteur: Klaus"+crlf$+crlf$
  s$ = s$ + "Créé le: 13/02/2017"
  message s$
end_sub

' demo_generer_monde_pour_jeu_de_plateau.bas

labels()
constantes()
variables()
GenererDefauts()
invisibles()
form0()
saisie1()    : ' saisie d'une cellule
saisie2()    : ' saisie du nombre d'étages
saisie3()    : ' saisie des dimensions des étages
saisie4()    : ' saisie des dimensions des cellules
menus()
MenuDesEtages()

end

sortir:
  sortir()
  return
 
NouveauJeu:
  NouveauJeu()
  return
 
FermerJeu:
  FermerJeu()
  return
 
EnregistrerJeu:
  EnregistrerJeu()
  return
 
EnregistrerJeuSous:
  EnregistrerJeuSous()
  return
 
OuvrirJeu:
  OuvrirJeu()
  return
 
SelectionnerEtage:
  SelectionnerEtage()
  return
 
ClicEtage:
  ClicEtage()
  return
 
Saisie1Abandonner:
  Saisie1Abandonner()
  return

Saisie1Valider:
  Saisie1Valider()
  return
 
KeyEtage:
  KeyEtage()
  return

KeyUpEtage:
  KeyUpEtage()
  return
 
NombreEtages:
  NombreEtages()
  return

Saisie2Abandonner:
  Saisie2Abandonner()
  return

Saisie2Valider:
  Saisie2Valider()
  return
 
DimensionsEtages:
  DimensionsEtages()
  return

Saisie3Abandonner:
  Saisie3Abandonner()
  return

Saisie3Valider:
  Saisie3Valider()
  return

DimensionsCellules:
  DimensionsCellules()
  return

Saisie4Abandonner:
  Saisie4Abandonner()
  return

Saisie4Valider:
  Saisie4Valider()
  return
 
ModifPartout:
  ModifPartout()
  return
 
Apropos:
  Apropos()
  return

sub labels()
  label sortir, NouveauJeu, FermerJeu, EnregistrerJeu, EnregistrerJeuSous, OuvrirJeu
  label SelectionnerEtage, ClicEtage, Saisie1Valider, Saisie1Abandonner, KeyEtage, Apropos
  label KeyUpEtage, ModifPartout
  label NombreEtages, Saisie2Valider, Saisie2Abandonner
  label DimensionsEtages, Saisie3Valider, Saisie3Abandonner
  label DimensionsCellules, Saisie4Valider, Saisie4Abandonner
end_sub

sub constantes()
  ' dimensions d'une unité graphique en pixels
  dim defaut_LargeurCellule% : defaut_LargeurCellule% =  20
    dim min_LargeurCellule% :    min_LargeurCellule% =  5
    dim max_LargeurCellule% :    max_LargeurCellule% = 100
  dim defaut_HauteurCellule% : defaut_HauteurCellule% =  20
    dim min_HauteurCellule% :    min_HauteurCellule% =  5
    dim max_HauteurCellule% :    max_HauteurCellule% = 100
  ' dimensions des étages (en nombre de cellules)
  dim defaut_LargeurEtage% : defaut_LargeurEtage% =  50
    dim min_LargeurEtage% :    min_LargeurEtage% =  10
    dim max_LargeurEtage% :    max_LargeurEtage% = 1000
  dim defaut_HauteurEtage% : defaut_HauteurEtage% =  50
    dim min_HauteurEtage% :    min_HauteurEtage% =  10
    dim max_HauteurEtage% :    max_HauteurEtage% = 1000
  ' nombe d'étages superposés
  dim defaut_NombreEtages% : defaut_NombreEtages% =  3
    dim min_NombreEtages% :    min_NombreEtages% =  1
    dim max_NombreEtages% :    max_NombreEtages% = 20
  ' numéro d'objet de base pour les menus des étages (+1, +2, ...)
  dim base_MenuEtage%      : base_MenuEtage% = 1000
  ' numéro d'objet de base pour les grids des étages (+1, +2, ...)
  dim base_GridEtage%      : base_GridEtage% = 2000
  ' numéro d'objet de la fenêtre de saisie d'une cellule
  dim no_SaisieCellule%    : no_SaisieCellule% = 3000
  ' numéro d'objet de la fenêtre de saisie du nombre d'étages
  dim no_SaisieNombreEtages%    : no_SaisieNombreEtages% = 3100
  ' numéro d'objet de la fenêtre de saisie des dimsions des étages
  dim no_SaisieDimensionsEtages% : no_SaisieDimensionsEtages% = 3200
  ' numéro d'objet de la fenêtre de saisie des dimsions des cellules
  dim no_SaisieDimensionsCellules% : no_SaisieDimensionsCellules% = 3300
end_sub

sub variables()
  ' variables techniques
  dim no%, no_OpenDialog%, no_SaveDialog%, no_parent_menu_etages%
  dim no_ModifPartout%
 
  ' variables de gestion
  dim JeuEnCours%          : ' flag 1=la définition d'un jeu est en cours
  dim NomDuJeu$            : ' le nom du jeu
  dim DossierDuJeu$        : ' le dossier dans lequel je jeu réside
  dim EtageSelectionne%    : ' numéro de l'étage sélectionné
  dim CodeActif$          : ' dernier code saisie pour une cellule
  dim LigneActive%        : '  et son numéro de ligne
  dim ColonneActive%      : '  et son numéro de colonne
  dim ModifPartout%        : ' flag "modifications dans tous les étages"

  ' variables à initialiser avec des valeurs par défaut
  dim LargeurCellule%      : ' dimensions actuelles des cellules graphiques en pixels
  dim HauteurCellule%
  dim LargeurEtage%        : ' dimensions actuelles des étages en nombre de cellules
  dim HauteurEtage%
  dim NombreEtages%        : ' nombre actuel des étages
end_sub

sub invisibles()
  no% = no% + 1 : open_dialog no% : no_OpenDialog% = no%
  no% = no% + 1 : save_dialog no% : no_SaveDialog% = no%
end_sub

sub form0()
  full_space 0
  AfficherCaption()
end_sub

sub menus()
  dim_local no1%, no2%
  no% = no% + 1 : main_menu no% : no1% = no%
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Jeux"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau"              : on_click no%,NouveauJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..."            : on_click no%,OuvrirJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer"          : on_click no%,EnregistrerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..."  : on_click no%,EnregistrerJeuSous
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Fermer"                : on_click no%,FermerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir"                : on_click no%,sortir
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Edition" : no_parent_menu_etages% = no%
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des cellules"  : on_click no%,DimensionsCellules
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des étages" : on_click no%,DimensionsEtages
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nombre d'étages"      : on_click no%,NombreEtages
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Modifs sur tous les étages" : on_click no%,ModifPartout
      no_ModifPartout% = no%
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Aide"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"A propos"              : on_click no%,Apropos
end_sub



sub NouveauJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 1
  ModifPartout% = 0
  mark_off no_ModifPartout%
  GenererDefauts()
  MenuDesEtages()
  NomDuJeu$ = ""
  AfficherCaption()
  DossierDuJeu$ = dir_current$
end_sub

sub FermerJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 0
  ModifPartout% = 0
  mark_off no_ModifPartout%
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  AfficherCaption()
end_sub

sub Sortir()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  terminate
end_sub

sub GenererDefauts()
  LargeurCellule%  = defaut_LargeurCellule%
  HauteurCellule%  = defaut_HauteurCellule%
  LargeurEtage%    = defaut_LargeurEtage%
  HauteurEtage%    = defaut_HauteurEtage%
  NombreEtages%    = defaut_NombreEtages%
  EtageSelectionne% = 1
  CodeActif$ = ""
  GenererEtages(1)
end_sub

sub GenererEtages(vider%)
  dim_local i%, ne%
  for i%=1 to NombreEtages%
    ne% = base_GridEtage% + i%
    if object_exists(ne%)=1
      grid_row ne%,HauteurEtage%+1 : grid_column ne%,LargeurEtage% : ' hide ne%
      grid_column_width ne%,12 : grid_row_height ne%,12
      if vider%=1 then grid_clear ne%,HauteurEtage%+1,LargeurEtage%
    else
      grid ne% : full_space ne% : hide ne%
        grid_row ne%,HauteurEtage% : grid_column ne%,LargeurEtage%
        grid_row_fixed ne%,0 : grid_column_fixed ne%,0
        grid_column_width ne%,12 : grid_row_height ne%,12
        on_click ne%,ClicEtage : on_key_down ne%,KeyEtage : on_key_up ne%,KeyUpEtage
    end_if
  next i%
  ne% = base_GridEtage% + NombreEtages% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  show base_GridEtage%+EtageSelectionne%
'  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub EnregistrerJeu()
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  if NomDuJeu$=""
    message "Utiliser <Enregistrer sous...>."
    exit_sub
  end_if
  EnregistrerInterne()
end_sub

sub EnregistrerJeuSous()
  dim_local f$, p$, n$, e$
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  filter no_SaveDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_SaveDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=1
    if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
  end_if
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  EnregistrerInterne()
  end_sub
 
sub EnregistrerInterne()
  dim_local i%, il%, ic%, f$
  ' enregister le jeu
  f$ = DossierDuJeu$ + NomDuJeu$ + ".pjp"
  if file_exists(f$)=1 then file_delete f$
  file_open_write 1,f$
  file_writeln 1,"Jeu Plateau"
  file_writeln 1,NomDuJeu$
  file_writeln 1,str$(LargeurCellule%)
  file_writeln 1,str$(HauteurCellule%)
  file_writeln 1,str$(LargeurEtage%)
  file_writeln 1,str$(HauteurEtage%)
  file_writeln 1,str$(NombreEtages%)
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_writeln 1,"Etage "+str$(i%)
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_writeln 1,grid_read$(base_GridEtage%+i%,il%,ic%)
      next ic%
    next il%
  next i%
  file_writeln 1,"Fin"
  file_close 1
  message "Sauvegarde effectuée."
end_sub

sub OuvrirJeu()
  dim_local f$, p$, n$, e$, s$, v%, i%, il%, ic%
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  filter no_OpenDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_OpenDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=0
    message "Ce fichier est introuvable."
    exit_sub
  end_if
  ' charger le jeu
  file_open_read 1,f$
  ' --- entête du fichier
  file_readln 1,s$
  if s$<>"Jeu Plateau"
    message "Ce n'est pas une sauvegarde d'un projet de jeu."
    file_close 1
    exit_sub
  end_if
  ' --- nom du jeu
  file_readln 1,s$
  if s$<>n$
    message "Le nom du jeu ne correspond pas au fichier."
    file_close 1
    exit_sub
  end_if
  JeuEnCours% = 0
  ' --- largeur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurCellule%) or (v%>max_LargeurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurCellule% = v%
  ' --- hauteur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurCellule%) or (v%>max_HauteurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurCellule% = v%
  ' --- largeur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurEtage%) or (v%>max_LargeurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurEtage% = v%
  ' --- hauteur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurEtage%) or (v%>max_HauteurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurEtage% = v%
  ' --- nombre d'étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_NombreEtages%) or (v%>max_NombreEtages%)
    JeuCorrompu()
    exit_sub
  end_if
  NombreEtages% = v%
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_readln 1,s$
    if s$<>"Etage "+str$(i%)
      JeuCorrompu()
      exit_sub
    end_if
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_readln 1,s$
        grid_write base_GridEtage%+i%,il%,ic%,s$
      next ic%
    next il%
  next i%
  file_readln 1,s$
  if s$<>"Fin"
    JeuCorrompu()
    exit_sub
  end_if
  file_close 1
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  GenererEtages(0)
  MenuDesEtages()
  JeuEnCours% = 1
  ModifPartout% = 0
  mark_off no_ModifPartout%
end_sub

sub JeuCorrompu()
  message "Le projet de jeu est corrompu."
  file_close 1
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  GenererDefauts()
  AfficherCaption()
  MenuDesEtages()
end_sub

sub AfficherCaption()
  if NomDuJeu$=""
    caption 0,"Création de Jeu - <Nouveau>  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  else
    caption 0,"Création de Jeu - <"+NomDuJeu$+">  Cellule="+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)"
  end_if
end_sub

sub MenuDesEtages()
  dim_local ne%, i%
  ne% = base_MenuEtage% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  for i%=1 to NombreEtages%
    ne% = base_MenuEtage% + i%
    sub_menu ne% : parent ne%,no_parent_menu_etages% : caption ne%,"Etage "+str$(i%) : on_click ne%,SelectionnerEtage
  next i%
  mark_on base_MenuEtage%+EtageSelectionne%
end_sub

sub SelectionnerEtage()
  mark_off base_MenuEtage%+EtageSelectionne%
  hide base_GridEtage%+EtageSelectionne%
  EtageSelectionne% = number_click - base_MenuEtage%
  mark_on base_MenuEtage%+EtageSelectionne%
  show base_GridEtage%+EtageSelectionne%
  set_focus base_GridEtage%+EtageSelectionne%
  AfficherCaption()
end_sub

sub saisie1()
  dim_local no%
  no% = no_SaisieCellule%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,20 : left no%,20 : caption no%,"Etage:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,50 : left no%,20 : caption no%,"Ligne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,80 : left no%,20 : caption no%,"Colonne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,110 : left no%,20 : caption no%,"Contenu:"
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie1Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie1Abandonner
  no% = no_SaisieCellule% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+21
    top no%,20 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+22
    top no%,50 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+23
    top no%,80 : left no%,120 : max no%,20000
  no% = no% + 1 : edit no% : parent no%,no_SaisieCellule% : width no%,60                : ' no_SaisieCellule%+24
    top no%,110 : left no%,120
end_sub

sub ClicEtage()
  dim_local ne%, x%, y%, l%, c%
  if JeuEnCours%=0 then exit_sub
  ne% = number_click
  x% = mouse_x_left_down(ne%)
  y% = mouse_y_left_down(ne%)
  c% = grid_x_to_column(ne%,x%)
  l% = grid_y_to_row(ne%,y%)
  position no_SaisieCellule%+21,ne%-base_GridEtage%
  position no_SaisieCellule%+22,l%
  position no_SaisieCellule%+23,c%
  text no_SaisieCellule%+24,grid_read$(ne%,l%,c%)
  inactive 0
  show no_SaisieCellule%
  set_focus no_SaisieCellule%+24
  LigneActive% = l%
  ColonneActive% = c%
end_sub

sub Saisie1Valider()
  dim_local s$
  CodeActif$    = text$(no_SaisieCellule%+24)
  LigneActive%  = position(no_SaisieCellule%+22)
  ColonneActive% = position(no_SaisieCellule%+23)
  ModifierCellule()
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
  s$ = "write scan="+str$(scancode)
end_sub

sub Saisie1Abandonner()
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie2()
  dim_local no%
  no% = no_SaisieNombreEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieNombreEtages%
    top no%,20 : left no%,20 : caption no%,"Nombre d'étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie2Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie2Abandonner
  no% = no_SaisieNombreEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieNombreEtages% : width no%,60 : ' no_SaisieNombreEtages%+21
    top no%,20 : left no%,120 : min no%,1 : max no%,100
end_sub

sub KeyEtage()
  dim_local ne%, x%, y%, l%, c%, sc%
  if JeuEnCours%=0 then exit_sub
  if LigneActive%=0 then exit_sub
  off_click number_key_down
  sc% = scancode
' caption 0,"scan "+str$(sc%)
  select sc%  : ' scancode
    case 37: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      ModifierCellule()
    case 100: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      ModifierCellule()
    case 38: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      ModifierCellule()
    case 104: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      ModifierCellule()
    case 39: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      ModifierCellule()
    case 102: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      ModifierCellule()
    case 40: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      ModifierCellule()
    case 98: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      ModifierCellule()
  end_select
end_sub

sub ModifierCellule()
  dim_local i%
  if ModifPartout%=1
    for i%=1 to NombreEtages%
      grid_write base_GridEtage%+i%,LigneActive%,ColonneActive%,CodeActif$
    next i%
  else
    grid_write base_GridEtage%+EtageSelectionne%,LigneActive%,ColonneActive%,CodeActif$
  end_if
end_sub

sub KeyUpEtage()
  on_click number_key_up,ClicEtage
end_sub

sub NombreEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieNombreEtages%+21,NombreEtages%
  show no_SaisieNombreEtages%
  set_focus no_SaisieNombreEtages%+21
end_sub

sub Saisie2Valider()
  dim_local n%
  n% = position(no_SaisieNombreEtages%+21)
  if n%<NombreEtages%
    if message_confirmation_yes_no("Vous allez perdre des étages. Continuer ?")<>1 then exit_sub
  end_if
  NombreEtages% = n%
  hide no_SaisieNombreEtages%
  hide base_GridEtage%+EtageSelectionne%
  EtageSelectionne% = 1
  show base_GridEtage%+EtageSelectionne%
  GenererEtages(0)
  MenuDesEtages()
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie2Abandonner()
  hide no_SaisieNombreEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie3()
  dim_local no%
  no% = no_SaisieDimensionsEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie3Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie3Abandonner
  no% = no_SaisieDimensionsEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+21
    top no%,20 : left no%,130 : min no%,min_LargeurEtage% : max no%,max_LargeurEtage%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+22
    top no%,50 : left no%,130 : min no%,min_HauteurEtage% : max no%,max_HauteurEtage%
end_sub

sub DimensionsEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsEtages%+21,LargeurEtage%
  position no_SaisieDimensionsEtages%+22,HauteurEtage%
  show no_SaisieDimensionsEtages%
  set_focus no_SaisieDimensionsEtages%+21
end_sub

sub Saisie3Valider()
  LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
  HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  if JeuEnCours%=0
    defaut_LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
    defaut_HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  end_if
  GenererEtages(0)
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie3Abandonner()
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie4()
  dim_local no%
  no% = no_SaisieDimensionsCellules%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie4Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie4Abandonner
  no% = no_SaisieDimensionsCellules% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+21
    top no%,20 : left no%,130 : min no%,min_LargeurCellule% : max no%,max_LargeurCellule%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+22
    top no%,50 : left no%,130 : min no%,min_HauteurCellule% : max no%,max_HauteurCellule%
end_sub

sub DimensionsCellules()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsCellules%+21,LargeurCellule%
  position no_SaisieDimensionsCellules%+22,HauteurCellule%
  show no_SaisieDimensionsCellules%
  set_focus no_SaisieDimensionsCellules%+21
end_sub

sub Saisie4Valider()
  if JeuEnCours%=0
    defaut_LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
    defaut_HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  end_if
  LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
  HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie4Abandonner()
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub ModifPartout()
  if ModifPartout%=1
    mark_off number_click
    ModifPartout% = 0
  else
    mark_on number_click
    ModifPartout% = 1
  end_if
end_sub

sub Apropos()
  dim_local s$, crlf$
  crlf$ = chr$(13) + chr$(10)
  s$ = "Génération d'un monde 2D"+crlf$+crlf$
  s$ = s$ + "Version: 1.02"+crlf$+crlf$
  s$ = s$ + "Auteur: Klaus"+crlf$+crlf$
  s$ = s$ + "Créé le: 14/02/2017"
  message s$
end_sub

' demo_generer_monde_pour_jeu_de_plateau.bas

labels()
constantes()
variables()
GenererDefauts()
invisibles()
form0()
saisie1()    : ' saisie d'une cellule
saisie2()    : ' saisie du nombre d'étages
saisie3()    : ' saisie des dimensions des étages
saisie4()    : ' saisie des dimensions des cellules
menus()
MenuDesEtages()

end

sortir:
  sortir()
  return
 
NouveauJeu:
  NouveauJeu()
  return
 
FermerJeu:
  FermerJeu()
  return
 
EnregistrerJeu:
  EnregistrerJeu()
  return
 
EnregistrerJeuSous:
  EnregistrerJeuSous()
  return
 
OuvrirJeu:
  OuvrirJeu()
  return
 
SelectionnerEtage:
  SelectionnerEtage()
  return
 
ClicEtage:
  ClicEtage()
  return
 
Saisie1Abandonner:
  Saisie1Abandonner()
  return

Saisie1Valider:
  Saisie1Valider()
  return
 
KeyEtage:
  KeyEtage()
  return

KeyUpEtage:
  KeyUpEtage()
  return
 
NombreEtages:
  NombreEtages()
  return

Saisie2Abandonner:
  Saisie2Abandonner()
  return

Saisie2Valider:
  Saisie2Valider()
  return
 
DimensionsEtages:
  DimensionsEtages()
  return

Saisie3Abandonner:
  Saisie3Abandonner()
  return

Saisie3Valider:
  Saisie3Valider()
  return

DimensionsCellules:
  DimensionsCellules()
  return

Saisie4Abandonner:
  Saisie4Abandonner()
  return

Saisie4Valider:
  Saisie4Valider()
  return
 
ModifPartout:
  ModifPartout()
  return
 
Apropos:
  Apropos()
  return

sub labels()
  label sortir, NouveauJeu, FermerJeu, EnregistrerJeu, EnregistrerJeuSous, OuvrirJeu
  label SelectionnerEtage, ClicEtage, Saisie1Valider, Saisie1Abandonner, KeyEtage, Apropos
  label KeyUpEtage, ModifPartout
  label NombreEtages, Saisie2Valider, Saisie2Abandonner
  label DimensionsEtages, Saisie3Valider, Saisie3Abandonner
  label DimensionsCellules, Saisie4Valider, Saisie4Abandonner
end_sub

sub constantes()
  ' dimensions d'une unité graphique en pixels
  dim defaut_LargeurCellule% : defaut_LargeurCellule% =  20
    dim min_LargeurCellule% :    min_LargeurCellule% =  5
    dim max_LargeurCellule% :    max_LargeurCellule% = 100
  dim defaut_HauteurCellule% : defaut_HauteurCellule% =  20
    dim min_HauteurCellule% :    min_HauteurCellule% =  5
    dim max_HauteurCellule% :    max_HauteurCellule% = 100
  ' dimensions des étages (en nombre de cellules)
  dim defaut_LargeurEtage% : defaut_LargeurEtage% =  50
    dim min_LargeurEtage% :    min_LargeurEtage% =  10
    dim max_LargeurEtage% :    max_LargeurEtage% = 1000
  dim defaut_HauteurEtage% : defaut_HauteurEtage% =  50
    dim min_HauteurEtage% :    min_HauteurEtage% =  10
    dim max_HauteurEtage% :    max_HauteurEtage% = 1000
  ' nombe d'étages superposés
  dim defaut_NombreEtages% : defaut_NombreEtages% =  3
    dim min_NombreEtages% :    min_NombreEtages% =  1
    dim max_NombreEtages% :    max_NombreEtages% = 20
  ' numéro d'objet de base pour les menus des étages (+1, +2, ...)
  dim base_MenuEtage%      : base_MenuEtage% = 1000
  ' numéro d'objet de base pour les grids des étages (+1, +2, ...)
  dim base_GridEtage%      : base_GridEtage% = 2000
  ' numéro d'objet de la fenêtre de saisie d'une cellule
  dim no_SaisieCellule%    : no_SaisieCellule% = 3000
  ' numéro d'objet de la fenêtre de saisie du nombre d'étages
  dim no_SaisieNombreEtages%    : no_SaisieNombreEtages% = 3100
  ' numéro d'objet de la fenêtre de saisie des dimsions des étages
  dim no_SaisieDimensionsEtages% : no_SaisieDimensionsEtages% = 3200
  ' numéro d'objet de la fenêtre de saisie des dimsions des cellules
  dim no_SaisieDimensionsCellules% : no_SaisieDimensionsCellules% = 3300
end_sub

sub variables()
  ' variables techniques
  dim no%, no_OpenDialog%, no_SaveDialog%, no_parent_menu_etages%
  dim no_ModifPartout%
 
  ' variables de gestion
  dim JeuEnCours%          : ' flag 1=la définition d'un jeu est en cours
  dim NomDuJeu$            : ' le nom du jeu
  dim DossierDuJeu$        : ' le dossier dans lequel je jeu réside
  dim EtageSelectionne%    : ' numéro de l'étage sélectionné
  dim CodeActif$          : ' dernier code saisie pour une cellule
  dim LigneActive%        : '  et son numéro de ligne
  dim ColonneActive%      : '  et son numéro de colonne
  dim ModifPartout%        : ' flag "modifications dans tous les étages"

  ' variables à initialiser avec des valeurs par défaut
  dim LargeurCellule%      : ' dimensions actuelles des cellules graphiques en pixels
  dim HauteurCellule%
  dim LargeurEtage%        : ' dimensions actuelles des étages en nombre de cellules
  dim HauteurEtage%
  dim NombreEtages%        : ' nombre actuel des étages
end_sub

sub invisibles()
  no% = no% + 1 : open_dialog no% : no_OpenDialog% = no%
  no% = no% + 1 : save_dialog no% : no_SaveDialog% = no%
end_sub

sub form0()
  full_space 0
  AfficherCaption()
end_sub

sub menus()
  dim_local no1%, no2%
  no% = no% + 1 : main_menu no% : no1% = no%
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Jeux"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nouveau"              : on_click no%,NouveauJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Ouvrir..."            : on_click no%,OuvrirJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer"          : on_click no%,EnregistrerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Enregistrer sous..."  : on_click no%,EnregistrerJeuSous
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Fermer"                : on_click no%,FermerJeu
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Sortir"                : on_click no%,sortir
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Edition" : no_parent_menu_etages% = no%
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des cellules"  : on_click no%,DimensionsCellules
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Dimensions des étages" : on_click no%,DimensionsEtages
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Nombre d'étages"      : on_click no%,NombreEtages
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"Modifs sur tous les étages" : on_click no%,ModifPartout
      no_ModifPartout% = no%
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"-"
  no% = no% + 1 : sub_menu no% : parent no%,no1% : no2% = no% : caption no%,"Aide"
    no% = no% + 1 : sub_menu no% : parent no%,no2% : caption no%,"A propos"              : on_click no%,Apropos
end_sub



sub NouveauJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 1
  ModifPartout% = 0
  mark_off no_ModifPartout%
  GenererDefauts()
  MenuDesEtages()
  NomDuJeu$ = ""
  AfficherCaption()
  DossierDuJeu$ = dir_current$
end_sub

sub FermerJeu()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  JeuEnCours% = 0
  ModifPartout% = 0
  mark_off no_ModifPartout%
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  AfficherCaption()
end_sub

sub Sortir()
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  terminate
end_sub

sub GenererDefauts()
  LargeurCellule%  = defaut_LargeurCellule%
  HauteurCellule%  = defaut_HauteurCellule%
  LargeurEtage%    = defaut_LargeurEtage%
  HauteurEtage%    = defaut_HauteurEtage%
  NombreEtages%    = defaut_NombreEtages%
  EtageSelectionne% = 1
  CodeActif$ = ""
  GenererEtages(1)
end_sub

sub GenererEtages(vider%)
  dim_local i%, ne%
  for i%=1 to NombreEtages%
    ne% = base_GridEtage% + i%
    if object_exists(ne%)=1
      grid_row ne%,HauteurEtage%+1 : grid_column ne%,LargeurEtage% : ' hide ne%
      grid_column_width ne%,12 : grid_row_height ne%,12
      if vider%=1 then grid_clear ne%,HauteurEtage%+1,LargeurEtage%
    else
      grid ne% : full_space ne% : hide ne%
        grid_row ne%,HauteurEtage% : grid_column ne%,LargeurEtage%
        grid_row_fixed ne%,0 : grid_column_fixed ne%,0
        grid_column_width ne%,12 : grid_row_height ne%,12
        on_click ne%,ClicEtage : on_key_down ne%,KeyEtage : on_key_up ne%,KeyUpEtage
    end_if
  next i%
  ne% = base_GridEtage% + NombreEtages% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  show base_GridEtage%+EtageSelectionne%
'  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub EnregistrerJeu()
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  if NomDuJeu$=""
    message "Utiliser <Enregistrer sous...>."
    exit_sub
  end_if
  EnregistrerInterne()
end_sub

sub EnregistrerJeuSous()
  dim_local f$, p$, n$, e$
  if JeuEnCours%=0
    message "Il n'y a aucune définition en cours."
    exit_sub
  end_if
  filter no_SaveDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_SaveDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=1
    if message_confirmation_yes_no("Ce fichier existe déjà. Remplacer ?")<>1 then exit_sub
  end_if
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  EnregistrerInterne()
  end_sub
 
sub EnregistrerInterne()
  dim_local i%, il%, ic%, f$
  ' enregister le jeu
  f$ = DossierDuJeu$ + NomDuJeu$ + ".pjp"
  if file_exists(f$)=1 then file_delete f$
  file_open_write 1,f$
  file_writeln 1,"Jeu Plateau"
  file_writeln 1,NomDuJeu$
  file_writeln 1,str$(LargeurCellule%)
  file_writeln 1,str$(HauteurCellule%)
  file_writeln 1,str$(LargeurEtage%)
  file_writeln 1,str$(HauteurEtage%)
  file_writeln 1,str$(NombreEtages%)
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_writeln 1,"Etage "+str$(i%)
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_writeln 1,grid_read$(base_GridEtage%+i%,il%,ic%)
      next ic%
    next il%
  next i%
  file_writeln 1,"Fin"
  file_close 1
  message "Sauvegarde effectuée."
end_sub

sub OuvrirJeu()
  dim_local f$, p$, n$, e$, s$, v%, i%, il%, ic%
  if JeuEnCours%=1
    if message_confirmation_yes_no("Une définition d'un jeu est en cours. Ecarter ?")<>1 then exit_sub
  end_if
  filter no_OpenDialog%,"Projet de jeu de plateau (*.pjp)|*.pjp"
  f$ = file_name$(no_OpenDialog%)
  if f$="_" then exit_sub
  p$ = file_extract_path$(f$)
  n$ = file_extract_name$(f$)
  e$ = file_extract_extension$(f$)
  n$ = left$(n$,len(n$)-len(e$))
  if lower$(e$)<>".pjp" then e$ = ".pjp"
  f$ = p$ + n$ + e$
  if file_exists(f$)=0
    message "Ce fichier est introuvable."
    exit_sub
  end_if
  ' charger le jeu
  file_open_read 1,f$
  ' --- entête du fichier
  file_readln 1,s$
  if s$<>"Jeu Plateau"
    message "Ce n'est pas une sauvegarde d'un projet de jeu."
    file_close 1
    exit_sub
  end_if
  ' --- nom du jeu
  file_readln 1,s$
  if s$<>n$
    message "Le nom du jeu ne correspond pas au fichier."
    file_close 1
    exit_sub
  end_if
  JeuEnCours% = 0
  ' --- largeur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurCellule%) or (v%>max_LargeurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurCellule% = v%
  ' --- hauteur des cellules
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurCellule%) or (v%>max_HauteurCellule%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurCellule% = v%
  ' --- largeur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_LargeurEtage%) or (v%>max_LargeurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  LargeurEtage% = v%
  ' --- hauteur des étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_HauteurEtage%) or (v%>max_HauteurEtage%)
    JeuCorrompu()
    exit_sub
  end_if
  HauteurEtage% = v%
  ' --- nombre d'étages
  file_readln 1,s$
  if numeric(s$)=0
    JeuCorrompu()
    exit_sub
  end_if
  v% = val(s$)
  if (v%<min_NombreEtages%) or (v%>max_NombreEtages%)
    JeuCorrompu()
    exit_sub
  end_if
  NombreEtages% = v%
  for i%=1 to NombreEtages%
    ' pour l'étage i%
    file_readln 1,s$
    if s$<>"Etage "+str$(i%)
      JeuCorrompu()
      exit_sub
    end_if
    for il%=1 to HauteurEtage%
      for ic%=1 to LargeurEtage%
        file_readln 1,s$
        grid_write base_GridEtage%+i%,il%,ic%,s$
      next ic%
    next il%
  next i%
  file_readln 1,s$
  if s$<>"Fin"
    JeuCorrompu()
    exit_sub
  end_if
  file_close 1
  NomDuJeu$ = n$
  DossierDuJeu$ = p$
  AfficherCaption()
  GenererEtages(0)
  MenuDesEtages()
  JeuEnCours% = 1
  ModifPartout% = 0
  mark_off no_ModifPartout%
end_sub

sub JeuCorrompu()
  message "Le projet de jeu est corrompu."
  file_close 1
  JeuEnCours% = 0
  NomDuJeu$ = ""
  DossierDuJeu$ = dir_current$
  GenererDefauts()
  AfficherCaption()
  MenuDesEtages()
end_sub

sub AfficherCaption()
  dim_local s$
  if ModifPartout%=1 then s$ = "(modification tous étages)"
  if NomDuJeu$=""
    caption 0,"Création de Jeu - <Nouveau>  Cellules de "+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)  "+s$
  else
    caption 0,"Création de Jeu - <"+NomDuJeu$+">  Cellules de "+str$(LargeurCellule%)+"x"+str$(HauteurCellule%)+"  Etage="+str$(LargeurEtage%)+"x"+str$(HauteurEtage%)+"  "+str$(EtageSelectionne%)+"/"+str$(NombreEtages%)+" étage(s)  "+s$
  end_if
end_sub

sub MenuDesEtages()
  dim_local ne%, i%
  ne% = base_MenuEtage% + 1
  while object_exists(ne%)=1
    delete ne%
    ne% = ne% + 1
  end_while
  for i%=1 to NombreEtages%
    ne% = base_MenuEtage% + i%
    sub_menu ne% : parent ne%,no_parent_menu_etages% : caption ne%,"Etage "+str$(i%) : on_click ne%,SelectionnerEtage
  next i%
  mark_on base_MenuEtage%+EtageSelectionne%
end_sub

sub SelectionnerEtage()
  mark_off base_MenuEtage%+EtageSelectionne%
  hide base_GridEtage%+EtageSelectionne%
  EtageSelectionne% = number_click - base_MenuEtage%
  mark_on base_MenuEtage%+EtageSelectionne%
  show base_GridEtage%+EtageSelectionne%
  set_focus base_GridEtage%+EtageSelectionne%
  AfficherCaption()
end_sub

sub saisie1()
  dim_local no%
  no% = no_SaisieCellule%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,20 : left no%,20 : caption no%,"Etage:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,50 : left no%,20 : caption no%,"Ligne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,80 : left no%,20 : caption no%,"Colonne:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieCellule%
    top no%,110 : left no%,20 : caption no%,"Contenu:"
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie1Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieCellule%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie1Abandonner
  no% = no_SaisieCellule% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+21
    top no%,20 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+22
    top no%,50 : left no%,120 : max no%,20000
  no% = no% + 1 : spin no% : parent no%,no_SaisieCellule% : width no%,60 : inactive no% : ' no_SaisieCellule%+23
    top no%,80 : left no%,120 : max no%,20000
  no% = no% + 1 : edit no% : parent no%,no_SaisieCellule% : width no%,60                : ' no_SaisieCellule%+24
    top no%,110 : left no%,120
end_sub

sub ClicEtage()
  dim_local ne%, x%, y%, l%, c%
  if JeuEnCours%=0 then exit_sub
  ne% = number_click
  x% = mouse_x_left_down(ne%)
  y% = mouse_y_left_down(ne%)
  c% = grid_x_to_column(ne%,x%)
  l% = grid_y_to_row(ne%,y%)
  position no_SaisieCellule%+21,ne%-base_GridEtage%
  position no_SaisieCellule%+22,l%
  position no_SaisieCellule%+23,c%
  text no_SaisieCellule%+24,grid_read$(ne%,l%,c%)
  inactive 0
  show no_SaisieCellule%
  set_focus no_SaisieCellule%+24
  LigneActive% = l%
  ColonneActive% = c%
end_sub

sub Saisie1Valider()
  dim_local s$
  CodeActif$    = text$(no_SaisieCellule%+24)
  LigneActive%  = position(no_SaisieCellule%+22)
  ColonneActive% = position(no_SaisieCellule%+23)
  ModifierCellule()
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
  s$ = "write scan="+str$(scancode)
end_sub

sub Saisie1Abandonner()
  hide no_SaisieCellule%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie2()
  dim_local no%
  no% = no_SaisieNombreEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieNombreEtages%
    top no%,20 : left no%,20 : caption no%,"Nombre d'étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie2Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieNombreEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie2Abandonner
  no% = no_SaisieNombreEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieNombreEtages% : width no%,60 : ' no_SaisieNombreEtages%+21
    top no%,20 : left no%,120 : min no%,1 : max no%,100
end_sub

sub KeyEtage()
  dim_local ne%, x%, y%, l%, c%, sc%
  if JeuEnCours%=0 then exit_sub
  if LigneActive%=0 then exit_sub
  off_click number_key_down
  sc% = scancode
' caption 0,"scan "+str$(sc%)
  select sc%  : ' scancode
    case 37: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      ModifierCellule()
    case 100: ' flèche à gauche
      if ColonneActive%=1 then exit_sub
      ColonneActive% = ColonneActive% - 1
      ModifierCellule()
    case 38: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      ModifierCellule()
    case 104: ' flèche en haut
      if LigneActive%=1 then Exit_sub
      LigneActive% = LigneActive% - 1
      ModifierCellule()
    case 39: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      ModifierCellule()
    case 102: ' flèche à droite
      if ColonneActive%=LargeurEtage% then exit_sub
      ColonneActive% = ColonneActive% + 1
      ModifierCellule()
    case 40: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      ModifierCellule()
    case 98: ' flèche en bas
      if LigneActive%=HauteurEtage% then Exit_sub
      LigneActive% = LigneActive% + 1
      ModifierCellule()
  end_select
end_sub

sub ModifierCellule()
  dim_local i%
  if ModifPartout%=1
    for i%=1 to NombreEtages%
      grid_write base_GridEtage%+i%,LigneActive%,ColonneActive%,CodeActif$
    next i%
  else
    grid_write base_GridEtage%+EtageSelectionne%,LigneActive%,ColonneActive%,CodeActif$
  end_if
end_sub

sub KeyUpEtage()
  on_click number_key_up,ClicEtage
end_sub

sub NombreEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieNombreEtages%+21,NombreEtages%
  show no_SaisieNombreEtages%
  set_focus no_SaisieNombreEtages%+21
end_sub

sub Saisie2Valider()
  dim_local n%
  n% = position(no_SaisieNombreEtages%+21)
  if n%<NombreEtages%
    if message_confirmation_yes_no("Vous allez perdre des étages. Continuer ?")<>1 then exit_sub
  end_if
  NombreEtages% = n%
  hide no_SaisieNombreEtages%
  hide base_GridEtage%+EtageSelectionne%
  EtageSelectionne% = 1
  show base_GridEtage%+EtageSelectionne%
  GenererEtages(0)
  MenuDesEtages()
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie2Abandonner()
  hide no_SaisieNombreEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie3()
  dim_local no%
  no% = no_SaisieDimensionsEtages%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsEtages%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie3Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsEtages%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie3Abandonner
  no% = no_SaisieDimensionsEtages% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+21
    top no%,20 : left no%,130 : min no%,min_LargeurEtage% : max no%,max_LargeurEtage%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsEtages% : width no%,60 : ' no_SaisieDimensionsEtages%+22
    top no%,50 : left no%,130 : min no%,min_HauteurEtage% : max no%,max_HauteurEtage%
end_sub

sub DimensionsEtages()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsEtages%+21,LargeurEtage%
  position no_SaisieDimensionsEtages%+22,HauteurEtage%
  show no_SaisieDimensionsEtages%
  set_focus no_SaisieDimensionsEtages%+21
end_sub

sub Saisie3Valider()
  LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
  HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  if JeuEnCours%=0
    defaut_LargeurEtage% = position(no_SaisieDimensionsEtages%+21)
    defaut_HauteurEtage% = position(no_SaisieDimensionsEtages%+22)
  end_if
  GenererEtages(0)
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie3Abandonner()
  hide no_SaisieDimensionsEtages%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub saisie4()
  dim_local no%
  no% = no_SaisieDimensionsCellules%
  form no% : hide no% : height no%,180 : width no%,200 : caption no%,"Saisie"
    border_hide no% : color no%,255,200,200
    top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,20 : left no%,20 : caption no%,"Largeur des étages:"
  no% = no% + 1 : alpha no% : parent no%,no_SaisieDimensionsCellules%
    top no%,50 : left no%,20 : caption no%,"Hauteur des étages:"
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,20 : caption no%,"Valider" : on_click no%,Saisie4Valider
  no% = no% + 1 : button no% : parent no%,no_SaisieDimensionsCellules%
    top no%,140 : left no%,120 : caption no%,"Abandonner" : on_click no%,Saisie4Abandonner
  no% = no_SaisieDimensionsCellules% + 20
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+21
    top no%,20 : left no%,130 : min no%,min_LargeurCellule% : max no%,max_LargeurCellule%
  no% = no% + 1 : spin no% : parent no%,no_SaisieDimensionsCellules% : width no%,60 : ' no_SaisieDimensionsCellules%+22
    top no%,50 : left no%,130 : min no%,min_HauteurCellule% : max no%,max_HauteurCellule%
end_sub

sub DimensionsCellules()
'  if JeuEnCours%=0 then exit_sub
  inactive 0
  position no_SaisieDimensionsCellules%+21,LargeurCellule%
  position no_SaisieDimensionsCellules%+22,HauteurCellule%
  show no_SaisieDimensionsCellules%
  set_focus no_SaisieDimensionsCellules%+21
end_sub

sub Saisie4Valider()
  if JeuEnCours%=0
    defaut_LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
    defaut_HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  end_if
  LargeurCellule% = position(no_SaisieDimensionsCellules%+21)
  HauteurCellule% = position(no_SaisieDimensionsCellules%+22)
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub Saisie4Abandonner()
  hide no_SaisieDimensionsCellules%
  active 0
  set_focus base_GridEtage%+EtageSelectionne%
end_sub

sub ModifPartout()
  if ModifPartout%=1
    mark_off number_click
    ModifPartout% = 0
  else
    mark_on number_click
    ModifPartout% = 1
  end_if
  AfficherCaption()
end_sub

sub Apropos()
  dim_local s$, crlf$
  crlf$ = chr$(13) + chr$(10)
  s$ = "Génération d'un monde 2D"+crlf$+crlf$
  s$ = s$ + "Version: 1.02"+crlf$+crlf$
  s$ = s$ + "Auteur: Klaus"+crlf$+crlf$
  s$ = s$ + "Créé le: 14/02/2017"
  message s$
end_sub