Le jeu des quatre cavaliers

rem ============================================================================
rem         Problème des quatres cavalières
rem              4cavalieres.bas
rem               Par Papydall
rem ============================================================================

Jeu()

end
rem ============================================================================
SUB Jeu()

    label click
    dim rep$,fich$,i,t(9),n ,clic ,depart,arrivee, nb_deplacement
    height 0,700 : width 0,1200
    rep$ = "C:\Users\acer\Desktop\4Cavalieres\" : ' Adapter le chemin qui mène à ... Rome !

    button 5 : top 5,50 : left 5,900 : caption 5,"RAZ" : on_click 5,click
    alpha  6 : top 6,55 : left 6,1000: caption 6,"Nb Mouvements : " : font_bold 6
    alpha  7 : top 7,55 : left 7,1100
    for i = 10 to 90 step 10
        picture i : width i,260 : height i,200
        on_click i,click
    next i
    top 10,010 : left 10,030 : top 20,010 : left 20,300
    top 30,010 : left 30,570 : top 40,220 : left 40,030
    top 50,220 : left 50,300 : top 60,220 : left 60,570
    top 70,430 : left 70,030 : top 80,430 : left 80,300
    top 90,430 : left 90,570

    Init(): info()
    
end_sub
rem ============================================================================
SUB Init()
    dim_local i

    for i = 10 to 90 step 10 : file_load i,rep$+"cavaliere0.jpg" : t(i/10) = 0 : next i
    fich$ = "cavaliere1.jpg" : file_load 10,rep$+fich$  : file_load 30,rep$+fich$
    fich$ = "cavaliere2.jpg" : file_load 70,rep$+fich$  : file_load 90,rep$+fich$
    t(1) = 1 : t(3) = 1 : t(7) = 2 : t(9) = 2 : clic = 0 : Nb_deplacement = 0
    caption 7,str$(nb_deplacement)
END_SUB
rem ============================================================================
' Informations sur le jeu
SUB Info()

    label fermer
    form 1 : left 1,50 : top 1,50 : height 1,500 : width 1, 700
    print_target_is 1 : font_bold 1 : font_size 1,12 : font_color 1,0,0,255
    button 2 : parent 2,1 : top 2,400 : left 2, 300 : caption 2,"Fermer"
    on_click 2,fermer
    print : print : print " Problème des quatres cavaliers":print
    print " Sur un plateau de 3X3 cases, on place deux cavalières (sur la plage) en haut":print
    print " et deux autres cavalières (dans la forêt.) en bas" :print
    print " Le but du jeu est de permuter les cavalières (sur la plage et dans la forêt)": print
    print " avec le minimum de déplacements." : print
    print " Il est seulement permis de déplacer une cavalière vers une case vide en utilisant": print
    print " les mouvements du cavalier du jeu d'échec.": print
    print " Cliquez sur la cavalière à déplacer, puis cliquez sur la case cible.":print
    print " Le programme veille à ce que le déplacement soit possible" :print
    print " Sinon,il ne se passe rien!":print
    print " Il est possible de parvenir à la solution en effectuant seulement seize déplacements.": print
    print " Indice : Il faut passer d'une configuration en X à une configuration en + puis en X ..."

end_sub
rem ============================================================================
' Fermer la fenêtre d'info
Fermer:
  hide 1
  return
rem ============================================================================
' Gestion des clicks
Click:

  n = number_click : clic = clic + 1
  if n = 5 then Init() : return
  if depart = 0 then depart = n
  if clic = 2 then arrivee = n : deplacement_Valide()
  
