X% = 50 PRINT "Vous avez 50 francs." SLEEP .5 PRINT "Vous pouvez les parier contre l'ordinateur" SLEEP .5 DO UNTIL X% = 0 INPUT "Combien voulez vous parier?", Y% IF Y% > X% OR Y% < 1 THEN U% = 1 END IF IF Y% < (X% + 1) AND Y% > 1 THEN U% = 2 END IF IF U% = 2 THEN PRINT "Donc vous voulez parier "; Y%; " avec l'ordinateur." SLEEP .5 V% = INT(RND * 2) + 1 IF V% = 1 THEN PRINT "d‚sol‚, l'ordinateur n'a pas envie de pari‚ cette fois ci..." END IF IF V% = 2 THEN PRINT "Vous avez de la chance, l'ordinateur accepte de parier." C% = INT(RND * 6) + 1 D% = INT(RND * 6) + 1 SLEEP .5 PRINT "Vous jouez un "; C%; "." SLEEP .5 PRINT "L'ordinateur joue un "; D%; "." SLEEP .5 IF D% < C% THEN PRINT "Vous avez gagnez "; Y%; " Francs." X% = X% + Y% PRINT "Vous avez maintenant "; X%; " Francs." END IF IF C% = D% THEN PRINT "mˆme num‚ro" END IF IF C% < D% THEN PRINT "Vous avez perdu "; Y%; " Francs." X% = X% - Y% PRINT "Vous avez maintenant "; X%; " Francs." END IF END IF END IF LOOP PRINT "BOOOUUUHHHH ! Vous n'avez plus un sou !" PRINT "Barrez vous on accepte pas les pauvres ici !!!"