Puzzle

' Puzzle.bas
DIM nc, nr, c, r, lc, hr, w0, h0, wp, hp, f$, ft$, fm$, iv$, i, j, at, tp, a$
DIM x, y, xp(20,20), yp(20,20), oc2(20,20), oc3(20,20), cr$, nf$, orig, xpo, ypo
DIM ro(3), co(3)
LABEL Quit, Chimg, Vimg, Generat, rbk, clic2, clic3, Aide

iv$ = "C:\Progra~2\Irfanv~1\i_view32.exe ": ' ****** A VOIR *********
ft$ = "C:\Temp\Puzzle.jpg"
fm$ = "C:\Temp\infoimg.tmp"

w0 = 680: h0 = SCREEN_Y-40
hp = INT((h0-140)/2)
wp = INT(4*hp/3)
w0 = wp+30

WIDTH 0, w0: HEIGHT 0, h0: COLOR 0, 0,255,255: CAPTION 0, " - PUZZLE -"
PICTURE 1: TOP 1, -2000: WIDTH 1, wp: HEIGHT 1, hp
PICTURE 2: TOP 2, 20: LEFT 2, 10: WIDTH 2, wp: HEIGHT 2, hp
ON_CLICK 2, clic2
PICTURE 3: TOP 3, hp+50: LEFT 3, 10: WIDTH 3, wp: HEIGHT 3, hp
ON_CLICK 3, clic3
IMAGE 4
IMAGE 5

tp = 2*hp+60
BUTTON 10: TOP 10, tp: LEFT 10, 10: WIDTH 10, 70: CAPTION 10, "Image"
ON_CLICK 10, Chimg
BUTTON 11: TOP 11, tp: LEFT 11, 85: WIDTH 11, 40: CAPTION 11, "Voir"
ON_CLICK 11, Vimg
ALPHA 12: TOP 12, tp+2: LEFT 12, 130: CAPTION 12, "Colonnes:"
SPIN 13: TOP 13, tp: LEFT 13, 195: WIDTH 13, 40
ALPHA 14: TOP 14, tp+2: LEFT 14, 240: CAPTION 14, "Rangées:"
SPIN 15: TOP 15, tp: LEFT 15, 305: WIDTH 15, 40
MIN 13, 2: MAX 13, 20: POSITION 13, 4: MIN 15, 2: MAX 15, 20: POSITION 15, 3
BUTTON 16: TOP 16, tp: LEFT 16, 355: WIDTH 16, 40: CAPTION 16, "Go !"
ON_CLICK 16, Generat
BUTTON 17: TOP 17, tp: LEFT 17, 400: WIDTH 17, 60: CAPTION 17, "Aide": ON_CLICK 17, Aide
BUTTON 18: TOP 18, tp: LEFT 18, wp-65: WIDTH 18, 70: CAPTION 18, "Quitter": ON_CLICK 18, Quit

PRINT_TARGET_IS 0: FONT_SIZE 0, 10: FONT_BOLD 0
PRINT_LOCATE 240,2: PRINT "Clic une case source:"
PRINT_LOCATE 240,hp+28: PRINT "Clic une case arrivée:"

FORM 50: TOP 50, hp+50: LEFT 50, wp+20: WIDTH 50, wp+20: HEIGHT 50, hp+50: HIDE 50
PICTURE 51: PARENT 51, 50: WIDTH 51, wp: HEIGHT 51, hp

OPEN_DIALOG 30
END
' ============================== SOUS-PROGRAMMES ==============================
Quit:
IF FILE_EXISTS(ft$) = 1 THEN FILE_DELETE ft$
IF FILE_EXISTS(fm$) = 1 THEN FILE_DELETE fm$
TERMINATE

Chimg:
f$ = FILE_NAME$(30)
IF LEN(f$) < 3 THEN RETURN
nf$ = f$
EXECUTE_WAIT iv$ + f$ + " /info=" + fm$
FILE_OPEN_READ 1, fm$
WHILE FILE_EOF(1) = 0
    FILE_READLN 1, a$
    IF LEFT$(a$, 16) = "Image dimensions"
        a$ = MID$(a$, 20, 50): i = INSTR(a$, " ")
        c = VAL(LEFT$(a$, i-1)): a$ = MID$(a$, i+3, 50)
        i = INSTR(a$, " "): r = VAL(LEFT$(a$, i-1))
        IF c <> wp OR r <> hp
            EXECUTE_WAIT iv$+f$+" /resize=("+STR$(wp)+","+STR$(hp)+") /convert="+ft$
            f$ = ft$
        END_IF
        EXIT_WHILE
    END_IF
END_WHILE
FILE_CLOSE 1: FILE_DELETE fm$
GOSUB Generat
RETURN

Vimg:
IF LEN(f$) < 3 THEN RETURN
SHOW 50: FILE_LOAD 51, f$
CAPTION 50, nf$
RETURN

