FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» StratégoV8 et V9
par Minibug Aujourd'hui à 1:10

» Rotation d'une image d'un angle quelconque
par JL35 Hier à 23:02

» GRID_LOAD
par Jean Claude Hier à 21:04

» HVIEWER
par Yannick Hier à 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Mah-jong grec

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
jjn4

avatar

Nombre de messages : 1656
Date d'inscription : 13/09/2009

MessageSujet: Mah-jong grec   Dim 9 Avr 2017 - 16:29

Vous connaissez les lettres grecques ?
Oui, bon, alpha, bêta... d'accord,
mais certaines risquent de vous
rester bien mystérieuses...
Eh bien, voici un jeu qui va vous les
faire réviser en s'amusant...
Code:
rem ' Mah-Jong grec - par jjn4 - le 09/04/2017 ================================
  dim DC%(6,3) : rem Définition des Couleurs utilisées
  dim ET%(256) : rem État des Tuiles
  dim LCF%(5,6) : rem Limite des Couches par Formule
  dim LG$(39) , LG2$(39) : rem Lettres Grecques et son clone
  dim NB$(9) : rem Nom des Boutons de commande
  dim NF% : rem Numéro de la Formule utilisée
  dim NLG$(39) : rem Nom des Lettres Grecques
  dim NPL% : rem Niveau de Progression dans la liste des coups joués
  dim NRT%(5,3) : rem Nombre de Répétition des Tuiles par formule et niveau
  dim NTR% : rem Nombre de Tuiles Restant non jouées
  dim NTU% : rem Nombre de Tuiles Utilisées par formule
  dim PTC% : rem Numéro de la Première Tuile Cliquée
  dim TG%(256) , TD%(256) : rem Repérage des Tuiles Gauche et Droite
  dim TH1%(256) , TH2%(256) , TH3%(256) , TH4%(256) : rem Tuiles en Haut
  dim V1M% , V2M% , V3M$ , V4M% : rem Variables à utilisation Multiple
  label clic : rem Redirection de tous les on-click

rem Form0 =====================================================================
  width 0,1360
  height 0,720
  caption 0,"  Maj-Jong Grec - par jjn4 - Ver-090417.1.1"

rem Cache de début de jeu =====================================================
  form 10
      width 10,1360
      height 10,720
      caption 10,"  Maj-jong grec - suspens..."
  panel 20
      parent 20,10
      left 20,170
      top 20,100
      width 20,800
      height 20,450
  alpha 30
      parent 30,20
      left 30,10
      top 30,60
      font_size 30,280
      font_name 30,"Webdings"
      caption 30,chr$(83)
  alpha 40
      parent 40,20
      left 40,460
      top 40,180
      font_size 40,50
      font_name 40,"Arial"
      caption 40,"Mah-jong"+chr$(13)+"  grec"
  progress_bar 50
      parent 50,20
      left 50,50
      top 50,30
      width 50,700
      max 50,200
      min 50,0
      position 50,0

rem Panneau de fin de jeu =====================================================
  panel 60
      left 60,280
      top 60,200
      width 60,540
      height 60,80
      font_size 60,20
      font_name 60,"Arial"
      caption 60,"V o u l e z - v o u s    r e j o u e r  ?"
      hide 60
      on_click 60,clic

rem Lecture des datas =========================================================
  for V1M% = 1 to 6
      for V2M% = 1 to 3
        read DC%(V1M%,V2M%)
      next V2M%
  next V1M%
  for V1M% = 1 to 9
      read NB$(V1M%)
  next V1M%
  for V1M% = 1 to 13
      read LG$(V1M%)
  next V1M%
  for V1M% = 14 to 39
      LG$(V1M%)=chr$(V1M%+83)
  next V1M%
  for V1M% = 1 to 39
      read NLG$(V1M%)
  next V1M%
  for V1M% = 1 to 5
      for V2M% = 1 to 3
        read NRT%(V1M%,V2M%)
      next V2M%
  next V1M%
  for V1M% = 1 to 5
      for V2M% = 1 to 6
        read LCF%(V1M%,V2M%)
      next V2M%
  next V1M%
  position 50,50
 
rem Construction des tuiles ===================================================
  for V1M% = 99 to 356
      panel V1M%
        hide V1M%
        width V1M%,65
        height V1M%,95
        font_name V1M%,"Symbol"
        font_size V1M%,40
        on_click V1M%,clic
        inactive V1M%
  next V1M%
  position 50,20
  formule1()
  NF%=1
  position 50,100

rem Déclaration des niveaux et zone de dialogue - n° 400 à 440 ================
  alpha 400
      left 400,1165
      top 400,5
      width 400,150
      height 400,25
      color 400,0,0,0
  alpha 405
      left 405,1173
      top 405,11
      font_bold 405
      color 405,0,0,0
      font_color 405,255,255,255
      caption 405,"  É  T  A  G  E  S"
  rem Objet-Système n° 410 à 415 et 420 à 425 --------------------------------
  for V1M% = 1 to 6
      alpha 409+V1M%
        left 409+V1M%,1140+V1M%*25
        top 409+V1M%,30
        width 409+V1M%,25
        height 409+V1M%,25
        color 409+V1M%,DC%(V1M%,1),DC%(V1M%,2),DC%(V1M%,3)
      alpha 419+V1M%
        left 419+V1M%,1149+V1M%*25
        top 419+V1M%,36
        caption 419+V1M%,V1M%
        color 419+V1M%,DC%(V1M%,1),DC%(V1M%,2),DC%(V1M%,3)
  next V1M%
  rem Zone de dialogue - n° 430 et 440 ---------------------------------------
  alpha 430 : rem Zone de dialogue
      left 430,1165
      top 430,55
      width 430,150
      height 430,25
      color 430,200,200,200
  alpha 440
      left 440,1169
      top 440,59
      font_size 440,10
      font_bold 440
      color 440,200,200,200
      position 50,150

rem Boutons de commande - n° 500 à 580 à pas de 10 ============================
  for V1M% = 1 to 9
      button V1M%*10+490
        left V1M%*10+490,1165
        top V1M%*10+490,(V1M%-1)*65+85
        width V1M%*10+490,150
        height V1M%*10+490,60
        font_bold V1M%*10+490
        font_size V1M%*10+490,14
        font_name V1M%*10+490,"Arial"
        caption V1M%*10+490,NB$(V1M%)
        on_click V1M%*10+490,clic
  next V1M%
  inactive 530
  inactive 540
  position 50,200
  dlist 600 : rem Liste servant à reculer et avancer -------------------------
  panel 700 : rem Cache en cours de partie
      width 700,1150
      height 700,670
  lettres()
  display
  midi_on
  midi_volume 127
  midi_instrument 115
  midi_play 80,10
  caption 440,"Bienvenue"
  parent 20,700
  activer()
  hide 700
  hide 10

end : rem ' Début des routines ================================================

sub activer() : rem Activer les tuiles disponibles en début de jeu ============
  dim_local v1ac% , v2ac%
  for v1ac% = 1 to NTU%
      v2ac%=0
      if TG%(v1ac%)>0 then v2ac%=v2ac%+1
      if TD%(v1ac%)>0 then v2ac%=v2ac%+1
      if TH1%(v1ac%)>0 then v2ac%=v2ac%+1
      if TH2%(v1ac%)>0 then v2ac%=v2ac%+1
      if TH3%(v1ac%)>0 then v2ac%=v2ac%+1
      if TH4%(v1ac%)>0 then v2ac%=v2ac%+1
      if v2ac%<2
        active v1ac%+99
      end_if
  next v1ac%
end_sub

sub affich() : rem Affiche l`indication d`appuyer sur le bouton rejouer =======
  caption 60,"Alors, cliquez sur le bouton « Rejouer »"
end_sub

sub aide()
  dim_local v1ai%
  application_title "  Explication du fonctionnement du Mah-Jong grec"+chr$(13)
  V3M$="  De par leur origine, les Mah-jong sont généralement en chinois."+chr$(13)
  V3M$=V3M$+"Mais pour nous, les caractères chinois se confondent facilement."+chr$(13)
  V3M$=V3M$+"Alors, voici un Mah-jong plus conforme à notre civilisation"+chr$(13)
  V3M$=V3M$+"gréco-latine."+chr$(13)+chr$(13)
  V3M$=V3M$+"  A noter cependant que, conformément à l'esprit de la civilisation"+chr$(13)
  V3M$=V3M$+"chinoise, il n'y a pas de points, ni de compétition, ni de stress,"+chr$(13)
  V3M$=V3M$+"dans ce jeu. C'est un jeu calme où on a tout le temps de réfléchir,"+chr$(13)
  V3M$=V3M$+"le but étant d'aller simplement jusqu'au bout de l'objectif qu'on"+chr$(13)
  V3M$=V3M$+"s'est fixé et de la sérénité qu'on cherche à atteindre."+chr$(13)+chr$(13)
  V3M$=V3M$+"  Le fonctionnement de ce jeu est simple. Les tuiles s'enlèvent"+chr$(13)
  V3M$=V3M$+"deux par deux en les sortant par la gauche ou par la droite, à la"+chr$(13)
  V3M$=V3M$+"condition qu'elles ne soient pas coincées par d'autres tuiles,"+chr$(13)
  V3M$=V3M$+"c'est-à-dire qu'une tuile ayant une copine à sa gauche et une autre"+chr$(13)
  V3M$=V3M$+"à sa droite ne peut être enlevée qu'en retirant d'abord une de celles"+chr$(13)
  V3M$=V3M$+"qui la gênent sur les côtés (idem si elle en a d'autres sur son dos)."
  message V3M$