return
rem ============================================================================
' Teste la validité du déplacement
' La case du départ doit contenir une cavalière et la case d'arrivée doit être libre
' et satisfaire au mouvement du cavalier du jeu d'échec.
SUB Deplacement_Valide()
    dim_local i
    i = arrivee/10
    if (depart = 10) and ((arrivee = 60) or ( arrivee = 80)) and (t(i) = 0) then Deplacer()
    if (depart = 20) and ((arrivee = 70) or ( arrivee = 90)) and (t(i) = 0) then Deplacer()
    if (depart = 30) and ((arrivee = 40) or ( arrivee = 80)) and (t(i) = 0) then Deplacer()
    if (depart = 40) and ((arrivee = 30) or ( arrivee = 90)) and (t(i) = 0) then Deplacer()
    if (depart = 60) and ((arrivee = 10) or ( arrivee = 70)) and (t(i) = 0) then Deplacer()
    if (depart = 70) and ((arrivee = 60) or ( arrivee = 20)) and (t(i) = 0) then Deplacer()
    if (depart = 80) and ((arrivee = 10) or ( arrivee = 30)) and (t(i) = 0) then Deplacer()
    if (depart = 90) and ((arrivee = 20) or ( arrivee = 40)) and (t(i) = 0) then Deplacer()
    clic = 0 : depart = 0  : arrivee = 0
    caption 7,str$(nb_deplacement)
    if Nb_deplacement > 15 then verif()
    
END_SUB
rem ============================================================================
' Ici, on effectue le mouvement de la cavalière
SUB Deplacer()
    file_load depart,rep$+"cavaliere0.jpg"
    fich$ = "cavaliere" + str$(t(depart/10)) + ".jpg"
    file_load arrivee,rep$+fich$ : t(arrivee/10) = t(depart/10) : t(depart/10) = 0
    if fich$ <> "cavaliere0.jpg" then Nb_deplacement = Nb_deplacement + 1
END_SUB
rem ============================================================================
' Ici, on vérifie si on a réussi à trouver la solution
' Si oui un message de félicitation (avec appréciation) s'affiche
SUB Verif()
    dim_local t$
    if (t(1) = 2) and (t(3) = 2) and (t(7) = 1) and (t(9) = 1)
       t$ =  "*** Félicitations ***"
       if Nb_deplacement = 16
          t$ = t$ + "!!! BRAVO ! Vous êtes le champion des champions !!!" + chr$(13)
          t$ = t$ + "!!! Vous avez gagné le CHEVAL D'OR !!!"
       else
          if Nb_deplacement < 23
             t$ = "!!! BRAVO ! Vous êtes le champion !!!" + chr$(13)
             t$ = t$ + " Vous pouvez mieux faire !!!" + chr$(13)
             t$ = t$ + "!!! Vous avez gagné le CHEVAL D'ARGENT !!!"
          else
             t$ = "!!! BRAVO ! Vous êtes un champion !!!" + chr$(13)
             t$ = t$ + "Mais vous pouvez améliorer votre score !!!" + chr$(13)
             t$ = t$ + "!!! Vous avez gagné le CHEVAL DE BRONZE !!!"
          end_if
       end_if
       message t$
    end_if
end_sub
rem ============================================================================

rem ============================================================================
rem         Problème des quatres cavalières
rem              4cavalieres.bas
rem               Par Papydall
rem ============================================================================

Jeu()

end
rem ============================================================================
SUB Jeu()

    label click
    dim rep$,fich$,i,t(9),n ,clic ,depart,arrivee, nb_deplacement
    height 0,700 : width 0,1200
    rep$ = "C:\Users\acer\Desktop\4Cavalieres\" : ' Adapter le chemin qui mène à ... Rome !

    button 5 : top 5,50 : left 5,900 : caption 5,"RAZ" : on_click 5,click
    alpha  6 : top 6,55 : left 6,1000: caption 6,"Nb Mouvements : " : font_bold 6
    alpha  7 : top 7,55 : left 7,1100
    list 8 : top 8,100 : left 8, 900 : width 8,200 : height 8,550 : font_bold 8
    for i = 10 to 90 step 10
        picture i : width i,260 : height i,200
        on_click i,click
    next i
    top 10,010 : left 10,030 : top 20,010 : left 20,300
    top 30,010 : left 30,570 : top 40,220 : left 40,030
    top 50,220 : left 50,300 : top 60,220 : left 60,570
    top 70,430 : left 70,030 : top 80,430 : left 80,300
    top 90,430 : left 90,570

    Init(): info()