Generat:
IF LEN(f$) < 3 THEN RETURN
FILE_LOAD 1, f$
nc = POSITION(13): nr = POSITION(15)
lc = INT(wp/nc): hr = INT(hp/nr)
FOR r = 0 TO nr-1
    FOR c = 0 TO nc-1
        xp(r,c) = lc*c: yp(r,c) = hr*r
        2D_TARGET_IS 2: 2D_PEN_COLOR 255,255,0
        2D_RECTANGLE xp(r,c),yp(r,c),xp(r,c)+lc, yp(r,c)+hr
        2D_TARGET_IS 3: 2D_PEN_COLOR 255,255,0
        2D_RECTANGLE xp(r,c),yp(r,c),xp(r,c)+lc, yp(r,c)+hr
        oc2(r,c) = 0
    NEXT c
NEXT r
2D_TARGET_IS 1
FOR r = 0 TO nr-1
    FOR c = 0 TO nc-1
        2D_TARGET_IS 1: 2D_IMAGE_COPY 4, xp(r,c), yp(r,c), xp(r,c)+lc-1, yp(r,c)+hr-1
rbk:
        j = INT(RND(nr)): i = INT(RND(nc))
        IF oc2(j,i) = 1 THEN GOTO rbk
        oc2(j,i) = 1: oc3(j,i) = 0
        2D_TARGET_IS 2: 2D_IMAGE_PASTE 4, xp(j,i), yp(j,i)
    NEXT c
NEXT r
RETURN

clic2:
x = MOUSE_X_POSITION(2): y = MOUSE_Y_POSITION(2)
c = INT(x/lc): r = INT(y/hr)
IF oc2(r,c) = 0 OR at = 1 THEN at = 0: RETURN
2D_TARGET_IS 2: xpo = xp(r,c): ypo = yp(r,c)
2D_IMAGE_COPY 4, xpo, ypo, xpo+lc-1, ypo+hr-1
orig = 2: ro(2) = r: co(2) = c: at = 1
RETURN

clic3:
x = MOUSE_X_POSITION(3): y = MOUSE_Y_POSITION(3)
c = INT(x/lc): r = INT(y/hr)
2D_TARGET_IS 3
IF at = 1
    IF oc3(r,c) = 1: ' case destinataire déjà occupée
        IF orig = 3
            ' c'est une permutation
            2D_IMAGE_COPY 5, xp(r,c), yp(r,c), xp(r,c)+lc-1, yp(r,c)+hr-1
            2D_IMAGE_PASTE 4, xp(r,c), yp(r,c)
            2D_IMAGE_PASTE 5, xpo, ypo
        END_IF
        at = 0: RETURN
    END_IF
    2D_IMAGE_PASTE 4, xp(r,c), yp(r,c): oc3(r,c) = 1
    ' effacement image d'origine
    IF orig = 2
        oc2(ro(2),co(2)) = 0
    ELSE
        oc3(ro(3),co(3)) = 0
    END_IF
    2D_TARGET_IS orig: 2D_RECTANGLE xpo,ypo,xpo+lc, ypo+hr
    at = 0
ELSE
    IF oc3(r,c) = 0 THEN RETURN
    xpo = xp(r,c): ypo = yp(r,c)
    2D_IMAGE_COPY 4, xpo, ypo, xpo+lc-1, ypo+hr-1
    orig = 3: ro(3) = r: co(3) = c: at = 1
END_IF
RETURN
   
Aide:
cr$ = CHR$(13)+CHR$(10)
a$ = " - PUZZLE -" + cr$ + cr$
a$=a$+" - Choisir une image (bouton 'Image'). Une image temporaire est créée"+cr$
a$=a$+"    aux dimensions des fenêtres du jeu."+cr$+cr$
a$=a$+" -  Choisir le nombre de colonnes et de rangées pour le découpage."+cr$+cr$
a$=a$+" - Puis clic 'Go !': génération de manière aléatoire d'un puzzle de l'image"+cr$
a$=a$+"    dans la fenêtre supérieure."+cr$+cr$
a$=a$+" Le jeu consiste à reconstituer l'image dans la fenêtre inférieure:"+cr$
a$=a$+"    cliquer une case du haut, puis cliquer sur son emplacement présumé en bas,"+cr$
a$=a$+"    (une case libre), la portion d'image y est transférée."+cr$
a$=a$+" On peut également cliquer sur une case du bas déjà placée, puis cliquer soit"+cr$
a$=a$+" sur un autre emplacement libre pour rectifier une position, soit sur une" + cr$
a$=a$+" autre case déjà occupée, pour permuter les images."+cr$+cr$
a$=a$+" On peut à tout moment avoir un aperçu de l'image finale en cliquant sur 'Voir'."+cr$
MESSAGE a$
RETURN

DLL_ON "Utils.dll"
DIM Dll_return

iv$ = "C:\Program Files (x86)\IrfanView\i_view32.exe"
Dll_return = DLL_CALL2("GetShortName",ADR(iv$),LEN(iv$))
iv$=TRIM$(iv$)