end_sub

sub avancer() : rem Le joueur avance dans sa progression dans la liste ========
  if count(600)>1 and NPL%<count(600)-1
      desact()
      hide item_read$(600,NPL%+1)
      hide item_read$(600,NPL%+2)
      verif(item_read$(600,NPL%+1))
      verif(item_read$(600,NPL%+2))
      desact()
      NTR%=NTR%-2
      NPL%=NPL%+2
      if NPL%>count(600)-1
        inactive 540
      end_if
      active 530
      caption 440,"Retour vers l'avant"
  end_if
end_sub

clic: : rem Redirection de tous les on-click ==================================
  select number_click
      case 60 : affich()
      case 500 : formule()
      case 510 : niveau()
      case 520 : suggest()
      case 530 : reculer()
      case 540 : avancer()
      case 550 : restruc()
      case 560 : rejouer()
      case 570 : aide()
      case 580 : quitter()
  end_select
  if number_click>99 and number_click<357
      tuile()
  end_if
return

rem Début des datas ===========================================================
  data 255,255,0,255,200,255,0,255,0,255,180,0,0,220,255,255,80,255
  data "Formule 1" , "Niveau 1" , "Suggestion" , " Reculer" , "Avancer"
  data "Restructurer" , "Rejouer" , "Aide" , "Quitter"
  data "D","F","G","J","L","P","Q","S","V","W","X","Y","¡"
  data "delta","phi","gamma","thêta","lambda","pi","thêta","sigma","sigma"
  data "oméga","ksi","psi","upsilon","alpha","bêta","khi","delta","epsilon"
  data "phi","gamma","êta","iota","phi","kappa","lambda","mu","nu","omicron"
  data "pi","thêta","rhô","sigma","tau","upsilon","pi","oméga","ksi","psi","zêta"
  data 16,8,4,14,10,4,16,14,8,32,16,8,22,18,6
  data 148,163,0,0,0,0,184,224,239,0,0,0,213,281,319,323,0,0
  data 205,277,322,346,355,0,178,232,267,287,295,297
rem Fin des datas

sub desact() : rem Désactive-Reactive les boutons de commande =================
  dim_local v1in% , v2in%
  for v1in% = 1 to 7
      if width(v1in%*10+490)=149
        v2in%=1
        exit_for
      end_if
  next v1in%
  if v2in%=0
      for v1in% = 1 to 7
        if active(v1in%*10+490)=1
            width v1in%*10+490,149
            inactive v1in%*10+490
        end_if
      next v1in%
  else
      for v1in% = 1 to 7
        if width(v1in%*10+490)=149
            active v1in%*10+490
            width v1in%*10+490,150
        end_if
      next v1in%
  end_if
end_sub

sub fini() : rem Le joueur a fini de vider sa planche de travail ==============
  dim_local v1fi%
  for v1fi% = 520 to 550 step 10
      inactive v1fi%
  next v1fi%
  caption 440,"Bravo, c'est gagné !"
  show 60
  midi_instrument 100
  for v1fi% = 60 to 72 step 2
      midi_play v1fi%,10
  next v1fi%
  active 500
  active 510
end_sub

sub formule() : rem Modification de la formule ================================
  dim_local v1fo%
  inactive 500
  desact()
  caption 440,"Travail en cours"
  hide 60
  show 700
  position 50,0
  NF%=val(right$(caption$(500),1))
  NF%=NF%+1
  if NF%>5
      NF%=1
  end_if
  caption 500,"Formule "+str$(NF%)
  for v1fo% = 100 to 356
      hide v1fo%
      inactive v1fo%
      TG%(v1fo%-100)=0
      TD%(v1fo%-100)=0
      TH1%(v1fo%-100)=0
      TH2%(v1fo%-100)=0
      TH3%(v1fo%-100)=0
      TH4%(v1fo%-100)=0
  next v1fo%
  NPL%=0
  select NF%
      case 1 : formule1()
      case 2 : formule2()
      case 3 : formule3()
      case 4 : formule4()
      case 5 : formule5()
  end_select
  clear 600
  lettres()
  activer()
  hide 700
  caption 440,"Formule "+str$(NF%)
  midi_instrument 115
  midi_play 80,10
  desact()
  active 500
  active 550
end_sub

sub formule1() : rem Affichage des tuiles de formule 1 - N° 100 à 163 =========
  dim_local v1f1% , v2f1%
  NTU%=64
  rem Couche 1 - tuiles n° 100 à 148 -----------------------------------------
  for v1f1% = 1 to 2
      for v2f1% = 1 to 17
        left (v1f1%-1)*17+v2f1%+99,(v2f1%-1)*65+20
        top (v1f1%-1)*17+v2f1%+99,(v1f1%-1)*95+195
        color (v1f1%-1)*17+v2f1%+99,255,255,0
        TG%((v1f1%-1)*17+v2f1%)=(v1f1%-1)*17+v2f1%+98
        TD%((v1f1%-1)*17+v2f1%)=(v1f1%-1)*17+v2f1%+100
        if v1f1%=2
            TH1%((v1f1%-1)*17+v2f1%)=v2f1%+146
            TH2%((v1f1%-1)*17+v2f1%)=v2f1%+147
        else
            TH3%((v1f1%-1)*17+v2f1%)=v2f1%+146
            TH4%((v1f1%-1)*17+v2f1%)=v2f1%+147
        end_if
      next v2f1%
      position 50,100
  next v1f1% : rem Tuiles n° 134 à 148 .......................................
  for v1f1% = 1 to 5
      for v2f1% = 1 to 3
        left (v1f1%-1)*3+v2f1%+133,(v2f1%-1)*65+475
        top (v1f1%-1)*3+v2f1%+133,(v1f1%-1)*95+5+int(v1f1%/3)*190
        color (v1f1%-1)*3+v2f1%+133,255,255,0
        TG%((v1f1%-1)*3+v2f1%+34)=(v1f1%-1)*3+v2f1%+132
        TD%((v1f1%-1)*3+v2f1%+34)=(v1f1%-1)*3+v2f1%+134
      next v2f1%
  next v1f1%
  for v1f1% = 1 to 3
      TG%((v1f1%-1)*17+1)=0
      TG%((v1f1%-1)*3+38)=0
      TD%((v1f1%-1)*3+34)=0
      TD%((v1f1%-1)*3+43)=0
      TH2%(v1f1%+31)=0
      TH4%(v1f1%+14)=0
  next v1f1%
  for v1f1% = 1 to 2
      TH1%(v1f1%+17)=0
      TH1%(v1f1%+32)=0
      TH1%(v1f1%+41)=v1f1%+161
      TH2%(v1f1%+40)=v1f1%+161
      TH3%((v1f1%-1)*15+1)=0
      TH3%((v1f1%-1)*15+2)=0
      TH3%(v1f1%+25)=v1f1%+161
      TH4%(v1f1%+24)=v1f1%+161
  next v1f1%
  TG%(47)=0 : TD%(17)=0
  TH2%(18)=0 : TH4%(1)=0
  position 50,150
  rem Couche 2 - tuiles n° 149 à 161 -----------------------------------------
  for v1f1% = 1 to 13
      left v1f1%+148,(v1f1%-1)*65+117
      top v1f1%+148,242
      color v1f1%+148,255,200,255
      TG%(v1f1%+49)=v1f1%+147
      TD%(v1f1%+49)=v1f1%+149
  next v1f1% : rem Tuiles n° 162 à 163 .......................................
  for v1f1% = 1 to 2
      left v1f1%+161,(v1f1%-1)*65+507
      top v1f1%+161,337
      color v1f1%+161,255,200,255
      TG%(v1f1%+62)=v1f1%+160
      TD%(v1f1%+62)=v1f1%+162
  next v1f1%
  TG%(50)=0 : TG%(63)=0
  TD%(62)=0 : TD%(64)=0
  position 50,200
  for v1f1% = 100 to 163
      show v1f1%
  next v1f1%
end_sub

