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
» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Aujourd'hui à 8:06 pm

» Projet de planétarium virtuel.
par Pedro Alvarez Aujourd'hui à 4:46 pm

» Quantité de mémoire utilisée par un exe
par Jack Aujourd'hui à 4:39 pm

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12 am

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018, 2:25 pm

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018, 7:56 pm

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018, 7:14 pm

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018, 8:17 pm

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018, 8:52 pm

» Cadre pour image
par Jean Claude Mar 12 Juin 2018, 4:31 pm

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018, 2:02 pm

» Planétarium gratuit.
par Jean Claude Sam 09 Juin 2018, 6:50 pm

» Comment afficher une image sans fond.
par JL35 Sam 09 Juin 2018, 2:16 pm

» image_width(n) et image_height(n)
par silverman Sam 09 Juin 2018, 11:22 am

» Site sur la programmation sympa
par Jean Claude Jeu 07 Juin 2018, 11:20 am

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Othello

Aller en bas 
AuteurMessage
jjn4

avatar

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

MessageSujet: Othello   Mer 17 Mai 2017, 5:44 pm

En 2014, j'avais présenté une simple table d'exercice, pour ce jeu.
Aujourd'hui, le voici comme un jeu tout à fait complet...
cheers alien sunny
En plus, l'ordinateur est gentil,
il ne cherche pas à vous battre à plate couture à tous les coups,
comme c'est le cas dans bien d'autres jeux...
affraid alien tongue
Il est même tellement gentil qu'il peut vous donner des conseils
pour que vous puissiez encore mieux le battre !
Le pied, non ?
king alien Laughing
Code:
rem ' Othello - par jjn4 - le 16-05-2017 ======================================
  dim V1M% , V2M% , V3M% , V1D$ : rem Variables à utilisation Multiple et Variée
  dim EI% : rem Emplacement Indiqué pour dessiner les pions
  dim CC%(9,9) : rem Pions contenus dans les cases de la grille
  dim CF% : rem Couleur du feu du bas (vert=0 - rouge=1)
  dim CJ% : rem Couleur que joue le joueur seul contre l`ordi (1=Blancs 0=Noirs)
  dim GA%(8,8) : rem Grille d`Analyse de la situation
  dim GR%(8,8) : rem GRille décorative
  dim NC% : rem Nombre de cases où jouer
  dim NQ% : rem Numero de la cellule cliQuée
  dim IO% : rem Indicateur du bouton Où
  dim JP% : rem Indicateur de Juste Place d`un pion
  dim TB% , TN% : rem Total de points des blancs et des noirs
  dim VL%(8) : rem Valeur des Lignes autour du pion joué
  dim TP$ : rem Titre du Programme
  label clac : rem Redirection de tous les on-click hors grille
  label clic : rem Clic sur une cellule de la grille
  CC%(5,4)=1 : CC%(5,5)=2 : CC%(4,4)=2 : CC%(4,5)=1
  V1D$="DBDAADBDECEDDECEBACBBCABFBEDDEBF" : rem Hexadécimal ------------------
  TP$=" Othello - par jjn4 - Ver-130514.2.0"
  for V1M%=1 to 2
      V1D$=reverse$(V1D$)
      for V3M%=1+(V1M%-1)*4 to 4+(V1M%-1)*4
        for V2M%=1 to 8
            GR%(V3M%,V2M%)=asc(mid$(V1D$,((V3M%-1)-(V1M%-1)*4)*8+V2M%,1))-65
        next V2M%
      next V3M%
  next V1M%

rem form0 =====================================================================
  width 0,1000
  height 0,730
  caption 0,TP$

rem Cache de début de jeu =====================================================
  form 5
      width 5,1000
      height 5,730
      caption 5,"  Othello - Suspens..."
  picture 6
      parent 6,5
      full_space 6
      color 6,180,255,255
      2d_target_is 6
      for V1M% = 1 to 30
        V2M%=int(rnd(2))+1
        if V2M%=1
            2d_fill_color 255,255,255
        else
            2d_fill_color 0,0,0
        end_if
        2d_circle int(rnd(900))+50,int(rnd(580))+50,35
      next V1M%
  panel 7
      parent 7,5
      left 7,300
      top 7,400
      width 7,400
      height 7,80
      font_bold 7
      font_size 7,20
      font_name 7,"Arial"
      caption 7,"O  T  H  E  L  L  O"

rem Indicateurs de jeu ========================================================
  button 18 : rem Bouton où
      left 18,9
      top 18,536
      width 18,106
      height 18,106
      font_bold 18
      font_size 18,22
      font_name 18,"Arial"
      caption 18,"Où"
      on_click 18,clac
  alpha 19 : rem Annotation du bouton Où
      left 19,7
      top 19,648
      caption 19,"Conseils de l'ordinateur"
  alpha 20 : rem fond rouge du dessus du bouton où
      hide 20
      left 20,2
      top 20,475
      width 20,120
      height 20,173
      color 20,255,0,0
  alpha 21 : rem Indication du bouton Où
      hide 21
      left 21,20
      top 21,460
      font_color 21,255,0,0
      caption 21,"Cliquez sur Jouer"
  alpha 22 : rem Fond noir du dessus du bouton où
      hide 22
      left 22,9
      top 22,482
      width 22,53
      height 22,54
      color 22,0,0,0
  alpha 24 : rem Fond blanc du dessus du bouton où
      hide 24
      left 24,62
      top 24,482
      width 24,53
      height 24,54
      color 24,255,255,255
  alpha 26 : rem Fond du chiffre blanc sur fond noir (bouton où)
      hide 26
      left 26,17
      top 26,491
      font_bold 26
      font_size 26,24
      color 26,0,0,0
      font_color 26,255,255,255
  alpha 28 : rem Fond du chiffre noir sur fond blanc (bouton où)
      hide 28
      left 28,70
      top 28,491
      font_bold 28
      font_size 28,24
      color 28,255,255,255
  alpha 30 : rem fond blanc du dessus du bouton Haut-Bas
      left 30,10
      top 30,80
      width 30,48
      height 30,53
      color 30,255,255,255
  alpha 32 : rem Fond noir du dessus du bouton Haut-Bas
      left 32,10
      top 32,133
      width 32,48
      height 32,53
      color 32,0,0,0
  alpha 34 : rem Fond rouge du dessus du bouton Haut-Bas
      left 34,58
      top 34,80
      width 34,58
      height 34,53
      color 34,255,0,0
  alpha 36 : rem Fond vert du dessus du bouton Haut-Bas
      left 36,58
      top 36,133
      width 36,58
      height 36,53
      color 36,0,255,0
  button 38 : rem Bouton Haut-Bas
      left 38,10
      top 38,190
      width 38,106
      height 38,106
      font_bold 38
      font_size 38,48
      font_name 38,"Wingdings"
      caption 38,chr$(244)
      on_click 38,clac
      inactive 38
  alpha 39
      left 39,12
      top 39,297
      caption 39,"Inverser Noirs-Blancs"
  alpha 40 : rem Fond noir du nombre de pions noirs
      left 40,10
      top 40,380
      width 40,53
      height 40,53
      color 40,0,0,0
  alpha 42 : rem Fond blanc du nombre de pions blancs
      left 42,63
      top 42,380
      width 42,53
      height 42,53
      color 42,255,255,255
  alpha 44 : rem Écriture bleue du nombre de pions noirs
      left 44,18
      top 44,389
      font_bold 44
      font_size 44,24
      color 44,0,0,0
      font_color 44,0,255,255
  alpha 45 : rem Écriture bleue du nombre de pions blancs
      left 45,71
      top 45,389
      font_bold 45
      font_size 45,24
      color 45,255,255,255
      font_color 45,0,0,255
  alpha 46
      left 46,20
      top 46,435
      caption 46,"Nombre de points"
  alpha 47 : rem Indication que c`est aux Noirs de jouer
      left 47,65
      top 47,138
      font_bold 47
      font_size 47,12
      color 47,0,255,0
      caption 47," Aux"+chr$(13)+"Noirs"
  panel 48 : rem Support de l`indication Impossible de jouer
      hide 48
      left 48,2
      top 48,322
      width 48,120
      height 48,42
      color 48,255,0,0
  alpha 49 : rem Indication Impossible de jouer
      parent 49,48
      left 49,5
      top 49,6
      color 49,255,0,0
      font_bold 49
      caption 49,"Impossible de jouer"+chr$(13)+"  Passer son tour"
 
rem Boutons de commande =======================================================
  button 50 : rem Bouton Aide
      left 50,784
      top 50,25
      width 50,160
      height 50,140
      font_bold 50
      font_size 50,28
      font_name 50,"Arial"
      caption 50,"Aide"
      on_click 50,clac
  alpha 51 : rem Annotation du bouton Aide
      left 51,814
      top 51,10
      caption 51,"Explications diverses"
  button 52 : rem Bouton Nouveau
      left 52,784
      top 52,345
      width 52,160
      height 52,140
      font_bold 52
      font_size 52,20
      font_name 52,"Arial"
      caption 52,"Nouveau"
      on_click 52,clac
  alpha 53 : rem Annotation du bouton Nouveau
      left 53,782
      top 53,330
      caption 53,"Recommencer une nouvelle partie"
  button 54 : rem Bouton Quitter
      left 54,784
      top 54,510
      width 54,160
      height 54,140
      font_bold 54
      font_size 54,22
      font_name 54,"Arial"
      caption 54,"Quitter"
      on_click 54,clac
  alpha 55 : rem Annotation du bouton Quitter
      left 55,820
      top 55,495
      caption 55,"Abandonner ce jeu"
  button 56 : rem Bouton Nombre de joueurs biologiques
      left 56,784
      top 56,190
      width 56,160
      height 56,130
      font_bold 56
      font_size 56,75
      font_name 56,"Arial"
      caption 56,"1"
      on_click 56,clac
  alpha 58 : rem Annotation sur le nombre de joueurs biologiques
      left 58,787
      top 58,175
      caption 58,"Nombre  de  joueurs  biologiques"
  panel 60 : rem Bouton du choix de la couleur de jeu
      left 60,2
      top 60,5
      width 60,120
      height 60,50
      color 60,0,0,0
      font_bold 60
      font_color 60,0,255,255
      caption 60,"Vous jouez noirs"
      on_click 60,clac
  alpha 61 : rem Annotation pour le choix de la couleur du jeu
      left 61,8
      top 61,55
      caption 61,"Cliquez ici pour choisir"
  button 62 : rem Bouton Démarrer
      hide 62
      left 62,784
      top 62,345
      width 62,160
      height 62,140
      font_bold 62
      font_size 62,20
      font_name 62,"Arial"
      caption 62,"Démarrer"
      on_click 62,clac
  alpha 63 : rem Annotation du bouton Démarrer
      hide 63
      left 63,782
      top 63,330
      color 63,255,0,0
      font_color 63,255,255,255
      caption 63,"          Faire agir l'ordinateur          "
     
rem Bordure du tableau ========================================================
  alpha 80
      left 80,125
      top 80,5
      width 80,648
      height 80,648
      color 80,120,90,0
  alpha 90 : rem Commentaires en bas de la grille
      left 90,250
      top 90,660
      caption 90,"Cliquez sur une des cases pour commencer à jouer"

rem Dessin de la grille (101-108 + 111-118 + 121-128 + 131-138 ) ==============
  for V1M%=1 to 8 : rem ( + 141-148 + 151-158 + 161-168 + 171-178)
      for V2M%=1 to 8
        picture 100+(V1M%-1)*10+V2M%
            left 100+(V1M%-1)*10+V2M%,V2M%*80+50
            top 100+(V1M%-1)*10+V2M%,(8-V1M%)*80+10
            width 100+(V1M%-1)*10+V2M%,78
            height 100+(V1M%-1)*10+V2M%,78
            color 100+(V1M%-1)*10+V2M%,180,255,255
            on_click 100+(V1M%-1)*10+V2M%,clic
      next V2M%
  next V1M%

rem Fin de jeu ================================================================
  panel 180
      hide 180
      left 180,960
      top 180,10
      width 180,160
      height 180,155
      color 180,255,255,0
      on_click 180,clac
  alpha 182
      parent 182,180
      left 182,18
      top 182,15
      font_bold 182
      font_size 182,18
      font_name 182,"Arial"
      caption 182," Terminer"+chr$(13)+"  le jeu"+chr$(13)+"  si suite"+chr$(13)+"impossible"
      on_click 182,clac
  panel 185
      hide 185
      left 185,960
      top 185,180
      width 185,160
      height 185,305
      color 185,255,255,0
  alpha 187
      parent 187,185
      left 187,20
      top 187,20
      font_bold 187
      font_size 187,18
      font_name 187,"Arial"
  alpha 189
      parent 189,185
      left 189,20
      top 189,150
      font_bold 189
      font_size 189,18
      font_name 189,"Arial"
  panel 195
      hide 195
      left 195,960
      top 195,500
      width 195,160
      height 195,150
      color 195,255,255,0
      font_size 195,95
      font_name 195,"Webdings"
      font_color 195,255,50,0
      caption 195,chr$(37)
     
  rem Préparation du jeu =====================================================
  for V1M%=0 to 1
      for V2M%=0 to 1
        EI%=134+V1M%*10+V2M%
        dessin(V1M%,V2M%)
      next V2M%
  next V1M%
  dlist 200
  calcul()
  midi_on
  midi_volume 127
  hide 5
 
end : rem ' Début des routines ================================================

sub aide() : rem Aide à l`utilisation du programme ============================
  application_title "  REGLES  DU  JEU  D'OTHELLO"
  V1D$="  Ce jeu consiste à placer des pions de sa couleur"+chr$(13)
  V1D$=V1D$+"de façon à ce que ceux-ci emprisonnent un ou plusieurs"+chr$(13)
  V1D$=V1D$+"pions adverses dans le sens horizontal, vertical ou diagonal."+chr$(13)
  V1D$=V1D$+chr$(13)+"  Les pions capturés prendront alors la couleur du joueur."+chr$(13)
  V1D$=V1D$+"Vous devez placer vos pions à un endroit où ils pourront prendre"+chr$(13)
  V1D$=V1D$+"au moins un pion de l'adversaire."+chr$(13)+chr$(13)
  V1D$=V1D$+"  Les noirs commencent. Si un joueur ne peut pas jouer, il passe"+chr$(13)
  V1D$=V1D$+"son tour. A la fin, le vainqueur est celui qui possède le plus de"+chr$(13)
  V1D$=V1D$+"pions. S'il reste des cases vides, elles comptent pour le vainqueur."+chr$(13)
  V1D$=V1D$+"Vous pouvez jouer à deux ou seul contre l'ordinateur. Si vous pensez"+chr$(13)
  V1D$=V1D$+"devoir passer votre tour, demandez conseil à l'ordinateur (Bouton Où)."+chr$(13)+chr$(13)
  V1D$=V1D$+"  Le programme peut vous prodiguer des conseils en vous indiquant"+chr$(13)
  V1D$=V1D$+"toutes les cases où vous pouvez jouer (jaune + rose) et les cases où"+chr$(13)
  V1D$=V1D$+"il vous conseille préférentiellement de jouer (rose). (Mais si vous"+chr$(13)
  V1D$=V1D$+"trouvez que les conseils de l'ordinateur sont mauvais, l'auteur du"+chr$(13)
  V1D$=V1D$+"programme décline toute responsabilité...)"+chr$(13)
  message V1D$