end_sub
rem ============================================================================
SUB Init()
    dim_local i

    for i = 10 to 90 step 10 : file_load i,rep$+"cavaliere0.jpg" : t(i/10) = 0 : next i
    fich$ = "cavaliere1.jpg" : file_load 10,rep$+fich$  : file_load 30,rep$+fich$
    fich$ = "cavaliere2.jpg" : file_load 70,rep$+fich$  : file_load 90,rep$+fich$
    t(1) = 1 : t(3) = 1 : t(7) = 2 : t(9) = 2 : clic = 0 : Nb_deplacement = 0
    caption 7,str$(nb_deplacement)
    clear 8 : item_add 8,"  Mouvements effectués"
END_SUB
rem ============================================================================
' Informations sur le jeu
SUB Info()

    label fermer
    form 1 : left 1,50 : top 1,50 : height 1,500 : width 1, 700
    print_target_is 1 : font_bold 1 : font_size 1,12 : font_color 1,0,0,255
    button 2 : parent 2,1 : top 2,400 : left 2, 300 : caption 2,"Fermer"
    on_click 2,fermer
    print : print : print " Problème des quatres cavaliers":print
    print " Sur un plateau de 3X3 cases, on place deux cavalières (sur la plage) en haut":print
    print " et deux autres cavalières (dans la forêt.) en bas" :print
    print " Le but du jeu est de permuter les cavalières (sur la plage et dans la forêt)": print
    print " avec le minimum de déplacements." : print
    print " Il est seulement permis de déplacer une cavalière vers une case vide en utilisant": print
    print " les mouvements du cavalier du jeu d'échec.": print
    print " Cliquez sur la cavalière à déplacer, puis cliquez sur la case cible.":print
    print " Le programme veille à ce que le déplacement soit possible" :print
    print " Sinon,il ne se passe rien!":print
    print " Il est possible de parvenir à la solution en effectuant seulement seize déplacements.": print
    print " Indice : Il faut passer d'une configuration en X à une configuration en + puis en X ..."

end_sub
rem ============================================================================
' Fermer la fenêtre d'info
Fermer:
  hide 1
  return
rem ============================================================================
' Gestion des clicks
Click:

  n = number_click : clic = clic + 1
  if n = 5 then Init() : return
  if depart = 0 then depart = n
  if clic = 2 then arrivee = n : deplacement_Valide()

return
rem ============================================================================
' Teste la validité du déplacement
' La case du départ doit contenir une cavalière et la case d'arrivée doit être libre
' et satisfaire au mouvement du cavalier du jeu d'échec.
SUB Deplacement_Valide()
    dim_local i
    i = arrivee/10
    if (depart = 10) and ((arrivee = 60) or ( arrivee = 80)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 20) and ((arrivee = 70) or ( arrivee = 90)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 30) and ((arrivee = 40) or ( arrivee = 80)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 40) and ((arrivee = 30) or ( arrivee = 90)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 60) and ((arrivee = 10) or ( arrivee = 70)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 70) and ((arrivee = 60) or ( arrivee = 20)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 80) and ((arrivee = 10) or ( arrivee = 30)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 90) and ((arrivee = 20) or ( arrivee = 40)) and (t(i) = 0) then Deplacer() : exit_sub
    clic = 0 : depart = 0  : arrivee = 0

END_SUB
rem ============================================================================
' Ici, on effectue le mouvement de la cavalière
SUB Deplacer()
    file_load depart,rep$+"cavaliere0.jpg"
    fich$ = "cavaliere" + str$(t(depart/10)) + ".jpg"
    file_load arrivee,rep$+fich$ : t(arrivee/10) = t(depart/10) : t(depart/10) = 0
    if fich$ <> "cavaliere0.jpg" then Nb_deplacement = Nb_deplacement + 1
    item_add 8,"  Case " + str$(depart/10) + " ==> case " + str$(arrivee/10)
    clic = 0 : depart = 0  : arrivee = 0
    caption 7,str$(nb_deplacement)
    if Nb_deplacement > 15 then verif()
    
