Informations sur: C:\MIAMMIAM\LETTRES.BAS

Publié par SFLPMEA le 04/07/2006

Description

Source Qbasic C:\MIAMMIAM\LETTRES.BAS : Création de Fichiers/Datas pour affichage de lettres dans la présentation du 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

'***********************************************
'*  Création des LETTRES pour LES GLOUTONS     *
'***********************************************
'     C:\\MIAMMIAM\\LETTRES.BAS
    CLS : OPTION BASE 1: SCREEN 12
    DEFSTR A-Z: WIDTH 80, 30: ACCES = "C:\\MIAMMIAM\\"
    DIM G&(385)
    F% = 0   ' Couleur de fond
    C% = 12  ' Couleur de la lettre
 
' ***** L *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (14, 52)-(43, 59), C%, BF: LINE (36, 43)-(43, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "L": GOSUB FICHIER
    SLEEP 1
 
' ***** A *****
    CLS : LINE (1, 1)-(48, 64), F%, BF
    LINE (22, 6)-(27, 6), C%: LINE (27, 6)-(43, 59), C%
    LINE (43, 59)-(36, 59), C%: LINE (36, 59)-(25, 17), C%
    LINE (24, 17)-(13, 59), C%: LINE (13, 59)-(6, 59), C%
    LINE (6, 59)-(22, 6), C%: LINE (15, 43)-(34, 48), C%, BF
    PAINT (24, 10), C%, C%
    GET (1, 1)-(48, 64), G&
    LETTRE = "A": GOSUB FICHIER
    SLEEP 1
 
' ***** C *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (36, 14)-(43, 19), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 45)-(43, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "C": GOSUB FICHIER
    SLEEP 1
 
' ***** H *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (36, 6)-(43, 59), C%, BF: LINE (14, 28)-(35, 35), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "H": GOSUB FICHIER
    SLEEP 1
 
' ***** S *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (36, 14)-(43, 19), C%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (6, 14)-(13, 35), C%, BF
    LINE (6, 28)-(43, 35), C%, BF: LINE (36, 36)-(43, 59), C%, BF
    LINE (6, 52)-(35, 59), C%, BF: LINE (6, 47)-(13, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "S": GOSUB FICHIER
    SLEEP 1
 
' ***** E *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(43, 13), C%, BF
    LINE (6, 14)-(13, 51), C%, BF: LINE (14, 28)-(25, 35), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 14)-(43, 20), C%, BF
    LINE (36, 43)-(43, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "E": GOSUB FICHIER
    SLEEP 1
 
' ***** U *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 6)-(43, 59), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "U": GOSUB FICHIER
    SLEEP 1
 
' ***** X *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 6), C%
    LINE (13, 6)-(24, 25), C%: LINE (25, 25)-(36, 6), C%
    LINE (36, 6)-(43, 6), C%: LINE (43, 6)-(28, 32), C%
    LINE (28, 33)-(43, 59), C%: LINE (43, 59)-(36, 59), C%
    LINE (36, 59)-(25, 39), C%: LINE (24, 39)-(13, 59), C%
    LINE (13, 59)-(6, 59), C%: LINE (6, 59)-(21, 33), C%
    LINE (21, 32)-(6, 6), C%: PAINT (24, 32), C%, C%
    GET (1, 1)-(48, 64), G&
    LETTRE = "X": GOSUB FICHIER
    SLEEP 1
 
' ***** G *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (36, 14)-(43, 19), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 43)-(43, 51), C%, BF
    LINE (29, 35)-(43, 42), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "G": GOSUB FICHIER
    SLEEP 1
 
' ***** O *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (14, 6)-(43, 13), C%, BF: LINE (14, 52)-(43, 59), C%, BF
    LINE (36, 14)-(43, 59), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "O": GOSUB FICHIER
    SLEEP 1
 
' ***** T *****
    CLS : LINE (1, 1)-(48, 64), F%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (21, 14)-(28, 59), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "T": GOSUB FICHIER
    SLEEP 1
 
' ***** N *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (36, 6)-(43, 59), C%, BF: LINE (13, 6)-(35, 33), C%
    LINE (13, 17)-(35, 45), C%: PAINT (24, 22), C%, C%
    GET (1, 1)-(48, 64), G&
    LETTRE = "N": GOSUB FICHIER
   
    END
FICHIER: CLOSE
    LOCATE 15, 5: PRINT LETTRE
    OPEN ACCES + "L_" + LETTRE + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 385: WRITE #1, G&(I%): NEXT I%
    RETURN
 
v6 © Computaid SPRL 2005-2008 - Tous droits réservés - Hébergé par eTigris - Page générée en 0,064 s - Crédits - Stats
1 connecté