end_sub

sub auto() : rem Intelligence Artificielle de l`ordinateur ====================
  dim_local v1au% , v2au% , v3au% , v4au%
  hide 48
  if show(60)=1
      caption 0,TP$+string$(40," ")+"L'ORDINATEUR RÉFLÉCHIT..."
      midi_instrument 115
      midi_play 43,10
      pause 1000
      if CF%<>CJ%
        v4au%=CJ%
        if CJ%=0
            v4au%=2
        end_if
        ou2(2)
        if count(200)>0
            v1au%=(int(rnd(count(200)/2))+1)*2-1
        end_if
        if v1au%>0
            v2au%=val(item_read$(200,v1au%))
            v3au%=val(item_read$(200,v1au%+1))
            EI%=v2au%*10+v3au%+90
              NQ%=EI%
            CC%(v2au%,v3au%)=v4au%
            quel(v2au%,v3au%)
            midi_instrument 113
            midi_play 80,10
            for v1au%=1 to 3
              color EI%,255,100,255
              pause 200
              midi_play 80,10
              color EI%,180,255,255
              pause 200
            next v1au%
            dessin(1,v4au%)
            CC%(v2au%,v3au%)=3-v4au%
            pivot()
            feux()
            calcul()
            if caption$(56)="1"
              inactive 38
            end_if
            midi_play 40,10
        else
            width 0,1160
            show 180
            feux()
            show 48
        end_if
        fini(1)
        for v1au%=1 to 8
            for v2au%=1 to 8
              on_click 100+(v1au%-1)*10+v2au%,clic
            next v2au%
        next v1au%
        caption 0,TP$
      end_if
  end_if
end_sub

sub calcul() : rem Calcul du nombre de pions de chacun ========================
  dim_local v1ca% , v2ca%
  TB%=0 : TN%=0
  for v1ca%=1 to 8
      for v2ca%=1 to 8
        if CC%(v1ca%,v2ca%)=1
            TB%=TB%+1
        end_if
        if CC%(v1ca%,v2ca%)=2
            TN%=TN%+1
        end_if
      next v2ca%
  next v1ca%
  caption 44,TN%
  caption 45,TB%
end_sub

sub choix() : rem Choix du nombre de joueurs biologiques ======================
  if val(caption$(56))=1
      caption 56,"2"
      hide 60
      hide 61
      active 18
      active 38
      hide 62
      hide 63
      CJ%=0
      color 60,0,0,0
      font_color 60,0,255,255
      caption 60,"Vous jouez Noirs"
  else
      caption 56,"1"
      show 60
      show 61
      inactive 38
      if CF%=1
        feux()
      end_if
  end_if
end_sub

clac: : rem Redirection de tous les on-click à part ceux de la grille =========
  select number_click
      case 18 : ou()
      case 38 : feux()
      case 50 : aide()
      case 52 : new()
      case 54 : quitter()
      case 56 : choix()
      case 60 : couleur()
      case 62 : commencer()
      case 180 : fini(2)
      case 182 : fini(2)
  end_select
return

clic: : rem Clic sur une cellule de la grille =================================
  NQ%=number_click
  inactive 18
  inactive 52
  inactive 56
  caption 90,""
  if caption$(56)="1"
      inactive 60
  end_if
  if CC%(int((NQ%-100)/10)+1,NQ%-(int(NQ%/10)*10))=0
      hide 180
      V1M%=int((NQ%-100)/10)+1
      V2M%=NQ%-(int(NQ%/10)*10)
      quel(V1M%,V2M%)
      if JP%=1
        2d_target_is NQ%
        2d_pen_color 0,0,0
        midi_instrument 120
        if CF%=1
            2d_fill_color 255,255,255
            CC%(int((NQ%-100)/10)+1,NQ%-(int(NQ%/10)*10))=1
            midi_play 70,10
        else
            2d_fill_color 0,0,0
            CC%(int((NQ%-100)/10)+1,NQ%-(int(NQ%/10)*10))=2
            midi_play 60,10
        end_if
        2d_circle 39,39,35
        pivot()
        feux()
        calcul()
        if show(60)=1
            for V1M%=1 to 8
              for V2M%=1 to 8
                  off_click 100+(V1M%-1)*10+V2M%
              next V2M%
            next V1M%
        end_if
        fini(1)
        pause 400
        auto()
      else
        beep
        caption 90,"Bip = veut dire que vous ne pouvez pas jouer à cet endroit"
      end_if
  else
      beep
      caption 90,"Bip = veut dire que vous ne pouvez pas jouer à cet endroit"
  end_if
  active 18
  active 52
return

sub commencer() : rem L`ordinateur commence le jeu ============================
  hide 62
  hide 63
  inactive 18
  inactive 52
  inactive 56
  if caption$(56)="1"
      inactive 60
  end_if
  auto()
  active 18
  active 52