END_SUB
rem ============================================================================
' Ici, on vérifie si on a réussi à trouver la solution
' Si oui un message de félicitation (avec appréciation) s'affiche
SUB Verif()
    dim_local t$
    if (t(1) = 2) and (t(3) = 2) and (t(7) = 1) and (t(9) = 1)
       t$ =  "*** Félicitations ***"
       if Nb_deplacement = 16
          t$ = t$ + "!!! BRAVO ! Vous êtes le champion des champions !!!" + chr$(13)
          t$ = t$ + "!!! Vous avez gagné le CHEVAL D'OR !!!"
       else
          if Nb_deplacement < 23
             t$ = "!!! BRAVO ! Vous êtes le champion !!!" + chr$(13)
             t$ = t$ + " Vous pouvez mieux faire !!!" + chr$(13)
             t$ = t$ + "!!! Vous avez gagné le CHEVAL D'ARGENT !!!"
          else
             t$ = "!!! BRAVO ! Vous êtes un champion !!!" + chr$(13)
             t$ = t$ + "Mais vous pouvez améliorer votre score !!!" + chr$(13)
             t$ = t$ + "!!! Vous avez gagné le CHEVAL DE BRONZE !!!"
          end_if
       end_if
       message t$
    end_if
end_sub
rem ============================================================================

rem ============================================================================
rem         Problème des quatres cavalières
rem              4cavalieres.bas
rem               Par Papydall
rem ============================================================================

Jeu()

end
rem ============================================================================
SUB Jeu()

    label click
    dim rep$,fich$,i,t(9),n ,clic ,depart,arrivee, nb_deplacement
    height 0,700 : width 0,1200
    rep$ = "C:\Users\acer\Desktop\4Cavalieres\" : ' Adapter le chemin qui mène à ... Rome !

    button 5 : top 5,50 : left 5,850 : caption 5,"RAZ" : on_click 5,click
    alpha  6 : top 6,55 : left 6,950: caption 6,"Nb Mouvements : " : font_bold 6
    alpha  7 : top 7,55 : left 7,1050
    list 8 : top 8,100 : left 8, 900 : width 8,200 : height 8,550 : font_bold 8
    button 9 : top 9,50 : left 9,1100 : caption 9,"AUTORUN" : on_click 9,click
        for i = 10 to 90 step 10
        picture i : width i,260 : height i,200 : on_click i,click
    next i
    top 10,010 : left 10,030 : top 20,010 : left 20,300
    top 30,010 : left 30,570 : top 40,220 : left 40,030
    top 50,220 : left 50,300 : top 60,220 : left 60,570
    top 70,430 : left 70,030 : top 80,430 : left 80,300
    top 90,430 : left 90,570

    Init(): info()

end_sub
rem ============================================================================
SUB Init()
    dim_local i
    for i = 10 to 90 step 10 : file_load i,rep$+"cavaliere0.jpg" : t(i/10) = 0 : next i
    fich$ = "cavaliere1.jpg" : file_load 10,rep$+fich$  : file_load 30,rep$+fich$
    fich$ = "cavaliere2.jpg" : file_load 70,rep$+fich$  : file_load 90,rep$+fich$
    t(1) = 1 : t(3) = 1 : t(7) = 2 : t(9) = 2 : clic = 0 : Nb_deplacement = 0
    caption 7,str$(nb_deplacement)
    clear 8 : item_add 8,"  Mouvements effectués"
END_SUB
rem ============================================================================
' Informations sur le jeu
SUB Info()

    label fermer
    form 1 : left 1,50 : top 1,50 : height 1,500 : width 1, 700
    print_target_is 1 : font_bold 1 : font_size 1,12 : font_color 1,0,0,255
    button 2 : parent 2,1 : top 2,400 : left 2, 300 : caption 2,"Fermer"
    on_click 2,fermer
    print : print : print " Problème des quatres cavaliers":print
    print " Sur un plateau de 3X3 cases, on place deux cavalières (sur la plage) en haut":print
    print " et deux autres cavalières (dans la forêt.) en bas" :print
    print " Le but du jeu est de permuter les cavalières (sur la plage et dans la forêt)": print
    print " avec le minimum de déplacements." : print
    print " Il est seulement permis de déplacer une cavalière vers une case vide en utilisant": print
    print " les mouvements du cavalier du jeu d'échec.": print
    print " Cliquez sur la cavalière à déplacer, puis cliquez sur la case cible.":print
    print " Le programme veille à ce que le déplacement soit possible" :print
    print " Sinon,il ne se passe rien!":print
    print " Il est possible de parvenir à la solution en effectuant seulement seize déplacements.": print
    print " Indice : Il faut passer d'une configuration en X à une configuration en + puis en X ..."

