Code : Tout sélectionner
OpenConsole()
EnableGraphicalConsole(1)
; Syntaxe:
; couleur du texte/couleur du fond du texte|message a écrire|
; option:
; le caractère ~ signiffie aller a la ligne
; le caractère £ signiffie éffacer la console
If ReadFile(0, "Commande Console.txt") ; Si le fichier peut être lu , on continue...
While Eof(0) = 0 ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File')
Commande$ = Commande$ + ReadString(0) ; Affiche ligne par ligne le contenu du fichier
Wend
CloseFile(0) ; Ferme le fichier précédemment ouvert
Else
MessageRequester("Information","Impossible d'ouvrir le fichier de code !")
EndIf
longueur_code = Len(Commande$)
Commande$ = Trim(Commande$)
position_extraction = 0
For traitement_code = 1 To longueur_code
position_extraction + 1
caractere$ = Mid(Commande$, position_extraction, 1)
If caractere$ <> "|" And interupteur_texte = 0
caractere_couleur$ = caractere_couleur$ + caractere$
texte$ = ""
ElseIf caractere$ <> "|" And interupteur_texte = 1
If caractere$ = "~"
PrintN("")
EndIf
If caractere$ = "£"
ClearConsole()
EndIf
texte$ = texte$ + caractere$
ElseIf caractere$ = "|" And interupteur_texte = 0
couleur$ = caractere_couleur$
interupteur_texte = 1
ElseIf caractere$ = "|" And interupteur_texte = 1
message$ = texte$
caractere_couleur$ = ""
interupteur_texte = 0
EndIf
If couleur$ > ""
couleur$ = ReplaceString(couleur$, ", ", "")
couleur_texte$ = Mid(couleur$, 1, FindString(couleur$, "/", 1) - 1)
couleur_arrier_plant_texte$ = Mid(couleur$, FindString(couleur$, "/", 1) + 1)
couleur_texte$ = Trim(couleur_texte$)
couleur_texte$ = LCase(couleur_texte$)
couleur_arrier_plant_texte$ = Trim(couleur_arrier_plant_texte$)
couleur_arrier_plant_texte$ = LCase(couleur_arrier_plant_texte$)
If couleur_texte$ <> "noir" And couleur_texte$ <> "bleu" And couleur_texte$ <> "vert" And couleur_texte$ <> "cyan" And couleur_texte$ <> "rouge" And couleur_texte$ <> "magenta" And couleur_texte$ <> "brun" And couleur_texte$ <> "gris clair" And couleur_texte$ <> "gris foncé" And couleur_texte$ <> "bleu clair" And couleur_texte$ <> "vert clair" And couleur_texte$ <> "cyan clair" And couleur_texte$ <> "rouge clair" And couleur_texte$ <> "magenta clair" And couleur_texte$ <> "jaune" And couleur_texte$ <> "blanc"
couleur_texte$ = "gris clair"
EndIf
If couleur_arrier_plant_texte$ <> "noir" And couleur_arrier_plant_texte$ <> "bleu" And couleur_arrier_plant_texte$ <> "vert" And couleur_arrier_plant_texte$ <> "cyan" And couleur_arrier_plant_texte$ <> "rouge" And couleur_arrier_plant_texte$ <> "magenta" And couleur_arrier_plant_texte$ <> "brun" And couleur_arrier_plant_texte$ <> "gris clair" And couleur_arrier_plant_texte$ <> "gris foncé" And couleur_arrier_plant_texte$ <> "bleu clair" And couleur_arrier_plant_texte$ <> "vert clair" And couleur_arrier_plant_texte$ <> "cyan clair" And couleur_arrier_plant_texte$ <> "rouge clair" And couleur_arrier_plant_texte$ <> "magenta clair" And couleur_arrier_plant_texte$ <> "jaune" And couleur_arrier_plant_texte$ <> "blanc"
couleur_arrier_plant_texte$ = "noir"
EndIf
If couleur_texte$ = "Noir"
couleur_texte$ = "0"
ElseIf couleur_texte$ = "bleu"
couleur_texte$ = "1"
ElseIf couleur_texte$ = "vert"
couleur_texte$ = "2"
ElseIf couleur_texte$ = "cyan"
couleur_texte$ = "3"
ElseIf couleur_texte$ = "rouge"
couleur_texte$ = "4"
ElseIf couleur_texte$ = "magenta"
couleur_texte$ = "5"
ElseIf couleur_texte$ = "brun"
couleur_texte$ = "6"
ElseIf couleur_texte$ = "gris clair"
couleur_texte$ = "7"
ElseIf couleur_texte$ = "gris fance"
couleur_texte$ = "8"
ElseIf couleur_texte$ = "bleu clair"
couleur_texte$ = "9"
ElseIf couleur_texte$ = "vert clair"
couleur_texte$ = "10"
ElseIf couleur_texte$ = "cyan clair"
couleur_texte$ = "11"
ElseIf couleur_texte$ = "rouge clair"
couleur_texte$ = "12"
ElseIf couleur_texte$ = "magenta clair"
couleur_texte$ = "13"
ElseIf couleur_texte$ = "jaune"
couleur_texte$ = "14"
ElseIf couleur_texte$ = "blanc"
couleur_texte$ = "15"
EndIf
If couleur_arrier_plant_texte$ = "Noir"
couleur_arrier_plant_texte$ = "0"
ElseIf couleur_arrier_plant_texte$ = "bleu"
couleur_arrier_plant_texte$ = "1"
ElseIf couleur_arrier_plant_texte$ = "vert"
couleur_arrier_plant_texte$ = "2"
ElseIf couleur_arrier_plant_texte$ = "cyan"
couleur_arrier_plant_texte$ = "3"
ElseIf couleur_arrier_plant_texte$ = "rouge"
couleur_arrier_plant_texte$ = "4"
ElseIf couleur_arrier_plant_texte$ = "magenta"
couleur_arrier_plant_texte$ = "5"
ElseIf couleur_arrier_plant_texte$ = "brun"
couleur_arrier_plant_texte$ = "6"
ElseIf couleur_arrier_plant_texte$ = "gris clair"
couleur_arrier_plant_texte$ = "7"
ElseIf couleur_arrier_plant_texte$ = "gris fance"
couleur_arrier_plant_texte$ = "8"
ElseIf couleur_arrier_plant_texte$ = "bleu clair"
couleur_arrier_plant_texte$ = "9"
ElseIf couleur_arrier_plant_texte$ = "vert clair"
couleur_arrier_plant_texte$ = "10"
ElseIf couleur_arrier_plant_texte$ = "cyan clair"
couleur_arrier_plant_texte$ = "11"
ElseIf couleur_arrier_plant_texte$ = "rouge clair"
couleur_arrier_plant_texte$ = "12"
ElseIf couleur_arrier_plant_texte$ = "magenta clair"
couleur_arrier_plant_texte$ = "13"
ElseIf couleur_arrier_plant_texte$ = "jaune"
couleur_arrier_plant_texte$ = "14"
ElseIf couleur_arrier_plant_texte$ = "blanc"
couleur_arrier_plant_texte$ = "15"
EndIf
couleur$ = ""
ConsoleColor(Val(couleur_texte$), Val(couleur_arrier_plant_texte$))
EndIf
If message$ > ""
message$ = ReplaceString(message$, "~", "")
message$ = ReplaceString(message$, "£", "")
Print(message$)
message$ = ""
EndIf
Next
Input()