sub formule2() : rem Affichage des tuiles de formule 2 - n° 100 à 239 =========
  dim_local v1f2% , v2f2%
  NTU%=140
  rem Couche 1 - tuiles n° 100 à 184 -----------------------------------------
  for v1f2% = 1 to 3
      for v2f2% = 1 to 17
        left (v1f2%-1)*17+v2f2%+99,(v2f2%-1)*65+20
        top (v1f2%-1)*17+v2f2%+99,(v1f2%+1)*95+5
        color (v1f2%-1)*17+v2f2%+99,255,255,0
        TG%((v1f2%-1)*17+v2f2%)=(v1f2%-1)*17+v2f2%+98
        TD%((v1f2%-1)*17+v2f2%)=(v1f2%-1)*17+v2f2%+100
        if v1f2%=1
            TH3%((v1f2%-1)*17+v2f2%)=v2f2%+183
            TH4%((v1f2%-1)*17+v2f2%)=v2f2%+184
        end_if
        if v1f2%=2
            TH1%((v1f2%-1)*17+v2f2%)=v2f2%+183
            TH2%((v1f2%-1)*17+v2f2%)=v2f2%+184
            TH3%((v1f2%-1)*17+v2f2%)=v2f2%+199
            TH4%((v1f2%-1)*17+v2f2%)=v2f2%+200
        end_if
        if v1f2%=3
            TH1%((v1f2%-1)*17+v2f2%)=v2f2%+199
            TH2%((v1f2%-1)*17+v2f2%)=v2f2%+200
        end_if
      next v2f2%
  next v1f2% : rem Tuiles n° 151 à 166 .......................................
  position 50,50
  for v1f2% = 1 to 4
      for v2f2% = 1 to 4
        left (v1f2%-1)*4+v2f2%+150,(v2f2%-1)*65+20+int((v2f2%-1)/2)*845
        top (v1f2%-1)*4+v2f2%+150,(v1f2%-1)*95+5+int((v1f2%-1)/2)*285
        color (v1f2%-1)*4+v2f2%+150,255,255,0
      next v2f2%
  next v1f2% : rem Tuiles n° 167 à 178 .......................................
  for v1f2% = 1 to 4
      for v2f2% = 1 to 3
        left (v1f2%-1)*3+v2f2%+166,(v2f2%-1)*65+475
        top (v1f2%-1)*3+v2f2%+166,(v1f2%-1)*95+5+int((v1f2%-1)/2)*285
        color (v1f2%-1)*3+v2f2%+166,255,255,0
      next v2f2%
  next v1f2% : rem Tuiles n° 179 à 182 .......................................
  for v1f2% = 1 to 4
      left v1f2%+178,(v1f2%-1)*65+345+int((v1f2%-1)/2)*195
      top v1f2%+178,5
      color v1f2%+178,255,255,0
  next v1f2% : rem Tuiles n° 183 à 184 .......................................
  for v1f2% = 1 to 2
      left v1f2%+182,(v1f2%-1)*260+410
      top v1f2%+182,575
      color v1f2%+182,255,255,0
  next v1f2%
  for v1f2% = 1 to 3
      TG%((v1f2%-1)*17+1)=0
      TD%((v1f2%-1)*17+17)=0
  next v1f2%
  for v1f2% = 1 to 8
      TG%((v1f2%-1)*2+53)=v1f2%*2+149
      TD%((v1f2%-1)*2+52)=v1f2%*2+150
  next v1f2%
  TG%(68)=180 : TG%(69)=167 : TG%(70)=168 : TG%(72)=170 : TG%(73)=171
  TG%(75)=173 : TG%(76)=174 : TG%(77)=183 : TG%(78)=176
  TG%(79)=177 : TG%(81)=179 : TG%(82)=169 : TG%(83)=181 : TG%(85)=178
  TD%(68)=168 : TD%(69)=169 : TD%(70)=181 : TD%(71)=171 : TD%(72)=172
  TD%(74)=174 : TD%(75)=175 : TD%(77)=177 : TD%(78)=178
  TD%(79)=184 : TD%(80)=180 : TD%(81)=167 : TD%(82)=182 : TD%(84)=176
  TH1%(2)=217 : TH1%(9)=221 : TH1%(10)=222 : TH1%(17)=218 : TH1%(18)=0
  TH1%(35)=0 : TH1%(61)=219 : TH1%(63)=220 : TH1%(75)=223 : TH1%(76)=224
  TH2%(1)=217 : TH2%(8)=221 : TH2%(9)=222 : TH2%(16)=218 : TH2%(34)=0
  TH2%(51)=0 : TH2%(60)=219 : TH2%(62)=220 : TH2%(74)=223 : TH2%(75)=224
  TH3%(1)=0 : TH3%(18)=0 : TH3%(36)=219 : TH3%(43)=223
  TH3%(44)=224 : TH3%(51)=220 : TH3%(57)=217 : TH3%(59)=218
  TH3%(72)=221 : TH3%(73)=222
  TH4%(17)=0 : TH4%(34)=0 : TH4%(35)=219 : TH4%(42)=223
  TH4%(43)=224 : TH4%(50)=220 : TH4%(56)=217 :  TH4%(58)=218
  TH4%(71)=221 : TH4%(72)=222
  position 50,100
  rem Couche 2 - tuiles n° 185 à 216 -----------------------------------------
  for v1f2% = 1 to 2
      for v2f2% = 1 to 16
        left (v1f2%-1)*16+v2f2%+184,(v2f2%-1)*65+53
        top (v1f2%-1)*16+v2f2%+184,(v1f2%-1)*95+242
        color (v1f2%-1)*16+v2f2%+184,255,200,255
        TG%((v1f2%-1)*16+v2f2%+85)=(v1f2%-1)*16+v2f2%+183
        TD%((v1f2%-1)*16+v2f2%+85)=(v1f2%-1)*16+v2f2%+185
        if v1f2%=1
            TH3%((v1f2%-1)*16+v2f2%+85)=v2f2%+223
            TH4%((v1f2%-1)*16+v2f2%+85)=v2f2%+224
        else
            TH1%((v1f2%-1)*16+v2f2%+85)=v2f2%+223
            TH2%((v1f2%-1)*16+v2f2%+85)=v2f2%+224
        end_if
      next v2f2%
  next v1f2% : rem Tuiles n° 217 à 220 .......................................
  for v1f2% = 1 to 2
      for v2f2% = 1 to 2
        left (v1f2%-1)*2+v2f2%+216,(v2f2%-1)*975+53
        top (v1f2%-1)*2+v2f2%+216,(v1f2%-1)*285+147
        color (v1f2%-1)*2+v2f2%+216,255,200,255
      next v2f2%
  next v1f2% : rem Tuiles n° 221 à 224 .......................................
  for v1f2% = 1 to 2
      for v2f2% = 1 to 2
        left (v1f2%-1)*2+v2f2%+220,(v2f2%-1)*65+508
        top (v1f2%-1)*2+v2f2%+220,(v1f2%-1)*285+147
        color (v1f2%-1)*2+v2f2%+220,255,200,255
      next v2f2%
  next v1f2%
  TG%(86)=0 : TG%(102)=0 : TG%(123)=221 : TG%(125)=223
  TD%(101)=0 : TD%(117)=0 : TD%(122)=222 : TD%(124)=224
  TH1%(102)=0 : TH2%(117)=0 : TH3%(86)=0 : TH4%(101)=0
  position 50,150
  rem Couche 3 - tuiles n°225 à 239 ------------------------------------------
  for v1f2% = 1 to 15
      left v1f2%+224,(v1f2%-1)*65+85
      top v1f2%+224,290
      color v1f2%+224,0,255,0
      TG%(v1f2%+125)=v1f2%+223
      TD%(v1f2%+125)=v1f2%+225
  next v1f2%
  TG%(126)=0 : TD%(140)=0
  position 50,200
  for v1f2% = 100 to 239
      show v1f2%
  next v1f2%
end_sub