end_sub

sub couleur() : rem Le joueur seul joue les Noirs ou les Blancs ===============
  if CJ%=0
      CJ%=1
      color 60,255,255,255
      font_color 60,0,0,255
      caption 60,"Vous jouez Blancs"
      show 62
      show 63
      inactive 18
  else
      CJ%=0
      color 60,0,0,0
      font_color 60,0,255,255
      caption 60,"Vous jouez Noirs"
      hide 62
      hide 63
      active 18
  end_if
end_sub

sub dessin(c1%,c2%) : rem Dessine un pion à l`endroit indiqué =================
  rem c1% = Couleur 1
  rem c2% = Couleur 2
  2d_target_is EI%
  2d_fill_color 255,255,255
  if c1%=c2%
      2d_fill_color 0,0,0
  end_if
  2d_pen_color 0,0,0
  2d_circle 39,39,35
end_sub

sub feux() : rem Changement de couleur des feux bicolors ======================
  CF%=1-CF%
  if CF%=1
      color 34,0,255,0
      color 36,255,0,0
      left 47,60
      top 47,86
      caption 47," Aux"+chr$(13)+"Blancs"
      if caption$(56)="1"
        if number_click=38
            inactive 18
            inactive 52
            auto()
            active 18
            active 52
        end_if
      end_if
  else
      color 34,255,0,0
      color 36,0,255,0
      left 47,65
      top 47,138
      caption 47," Aux"+chr$(13)+"Noirs"
  end_if
end_sub

sub fin(cc%) : rem Déclaration de fin de jeu ==================================
  dim_local v1fi% , v2fi% , v3fi%
  rem cc% = Combien de Cases sont remplies de jetons
  width 0,1160
  show 185
  inactive 38
  hide 48
  hide 180
  v1fi%=val(caption$(44))
  v2fi%=val(caption$(45))
  if cc%<64
      v3fi%=64-cc%
  end_if
  if v1fi%>v2fi%
      caption 187,"Les Noirs"+chr$(13)+"ont gagné"
      caption 189,"par "+str$(v1fi%+v3fi%)+" à "+str$(v2fi%)
  end_if
  if v2fi%>v1fi%
      caption 187,"Les Blancs"+chr$(13)+"ont gagné"
      caption 189,"par "+str$(v2fi%+v3fi%)+" à "+str$(v1fi%)
  end_if
  if v2fi%=v1fi%
      caption 187,"Égalité"+chr$(13)+"Personne"+chr$(13)+"n'a gagné"
      caption 189,"( "+str$(v1fi%)+" à "+str$(v2fi%)+" )"
  end_if
  for v1fi%=1 to 8
      for v2fi%=1 to 8
        off_click 100+(v1fi%-1)*10+v2fi%
      next v2fi%
  next v1fi%
  show 195
end_sub

sub fini(qa%) : rem Détection comme quoi le jeu est fini =========================
  dim_local v1fn% , v2fn%
  dim_local ncfn% : rem Nombre de Cases remplies
  rem qa% = Quel Appel
  for v1fn%=1 to 8
      for v2fn%=1 to 8
        if CC%(v1fn%,v2fn%)>0
            ncfn%=ncfn%+1
        end_if
      next v2fn%
  next v1fn%
  if ncfn%=64 or qa%=2
      fin(ncfn%)
  end_if
end_sub

sub new() : rem Recommencer un nouveau jeu ====================================
  dim_local v1ne% , v2ne% , v3ne%
  v1ne%=message_confirmation_yes_no("Recommencer un nouveau jeu ?")
  if v1ne%=1
      for v2ne%=1 to 8
        for v3ne%=1 to 8
            2d_target_is 100+(v2ne%-1)*10+v3ne%
            2d_pen_color 180,255,255
            2d_fill_color 180,255,255
            2d_circle 39,39,35
            CC%(v2ne%,v3ne%)=0
        next v3ne%
      next v2ne%
      for v2ne%=0 to 1
        for v3ne%=0 to 1
            EI%=134+v2ne%*10+v3ne%
            dessin(v2ne%,v3ne%)
        next v3ne%
      next v2ne%
      CC%(5,4)=1 : CC%(5,5)=2 : CC%(4,4)=2 : CC%(4,5)=1
      calcul()
      CF%=1
      feux()
      if caption$(56)="2"
        active 38
      end_if
      active 56
      active 60
      hide 48
      hide 185
      hide 195
      width 0,1000
      CJ%=1
      couleur()
      for v1ne%=1 to 8
        for v2ne%=1 to 8
            on_click 100+(v1ne%-1)*10+v2ne%,clic
        next v2ne%
      next v1ne%
  end_if
end_sub

sub ou() : rem Où placer les pions ============================================
  dim_local v1ou% , v2ou%
  IO%=1-IO%
  if IO%=1
      for v1ou%=20 to 28 step 2
        show v1ou%
      next v1ou%
      show 21
      caption 26+(1-CF%)*2,""
      caption 18,"Jouer"
      inactive 38
      inactive 52
      inactive 56
      if caption$(56)="1"
        inactive 60
      end_if
      ou2(1)
      if count(200)=0
        if show(195)=0
            show 180
            show 48
        end_if
        width 0,1160
      end_if
  else
      for v1ou%=20 to 28 step 2
        hide v1ou%
      next v1ou%
      hide 21
      caption 18,"Où"
      for v1ou%=1 to 8
        for v2ou%=1 to 8
            on_click 100+(v1ou%-1)*10+v2ou%,clic
            if GA%(v1ou%,v2ou%)=1
              color 100+(v1ou%-1)*10+v2ou%,180,255,255
            end_if
        next v2ou%
      next v1ou%
      v1ou%=val(caption$(44))
      v2ou%=val(caption$(45))
      if v1ou%=2 and v1ou%=2
        active 56
        if caption$(56)="1"
            active 60
        end_if
      end_if
      if caption$(56)="2"
        if show(195)=0
            active 38
        end_if
      end_if
      if count(200)=0
        if show(195)=0
            active 38
        end_if
      end_if
      active 52
  end_if
end_sub

sub ou2(qo%) : rem Suite de chercher où mettre les pions =========================
  dim_local v1o2% , v2o2% , v3o2% , v4o2%
  rem qo% = Quelle origine
  for v3o2%=1 to 8
      for v4o2%=1 to 8
        off_click 100+(v3o2%-1)*10+v4o2%
        GA%(v3o2%,v4o2%)=0
      next v4o2%
  next v3o2%
  NC%=0
  for v3o2%=1 to 8
      for v4o2%=1 to 8
        if CC%(v3o2%,v4o2%)=0
            quel(v3o2%,v4o2%)
            if JP%=1
              GA%(v3o2%,v4o2%)=1
              NC%=NC%+1
              if qo%=1
                  color 100+(v3o2%-1)*10+v4o2%,255,255,0
              end_if
            end_if
        end_if
      next v4o2%
  next v3o2%
  caption 26+CF%*2,NC%
  v1o2%=0
  clear 200
  for v2o2%=5 to 0 step -1
      for v3o2%=1 to 8
        for v4o2%=1 to 8
            if (GA%(v3o2%,v4o2%)=1) and (GR%(v3o2%,v4o2%)=v2o2%)
              if qo%=1
                  color 100+(v3o2%-1)*10+v4o2%,255,200,255
              end_if
              item_add 200,v3o2%
              item_add 200,v4o2%
              v1o2%=1
            end_if
        next v4o2%
      next v3o2%
      if v1o2%=1
        exit_for
      end_if
  next v2o2%
end_sub

sub pivot() : rem Faire pivoter les pions =====================================
  dim_local v1pi% , v2pi% , v3pi% , v4pi%
  v3pi%=int((NQ%-100)/10)+1
  v4pi%=NQ%-(int(NQ%/10)*10)
  v1pi%=CC%(v3pi%,v4pi%)
  if VL%(1)>0 : rem Horizontale Est
      for v2pi%=v4pi%+1 to v4pi%+VL%(1)
        2d_target_is 100+(v3pi%-1)*10+v2pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v3pi%,v2pi%)=v1pi%
      next v2pi%
  end_if
  if VL%(2)>0 : rem Oblique Nord-Est
      for v2pi%=v3pi%+1 to v3pi%+VL%(2)
        2d_target_is 100+(v2pi%-1)*10+v4pi%+v2pi%-v3pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v2pi%,v4pi%+v2pi%-v3pi%)=v1pi%
      next v2pi%
  end_if
  if VL%(3)>0 : rem Verticale Nord
      for v2pi%=v3pi%+1 to v3pi%+VL%(3)
        2d_target_is 100+(v2pi%-1)*10+v4pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v2pi%,v4pi%)=v1pi%
      next v2pi%
  end_if
  if VL%(4)>0 : rem Oblique Nord-Ouest
      for v2pi%=v3pi%+1 to v3pi%+VL%(4)
        2d_target_is 100+(v2pi%-1)*10+v4pi%-v2pi%+v3pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v2pi%,v4pi%-v2pi%+v3pi%)=v1pi%
      next v2pi%
  end_if
  if VL%(5)>0 : rem Horizontale Ouest
      for v2pi%=v4pi%-1 to v4pi%-VL%(5) step -1
        2d_target_is 100+(v3pi%-1)*10+v2pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v3pi%,v2pi%)=v1pi%
      next v2pi%
  end_if
  if VL%(6)>0 : rem Oblique Sud-Ouest
      for v2pi%=v3pi%-1 to v3pi%-VL%(6) step -1
        2d_target_is 100+(v2pi%-1)*10+v4pi%+v2pi%-v3pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v2pi%,v4pi%+v2pi%-v3pi%)=v1pi%
      next v2pi%
  end_if
  if VL%(7)>0 : rem Verticale Sud
      for v2pi%=v3pi%-1 to v3pi%-VL%(7) step -1
        2d_target_is 100+(v2pi%-1)*10+v4pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v2pi%,v4pi%)=v1pi%
      next v2pi%
  end_if
  if VL%(8)>0 : rem Oblique Sud-Est
      for v2pi%=v3pi%-1 to v3pi%-VL%(8) step -1
        2d_target_is 100+(v2pi%-1)*10+v4pi%-v2pi%+v3pi%
        2d_pen_color 0,0,0
        2d_fill_color (2-v1pi%)*255,(2-v1pi%)*255,(2-v1pi%)*255
        wait 100
        2d_circle 39,39,35
        CC%(v2pi%,v4pi%-v2pi%+v3pi%)=v1pi%
      next v2pi%
  end_if
end_sub

sub quel(qa%,qo%) : rem Quelle réponse donner au clic =========================
  rem qa% = Quelle Abscisse
  rem qo% = Quelle Ordonnée
  dim_local v1ql% , v2ql%
  v1ql%=2-CF%
  for v2ql%=1 to 8
      VL%(v2ql%)=0
  next v2ql%
  for v2ql%=qo%+1 to qo%+8 : rem Horizontale Est
      if v2ql%<10
        if CC%(qa%,v2ql%)=3-v1ql%
            VL%(1)=VL%(1)+1
        else
            if CC%(qa%,v2ql%)=0
              VL%(1)=VL%(1)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  for v2ql%=qa%+1 to qa%+8 : rem Oblique Nord-Est
      if (v2ql%<10) and ((qo%+v2ql%-qa%)<10)
        if CC%(v2ql%,qo%+v2ql%-qa%)=3-v1ql%
            VL%(2)=VL%(2)+1
        else
            if CC%(v2ql%,qo%+v2ql%-qa%)=0
              VL%(2)=VL%(2)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  for v2ql%=qa%+1 to qa%+8 : rem Verticale Nord
      if v2ql%<10
        if CC%(v2ql%,qo%)=3-v1ql%
            VL%(3)=VL%(3)+1
        else
            if CC%(v2ql%,qo%)=0
              VL%(3)=VL%(3)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  for v2ql%=qa%+1 to qa%+8 : rem Oblique Nord-Ouest
      if (v2ql%<10) and ((qo%-v2ql%+qa%)>-1)
        if CC%(v2ql%,qo%-v2ql%+qa%)=3-v1ql%
            VL%(4)=VL%(4)+1
        else
            if CC%(v2ql%,qo%-v2ql%+qa%)=0
              VL%(4)=VL%(4)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  for v2ql%=qo%-1 to qo%-8 step -1 : rem Horizontale Ouest
      if v2ql%>-1
        if CC%(qa%,v2ql%)=3-v1ql%
            VL%(5)=VL%(5)+1
        else
            if CC%(qa%,v2ql%)=0
              VL%(5)=VL%(5)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  for v2ql%=qa%-1 to qa%-8 step -1 : rem Oblique Sud-Ouest
      if (v2ql%>-1) and ((qo%+v2ql%-qa%)>-1)
        if CC%(v2ql%,qo%+v2ql%-qa%)=3-v1ql%
            VL%(6)=VL%(6)+1
        else
            if CC%(v2ql%,qo%+v2ql%-qa%)=0
              VL%(6)=VL%(6)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  for v2ql%=qa%-1 to qa%-8 step -1 : rem Verticale Sud
      if v2ql%>-1
        if CC%(v2ql%,qo%)=3-v1ql%
            VL%(7)=VL%(7)+1
        else
            if CC%(v2ql%,qo%)=0
              VL%(7)=VL%(7)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  for v2ql%=qa%-1 to qa%-8 step -1 : rem Oblique Sud-Est
      if (v2ql%>-1) and ((qo%-v2ql%+qa%)<10)
        if CC%(v2ql%,qo%-v2ql%+qa%)=3-v1ql%
            VL%(8)=VL%(8)+1
        else
            if CC%(v2ql%,qo%-v2ql%+qa%)=0
              VL%(8)=VL%(8)*0
            end_if
            exit_for
        end_if
      end_if
  next v2ql%
  JP%=0
  for v2ql%=1 to 8
      if VL%(v2ql%)>0
        JP%=1
      end_if
  next v2ql%
end_sub

sub quitter() : rem Sortir du programme =======================================
  dim_local v1qu%
  v1qu%=message_confirmation_yes_no("Quoi, vous voulez réellement quitter ce superbe jeu ?")
  if v1qu%=1
      midi_off
      terminate
  end_if
end_sub
Amusez-vous bien !
Laughing alien geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Othello   Jeu 18 Mai 2017, 8:42 am

Je n'ai pas pu résister à l'envie de tester ton nouveau jeu. Il est super bien fait comme d'hab. Bravo. L'ordi a gagné une fois, j'ai gagné la partie suivante donc c'est bien équilibré (pas trop simple et pas trop dur non plus donc amusant). Visuellement c'est sobre mais joli mais c'est assez normal pour un Othello d'être assez sobre, c'est l'esprit du jeu Wink Bref un excellent jeu pour notre ludotheque. Merci jjn4. As-tu déjà l'idée du prochain jeu ? Je me demande ce que ça donnerait si tu reprenait le Stratego sauce jjn4. Ca prendrait sans doute un peu de temps à équilibrer mais je pense que ça pourrait valoir le coup d'avoir ta version car tu as de super idées.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Jeu 18 Mai 2017, 9:34 am

Excellent !

Il m'a fallu 5 parties avant d'en gagner une. Comme dit Jicehel, on a un bon équilibre de difficulté.
L'aide de l'ordinateur est très utile pour comprendre comment ça marche (je ne connaissais pas ce jeu).

Beau travail. Bon tu n'as pas tout le mérite à toi tout seul, vu le numéro de la version "Ver-130514.2.0". scratch
Je pense que c'est ton ancêtre "JJN premier" qui l'a commencé et ensuite repris par JJN2, JJN3 et que tu n'as simplement qu'actualiser le code. geek Razz Razz Razz

Celui-là je l'ai intégrer dans ma biblio "Jeux fait par les Panoramiciens".


cheers A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Jeu 18 Mai 2017, 1:00 pm

Allez, un record à battre !

Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
jjn4

avatar

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

MessageSujet: +++   Jeu 18 Mai 2017, 6:34 pm

Merci, merci sunny
Non pour le jeu suivant, qui n'est pas stratego.
C'est un un jeu que je ne connais pas vraiment
et sur lequel j'ai vu que pas mal de gens ont travaillé.
Mais je ne dis pas sur quoi je travaille maintenant...
Je garde ma part de mystère, eh, eh...
confused  alien  Suspect
@Jean Claude:
il y a mieux : durant les essais de jeux que j'ai faits
au moment où je le débuggais, je me souviens
qu'une fois (une seule), je l'ai battu par 64 à 0 !
Là, il est peut-être un peu difficile de faire mieux...Laughing
Mais vous pouvez au moins essayer d'en faire autant !Wink
Basketball alien king
C'est vrai que ce jeu est assez remarquable car il est
très imprévisible. Avant la fin, il est difficile de faire
des pronostics, car tout peut se retourner très vite...
scratch alien affraid
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Jeu 18 Mai 2017, 8:00 pm

JJN4 a écrit:
je me souviens
qu'une fois (une seule), je l'ai battu par 64 à 0 !

lol!

Des preuves et aussi des preuves !!!!!

lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Ven 19 Mai 2017, 9:01 am

Nouveau record à battre !

Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
jjn4

avatar

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

MessageSujet: +++   Ven 19 Mai 2017, 1:56 pm

Des preuves, réclame Jean Claude ! Ah !
Il est vrai qu'en ces temps de langue de bois
et de manipulation systématique permanente,
à commencer par la publicité qui nous ment
sans interruption, on peut avoir toujours des doutes...
Razz alien Mad
Mais quand c'est arrivé, j'étais en train de débugger
le programme et le but n'était pas de faire des
copies d'écran de mes performances...
Alors, il faudra se passer des preuves et en revenir
aux bonnes vieilles formules d'antan : faire confiance...
I love you alien scratch
Aaaaah ! va s'écrier Jean Claude, mais ça n'existe
plus, ce truc-là ! Laughing Laughing Laughing Laughing Laughing
En tout cas, progresse et tu vas y parvenir, sûr !
Very Happy alien farao
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Ven 19 Mai 2017, 4:10 pm

J'ai encore progressé: 50 à 14 , c'est un point de plus que précédemment.

Te faire confiance Question  Et bien je dis que l'on peut, car c'est effectivement possible de gagner 64 à 0. cheers

Voici la preuve:



lol!

En tous cas, ce jeu est addictif.  drunken
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Othello   Ven 19 Mai 2017, 5:29 pm

Moi aussi j'ai réussi à avoir tout en noir Wink en fait on peut le piéger (parfois) car il ne peut jouer qu'à un endroit et nous après, on peut le reconvertir Wink (Mais honnêtement, je n'y suis arrivé qu'une fois ....)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Ven 19 Mai 2017, 7:29 pm

Jicehel a écrit:
Mais honnêtement, je n'y suis arrivé qu'une fois ....
Ah, ces bougres d'ordinateurs sont plus rusés qu'on ne le pense !
Laughing Laughing alien lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Ven 19 Mai 2017, 8:06 pm

Citation :
Ah, ces bougres d'ordinateurs sont plus rusés qu'on ne le pense !

Il ne manquerait plus que ça !

Pour moi, les ordinateurs ne sont que des bourrins, s'il n'y avait pas des mecs comme nous pour leurs dire se qu'ils doivent faire, il ne serait rien.

Le jour où ils n'aurons plus besoin de nous, ben... là, on a du souci à se faire. Very Happy Razz Very Happy Razz Very Happy
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Sam 20 Mai 2017, 11:14 am

Nouveau record à battre !



Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Minibug

avatar

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

MessageSujet: Re: Othello   Sam 20 Mai 2017, 11:31 am

En voila une belle réussite...
BRAVO JJN4 cheers cheers cheers

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Sam 20 Mai 2017, 12:00 pm

Bravo Laurent !

Ça va être très dur de faire mieux sans blocage des pions blancs.

cheers cheers cheers cheers

Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Minibug

avatar

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

MessageSujet: Re: Othello   Sam 20 Mai 2017, 12:09 pm

J'ai oublié de préciser que c'était le premier test sur le jeu !

Il faut être un peu stratégique et comme dit jjn4, l'ordinateur est quand même 'gentil' avec nous...

En tout cas Merci encore à jjn4 pour le nouveau jeu ! cheers drunken rendeer geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
jjn4

avatar

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

MessageSujet: +++   Sam 20 Mai 2017, 2:35 pm

Eeeeh, addictif, effectivement !
drunken alien Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Sam 20 Mai 2017, 5:09 pm

JJN4 a écrit:
Eeeeh, addictif, effectivement !

Ben... personnellement c'est le cas !

Mais ce n'est au point de 2048 fait en Panoramic par Minibug dont se demande où il est passé.
Y en a qui disent que c'est Laurent, ben... je leurs fait confiance... Very Happy

A+


Dernière édition par Jean Claude le Sam 20 Mai 2017, 7:04 pm, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
papydall

avatar

Nombre de messages : 5951
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Othello   Sam 20 Mai 2017, 6:09 pm

No comment:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Othello   Sam 20 Mai 2017, 7:08 pm

Ben, c'est pas mal Papydall. Mais le but est maintenant de battre Laurent sans tuer les blancs.

Et ça, ça vas pas être facile de chez facile !

lol!

Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
papydall

avatar

Nombre de messages : 5951
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Othello   Dim 21 Mai 2017, 1:09 am

Je ne cherche pas à être meilleur que les autres.
J’aspire à être meilleur que moi-même ! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Minibug

avatar

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

MessageSujet: Re: Othello   Dim 21 Mai 2017, 10:04 am

Voilà une parole très sage Papydall. A méditer... drunken
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Contenu sponsorisé




MessageSujet: Re: Othello   

Revenir en haut Aller en bas
 
Othello
Revenir en haut 
Page 1 sur 1

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: