Le château enchanté d’un Panoramicien confiné

rem ============================================================================
rem       Le château enchanté d’un Panoramicien confiné
rem               Papydall le 19 / 05 / 2020
rem ============================================================================
dim i,j,n,t$,x,y,mot$(60),case$(60),etat(60),sol(60)
label valider, modifier, quitter, reinit                                                        
width 0,1200 : height 0,700
alpha 100 : top 100,20 : left 100,650 : font_name 100,"arial black" : font_size 100,12
caption 0,"Un Panoramicien confiné dans son château enchanté !"
application_title "Un Panoramicien confiné dans son château enchanté !"
            
Chateau()
t$ = "Un Panoramicien confiné dans son château enchanté !" + chr$(13) + chr$(13)
t$ = t$ + "Ce château comporte 6 * 10 chambres." + chr$(13)
t$ = t$ + "Pour passer le temps de son confinement imposé," +chr$(13)
t$ = t$ + "il a décidé de partir de la 1ère chambre notée 'SINGE'"+chr$(13)
t$ = t$ + "et doit arriver à la dernière chambre notée 'TIGRE'." +chr$(13)
t$ = t$ + "Pour corser la tâche, il s'est imposé de se déplacer"+ chr$(13)
t$ = t$ + "uniquement sur des chambres adjacentes horizontalement," + chr$(13)
t$ = t$ + "verticalement ou en diagonales." + chr$(13)
t$ = t$ + "Pour passer d'une chambre à une chambre voisine, il faut"+chr$(13)
t$ = t$ + "que les mots de deux chambres ne diffèrent que d'une" + chr$(13)
t$ = t$ + "seule lettre."+chr$(13)
t$ = t$ + "Aidez ce Panoramicien à trouver le chemin le plus rapide." +chr$(13)
t$ = t$ + "Cliquez sur les chambres qu'il doit emprunter." +chr$(13)
t$ = t$ + "Pour annuler la selection d'une chambre, cliquez dessus" + chr$(13)
t$ = t$ + "une seconde fois"+ chr$(13)+chr$(13)
t$ = t$ + "!!! BONNE CHANCE !!!"
caption 100,t$
button 110 : top 110,500 : left 110,700 : font_bold 110 : caption 110,"Valider"
on_click 110,valider
button 120 : top 120,500 : left 120,820 : font_bold 120 : width 120,100
caption 120,"Recommencer" : on_click 120,reinit
button 130 : top 130,500 : left 130,950 : font_bold 130 : caption 130,"Quitter"
on_click 130,quitter
alpha 140 : top 140,40 : left 140,1 : font_bold 140 : font_color 140,255,0,0
font_size 140,12 : caption 140,"Départ =>"
alpha 150 : top 150,580 : left 150,630 : font_bold 150 : font_color 150,255,0,0
font_size 150,12 : caption 150,"<= Arrivée"
end
rem ============================================================================
SUB Chateau()
    dim_local a$
    for i = 1 to 10
        for j = 1 to 6
            n = j+(i-1)*6 : picture n : top n, 20+(i-1)*60 : left n,j*90
            width n,62+20 : height n,50+8 : font_size n,10 :  font_name n,"arial black"          
            font_color n, 0,0,255 : on_click n,modifier
        next j
    next i
    for n = 1 to 60
        read mot$(n)
        a$ = ""
        for i = 1 to 9 step 2
            a$ = a$ + chr$(val(mid$(mot$(n),i,2)))
            sol(n) = val(right$(mot$(n),1))
        next i
        print_target_is n : print "" : print " "+ a$
        case$(n) = a$  
    next n
END_SUB
rem ============================================================================
Valider:
    Verifier()
return
rem ============================================================================
Modifier:
    n = number_click    
    x = mouse_x_position(n) : y = mouse_y_position(n)
    if color_pixel_blue(n,x,y) = 255
       color n,0,0,0 : etat(n) = 1
    else
       color n,255,255,255 : etat(n) = 0
    end_if
    print_target_is n : print_locate 2,15 : print " " + case$(n)
return
rem ============================================================================
SUB Verifier()
    dim_local ok
    ok = 1
    for i = 1 to 60
        if etat(i) <> sol(i) then ok = 0 : exit_for
    next i
    if ok = 1
       message "!!! Bravo ! Tu es un champion !!! Tu peux commencer le déconfinement !!! Mais reste PRUDENT !!!"
    else
       message "!!! Non : Ce n'est pas ça !!! Essaie encore une autre fois !!! Ne te décourage pas si vite !!!"
    end_if
END_SUB
rem ============================================================================
Reinit:
   for i = 1 to 60 : print_target_is i : color i,255,255,255
       print_target_is i : print_locate 2,15 : print " " + case$(i)
       etat(i) = 0
   next i
return
rem ============================================================================
Quitter:
    terminate
return

rem ============================================================================
' Codage des cases
data "83737871691","77736978830","77737869690","83797868690","68697883690","83697883690"
data "83797871690","78697371691","82797868690","77737769690","86697378690","80697378690"
data "82797871690","82797867690","66697371691","86698273780","77737769830","80697884690"
data "82657871690","82737867690","83698273780","66697671691","83697676691","68697773830"
data "76657871690","83698282690","83698273690","83698576691","66697676691","68736983690"
data "84698282690","77856984831","77698576691","83658576690","68736984690","66737676690"
data "84658269690","77698584691","77858369831","76738469830","77738269831","84738269831"
data "84658284690","70858469690","76738482690","77858269831","84736968690","84737169831"
data "70858369690","84738482690","76658383690","76738383690","83737178691","71658469830"
data "77858369690","77858369830","77738369830","86738369830","71827383691","84737182691"
rem ============================================================================