sub formule3() : rem Affichage des tuiles de formule 3 - n° 100 à 323 =========
  dim_local v1f3% , v2f3% , v3f3%
  NTU%=224
  rem Couche 1 - n° 100 à 213 ------------------------------------------------
  for v1f3% = 1 to 2
      for v2f3% = 1 to 3
        for v3f3% = 1 to 17
            left (v1f3%-1)*51+(v2f3%-1)*17+v3f3%+99,(v3f3%-1)*65+20
            top (v1f3%-1)*51+(v2f3%-1)*17+v3f3%+99,(v2f3%-1)*95+5+(v1f3%-1)*380
            color (v1f3%-1)*51+(v2f3%-1)*17+v3f3%+99,255,255,0
            TG%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*51+(v2f3%-1)*17+v3f3%+98
            TD%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*51+(v2f3%-1)*17+v3f3%+100
        if v2f3%=1
            TH3%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+211
            TH4%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+212
        end_if
        if v2f3%=2
            TH1%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+211
            TH2%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+212
            TH3%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+225
            TH4%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+226
        end_if
        if v2f3%=3
            TH1%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+225
            TH2%((v1f3%-1)*51+(v2f3%-1)*17+v3f3%)=(v1f3%-1)*28+v3f3%+226
        end_if
        next v3f3%
      next v2f3%
  next v1f3% : rem Tuiles n° 202 à 213 ........................................
  for v1f3% = 1 to 12
      left v1f3%+201,(v1f3%-1)*65+20+int((v1f3%-1)/6)*325
      top v1f3%+201,290
      color v1f3%+201,255,255,0
      TG%(v1f3%+102)=v1f3%+200
      TD%(v1f3%+102)=v1f3%+202
  next v1f3%
  for v1f3% = 1 to 6
      TG%((v1f3%-1)*17+1)=0
      TD%((v1f3%-1)*17+17)=0
  next v1f3%
  TG%(103)=0 : TG%(109)=0
  TD%(108)=0 : TD%(114)=0
  TH1%(18)=0 : TH1%(19)=0 : TH1%(34)=0 : TH1%(35)=0 : TH1%(36)=0 : TH1%(102)=0
  TH1%(51)=0 : TH1%(69)=0 : TH1%(70)=0 : TH1%(85)=0 : TH1%(86)=0 : TH1%(87)=0
  TH1%(105)=270 : TH1%(106)=271 : TH1%(107)=272 : TH1%(111)=273 : TH1%(112)=274 : TH1%(113)=275
  TH1%(54)=276 : TH1%(55)=277 : TH1%(56)=278 : TH1%(65)=279 : TH1%(66)=280 : TH1%(67)=281
  TH2%(18)=0 : TH2%(33)=0 : TH2%(34)=0 : TH2%(35)=0
  TH2%(50)=0 : TH2%(51)=0 : TH2%(69)=0 : TH2%(84)=0 : TH2%(85)=0
  TH2%(86)=0 : TH2%(101)=0 : TH2%(102)=0 : TH2%(104)=270 : TH2%(105)=271 : TH2%(106)=272
  TH2%(110)=273 : TH2%(111)=274 : TH2%(112)=275 : TH2%(53)=276
  TH2%(54)=277 : TH2%(55)=278 : TH2%(64)=279 : TH2%(65)=280 : TH2%(66)=281
  TH3%(1)=0 : TH3%(2)=0 : TH3%(17)=0 : TH3%(18)=0
  TH3%(19)=0 : TH3%(34)=0 : TH3%(52)=0 : TH3%(53)=0
  TH3%(68)=0 : TH3%(69)=0 : TH3%(70)=0 : TH3%(85)=0
  TH3%(37)=270 : TH3%(38)=271 : TH3%(39)=272 : TH3%(48)=273 : TH3%(49)=274
  TH3%(50)=275 : TH3%(105)=276 : TH3%(106)=277 : TH3%(107)=278
  TH3%(111)=279 : TH3%(112)=280 : TH3%(113)=281
  TH4%(1)=0 : TH4%(16)=0 : TH4%(17)=0 : TH4%(18)=0
  TH4%(33)=0 : TH4%(34)=0 : TH4%(52)=0 : TH4%(67)=0 : TH4%(68)=0
  TH4%(69)=0 : TH4%(84)=0 : TH4%(85)=0 : TH4%(36)=270 : TH4%(37)=271
  TH4%(38)=272 : TH4%(47)=273 : TH4%(48)=274 : TH4%(49)=275 : TH4%(104)=276
  TH4%(105)=277 : TH4%(106)=278 : TH4%(110)=279 : TH4%(111)=280 : TH4%(112)=281
  position 50,50
  rem Couche 2 - n° 214 à 281 ------------------------------------------------
  for v1f3% = 1 to 4
      for v2f3% = 1 to 14
        left (v1f3%-1)*14+v2f3%+213,(v2f3%-1)*65+117
        top (v1f3%-1)*14+v2f3%+213,(v1f3%-1)*95+52+int((v1f3%-1)/2)*190
        color (v1f3%-1)*14+v2f3%+213,255,200,255
        TG%((v1f3%-1)*14+v2f3%+114)=(v1f3%-1)*14+v2f3%+212
        TD%((v1f3%-1)*14+v2f3%+114)=(v1f3%-1)*14+v2f3%+214
        if odd(v1f3%)=1
            TH3%((v1f3%-1)*14+v2f3%+114)=int((v1f3%-1)/2)*13+v2f3%+280
            TH4%((v1f3%-1)*14+v2f3%+114)=int((v1f3%-1)/2)*13+v2f3%+281
        else
            TH1%((v1f3%-1)*14+v2f3%+114)=int((v1f3%-1)/2)*13+v2f3%+280
            TH2%((v1f3%-1)*14+v2f3%+114)=int((v1f3%-1)/2)*13+v2f3%+281
        end_if
      next v2f3%
  next v1f3% : rem Tuiles n° 270 à 281 .......................................
  for v1f3% = 1 to 2
      for v2f3% = 1 to 6
        left (v1f3%-1)*6+v2f3%+269,(v2f3%-1)*65+117+int((v2f3%-1)/3)*520
        top (v1f3%-1)*6+v2f3%+269,(v1f3%-1)*95+242
        color (v1f3%-1)*6+v2f3%+269,255,200,255
        TG%((v1f3%-1)*6+v2f3%+170)=(v1f3%-1)*6+v2f3%+268
        TD%((v1f3%-1)*6+v2f3%+170)=(v1f3%-1)*6+v2f3%+270
      next v2f3%
  next v1f3%
  TG%(115)=0 : TG%(129)=0 : TG%(143)=0 : TG%(157)=0
  TG%(171)=0 : TG%(174)=0 : TG%(177)=0 : TG%(180)=0
  TD%(128)=0 : TD%(142)=0 : TD%(156)=0 : TD%(170)=0
  TD%(173)=0 : TD%(176)=0 : TD%(179)=0 : TD%(182)=0
  TH1%(129)=0 : TH1%(144)=316 : TH1%(145)=317 : TH1%(155)=318
  TH1%(156)=319 : TH1%(157)=0 : TH1%(172)=308 : TH1%(173)=309
  TH1%(175)=310 : TH1%(176)=311 : TH1%(178)=312 : TH1%(179)=313
  TH1%(181)=314 : TH1%(182)=315
  TH2%(142)=0 : TH2%(143)=316 : TH2%(144)=317 : TH2%(154)=318
  TH2%(155)=319 : TH2%(170)=0 : TH2%(171)=308 : TH2%(172)=309
  TH2%(174)=310 : TH2%(175)=311 : TH2%(177)=312 : TH2%(178)=313
  TH2%(180)=314 : TH2%(181)=315
  TH3%(115)=0 : TH3%(130)=308 : TH3%(131)=309 : TH3%(141)=310
  TH3%(142)=311 : TH3%(143)=0 : TH3%(172)=312 : TH3%(173)=313
  TH3%(175)=314 : TH3%(176)=315 : TH3%(178)=316 : TH3%(179)=317
  TH3%(181)=318 : TH3%(182)=319
  TH4%(128)=0 : TH4%(129)=308 : TH4%(130)=309 : TH4%(140)=310
  TH4%(141)=311 : TH4%(156)=0 : TH4%(171)=312 : TH4%(172)=313
  TH4%(174)=314 : TH4%(175)=315 : TH4%(177)=316 : TH4%(178)=317
  TH4%(180)=318 : TH4%(181)=319
  position 50,100
  rem Couche 3 - n° 282 à 319 ------------------------------------------------
  for v1f3% = 1 to 2
      for v2f3% = 1 to 13
        left (v1f3%-1)*13+v2f3%+281,(v2f3%-1)*65+150
        top (v1f3%-1)*13+v2f3%+281,(v1f3%-1)*380+100
        color (v1f3%-1)*13+v2f3%+281,0,255,0
        TG%((v1f3%-1)*13+v2f3%+182)=(v1f3%-1)*13+v2f3%+280
        TD%((v1f3%-1)*13+v2f3%+182)=(v1f3%-1)*13+v2f3%+282
      next v2f3%
  next v1f3% : rem Tuiles n° 308 à 319 .......................................
  for v1f3% = 1 to 3
      for v2f3% = 1 to 4
        left (v1f3%-1)*4+v2f3%+307,int((v2f3%-1)/2)*585+(v2f3%-1)*65+150
        top (v1f3%-1)*4+v2f3%+307,(v1f3%-1)*95+195
        color (v1f3%-1)*4+v2f3%+307,0,255,0
      next v2f3%
  next v1f3%
  TG%(183)=0 : TG%(196)=0 : TG%(210)=308 : TG%(212)=310
  TG%(214)=312 : TG%(216)=314 : TG%(218)=316 : TG%(220)=318
  TD%(195)=0 : TD%(208)=0 : TD%(209)=309 : TD%(211)=311
  TD%(213)=313 : TD%(215)=315 : TD%(217)=317 : TD%(219)=319
  TH1%(214)=320 : TH1%(216)=321 : TH1%(218)=322 : TH1%(220)=323
  TH2%(213)=320 : TH2%(215)=321 : TH2%(217)=322 : TH2%(219)=323
  TH3%(210)=320 : TH3%(212)=321 : TH3%(214)=322 : TH3%(216)=323
  TH4%(209)=320 : TH4%(211)=321 : TH4%(213)=322 : TH4%(215)=323
  position 50,150
  rem Couche 4 - n° 320 à 323 ------------------------------------------------
  for v1f3% = 1 to 2
      for v2f3% = 1 to 2
        left (v1f3%-1)*2+v2f3%+319,(v2f3%-1)*715+182
        top (v1f3%-1)*2+v2f3%+319,(v1f3%-1)*95+242
        color (v1f3%-1)*2+v2f3%+319,255,180,0
      next v2f3%
  next v1f3%
  position 50,200
  for v1f3% = 100 to 323
      show v1f3%
  next v1f3%
end_sub

sub formule4() : rem Affichage des tuiles de formule 4 - n° 100 à 355 =========
  dim_local v1f4% , v2f4% , v3f4%
  NTU%=256
  rem Couche 1 n° 100 à 204 --------------------------------------------------
  for v1f4% = 1 to 3
      for v2f4% = 1 to 7
        for v3f4% = 1 to 5
            left (v1f4%-1)*35+(v2f4%-1)*5+v3f4%+99,(v1f4%-1)*390+(v3f4%-1)*65+20
            top (v1f4%-1)*35+(v2f4%-1)*5+v3f4%+99,(v2f4%-1)*95+5
            color (v1f4%-1)*35+(v2f4%-1)*5+v3f4%+99,255,255,0
            TG%((v1f4%-1)*35+(v2f4%-1)*5+v3f4%)=(v1f4%-1)*35+(v2f4%-1)*5+v3f4%+98
            TD%((v1f4%-1)*35+(v2f4%-1)*5+v3f4%)=(v1f4%-1)*35+(v2f4%-1)*5+v3f4%+100
            if v2f4%>1
              TH1%((v1f4%-1)*35+(v2f4%-1)*5+v3f4%)=(v1f4%-1)*24+(v2f4%-1)*4+v3f4%+200
              TH2%((v1f4%-1)*35+(v2f4%-1)*5+v3f4%)=(v1f4%-1)*24+(v2f4%-1)*4+v3f4%+201
            end_if
            if v2f4%<7
              TH3%((v1f4%-1)*35+(v2f4%-1)*5+v3f4%)=(v1f4%-1)*24+(v2f4%-1)*4+v3f4%+204
              TH4%((v1f4%-1)*35+(v2f4%-1)*5+v3f4%)=(v1f4%-1)*24+(v2f4%-1)*4+v3f4%+205
            end_if
        next v3f4%
      next v2f4%
  next v1f4% : rem Tuile n° 205 ..............................................
  left 205,345
  top 205,290
  color 205,255,255,0
  for v1f4% = 0 to 100 step 5
      TG%(v1f4%+1)=0
      TD%(v1f4%+5)=0
      TH1%(v1f4%+1)=0
      TH2%(v1f4%+10)=0
      TH3%(v1f4%+1)=0
      TH4%(v1f4%+10)=0
  next v1f4%
  TG%(51)=205 : TG%(106)=119
  TD%(20)=205 : TD%(106)=150
  TH4%(5)=0 : position 50,50
  rem Couche 2 - tuiles n° 206 à 277 -----------------------------------------
  for v1f4% = 1 to 3
      for v2f4% = 1 to 6
        for v3f4% = 1 to 4
            left (v1f4%-1)*24+(v2f4%-1)*4+v3f4%+205,(v1f4%-1)*390+(v3f4%-1)*65+52
            top (v1f4%-1)*24+(v2f4%-1)*4+v3f4%+205,(v2f4%-1)*95+52
            color (v1f4%-1)*24+(v2f4%-1)*4+v3f4%+205,255,200,255
            TG%((v1f4%-1)*24+(v2f4%-1)*4+v3f4%+106)=(v1f4%-1)*24+(v2f4%-1)*4+v3f4%+204
            TD%((v1f4%-1)*24+(v2f4%-1)*4+v3f4%+106)=(v1f4%-1)*24+(v2f4%-1)*4+v3f4%+206
            if v2f4%>1
              TH1%((v1f4%-1)*24+(v2f4%-1)*4+v3f4%+106)=(v1f4%-1)*15+(v2f4%-1)*3+v3f4%+273
              TH2%((v1f4%-1)*24+(v2f4%-1)*4+v3f4%+106)=(v1f4%-1)*15+(v2f4%-1)*3+v3f4%+274
            end_if
            if v2f4%<6
              TH3%((v1f4%-1)*24+(v2f4%-1)*4+v3f4%+106)=(v1f4%-1)*15+(v2f4%-1)*3+v3f4%+276
              TH4%((v1f4%-1)*24+(v2f4%-1)*4+v3f4%+106)=(v1f4%-1)*15+(v2f4%-1)*3+v3f4%+277
            end_if
        next v3f4%
      next v2f4%
  next v1f4%
  for v1f4% = 107 to 175 step 4
      TG%(v1f4%)=0
      TD%(v1f4%+3)=0
      TH1%(v1f4%+4)=0
      TH2%(v1f4%+7)=0
      TH3%(v1f4%+4)=0
      TH4%(v1f4%+7)=0
  next v1f4%
  TH3%(107)=0 : TH4%(110)=0 : position 50,100
  rem Couche 3 - tuiles n° 278 à 322 -----------------------------------------
  for v1f4% = 1 to 3
      for v2f4% = 1 to 5
        for v3f4% = 1 to 3
            left (v1f4%-1)*15+(v2f4%-1)*3+v3f4%+277,(v1f4%-1)*390+(v3f4%-1)*65+85
            top (v1f4%-1)*15+(v2f4%-1)*3+v3f4%+277,(v2f4%-1)*95+100
            color (v1f4%-1)*15+(v2f4%-1)*3+v3f4%+277,0,255,0
            TG%((v1f4%-1)*15+(v2f4%-1)*3+v3f4%+178)=(v1f4%-1)*15+(v2f4%-1)*3+v3f4%+276
            TD%((v1f4%-1)*15+(v2f4%-1)*3+v3f4%+178)=(v1f4%-1)*15+(v2f4%-1)*3+v3f4%+278
            if v2f4%>1
              TH1%((v1f4%-1)*15+(v2f4%-1)*3+v3f4%+178)=(v1f4%-1)*8+(v2f4%-1)*2+v3f4%+319
              TH2%((v1f4%-1)*15+(v2f4%-1)*3+v3f4%+178)=(v1f4%-1)*8+(v2f4%-1)*2+v3f4%+320
            end_if
            if v2f4%<5
              TH3%((v1f4%-1)*15+(v2f4%-1)*3+v3f4%+178)=(v1f4%-1)*8+(v2f4%-1)*2+v3f4%+321
              TH4%((v1f4%-1)*15+(v2f4%-1)*3+v3f4%+178)=(v1f4%-1)*8+(v2f4%-1)*2+v3f4%+322
            end_if
        next v3f4%
      next v2f4%
  next v1f4%
  for v1f4% = 179 to 221 step 3
      TG%(v1f4%)=0
      TD%(v1f4%+2)=0
      TH1%(v1f4%)=0
      TH2%(v1f4%+2)=0
      TH3%(v1f4%)=0
      TH4%(v1f4%+2)=0
  next v1f4%
  position 50,150
  rem Couche 4 - tuiles n° 323 à 346 -----------------------------------------
  for v1f4% = 1 to 3
      for v2f4% = 1 to 4
        for v3f4% = 1 to 2
            left (v1f4%-1)*8+(v2f4%-1)*2+v3f4%+322,(v1f4%-1)*390+(v3f4%-1)*65+117
            top (v1f4%-1)*8+(v2f4%-1)*2+v3f4%+322,(v2f4%-1)*95+147
            color (v1f4%-1)*8+(v2f4%-1)*2+v3f4%+322,255,180,0
            TG%((v1f4%-1)*8+(v2f4%-1)*2+v3f4%+223)=(v1f4%-1)*8+(v2f4%-1)*2+v3f4%+321
            TD%((v1f4%-1)*8+(v2f4%-1)*2+v3f4%+223)=(v1f4%-1)*8+(v2f4%-1)*2+v3f4%+323
            if v2f4%>1
              TH1%((v1f4%-1)*8+(v2f4%-1)*2+v3f4%+223)=(v1f4%-1)*3+v2f4%+345
              TH2%((v1f4%-1)*8+(v2f4%-1)*2+v3f4%+223)=(v1f4%-1)*3+v2f4%+345
            end_if
            if v2f4%<4
              TH3%((v1f4%-1)*8+(v2f4%-1)*2+v3f4%+223)=(v1f4%-1)*3+v2f4%+346
              TH4%((v1f4%-1)*8+(v2f4%-1)*2+v3f4%+223)=(v1f4%-1)*3+v2f4%+346
            end_if
        next v3f4%
      next v2f4%
  next v1f4%
  for v1f4% = 224 to 246 step 2
      TG%(v1f4%)=0
      TD%(v1f4%+1)=0
      TH1%(v1f4%)=0
      TH2%(v1f4%+1)=0
      TH3%(v1f4%)=0
      TH4%(v1f4%+1)=0
  next v1f4%
  position 50,200
  rem Couche 5 - tuiles n° 347 à 355 -----------------------------------------
  for v1f4% = 1 to 3
      for v2f4% = 1 to 3
        left (v1f4%-1)*3+v2f4%+346,(v1f4%-1)*390+150
        top (v1f4%-1)*3+v2f4%+346,(v2f4%-1)*95+195
        color (v1f4%-1)*3+v2f4%+346,0,220,255
      next v2f4%
  next v1f4%
  for v1f4% = 100 to 355
      show v1f4%
  next v1f4%
