' **************************************
' *     JEU du CHASSEUR aux LAPINS     *    C:\MIAMMIAM\DESSINS.BAS
' *      CREATION DESSINS (16/16)      *
' **************************************
' AUTEUR: Michel - DATE 27/10/1995
    OPTION BASE 1: DEFSTR A-Z: SCREEN 12: WINDOW SCREEN (1, 1)-(640, 480)
    DIM G&(33)
    GOTO SUITE
CREATION.FICHIER: OPEN FICHIER FOR OUTPUT AS #1
    FOR I% = 1 TO 33: WRITE #1, G&(I%): NEXT I%: CLOSE : RETURN
SUITE:
' ***** Chasseur
    LINE (1, 1)-(640, 480), 15, BF
    C% = 13
    CIRCLE (9, 8), 6, C%, 0, 1.57: CIRCLE (8, 8), 6, C%, 1.57, 3.14
    CIRCLE (8, 9), 6, C%, 3.14, 4.71: CIRCLE (9, 9), 6, C%, 4.71, 6.28
    PAINT (8, 8), C%, C%
    LINE (3, 2)-(14, 4), 2, BF
    LINE (2, 5)-(15, 5), 0, BF
    LINE (5, 6)-(7, 7), 6, BF: LINE (10, 6)-(12, 7), 15, BF
    LINE (7, 6)-(7, 6), 0, BF
    LINE (10, 6)-(10, 6), 15, BF: LINE (8, 8)-(9, 10), 15, BF
    LINE (5, 12)-(12, 13), 6, BF: LINE (4, 11)-(5, 11), 15, BF
    LINE (12, 11)-(13, 11), 15, BF
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\Chasseur": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "Chasseur"
    SLEEP 1
' ***** GLOUTON 1
    LINE (1, 1)-(640, 480), 15, BF: LINE (2, 2)-(15, 15), 12, BF
    C% = 14
    LINE (7, 7)-(10, 7), C%, BF: LINE (5, 8)-(12, 8), C%, BF
    LINE (4, 9)-(13, 12), C%, BF: LINE (5, 13)-(12, 13), C%, BF
    LINE (6, 14)-(11, 15), C%, BF: LINE (6, 9)-(7, 9), 0, BF
    LINE (10, 9)-(11, 9), 0, BF: LINE (8, 12)-(9, 12), 0, BF
    LINE (7, 13)-(10, 13), 0, BF
    LINE (5, 2)-(6, 7), C%, BF: LINE (11, 2)-(12, 7), C%, BF
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\GLOUTON1.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "Glouton num‚ro 1"
    SLEEP 1
' ***** GLOUTON 2
    LINE (1, 1)-(640, 480), 15, BF: LINE (2, 2)-(15, 15), 12, BF
    C% = 14
    LINE (7, 7)-(10, 7), C%, BF: LINE (5, 8)-(12, 8), C%, BF
    LINE (4, 9)-(13, 12), C%, BF: LINE (5, 13)-(12, 13), C%, BF
    LINE (6, 14)-(11, 15), C%, BF: LINE (6, 9)-(7, 9), 0, BF
    LINE (10, 9)-(11, 9), 0, BF: LINE (8, 12)-(9, 12), 0, BF
    LINE (7, 13)-(10, 13), 0, BF
    LINE (5, 2)-(6, 7), C%, BF: LINE (11, 6)-(15, 7), C%, BF
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\GLOUTON2.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "Glouton num‚ro 2"
    SLEEP 1
' ***** GLOUTON 3
    LINE (1, 1)-(640, 480), 15, BF: LINE (2, 2)-(15, 15), 12, BF
    C% = 14
    LINE (7, 7)-(10, 7), C%, BF: LINE (5, 8)-(12, 8), C%, BF
    LINE (4, 9)-(13, 12), C%, BF: LINE (5, 13)-(12, 13), C%, BF
    LINE (6, 14)-(11, 15), C%, BF: LINE (6, 9)-(7, 9), 0, BF
    LINE (10, 9)-(11, 9), 0, BF: LINE (8, 12)-(9, 12), 0, BF
    LINE (7, 13)-(10, 13), 0, BF
    LINE (2, 6)-(6, 7), C%, BF: LINE (11, 2)-(12, 7), C%, BF
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\GLOUTON3.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "Glouton num‚ro 3"
    SLEEP 1
' ***** GLOUTON 4
    LINE (1, 1)-(640, 480), 15, BF: LINE (2, 2)-(15, 15), 12, BF
    C% = 14
    LINE (7, 7)-(10, 7), C%, BF: LINE (5, 8)-(12, 8), C%, BF
    LINE (4, 9)-(13, 12), C%, BF: LINE (5, 13)-(12, 13), C%, BF
    LINE (6, 14)-(11, 15), C%, BF: LINE (6, 9)-(7, 9), 0, BF
    LINE (10, 9)-(11, 9), 0, BF: LINE (8, 12)-(9, 12), 0, BF
    LINE (7, 13)-(10, 13), 0, BF
    LINE (2, 6)-(6, 7), C%, BF: LINE (11, 6)-(15, 7), C%, BF
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\GLOUTON4.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "Glouton num‚ro 4"
    SLEEP 1