rem ============================================================================
rem       Mettre les lettres de l’alphabet dans l’ordre
rem ============================================================================
dim n,i,j,x,y
dim case$(100) ,etat(100), sol(100)
dim ligne$,lettre$,t$
label valider, modifier, quitter, reinit
width 0,1200 : height 0,600
caption 0,"Un Panoramicien confiné dans son château enchanté"
application_title "Un Panoramicien confiné dans son château enchanté"
Chateau()
alpha 110 : top 110,20 : left 110,370               : font_name 110,"wingdings"
font_size 110,30       : font_color 110,255,0,0     : caption 110, chr$(72)
alpha 120              : top 120,520 : left 120,280 : font_name 120,"wingdings"
font_size 120,30       : font_color 120,255,0,0     : caption 120, chr$(71)
alpha 130              : top 130,20 : left 130,520  : font_name 130,"arial black"
font_size 130,12
t$ = "Un Panoramicien confiné dans son château enchanté"+ chr$(13) + chr$(13)
t$ = t$ + "Ce château comporte 10 * 10 chambres." + chr$(13)
t$ = t$ + "Une lettre de l'alphabet est écrite sur chacune de ces 100 chambres."+chr$(13)
t$ = t$ + "Pour tromper l'ennui, ce Pano-confiné à décidé de se promener en"+chr$(13)
t$ = t$ + "passant par toutes les lettres de l'alphabet dans l'ordre, une fois et une"+chr$(13)
t$ = t$ + "seule, en effectuant des déplacements horizontaux, verticaux ou"+chr$(13)
t$ = t$ + "diagonaux. (Seuls les déplacements sur des cases adjacentes sont"+chr$(13)
t$ = t$ + "autorisés)."+chr$(13)
t$ = t$ + "Il doit partir de la case A pour arriver à la case Z."+chr$(13)

t$ = t$ + "Votre mission : aider ce Pano-confiné à réapprendre son alphabet." +chr$(13) + chr$(13)
t$ = t$ + "!!! BONNE CHANCE !!!"

caption 130,t$


button 140 : top 140,500 : left 140,550 : font_bold 140 : caption 140,"Valider"
on_click 140,valider
button 150 : top 150,500 : left 150,750 : font_bold 150 : width 150,100
caption 150,"Recommencer" : on_click 150,reinit
button 160 : top 160,500 : left 160,950 : font_bold 160 : caption 160,"Quitter"
on_click 160,quitter
end
rem ============================================================================
SUB Chateau()
    for i = 1 to 10
        for j = 1 to 10
            n = j+(i-1)*10 : picture n : top n, 70+(i-1)*45 : left n,j*45
            width n,40 : height n,40 : font_size n,14 :  font_name n,"arial black"          
            font_color n, 0,0,255 :  on_click n,modifier
        next j
    next i
    for i = 1 to 10
        read ligne$
        for j = 1 to 10            
            n = j+(i-1)*10
            lettre$ = mid$(ligne$,j,1) : print_target_is n
            print_locate 10,10 : print lettre$
            case$(n) = lettre$
        next j
    next i
    read t$
    for i = 1 to len(t$) step 2
        sol(val(mid$(t$,i,2))) = 1
    next i
END_SUB
rem ============================================================================
Valider:
    Verifier()
return
rem ============================================================================
Modifier:
   n = number_click    
   x = mouse_x_position(n) : y = mouse_y_position(n)
   if color_pixel_blue(n,x,y) = 255
      color n,0,0,0 : etat(n) = 1  
   else
      color n,255,255,255 : etat(n) = 0
   end_if
   print_target_is n : print_locate 10,10 : print case$(n)
return
rem ============================================================================
SUB Verifier()
    dim_local ok
    ok = 1
    for i = 1 to 100
        if etat(i) <> sol(i) then ok = 0 : exit_for
    next i
    if ok = 1
       message "!!! Bravo ! Tu es un champion !!! Tu peux commencer le déconfinement !!! Mais reste PRUDENT !!!"
    else
       message "!!! Non : Ce n'est pas ça !!! Essaie encore une autre fois !!! Ne te décourage pas si vite !!!"
    end_if
END_SUB
rem ============================================================================
Reinit:
   for i = 1 to 100 : print_target_is i : color i,255,255,255
       print_locate 10,10 : print case$(i)
       etat(i) = 0
   next i
return
rem ============================================================================
Quitter:
    terminate
return

rem ============================================================================

data "GFTNBGHAME"
data "OIQHFIJCBD"
data "DCHGLEDSCR"
data "MIBHIFMEDT"
data "IPISKPNBFW"
data "KLKJILSGHY"
data "EVPOMNOVCU"
data "BRQNSIUPWX"
data "KYVRTTYXCY"
data "KWUBUZDYEB"
data "0815181924262734434554566364656873747577798486878896"
rem ============================================================================