end_sub

sub formule5() : rem Affichage des tuiles de formule 5 - n° 100 à 297 =========
  dim_local v1f5% , v2f5% , v3f5% , v4f5%
  NTU%=198
  rem Couche 1 - n° 100 à 176 ------------------------------------------------
  v3f5%=99
  for v1f5% = 1 to 7
      v4f5%=v4f5%+1
      for v2f5% = 1 to 19-v1f5%*2
        v3f5%=v3f5%+1
        left v3f5%,(v2f5%-1)*65+(v1f5%-1)*65+20
        top v3f5%,(v1f5%-1)*95+5
        color v3f5%,255,255,0
        TG%(v3f5%-99)=v3f5%-1
        TD%(v3f5%-99)=v3f5%+1
        if v1f5%>1
            TH1%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+81
            TH2%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+82
        end_if
        if v1f5%<7
            TH3%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+94
            TH4%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+95
        end_if
      next v2f5%
  next v1f5% : rem Tuiles n° 177 à 178 .......................................
  for v1f5% = 1 to 2
      v3f5%=v3f5%+1
      left v3f5%,(v1f5%-1)*390+345
      top v3f5%,575
      color v3f5%,255,255,0
  next v1f5%
  v2f5%=99
  for v1f5% = 6 to 1 step -1
      v2f5%=v2f5%+v1f5%*2+5
      TG%(v2f5%-(v1f5%*2+4)-99)=0
      TD%(v2f5%-(v1f5%*2-12)-(6-v1f5%)*2-99)=0
      TH1%((v2f5%+1)-99)=0
      TH2%(v2f5%+(v1f5%*2+3)-99)=0
      TH3%(v2f5%-(v1f5%*2+4)-99)=0
      TH3%(v2f5%-(v1f5%*2+3)-99)=0
      TH3%(v2f5%-99)=0
      TH4%(v2f5%-(v1f5%*2+4)-99)=0
      TH4%((v2f5%-1)-99)=0
      TH4%(v2f5%-99)=0
  next v1f5%
  TG%(73)=177 : TG%(79)=176
  TD%(78)=172 : TD%(77)=178 : position 50,50
  rem Couche 2 - n° 179 à 232 ------------------------------------------------
  v1f5%=0
  for v1f5% = 1 to 6
      v4f5%=v4f5%+1
      for v2f5% = 1 to 16-v1f5%*2
        v3f5%=v3f5%+1
        left v3f5%,(v2f5%-1)*65+(v1f5%-1)*65+117
        top v3f5%,(v1f5%-1)*95+52
        color v3f5%,255,200,255
        TG%(v3f5%-99)=v3f5%-1
        TD%(v3f5%-99)=v3f5%+1
        if v1f5%>1
            TH1%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+94
            TH2%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+95
        end_if
        if v1f5%<6
            TH3%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+104
            TH4%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+105
        end_if
      next v2f5%
  next v1f5%
  v2f5%=176
  for v1f5% = 6 to 1 step -1
      v2f5%=v2f5%+v1f5%*2+5
      TG%((v2f5%-(7-v1f5%)-13)-99)=0
      TD%(v2f5%-(7-v1f5%)*3+2-99)=0
      TH1%((v2f5%-(7-v1f5%)-13)-99)=0
      TH2%(v2f5%-(7-v1f5%)*3+2-99)=0
      TH3%((v2f5%-(v1f5%*2)-(7-v1f5%)*3+1)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(7-v1f5%)*3+2)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(7-v1f5%)*5+16)-99)=0
      TH4%((v2f5%-(v1f5%*2)-(7-v1f5%)*3+1)-99)=0
      TH4%((v2f5%-(7-v1f5%)*3+1)-99)=0
      TH4%((v2f5%-(7-v1f5%)*3+2)-99)=0
  next v1f5%
  TG%(77)=175 : position 50,80
  rem Couche 3 - N° 233 à 267 ------------------------------------------------
  v1f5%=0
  for v1f5% = 1 to 5
      v4f5%=v4f5%+1
      for v2f5% = 1 to 13-v1f5%*2
        v3f5%=v3f5%+1
        left v3f5%,(v2f5%-1)*65+(v1f5%-1)*65+214
        top v3f5%,(v1f5%-1)*95+100
        color v3f5%,0,255,0
        TG%(v3f5%-99)=v3f5%-1
        TD%(v3f5%-99)=v3f5%+1
        if v1f5%>1
            TH1%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+108
            TH2%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+109
        end_if
        if v1f5%<5
            TH3%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+115
            TH4%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+116
        end_if
      next v2f5%
  next v1f5%
  v2f5%=232
  for v1f5% = 5 to 1 step -1
      v2f5%=v2f5%+v1f5%*2+5
      TG%((v2f5%-(v1f5%*2)-(6-v1f5%)*4)-99)=0
      TD%((v2f5%-(v1f5%*2)-(6-v1f5%)*6+12)-99)=0
      TH1%((v2f5%-(v1f5%*2)-(6-v1f5%)*4)-99)=0
      TH2%((v2f5%-(v1f5%*2)-(6-v1f5%)*6+12)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(6-v1f5%)*4)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(6-v1f5%)*4+1)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(6-v1f5%)*6+12)-99)=0
      TH4%((v2f5%-(v1f5%*2)-(6-v1f5%)*4)-99)=0
      TH4%((v2f5%-(v1f5%*2)-(6-v1f5%)*6+11)-99)=0
      TH4%((v2f5%-(v1f5%*2)-(6-v1f5%)*6+12)-99)=0
  next v1f5%
  position 50,120
  rem Couche 4 - n° 268 à 287 ------------------------------------------------
  v1f5%=0
  for v1f5% = 1 to 4
      v4f5%=v4f5%+1
      for v2f5% = 1 to 10-v1f5%*2
        v3f5%=v3f5%+1
        left v3f5%,(v2f5%-1)*65+(v1f5%-1)*65+311
        top v3f5%,(v1f5%-1)*95+147
        color v3f5%,255,180,0
        TG%(v3f5%-99)=v3f5%-1
        TD%(v3f5%-99)=v3f5%+1
        if v1f5%>1
            TH1%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+121
            TH2%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+(v1f5%-2)*2+122
        end_if
        if v1f5%<4
            TH3%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+125
            TH4%(v3f5%-99)=v3f5%-(19-v1f5%*2)-(v4f5%-1)*5+126
        end_if
      next v2f5%
  next v1f5%
  v2f5%=267
  for v1f5% = 4 to 1 step -1
      v2f5%=v2f5%+v1f5%*2+5
      TG%((v2f5%-(v1f5%*2)-(4-v1f5%)*5-4)-99)=0
      TD%((v2f5%-(v1f5%*2)-(4-v1f5%)*7+3)-99)=0
      TH1%((v2f5%-(v1f5%*2)-(4-v1f5%)*5-4)-99)=0
      TH2%((v2f5%-(v1f5%*2)-(4-v1f5%)*7+3)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(4-v1f5%)*5-4)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(4-v1f5%)*5-4+1)-99)=0
      TH3%((v2f5%-(v1f5%*2)-(4-v1f5%)*7+3)-99)=0
      TH4%((v2f5%-(v1f5%*2)-(4-v1f5%)*5-4)-99)=0
      TH4%((v2f5%-(v1f5%*2)-(4-v1f5%)*7+2)-99)=0
      TH4%((v2f5%-(v1f5%*2)-(4-v1f5%)*7+3)-99)=0
  next v1f5%
  TH1%(188)=0 : TH2%(187)=0 : TH3%(185)=0 : TH4%(184)=0 : position 50,160
  rem Couche 5 - n° 288 à 295 ------------------------------------------------
  v1f5%=0
  for v1f5% = 1 to 2
      v4f5%=v4f5%+1
      for v2f5% = 1 to 7-v1f5%*2
        v3f5%=v3f5%+1
        left v3f5%,(v2f5%-1)*65+(v1f5%-1)*65+408
        top v3f5%,(v1f5%-1)*95+195
        color v3f5%,0,220,255
        TG%(v3f5%-99)=v3f5%-1
        TD%(v3f5%-99)=v3f5%+1
      next v2f5%
  next v1f5%
  v2f5%=287
  for v1f5% = 2 to 1 step -1
      v2f5%=v2f5%+v1f5%*2+5
      TG%((v2f5%-(v1f5%*2)-(2-v1f5%)*4-4)-99)=0
      TD%((v2f5%-(v1f5%*2)-(2-v1f5%)*6)-99)=0
  next v1f5%
  TH1%(195)=296 : TH1%(196)=297
  TH2%(194)=296 : TH2%(195)=297
  TH3%(191)=296 : TH3%(192)=297
  TH4%(190)=296 : TH4%(191)=297 : position 50,190
  rem Couche 6 - n° 296 à 297 ------------------------------------------------
  for v1f5% = 1 to 2
      v3f5%=v3f5%+1
      left v3f5%,(v1f5%-1)*65+506
      top v3f5%,242
      color v3f5%,255,80,255
  next v1f5%
  TG%(198)=296 : TD%(197)=297
  for v1f5% = 100 to 297
      show v1f5%
  next v1f5%