' ***** PiŠge Ouvert
    LINE (1, 1)-(640, 480), 15, BF: LINE (1, 1)-(16, 16), 1, BF    ' ou 0
    LINE (2, 2)-(11, 2), 14, BF: LINE (3, 3)-(12, 3), 14, BF
    LINE (4, 4)-(13, 4), 14, BF: LINE (5, 5)-(14, 5), 14, BF
    LINE (6, 6)-(15, 6), 14, BF: LINE (6, 7)-(15, 7), 12, BF
    LINE (5, 8)-(14, 8), 12, BF: LINE (4, 9)-(13, 9), 12, BF
    LINE (3, 10)-(12, 10), 12, BF: LINE (2, 11)-(11, 11), 12, BF
    LINE (2, 12)-(10, 15), 14, BF: LINE (11, 12)-(11, 15), 14, BF
    LINE (12, 11)-(12, 14), 14, BF: LINE (13, 10)-(13, 13), 14, BF
    LINE (14, 9)-(14, 12), 14, BF: LINE (15, 8)-(15, 11), 14, BF
    LINE (6, 2)-(7, 11), 11, BF
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\PVIDE.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "PiŠge en cours de construction"
    SLEEP 1
' ***** PiŠge Termin‚
    LINE (1, 1)-(640, 480), 15, BF: LINE (1, 1)-(16, 16), 1, BF    ' ou 0
    LINE (6, 7)-(15, 7), 12, BF: LINE (5, 8)-(14, 8), 12, BF
    LINE (4, 9)-(13, 9), 12, BF: LINE (3, 10)-(12, 10), 12, BF
    LINE (2, 11)-(11, 11), 12, BF: LINE (2, 12)-(10, 15), 14, BF
    LINE (11, 12)-(11, 15), 14, BF: LINE (12, 11)-(12, 14), 14, BF
    LINE (13, 10)-(13, 13), 14, BF: LINE (14, 9)-(14, 12), 14, BF
    LINE (15, 8)-(15, 11), 14, BF: GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\PPLEIN1.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "PiŠge Termin‚"
    SLEEP 1
' ***** PiŠge avec glouton pris
    LINE (1, 1)-(640, 480), 15, BF: LINE (1, 1)-(16, 16), 12, BF    ' ou 0
    LINE (6, 7)-(15, 7), 1, BF: LINE (5, 8)-(14, 8), 1, BF
    LINE (4, 9)-(13, 9), 1, BF: LINE (3, 10)-(12, 10), 1, BF
    LINE (2, 11)-(11, 11), 1, BF: LINE (2, 12)-(10, 15), 13, BF
    LINE (11, 12)-(11, 15), 13, BF: LINE (12, 11)-(12, 14), 13, BF
    LINE (13, 10)-(13, 13), 13, BF: LINE (14, 9)-(14, 12), 13, BF
    LINE (15, 8)-(15, 11), 13, BF: GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\PPLEIN2.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "PiŠge avec Glouton pris"
    SLEEP 1
' ***** Vie de Secours *****
    LINE (1, 1)-(640, 480), 15, BF
    LINE (1, 1)-(16, 16), 4, BF: LINE (6, 2)-(11, 2), 13, BF
    LINE (4, 3)-(13, 3), 13, BF: LINE (3, 4)-(14, 5), 13, BF
    LINE (2, 6)-(15, 11), 13, BF: LINE (3, 12)-(14, 13), 13, BF
    LINE (4, 14)-(13, 14), 13, BF: LINE (6, 15)-(11, 15), 13, BF
    LINE (5, 5)-(6, 6), 14, BF: LINE (11, 5)-(12, 6), 14, BF
    LINE (8, 7)-(9, 8), 14, BF: LINE (7, 9)-(10, 9), 14, BF
    LINE (4, 10)-(5, 10), 14, BF: LINE (12, 10)-(13, 10), 14, BF
    LINE (5, 11)-(6, 11), 14, BF: LINE (11, 11)-(12, 11), 14, BF
    LINE (6, 12)-(11, 12), 14, BF: LINE (7, 13)-(10, 13), 14, BF
    LINE (1, 7)-(1, 10), 13, BF: LINE (16, 7)-(16, 10), 13, BF
    LINE (7, 1)-(10, 1), 13, BF: LINE (7, 16)-(10, 16), 13, BF
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\VSEC.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "Vie de secours"
    SLEEP 1
' ***** BOUM *****
    LINE (1, 1)-(640, 480), 15, BF
    LINE (1, 1)-(16, 16), 13, BF: LINE (1, 1)-(16, 16), 14, B
    FOR R% = 2 TO 9: CIRCLE (9, 8), R%, R% + 7, 0, 1.57: NEXT
    FOR R% = 2 TO 9: CIRCLE (8, 8), R%, R% + 7, 1.57, 3.14: NEXT
    FOR R% = 2 TO 9: CIRCLE (8, 9), R%, R% + 7, 3.14, 4.71: NEXT
    FOR R% = 2 TO 9: CIRCLE (9, 9), R%, R% + 7, 4.71, 6.28: NEXT
    GET (1, 1)-(16, 16), G&
    FICHIER = "C:\MIAMMIAM\BOUM.GRA": GOSUB CREATION.FICHIER
    LOCATE 1, 5: COLOR 14: PRINT "LE CHASSEUR EST MANGE"