#Include <Array.au3>
$erreur = 0
Local $motsfr[116] = [115, "Réveil", "Parc", "Valise", "Place", "Boutique", "Homme", "Fleuve", "Coq", "Pied", "Train", "Voiture", "Fromage", "Cravatte", "Bras", "Jupe", "Lac", "Printemps", "Mai", "Chaussure", "Mois", "Gare", "Soif", "Singe", "Peigne", "Casserole", "Père", "Doigt", "Fils", "Chaise", "Médecin", "Table", "Cuillère", "Chien", "Vent", "Jour", "Clou", "Ongle", "Lettre", "Pluie", "Chapeau", "Chapeau, de, pluie", "Chocolat", "Soleil", "Nuit", "Main", "Île", "Saucisse", "Naissance", "Fleur", "Pointe", "Lampe", "Station, service", "Tarte", "Amour", "Tante", "La, Poste", "Courrier", "Ruine", "Couleur", "Heure", "Montre", "Guitarre", "Exercice", "Vache", "Epaule", "Femme", "Pantalon", "Arraignée", "Cassette", "Beurre", "Nez", "Caisse", "Ville", "Terre", "Lunettes", "Chat", "Canard", "Truie", "Couverture", "Genoux", "Couteau", "Fruits", "Téléphone", "Poulet", "Vélo", "Bébé", "Affiche", "Jeu", "Match", "Robe", "Verre", "Théâtre", "Oeil", "Tente", "Essence", "Fin", "Petit, Déjeuner", "Règle (matériel)", "Herbe", "Vallée", "Huile", "Coeur", "Mobylette", "Argent", "Feu", "Animal", "Fenêtre", "Cheveux / Chevelure", "Filet", "Enfant", "Oeuf", "Télévision", "Piano", "Fille", "Pièce / Chambre"]
Local $motsde[116] = [115, "der Wecker", "der Park", "der Koffer", "der Platz", "der Laden", "der Mann", "der Fluss", "der Hahn", "der Fuss", "der Zug", "der Wagen", "der Käse", "der Schlips", "der Arm", "der Rock", "der See", "der Frühling", "der Mai", "der Schuh", "der Monat", "der Bahnhof", "der Durst", "der Affe", "der Kamm", "der Topf", "der Vater", "der Finger", "der Sohn", "der Stuhl", "der Arzt", "der Tisch", "der Löffel", "der Hund", "der Wind", "der Tag", "der Nagel", "der Nagel", "der Brief", "der Regen", "der Hut", "der Regenhut", "die Schokolade", "die Sonne", "die Nacht", "die Hand", "die Insel", "die Wurst", "die Geburt", "die Blume", "die Spitze", "die Lampe", "die Tankstelle", "die Torte", "die Liebe", "die Tante", "die Post", "die Post", "die Ruine", "die Farbe", "die Uhr", "die Uhr", "die Gitarre", "die Übung", "die Kuh", "die Schulter", "die Frau", "die Hose", "die Spinne", "die Kassette", "die Butter", "die Nase", "die Kasse", "die Stadt", "die Erde", "die Brille", "die Katze", "die Ente", "die Sau", "die Decke", "das Knie", "das Messer", "das Obst", "das Telephon", "das Hänhchen", "das Fahrrad", "das Baby", "das Plakat", "das Spiel", "das Spiel", "das Kleid", "das Glas", "das Theater", "das Auge", "das Zelt", "das Benzin", "das Ende", "das Frühstück", "das Lineal", "das Gras", "das Tal", "das Öl", "das Herz", "das Moped", "das Geld", "das Feuer", "das Tier", "das Fenster", "das Haar", "das Netz", "das Kind", "das Ei", "das Fernsehen", "das Klavier", "das Mädchen", "das Zimmer"]
Local $question[116][1]
$question[0][0] = 115

Local $k = 1
For $i = 1 To $motsfr[0]
	$question[$k][0] = $motsfr[$i]
    $k += 1
Next

Local $Melange[115], $Index, $i = 0
While $i < UBound($Melange)
    $Index = Random (1, 115, 1)
    If _ArraySearch($Melange, $Index) = -1 Then
        $Melange[$i] = $Index
        $i += 1
    EndIf
WEnd

For $i = 0 To 114
    $Index = $Melange[$i]
    $reponse=InputBox("Question "& $i + 1 & "","" & $question[$Index][0] &"")
	If $reponse = $motsde[$Index] Then
		;rien
	Else
		IniWrite("Erreur.ini", "---"& $Index &"---", "Faute ", ""&$reponse&" --> Corrigé : "&$motsde[$Index]&"")
		$erreur += 1
	EndIf
Next

MsgBox(0, "Fin du Test", "Tu as eu "&$erreur&" fautes.")