end_sub

sub lettres() : rem Choix des lettres grecques ================================
  dim_local fole% : rem Formule en cours
  dim_local nile% : rem Niveau en cours
  dim_local nlle% : rem Nombre de Lettres à choisir
  dim_local v1le% , v2le% , v3le% : rem Variables à utilisation variée
  fole%=val(right$(caption$(500),1))
  nile%=val(right$(caption$(510),1))
  nlle%=NTU%/NRT%(fole%,nile%)
  for v1le% = 1 to 39
      LG2$(v1le%)=LG$(v1le%)
  next v1le%
  for v1le% = 1 to 400
      v2le%=int(rnd(39))+1
      v3le%=int(rnd(39))+1
      V3M$=LG2$(v2le%)
      LG2$(v2le%)=LG2$(v3le%)
      LG2$(v3le%)=V3M$
  next v1le%
  v3le%=99
  for v1le% = 1 to nlle%
      for v2le% = 1 to NRT%(fole%,nile%)
        v3le%=v3le%+1
        caption v3le%,LG2$(v1le%)
        show v3le%
      next v2le%
  next v1le%
  for v1le% = 1 to 1999
      v2le%=int(rnd(NTU%))+1
      v3le%=int(rnd(NTU%))+1
      V3M$=caption$(v2le%+99)
      caption v2le%+99,caption$(v3le%+99)
      caption v3le%+99,V3M$
  next v1le%
  NTR%=NTU%
end_sub

sub niveau() : rem Modification du niveau =====================================
  dim_local v1ni%
  dim_local quni% : rem QUel NIveau
  inactive 510
  hide 60
  caption 440,"Travail en cours"
  display
  desact()
  quni%=val(right$(caption$(510),1))
  quni%=quni%+1
  if quni%>3
      quni%=1
  end_if
  for v1ni% = 100 to 356
      inactive v1ni%
  next v1ni%
  caption 510,"Niveau "+str$(quni%)
  caption 440,"Niveau "+str$(quni%)
  NPL%=0
  lettres()
  clear 600
  activer()
  midi_instrument 115
  midi_play 80,10
  desact()
  active 510
  active 550
end_sub

sub quitter()
  dim_local v1qu%
  V3M$="Vous n'avez pas essayé toutes les formules."+chr$(13)
  V3M$=V3M$+"Vous désirez vraiment déjà partir ?"
  v1qu%=message_confirmation_yes_no(V3M$)
  if v1qu%=1
      midi_off
      terminate
  end_if
end_sub

sub reculer() : rem Le joueur recule dans sa progression ======================
  if count(600)>1 and NPL%>1
      desact()
      show item_read$(600,NPL%)
      show item_read$(600,NPL%-1)
      verif3(item_read$(600,NPL%))
      verif3(item_read$(600,NPL%-1))
      desact()
      NTR%=NTR%+2
      NPL%=NPL%-2
      if NPL%<2
        inactive 530
      end_if
      caption 440,"Retour en arrière"
      active 540
  end_if
end_sub

sub rejouer() : rem Le joueur demande à faire une autre partie ================
  dim_local v1re%
  v1re%=val(right$(caption$(510),1))
  v1re%=v1re%-1
  caption 440,"Travail en cours"
  caption 510,"Niveau "+str$(v1re%)
  display
  inactive 530
  inactive 540
  hide 60
  desact()
  show 700
  caption 440,"Nouvelle partie"
  clear 600
  for v1re% = 100 to 356
      inactive v1re%
  next v1re%
  NPL%=0
  desact()
  niveau()
  activer()
  active 500
  active 550
  hide 700
  caption 440,"Vous pouvez y aller"
end_sub

sub restruc() : rem Restructurer la partie restante et injouable ==============
  dim_local v1rs% , v2rs% , v3rs% : rem Variables à utilisation multiple
  inactive 530
  inactive 540
  desact()
  caption 440,"Travail en cours"
  display
  for v1rs% = 1 to 1999
      v2rs%=int(rnd(NTU%))+1
      v3rs%=int(rnd(NTU%))+1
      if show(v2rs%+99)=1 and show(v3rs%+99)=1
        V3M$=caption$(v2rs%+99)
        caption v2rs%+99,caption$(v3rs%+99)
        caption v3rs%+99,V3M$
      end_if
  next v1rs%
  caption 440,"Disposition modifiée"
  clear 600
  NPL%=0
  midi_instrument 115
  midi_play 80,10
  desact()
end_sub

sub suggest() : rem Suggestions de l`ordinateur ===============================
  dim_local v1su% , v2su%
  dim_local r1su% , r2su% : rem Réponses trouvées
  desact()
  midi_instrument 115
  midi_play 80,10
  for v1su% = NTU%+99 to 100 step -1
      if active(v1su%)=1
        if show(v1su%)=1
            for v2su% = 100 to NTU%+99
              if v2su%<>v1su%
                  if active(v2su%)=1
                    if show(v2su%)=1
                        if caption$(v2su%)=caption$(v1su%)
                          font_color v1su%,255,0,0
                          font_color v2su%,255,0,0
                          caption 440,"Clignotants rouges"
                          r1su%=v1su%
                          r2su%=v2su%
                          exit_for
                        end_if
                    end_if
                  end_if
              end_if
            next v2su%
            if r1su%>0
              exit_for
            end_if
        end_if
      end_if
  next v1su%
  pause 500
  if r1su%>0
      font_color r1su%,0,0,0
      font_color r2su%,0,0,0
  else
      caption 440,"Jeu impossible"
  end_if
  desact()
  midi_play 80,10
end_sub

sub tuile() : rem Lorsque l`utilisateur clique sur une tuile ==================
  dim_local v1tu%
  inactive 500
  inactive 510
  V3M$=caption$(number_click)
  for v1tu% = 1 to 39
      if LG$(v1tu%)=V3M$
        caption 440,NLG$(v1tu%)
        exit_for
      end_if
  next v1tu%
  if PTC%=0
      PTC%=number_click
      font_color PTC%,255,0,0
      inactive 520
      desact()
  else
      if PTC%=number_click
        font_color PTC%,0,0,0
        active 520
        PTC%=0
        desact()
      else
        if caption$(PTC%)=caption$(number_click)
            font_color PTC%,0,0,0
            hide PTC%
            display
            hide number_click
            verif(PTC%)
            verif(number_click)
            caption 440,"Bien joué"
            if count(600)>0
              if count(600)>NPL%+1
                  for v1tu% = NPL%+1 to count(600)
                    item_delete 600,count(600)
                  next v1tu%
              end_if
            end_if
            item_add 600,PTC%
            item_add 600,number_click
            PTC%=0
            desact()
            inactive 540
            active 520
            active 530
            NPL%=NPL%+2
            NTR%=NTR%-2
            if NTR%<1
              fini()
            end_if
        else
            caption 440,"Lettres différentes"
        end_if
      end_if
  end_if