end_sub
rem ============================================================================
' Fermer la fenêtre d'info
Fermer:
  hide 1
  return
rem ============================================================================
' Gestion des clicks
Click:

  n = number_click : clic = clic + 1
  if n = 5 then Init() : return
  if n = 9 then autoRun() : return
  if depart = 0 then depart = n
  if clic = 2 then arrivee = n : deplacement_Valide()

return
rem ============================================================================
' Teste la validité du déplacement
' La case du départ doit contenir une cavalière et la case d'arrivée doit être libre
' et satisfaire au mouvement du cavalier du jeu d'échec.
SUB Deplacement_Valide()
    dim_local i
    i = arrivee/10
    if (depart = 10) and ((arrivee = 60) or ( arrivee = 80)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 20) and ((arrivee = 70) or ( arrivee = 90)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 30) and ((arrivee = 40) or ( arrivee = 80)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 40) and ((arrivee = 30) or ( arrivee = 90)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 60) and ((arrivee = 10) or ( arrivee = 70)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 70) and ((arrivee = 60) or ( arrivee = 20)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 80) and ((arrivee = 10) or ( arrivee = 30)) and (t(i) = 0) then Deplacer() : exit_sub
    if (depart = 90) and ((arrivee = 20) or ( arrivee = 40)) and (t(i) = 0) then Deplacer() : exit_sub
    clic = 0 : depart = 0  : arrivee = 0

END_SUB
rem ============================================================================
' Ici, on effectue le mouvement de la cavalière
SUB Deplacer()
    file_load depart,rep$+"cavaliere0.jpg"
    fich$ = "cavaliere" + str$(t(depart/10)) + ".jpg"
    file_load arrivee,rep$+fich$ : t(arrivee/10) = t(depart/10) : t(depart/10) = 0
    if fich$ <> "cavaliere0.jpg" then Nb_deplacement = Nb_deplacement + 1
    item_add 8,"  Case " + str$(depart/10) + " ==> case " + str$(arrivee/10)
    clic = 0 : depart = 0  : arrivee = 0
    caption 7,str$(nb_deplacement)
    if Nb_deplacement > 15 then verif()
    
END_SUB
rem ============================================================================
' Ici, on vérifie si on a réussi à trouver la solution
' Si oui un message de félicitation (avec appréciation) s'affiche
SUB Verif()
    dim_local t$
    if (t(1) = 2) and (t(3) = 2) and (t(7) = 1) and (t(9) = 1)
       t$ =  "*** Félicitations ***"
       if Nb_deplacement = 16
          t$ = t$ + "!!! BRAVO ! Vous êtes le champion des champions !!!" + chr$(13)
          t$ = t$ + string$(30," ") + "!!! Vous avez gagné le CHEVAL D'OR !!!"
       else
          if Nb_deplacement < 23
             t$ = "!!! BRAVO ! Vous êtes le champion !!!" + chr$(13)
             t$ = t$ + " Vous pouvez mieux faire !!!" + chr$(13)
             t$ = t$ + "!!! Vous avez gagné le CHEVAL D'ARGENT !!!"
          else
             t$ = "!!! BRAVO ! Vous êtes un champion !!!" + chr$(13)
             t$ = t$ + "Mais vous pouvez améliorer votre score !!!" + chr$(13)
             t$ = t$ + "!!! Vous avez gagné le CHEVAL DE BRONZE !!!"
          end_if
       end_if
       message t$
    end_if
end_sub
rem ============================================================================
SUB AutoRun()
    dim_local i
    restore : Init()
    for i = 1 to 16
        read depart : read arrivee
        depart = depart * 10 : arrivee = arrivee * 10
        deplacer() : wait 1000 : ' delai à adapter
    next i
END_SUB
rem ============================================================================
data 9,4,7,2,1,6,3,8,6,7,4,3,2,9,8,1,3,8,1,6,8,1,9,4,7,2,6,7,4,3,2,9
rem ============================================================================