Informations sur: C:\MIAMMIAM\CH_13!16.BAS

Publié par SFLPMEA le 04/07/2006

Description

Source Qbasic C:\MIAMMIAM\CH_13!16.BAS : Création de Fichiers/Datas pour affichage de chiffres de 13/16 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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224

'*********************************
'*  Cr‚ation des CHIFFRES 13/16  *  C:\\MIAMMIAM\\CH_13!16.BAS
'*********************************
    CLS : OPTION BASE 1: SCREEN 12' 640/480
    DEFSTR A-Z: ACCES = "C:\\MIAMMIAM\\" ' *** Répertoire à CREER
    DIM G&(33) ' Chiffres de 13/16
    F% = 1     ' Couleur Fond       (Modifiable)
    C% = 15    ' Couleur du CHIFFRE (Modifiable)
    Co% = 5    ' Couleur de l'ombre (Modifiable)
    Ca% = 11   ' Couleur du cadre   (Modifiable)
    X% = 96: Y% = 200
    LOCATE 10, 10: PRINT "--> Controle des PUT"
C0:  '*** 0 *****
    LINE (239, 34)-(251, 49), F%, BF: LINE (239, 34)-(251, 49), Ca%, B
    LINE (244, 35)-(246, 35), C%, BF: LINE (243, 36)-(244, 36), C%, BF
    LINE (241, 39)-(241, 44), C%, BF: LINE (242, 37)-(243, 46), C%, BF
    LINE (243, 47)-(243, 47), C%, BF: LINE (247, 36)-(247, 47), C%, BF
    LINE (248, 37)-(248, 46), C%, BF: LINE (249, 39)-(249, 44), C%, BF
    LINE (244, 48)-(246, 48), C%, BF:
    FOR Xp% = 239 TO 251: FOR Yp% = 34 TO 49
    IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
        PSET (Xp% + 1, Yp% + 1), Co%
    END IF
    NEXT Yp%, Xp%
    GET (239, 34)-(251, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "0": GOSUB FICHIER
C1: '*** 1 *****
    LINE (50, 34)-(62, 49), F%, BF: LINE (50, 34)-(62, 49), Ca%, B
    LINE (56, 35)-(57, 35), C%, BF: LINE (54, 36)-(57, 36), C%, BF
    LINE (53, 37)-(57, 37), C%, BF: LINE (55, 38)-(57, 47), C%, BF
    LINE (53, 48)-(59, 48), C%, BF
    FOR Xp% = 50 TO 62: FOR Yp% = 34 TO 49
    IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
        PSET (Xp% + 1, Yp% + 1), Co%
    END IF
    NEXT Yp%, Xp%
    GET (50, 34)-(62, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "1": GOSUB FICHIER
C2: '*** 2 *****
    LINE (71, 34)-(83, 49), F%, BF: LINE (71, 34)-(83, 49), Ca%, B
    LINE (73, 37)-(73, 37), C%, BF
    LINE (73, 36)-(79, 36), C%, BF: LINE (75, 35)-(78, 35), C%, BF
    LINE (77, 37)-(77, 37), C%, BF: LINE (78, 37)-(80, 39), C%, BF
    LINE (78, 40)-(79, 41), C%, BF: LINE (77, 42)-(78, 42), C%, BF
    LINE (76, 43)-(77, 43), C%, BF: LINE (76, 44)-(76, 44), C%, BF
    LINE (75, 45)-(75, 45), C%, BF: LINE (81, 45)-(81, 45), C%, BF
    LINE (74, 46)-(81, 46), C%, BF: LINE (73, 47)-(80, 48), C%, BF
    FOR Xp% = 71 TO 83: FOR Yp% = 34 TO 49
    IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
        PSET (Xp% + 1, Yp% + 1), Co%
    END IF
    NEXT Yp%, Xp%
    GET (71, 34)-(83, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "2": GOSUB FICHIER
C3: '*** 3 *****
    LINE (92, 34)-(104, 49), F%, BF: LINE (92, 34)-(104, 49), Ca%, B
    LINE (97, 35)-(100, 35), C%, BF
    LINE (95, 36)-(101, 36), C%, BF: LINE (94, 37)-(95, 37), C%, BF
    LINE (98, 37)-(101, 37), C%, BF: LINE (99, 38)-(101, 38), C%, BF
    LINE (99, 39)-(100, 39), C%, BF: LINE (98, 40)-(99, 40), C%, BF
    LINE (97, 41)-(101, 41), C%, BF: LINE (98, 42)-(102, 42), C%, BF
    LINE (99, 43)-(102, 43), C%, BF: LINE (100, 44)-(102, 45), C%, BF
    LINE (100, 46)-(101, 46), C%, BF: LINE (99, 47)-(100, 47), C%, BF
    LINE (94, 46)-(95, 46), C%, BF: LINE (94, 47)-(96, 47), C%, BF
    LINE (95, 48)-(99, 48), C%, BF
    FOR Xp% = 92 TO 104: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (92, 34)-(104, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "3": GOSUB FICHIER
C4: '*** 4 *****
    LINE (113, 34)-(125, 49), F%, BF: LINE (113, 34)-(125, 49), Ca%, B
    LINE (119, 38)-(119, 38), C%, BF: LINE (119, 39)-(118, 40), C%, BF
    LINE (117, 41)-(117, 41), C%, BF: LINE (116, 42)-(116, 42), C%, BF
    LINE (115, 43)-(115, 43), C%, BF: LINE (121, 35)-(122, 36), C%, BF
    LINE (120, 37)-(122, 48), C%, BF: LINE (115, 44)-(123, 45), C%, BF
    FOR Xp% = 113 TO 125: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (113, 34)-(125, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "4": GOSUB FICHIER
C5: '*** 5 *****
    LINE (134, 34)-(146, 49), F%, BF: LINE (134, 34)-(146, 49), Ca%, B
    LINE (139, 35)-(144, 35), C%, BF: LINE (144, 36)-(144, 36), C%, BF
    LINE (138, 36)-(143, 37), C%, BF: LINE (137, 38)-(137, 38), C%, BF
    LINE (136, 41)-(136, 41), C%, BF: LINE (137, 39)-(140, 41), C%, BF
    LINE (141, 40)-(142, 42), C%, BF: LINE (143, 41)-(143, 43), C%, BF
    LINE (144, 42)-(144, 46), C%, BF: LINE (143, 47)-(143, 47), C%, BF
    LINE (139, 47)-(139, 47), C%, BF: LINE (136, 46)-(138, 47), C%, BF
    LINE (137, 48)-(142, 48), C%, BF
    FOR Xp% = 134 TO 146: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (134, 34)-(146, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "5": GOSUB FICHIER
C6: '*** 6 *****
    LINE (155, 34)-(167, 49), F%, BF: LINE (155, 34)-(167, 49), Ca%, B
    LINE (163, 35)-(165, 35), C%, BF: LINE (161, 36)-(163, 36), C%, BF
    LINE (161, 37)-(161, 37), C%, BF: LINE (159, 37)-(160, 40), C%, BF
    LINE (158, 39)-(158, 40), C%, BF: LINE (157, 41)-(159, 45), C%, BF
    LINE (161, 40)-(163, 40), C%, BF: LINE (162, 41)-(164, 41), C%, BF
    LINE (163, 42)-(165, 45), C%, BF: LINE (158, 46)-(159, 47), C%, BF
    LINE (160, 47)-(160, 47), C%, BF: LINE (163, 46)-(164, 47), C%, BF
    LINE (160, 48)-(163, 48), C%, BF
    FOR Xp% = 155 TO 167: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (155, 34)-(167, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "6": GOSUB FICHIER
C7: '*** 7 *****
    LINE (176, 34)-(188, 49), F%, BF: LINE (176, 34)-(188, 49), Ca%, B
    LINE (179, 35)-(186, 36), C%, BF: LINE (179, 37)-(185, 35), C%, BF
    LINE (178, 38)-(179, 39), C%, BF: LINE (185, 38)-(185, 39), C%, BF
    LINE (184, 40)-(184, 42), C%, BF: LINE (183, 43)-(183, 44), C%, BF
    LINE (182, 45)-(182, 47), C%, BF: LINE (181, 48)-(181, 48), C%, BF
    FOR Xp% = 176 TO 188: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (176, 34)-(188, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "7": GOSUB FICHIER
C8: '*** 8 *****
    LINE (197, 34)-(209, 49), F%, BF: LINE (197, 34)-(209, 49), Ca%, B
    LINE (201, 35)-(205, 35), C%, BF: LINE (200, 36)-(202, 36), C%, BF
    LINE (205, 36)-(206, 36), C%, BF: LINE (199, 37)-(201, 39), C%, BF
    LINE (202, 39)-(202, 39), C%, BF: LINE (206, 37)-(207, 39), C%, BF
    LINE (200, 40)-(206, 40), C%, BF: LINE (201, 41)-(205, 41), C%, BF
    LINE (201, 42)-(206, 42), C%, BF: LINE (200, 43)-(201, 43), C%, BF
    LINE (204, 43)-(207, 43), C%, BF: LINE (199, 44)-(200, 46), C%, BF
    LINE (205, 44)-(207, 46), C%, BF: LINE (200, 47)-(201, 47), C%, BF
    LINE (204, 47)-(206, 47), C%, BF: LINE (201, 48)-(205, 48), C%, BF
    FOR Xp% = 197 TO 209: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (197, 34)-(209, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "8": GOSUB FICHIER
C9: '*** 9 *****
    LINE (218, 34)-(230, 49), F%, BF: LINE (218, 34)-(230, 49), Ca%, B
    LINE (222, 35)-(225, 35), C%, BF: LINE (221, 36)-(222, 36), C%, BF
    LINE (225, 36)-(227, 36), C%, BF: LINE (220, 37)-(222, 41), C%, BF
    LINE (226, 37)-(227, 44), C%, BF: LINE (228, 38)-(228, 42), C%, BF
    LINE (221, 42)-(223, 42), C%, BF: LINE (222, 43)-(225, 43), C%, BF
    LINE (225, 44)-(225, 44), C%, BF: LINE (225, 45)-(226, 46), C%, BF
    LINE (224, 46)-(224, 46), C%, BF: LINE (222, 47)-(224, 47), C%, BF
    LINE (220, 48)-(222, 48), C%, BF
    FOR Xp% = 218 TO 230: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (218, 34)-(230, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "9": GOSUB FICHIER
CP: '*** Point *****
    LINE (267, 34)-(279, 49), F%, BF: LINE (267, 34)-(279, 49), Ca%, B
    LINE (272, 46)-(274, 48), C%, BF
    FOR Xp% = 267 TO 279: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (267, 34)-(279, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "P": GOSUB FICHIER
CM: '*** Signe moins *****
    LINE (293, 34)-(305, 49), F%, BF: LINE (293, 34)-(305, 49), Ca%, B
    LINE (296, 44)-(302, 45), C%, BF
    FOR Xp% = 293 TO 305: FOR Yp% = 34 TO 49
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (293, 34)-(305, 49), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "M": GOSUB FICHIER
MINUTE: '*** Signe ' *****
    LINE (320, 26)-(332, 41), F%, BF: LINE (320, 26)-(332, 41), Ca%, B
    LINE (325, 28)-(327, 31), C%, BF: LINE (326, 32)-(326, 34), C%, BF
    FOR Xp% = 320 TO 332: FOR Yp% = 26 TO 41
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (320, 26)-(332, 41), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "MIN": GOSUB FICHIER
SECONDE: '*** Signe " *****
    LINE (339, 26)-(351, 41), F%, BF: LINE (339, 26)-(351, 41), Ca%, B
    LINE (342, 28)-(344, 31), C%, BF
    LINE (343, 32)-(343, 34), C%, BF: LINE (347, 28)-(349, 31), C%, BF
    LINE (348, 32)-(348, 34), C%, BF
    FOR Xp% = 339 TO 351: FOR Yp% = 26 TO 41
        IF POINT(Xp%, Yp%) = C% AND POINT(Xp% + 1, Yp% + 1) = F% THEN
            PSET (Xp% + 1, Yp% + 1), Co%
        END IF
    NEXT Yp%, Xp%
    GET (339, 26)-(351, 41), G&
    X% = X% + 15: PUT (X%, Y%), G&, PSET
    CHIFFRE = "SEC": GOSUB FICHIER
    END
FICHIER: OPEN ACCES + "C" + CHIFFRE + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 33: WRITE #1, G&(I%): NEXT I%
    CLOSE : RETURN
 
v6 © Computaid SPRL 2005-2009 - Tous droits réservés - Hébergé par eTigris - Page générée en 0,024 s - Crédits - Stats
1 connecté