end_sub

sub verif(qt%) : rem Vérification si la tuile est disponible ==================
  dim_local v1ve% , v2ve%
  dim_local fove% : rem Quelle formule est utilisée
  rem qt% = Quelle Tuile
  fove%=val(right$(caption$(500),1))
  verif2(TG%(qt%-99)) : rem Recherche de tuile à gauche ----------------------
  verif2(TD%(qt%-99)) : rem Recherche de tuile à droite ----------------------
  rem Recherche de tuile en dessous ------------------------------------------
  if qt%>LCF%(fove%,1)
      for v1ve% = 1 to NTU%
        if qt%=TH1%(v1ve%)
            v2ve%=v1ve%
            exit_for
        end_if
      next v1ve%
      verif2(v2ve%+99)
      for v1ve% = 1 to NTU%
        if qt%=TH2%(v1ve%)
            v2ve%=v1ve%
            exit_for
        end_if
      next v1ve%
      verif2(v2ve%+99)
      for v1ve% = 1 to NTU%
        if qt%=TH3%(v1ve%)
            v2ve%=v1ve%
            exit_for
        end_if
      next v1ve%
      verif2(v2ve%+99)
      for v1ve% = 1 to NTU%
        if qt%=TH4%(v1ve%)
            v2ve%=v1ve%
            exit_for
        end_if
      next v1ve%
      verif2(v2ve%+99)
  end_if
end_sub

sub verif2(tt%) : rem Sup de la vérif et activation des tuiles dispo ==========
  dim_local cdve% : rem Calcul du degré de disponibilité de la tuile
  rem tt% = Tuile Trouvée
  if tt%>99
      if show(tt%)=1
        if TG%(tt%-99)>0 and show(TG%(tt%-99))=1
            cdve%=cdve%+1
        end_if
        if TD%(tt%-99)>0 and show(TD%(tt%-99))=1
            cdve%=cdve%+1
        end_if
        if TH1%(tt%-99)>0 and show(TH1%(tt%-99))=1
            cdve%=cdve%+2
        end_if
        if TH2%(tt%-99)>0 and show(TH2%(tt%-99))=1
            cdve%=cdve%+2
        end_if
        if TH3%(tt%-99)>0 and show(TH3%(tt%-99))=1
            cdve%=cdve%+2
        end_if
        if TH4%(tt%-99)>0 and show(TH4%(tt%-99))=1
            cdve%=cdve%+2
        end_if
        if cdve%<2
            active tt%
        end_if
      end_if
  end_if
end_sub

sub verif3(ta%) : rem Vérification en cas de rajout de tuile (reculer) ========
  dim_local v1vi%
  rem ta% = Tuile Ajoutée
  if TG%(ta%-99)>0
      if TG%(TG%(ta%-99)-99)>0
        if show(TG%(TG%(ta%-99)-99))=1
            inactive TG%(ta%-99)
        end_if
      end_if
  end_if
  if TD%(ta%-99)>0
      if TD%(TD%(ta%-99)-99)>0
        if show(TD%(TD%(ta%-99)-99))=1
            inactive TD%(ta%-99)
        end_if
      end_if
  end_if
  for v1vi% = 1 to NTU%
      if TH1%(v1vi%)=ta%
        inactive v1vi%+99
      end_if
      if TH2%(v1vi%)=ta%
        inactive v1vi%+99
      end_if
      if TH3%(v1vi%)=ta%
        inactive v1vi%+99
      end_if
      if TH4%(v1vi%)=ta%
        inactive v1vi%+99
      end_if
  next v1vi%
end_sub
Amusez-vous bien !
Laughing alien scratch Laughing


Dernière édition par jjn4 le Dim 9 Avr 2017 - 19:14, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jicehel

avatar

Nombre de messages : 5876
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Mah-jong grec   Dim 9 Avr 2017 - 16:47

Bravo, encore un jeu superbe en moins de 1400 lignes. Bravo, tu es vraiment doué. Très bon Mahjong
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2483
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mah-jong grec   Dim 9 Avr 2017 - 17:15

Félicitation pour ce nouveau Jeu !  cheers

Juste une petit remarque :
Les versions sur lesquels j'ai joué permettent la prise par la gauche et la droite mais aussi le haut et le bas.

Mais bon, il ne s'agit pas de version 'greco-latine' ! De plus les créateurs ne sont certainement pas martien ! drunken
Ceci explique sûrement cela...
Laughing Laughing Laughing Laughing


Dernière édition par Laurent (Minibug) le Dim 9 Avr 2017 - 19:04, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Yannick

avatar

Nombre de messages : 8011
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re   Dim 9 Avr 2017 - 18:27

cheers cheers cheers cheers cheers cheers cheers cheers cheers cheers cheers cheers cheers
Super jeu JJN4 !!!

Bravo, j' ai sorti la t^te de "SimpleEditor" quelques minutes 
pour tester tous les programmes des uns et des autres et,
je dois me suis bien amusé avec les grecs.
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1656
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 9 Avr 2017 - 18:51

Merci à tous !
I love you
Laurent a écrit:
Les versions sur lesquels j'ai joué permettent la prise par la gauche et la droite mais aussi le haut et le bas
Comprends pas ?????? scratch
Si les tuiles ont une copine à gauche et une autre à droite
(rien à voir avec les élections et la politique) Laughing
on ne peut pas les sortir, qu'elles soient en haut, en bas ou au milieu,
ou bien si elles en ont au moins une autre en dessus.
Exemple : dans la formule 2, les 5 tuiles situées au milieu en haut
ne peuvent être sorties qu'en retirant celles qui gênent à gauche ou à droite,
et le fait qu'elles soient potentiellement libres par le haut n'y change rien.
scratch scratch
Mais peut-être je n'ai pas donné assez d'explication sur le comment ça marche.
J'étudie ça...
study alien scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Minibug

avatar

Nombre de messages : 2483
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mah-jong grec   Dim 9 Avr 2017 - 19:04

Citation :
Comprends pas ?????? scratch

Eh ben en fait moi non plus !!! Laughing Laughing Laughing
Je viens de me rendre compte que j'ai dis n'importe quoi...

Désolé Jjn4 ! Je me suis mélangé les idées Exclamation Suspect drunken geek
En fait Tout est Ok !


Dernière édition par Laurent (Minibug) le Mer 12 Avr 2017 - 8:21, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
jjn4

avatar

Nombre de messages : 1656
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 9 Avr 2017 - 19:19

Si, si, c'est vrai que ce n'est pas si évident,
d'autant que les chinois y jouent de façon
assez différente (jeu d'argent --> wikipedia).
Suspect confused
Alors, j'ai fait un petit ajout aux explications
du système d'aide du jeu (voir plus haut).
Comme ça, ce sera plus clair !
jocolor alien flower
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jicehel

avatar

Nombre de messages : 5876
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Mah-jong grec   Dim 9 Avr 2017 - 20:32

Pour moi, je jeu est tel que je le connais (à part les tuiles qui sont différentes dans les jeux chinois / japonnais) mais ça c'est un peu l'idée de base Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 666
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Mah-jong grec   Mer 12 Avr 2017 - 7:04

bjr

j'ai essayé ton jeu et je tire mon chapeau
Il mérite bien d'être dans 01NET ou dans d'autre
site de téléchargement !!!!!!!!!!!!!!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5876
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Mah-jong grec   Mer 12 Avr 2017 - 8:21

Et encore, tu imagines, il a fait tout ça sans sprite ou autres ressources, une fois de plus. Il faut être sacrément créatif et je redis "chapeau bas" pour ce jeu mais surtout pour l'ensemble. Déjà en faire un comme ça, c'est génial mais une série comme ça, moi je dis qu'il faut sans doute venir d'une autre planète...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc



Nombre de messages : 582
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Mah-jong grec   Mer 12 Avr 2017 - 10:42

cheers  cheers  cheers  cheers  cheers  cheers  cheers

Excellent ! ! ! !

Merci Jjn4 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1656
Date d'inscription : 13/09/2009

MessageSujet: +++   Jeu 13 Avr 2017 - 18:24

Merci, merci à tous.
J'ai effectivement l'intention de réformer mon site
(que je n'ai guère rénové depuis un certain temps)
pour le consacrer aux jeux que j'ai fait...
bounce alien Basketball
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Contenu sponsorisé




MessageSujet: Re: Mah-jong grec   

Revenir en haut Aller en bas
 
Mah-jong grec
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Casa Grecque
» appel à vos talents =3 avatar JongHun [OPEN]
» Les mots arabes d'origine grecque ou latine
» HONG JONG HYUN & KIM HYUN JOONG avatar ?
» Bang Dong Ho ft. Lee Sung Jong (Infinite) {free}

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: