Informations sur: C:\MIAMMIAM\DESSINS.BAS

Publié par SFLPMEA le 04/07/2006

Description

Source Qbasic C:\MIAMMIAM\DESSINS.BAS : Création de Fichiers/Datas pour affichage de dessins dans le jeu des Gloutons. Par SFLPMEA.

» Télécharger la source non formatée

Code source (langage qbasic)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147

' **************************************
' *     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"
    
 
 
v6 © Computaid SPRL 2005-2008 - Tous droits réservés - Hébergé par eTigris - Page générée en 0,043 s - Crédits - Stats
1 connecté