Jeu de dés fait avec quick basic

Description

Ce code utilise les fonctions les plus simples du basic.

Source / Exemple :


010 PRINT "Jouons au d‚s - Par SpintroniK - Copyright 1997"
020 S = 0
030 P = 0
040 INPUT "Comment t'appelles tu "; nom$
050 D1 = INT(RND(6) * 6) + 1
060 D2 = INT(RND(6) * 6) + 1
070 PRINT "D‚s de "; nom$; " : "; D1
080 PRINT "D‚s de l'ordnateur : "; D2
090 IF D1 < D2 THEN PRINT "Tu as perdu"
100 IF D1 < D2 THEN S = S + 1: GOTO 160
110 IF D1 > D2 THEN PRINT "Tu as gagn‚"
120 IF D1 > D2 THEN P = P + 1: GOTO 160
130 IF D1 = D2 THEN PRINT "Egalit‚"
140 IF D1 = D2 THEN P = P + 1: GOTO 160
150 IF D1 = D2 THEN S = S + 1: GOTO 160
160 INPUT "Encore un essai ? (oui/non)"; o$
170 IF o$ = "oui" THEN GOTO 50
180 IF o$ = "non" THEN GOTO 190
190 PRINT "Score ordinateur= "; S
200 PRINT "Score de "; nom$; "= "; P
210 IF P < S THEN PRINT "D‚sol‚ "; nom$; " tu as perdu la partie"
220 IF P > S THEN PRINT "Bien jou‚ "; nom$; " tu as gagn‚ la partie"
230 IF P = S THEN PRINT "Pas mal "; nom$; " tu est a ‚galit‚ avec l'ordinateur"
240 INPUT "Appuye sur un touche pour continuer "; t$
999 END

Conclusion :


j'ai fé ce code en 1997 j'avais 10 ans mais la je lé modifié donc il n'y a plus de bug... on peut dire que c'est la version 2.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.