DECLARE SUB ChargGraphDes ()
DECLARE SUB cINFOjeu5000 ()
DECLARE SUB CombienDeJoueur ()
DECLARE SUB InscriptionJoueur ()
DECLARE SUB JFondEcran5000 ()
DECLARE SUB LanceDes ()
DECLARE SUB WCalcul ()
DECLARE SUB XJoueur ()
DECLARE SUB YDepassement5000 ()
DECLARE SUB ZBravo5000Juste ()
 
SCREEN 9, , 1, 0
CLS
 
DIM Des1(408), Des2(408), Des3(408)
DIM Des4(408), Des5(408), Des6(408)
DIM Nom1(130), Nom2(130), Nom3(130), Nom4(130)
DIM Nom5(130), Nom6(130), Nom7(130), Nom8(130)
DIM EffDes1(440), EffDes2(440), EffDes3(440)
 
ChargGraphDes
SCREEN 9, , 0, 0
cINFOjeu5000
CombienDeJoueur
Ordi$ = "OFF"
InscriptionJoueur
'------------------------------------------------
L = 0: M = 0
  GET (200 - L, 295 + M)-(262 - L, 349 + M), EffDes1
  GET (300, 245 + M)-(362, 299 + M), EffDes2
  GET (400 + L, 295 + M)-(462 + L, 349 + M), EffDes3
'---------------------------------<  D E B U T  >
 
Taux = 0: Total = 0: Tals = 0: NJ = N: N = 1: v = 0
COD$ = "P E R D U": Compt = 0: Game$ = "OFF": U$ = "OFF"
Score1 = 0: Score2 = 0: Score3 = 0: Score4 = 0
Score5 = 0: Score6 = 0: Score7 = 0: Score8 = 0
RANDOMIZE TIMER
DO
   D1 = 0: D2 = 0: D3 = 0
   D1 = INT(RND * 6) + 1
   D2 = INT(RND * 6) + 1
   D3 = INT(RND * 6) + 1
   LOCATE 1, 37: PRINT D1; D2; D3
   IF Game$ = "ON" THEN
      IF D1 <> 0 THEN LanceDes
      WCalcul
      XJoueur
      LOCATE 11, 37: PRINT USING "  ####   "; Taux
      LOCATE 12, 37: PRINT USING "+ ####   "; Total
      IF Tals <> 0 THEN
         LOCATE 14, 37: PRINT USING "  ####   "; Tals
      END IF
      ZBravo5000Juste
      YDepassement5000
      IF Total = 0 THEN
         Taux = 0
         LOCATE 11, 37: PRINT USING "  ####   "; Taux
         COLOR 12: LOCATE 14, 37: PRINT COD$
         IF N = 1 THEN
            LOCATE 16, 22: PRINT USING "####"; Score1
         END IF
         IF N = 2 THEN
            LOCATE 18, 22: PRINT USING "####"; Score2
         END IF
         IF N = 3 THEN
            LOCATE 20, 22: PRINT USING "####"; Score3
         END IF
         IF N = 4 THEN
            LOCATE 22, 22: PRINT USING "####"; Score4
         END IF
         IF N = 5 THEN
            LOCATE 16, 57: PRINT USING "####"; Score5
         END IF
         IF N = 6 THEN
            LOCATE 18, 57: PRINT USING "####"; Score6
         END IF
         IF N = 7 THEN
            LOCATE 20, 57: PRINT USING "####"; Score7
         END IF
         IF N = 8 THEN
            LOCATE 22, 57: PRINT USING "####"; Score8
         END IF
         COLOR 15
         N = N + 1
         IF N > NJ THEN N = 1
      END IF
   END IF
   U$ = "OFF"
   IF Ordi$ = "ON" AND N = 2 THEN
      IF v <= 2 THEN U$ = "ON": v = v + 1
      IF v > 2 THEN
         U$ = "OFF"
         v = 0
         IF Tals <> 0 THEN Score2 = Score2 + Tals
         IF N = 2 THEN
            LOCATE 18, 22: PRINT USING "####"; Score2
         END IF
         Tals = 0
         N = N + 1
         IF N > NJ THEN N = 1
      END IF
   END IF
   DO
      A$ = INKEY$
      IF A$ = CHR$(27) THEN END
      IF A$ = CHR$(13) THEN Game$ = "ON": U$ = "ON"
      IF A$ = CHR$(32) AND (D1 <> D2 OR D1 <> D3) THEN
         IF N = 1 THEN
            Score1 = Score1 + Tals
            LOCATE 16, 22: PRINT USING "####"; Score1
         END IF
         IF N = 2 THEN
            Score2 = Score2 + Tals
            LOCATE 18, 22: PRINT USING "####"; Score2
         END IF
         IF N = 3 THEN
            Score3 = Score3 + Tals
            LOCATE 20, 22: PRINT USING "####"; Score3
         END IF
         IF N = 4 THEN
            Score4 = Score4 + Tals
            LOCATE 22, 22: PRINT USING "####"; Score4
         END IF
         IF N = 5 THEN
            Score5 = Score5 + Tals
            LOCATE 16, 57: PRINT USING "####"; Score5
         END IF
         IF N = 6 THEN
            Score6 = Score6 + Tals
            LOCATE 18, 57: PRINT USING "####"; Score6
         END IF
         IF N = 7 THEN
            Score7 = Score7 + Tals
            LOCATE 20, 57: PRINT USING "####"; Score7
         END IF
         IF N = 8 THEN
            Score8 = Score8 + Tals
            LOCATE 22, 57: PRINT USING "####"; Score8
         END IF
         Taux = 0: Total = 0: Tals = 0
         N = N + 1
         IF N > NJ THEN N = 1
         U$ = "ON"
      END IF
   LOOP WHILE U$ = "OFF"
   B$ = INKEY$
   c$ = INKEY$
   PUT (200 - L, 295 + M), EffDes1, PSET
   PUT (300, 245 + M), EffDes2, PSET
   PUT (400 + L, 295 + M), EffDes3, PSET
LOOP
END
'*** FIN ***
 
SUB ChargGraphDes
SHARED Des1(), Des2(), Des3(), Des4(), Des5(), Des6()
 
Choix = 1: Des = 0
Ici:
CLS
 
'*** Creation du Fond-ecran Vert+Points ***
LINE (0, 0)-(640, 350), 2, BF
FOR T = 0 TO 10000 STEP 1
   x = INT(RND * 640) + 1
   y = INT(RND * 480) + 1
   Z = INT(RND * 3)
   IF POINT(x, y) <> 15 THEN
      IF Z = 0 THEN PSET (x, y), 10
      IF Z = 1 THEN PSET (x, y), 7
      IF Z = 2 THEN PSET (x, y), 8
      IF Z = 3 THEN PSET (x, y), 0
   END IF
NEXT
 
'*** Creation du Des ***
D = 100
cl = 7
LINE (195, 100)-(245, 140), 15, BF
FOR y = 2 TO 9 STEP 2
 IF y = 9 THEN yy = 1: c = -8
 LINE (196 + y + yy, 140 + y)-(243 + y - yy, 140 + y), 7
 LINE (197 + y + yy, 141 + y)-(244 + y - yy, 141 + y), 7 + c
 PSET (195 + y + yy, 140 + y), cl
 PSET (244 + y - yy, 140 + y), cl
 LINE (245 + y, 101 + y + yy)-(245 + y, 138 + y - yy), 7
 LINE (246 + y, 102 + y + yy)-(246 + y, 139 + y - yy), 8 + c
 PSET (245 + y, 101 + y + yy), cl
 PSET (245 + y, 139 + y - yy), cl
NEXT y
LINE (196, 141)-(245, 141), cl
LINE (246, 102)-(246, 141), cl
LINE (245, 140)-(254, 149), cl
LINE (247, 142)-(252, 146), cl
PSET (195, 100), 2: PSET (245, 100), 2
PSET (195, 140), 2: PSET (245, 140), cl
PSET (254, 149), 2
 
'*** Coloration du Des ***
FOR x = 192 TO 359 STEP 2
   FOR y = 95 TO 153 STEP 2
      ca = POINT(x, y)
      cb = POINT(x + 1, y + 1)
      IF ca = 15 THEN PSET (x, y), 14
      IF ca = 7 THEN PSET (x, y), 14
      IF cb = 15 THEN PSET (x + 1, y + 1), 14
      IF cb = 7 THEN PSET (x + 1, y + 1), 14
NEXT: NEXT
 
'*** Marquage des points sur chaque Des. ***
IF Choix = 1 THEN
   Des = Des + 1
   CIRCLE (220, 120), 7, 0
      PAINT (220, 120), 8, 0
   GET (195, 100)-(254, 149), Des1
   Choix = 2: Des = 0
   GOTO Ici:
END IF
IF Choix = 2 THEN
   Des = Des + 1
   CIRCLE (236, 107), 7, 0
      PAINT (236, 107), 8, 0'haut droit
   CIRCLE (204, 133), 7, 0
      PAINT (204, 133), 8, 0'bas gauche
   GET (195, 100)-(254, 149), Des2
   Choix = 3: Des = 0
   GOTO Ici:
END IF
IF Choix = 3 THEN
   Des = Des + 1
   CIRCLE (204, 107), 7, 0
      PAINT (204, 107), 8, 0'haut gauche
   CIRCLE (220, 120), 7, 0
      PAINT (220, 120), 8, 0'Centre Milieu
   CIRCLE (236, 133), 7, 0
      PAINT (236, 133), 8, 0'bas droit
   GET (195, 100)-(254, 149), Des3
   Choix = 4: Des = 0
   GOTO Ici:
END IF
IF Choix = 4 THEN
   Des = Des + 1
   CIRCLE (204, 107), 7, 0
      PAINT (204, 107), 8, 0'haut gauche
   CIRCLE (236, 107), 7, 0
      PAINT (236, 107), 8, 0'haut droit
   CIRCLE (204, 133), 7, 0
      PAINT (204, 133), 8, 0'bas gauche
   CIRCLE (236, 133), 7, 0
      PAINT (236, 133), 8, 0'bas droit
   GET (195, 100)-(254, 149), Des4
   Choix = 5: Des = 0
   GOTO Ici:
END IF
IF Choix = 5 THEN
   Des = Des + 1
   CIRCLE (204, 107), 7, 0
      PAINT (204, 107), 8, 0'haut gauche
   CIRCLE (236, 107), 7, 0
      PAINT (236, 107), 8, 0'haut droit
   CIRCLE (220, 120), 7, 0
      PAINT (220, 120), 8, 0'Centre Milieu
   CIRCLE (204, 133), 7, 0
      PAINT (204, 133), 8, 0'bas gauche
   CIRCLE (236, 133), 7, 0
      PAINT (236, 133), 8, 0'bas droit
   GET (195, 100)-(254, 149), Des5
   Choix = 6: Des = 0
   GOTO Ici:
END IF
IF Choix = 6 THEN
   Des = Des + 1
   CIRCLE (204, 107), 7, 0
      PAINT (204, 107), 8, 0'haut gauche
   CIRCLE (220, 107), 7, 0
      PAINT (220, 107), 8, 0'haut centre
   CIRCLE (236, 107), 7, 0
      PAINT (236, 107), 8, 0'haut droit
   CIRCLE (204, 133), 7, 0
      PAINT (204, 133), 8, 0'bas gauche
   CIRCLE (220, 133), 7, 0
      PAINT (220, 133), 8, 0'bas centre
   CIRCLE (236, 133), 7, 0
      PAINT (236, 133), 8, 0'bas droit
   GET (195, 100)-(254, 149), Des6
   CLS
   PUT (10, 10), Des1, PSET: PUT (80, 10), Des2, PSET
   PUT (150, 10), Des3, PSET: PUT (220, 10), Des4, PSET
   PUT (290, 10), Des5, PSET: PUT (360, 10), Des6, PSET
END IF
 
END SUB
 
SUB cINFOjeu5000
DIM Info$(70)
LOCATE 1, 1
Info$(1) = "                                                                          "
Info$(2) = "                                                                          "
Info$(3) = "                                                                          "
Info$(4) = "                               ßÛÛ       ÛÛß                              "
Info$(5) = "                                                                          "
Info$(6) = "                                                                          "
Info$(7) = "                             Ü               Ü                            "
Info$(8) = "                              ßÜÜ         ÜÜß                             "
Info$(9) = "                                 ßßßßßßßßß                                "
Info$(10) = "                                                                          "
Info$(11) = "           Utilisez les touches flŠches pour monter ou dessendre          "
Info$(12) = "                                                                          "
Info$(13) = "                   dans les informations concernant ce jeu.               "
Info$(14) = "                                                                          "
Info$(15) = "                                                                        "
Info$(16) = "                                                                          "
Info$(17) = "                                                                          "
Info$(18) = "                                                                          "
Info$(19) = "                                 DESSENDEZ                                "
Info$(20) = "                                                                         "
Info$(21) = "                                                                          "
Info$(22) = "                                                                          "
Info$(23) = "                                                                          "
Info$(24) = "                                                                          "
Info$(25) = "                                                                          "
Info$(26) = "                                                                          "
Info$(27) = "                                                                          "
Info$(28) = "                                                                          "
Info$(29) = "                                                                          "
Info$(30) = "                                                                          "
Info$(31) = "                                                                          "
Info$(32) = "                                                                          "
Info$(33) = "                                                                          "
Info$(34) = "  *********************************************************************** "
Info$(35) = " * Language utilise: QuickBasic 4.5fr & Bibliotheque: QB /L QB.QLB /AH   *"
Info$(36) = " * Une creation de : Ange.ø.Noir                                         *"
Info$(37) = " * Date de creation: juin 2006.                                          *"
Info$(38) = "  ********************[Bienvenue dans le nouveau jeu]******************** "
Info$(39) = " *                                                                       *"
Info$(40) = " *  þþþþþþþþþþþ     þþþþþþþþþþþþ   þþþþþþþþ     þþþþþþþþ     þþþþþþþþ    *"
Info$(41) = " *    þþ       þþ   þþþ           þþþ     þþ   þþþ     þþ   þþþ     þþ   *"
Info$(42) = " *    þþ        þþ  þþþ          þþþ       þþ þþþ       þþ þþþ       þþ  *"
Info$(43) = " *    þþ        þþ   þþþþþþþþþþ  þþþ       þþ þþþ       þþ þþþ       þþ  *"
Info$(44) = " *    þþ        þþ            þþ þþþ       þþ þþþ       þþ þþþ       þþ  *"
Info$(45) = " *    þþ       þþ   þ         þþ  þþþ     þþ   þþþ     þþ   þþþ     þþ   *"
Info$(46) = " *  þþþþþþþþþþþ      þþþþþþþþþþ    þþþþþþþþ     þþþþþþþþ     þþþþþþþþ    *"
Info$(47) = " *                                                                       *"
Info$(48) = " *************************************************************************"
Info$(49) = " * D5000 est un jeu de D‚s don les participants doivent atteindre 5000Pt *"
Info$(50) = " * avec le Total de 3 d‚s qui s`accumule … chaque lanc‚.                 *"
Info$(51) = " * Les joueurs peuvent arreter de jouer … tout moment pour ne pas perdre *"
Info$(52) = " * les Points d‚j… accumul‚ et les ajouter … leur Score personnel.       *"
Info$(53) = " * Le but du jeu est d'arriver bon premier … 5000 juste car si vous      *"
Info$(54) = " * d‚passez 5000, tout les points accumul‚ durant votre tour sont d‚duit *"
Info$(55) = " * de votre Score personnel.                                             *"
Info$(56) = " *************************************************************************"
Info$(57) = " * LES TOUCHES:                                                          *"
Info$(58) = " * ***********                                                           *"
Info$(59) = " *             ENTER ou RETOUR  pour effectuer un nouveau lanc‚          *"
Info$(60) = " *                                                                       *"
Info$(61) = " *             SPACE-BAR ou BARRE-ESPACEMENT pour garder les points      *"
Info$(62) = " *                                                                       *"
Info$(63) = " *             ESC ou ECHAP pour quitter le jeu                          *"
Info$(64) = " *                                                                       *"
Info$(65) = "  *********************************************************************** "
Info$(66) = "                              BONNE PARTIE :)                             "
Info$(67) = "                                                                          "
Info$(68) = "                Appuyez sur la touche (5) pour d‚buter le jeu             "
Info$(69) = "                                    OU                                    "
Info$(70) = "                        sur la touche ESC pour quitter.                   "
 
y = 0
DO
   FOR D = 1 TO 20
      LOCATE D, 3: PRINT Info$(D + y)
   NEXT D
 
   DO
      H$ = INKEY$
      IF H$ = CHR$(27) THEN END
      IF H$ = "5" THEN EXIT DO
      IF H$ = CHR$(0) + CHR$(72) THEN y = y - 1
      IF y < 0 THEN y = 0
      IF H$ = CHR$(0) + CHR$(80) THEN y = y + 1
      IF y > 50 THEN y = 50
   LOOP WHILE H$ = ""
LOOP WHILE H$ <> "5"
 
END SUB
 
SUB CombienDeJoueur
SHARED NJ
CLS
LOCATE 4, 20: PRINT "Nombre de Joueur: "
LOCATE 5, 20: PRINT "Confirmer avec la touche [ENTER]"
x = 0
DO
   DO
      Choix$ = INKEY$
      IF Oo = 0 THEN O = 45
      IF Oo = 10000 THEN O = 95
      IF Oo > 20000 THEN Oo = -20
      LOCATE 4, 38 + x: PRINT CHR$(O)
      Oo = Oo + 1
   LOOP WHILE Choix$ = ""
  
   IF LEN(Choix$) = 1 THEN
      SELECT CASE ASC(Choix$)
         CASE 13
            EXIT DO
         CASE 27
            END
         CASE 49 TO 56
           LOCATE 4, 20: PRINT "Nombre de Joueur: "; Choix$
            J = ASC(Choix$)
            x = 1
         CASE ELSE
            Choix$ = ""
      END SELECT
   END IF
LOOP
NJ = J - 48
 
END SUB
 
SUB InscriptionJoueur
SHARED N, NJ, Ordi$
SHARED Nom1(), Nom2(), Nom3(), Nom4()
SHARED Nom5(), Nom6(), Nom7(), Nom8()
 
N = NJ
FOR Nom = 1 TO N
  LOCATE 5 + Nom, 20
  PRINT "Inscrire le nom du joueur #"; Nom; ": ........"
  Car = 0
  DO
    A$ = INKEY$
    IF A$ = CHR$(27) THEN END
    IF A$ = CHR$(13) THEN
       LOCATE 5 + Nom, 52 + Car: PRINT STRING$(8 - Car, 46);
       EXIT DO
    END IF
    IF A$ = CHR$(32) THEN
       Car = Car + 1
       IF Car > 8 THEN Car = 8
       LOCATE 5 + Nom, 52 + Car: A$ = ""
    END IF
    IF A$ = CHR$(8) THEN
       Car = Car - 1
       IF Car < 0 THEN Car = 0
       LOCATE 5 + Nom, 52 + Car: PRINT ".": A$ = ""
    END IF
    IF A$ <> "" AND Car < 8 THEN
       Car = Car + 1
       LOCATE 5 + Nom, 51 + Car: PRINT UCASE$(A$);
    END IF
  LOOP
NEXT
IF NJ = 1 THEN
   NJ = 2: N = 2
   LOCATE 7, 52: PRINT "Computer"
   Ordi$ = "ON"
END IF
FOR x = 404 TO 472 STEP 1: FOR y = 69 TO 182
   IF POINT(x, y) = 0 THEN PSET (x, y), 9
NEXT: NEXT
FOR x = 404 TO 472: FOR y = 69 TO 182
   IF POINT(x, y) = 15 THEN
      PSET (x - 2, y - 2), 15
      PSET (x - 1, y - 1), 8
      PSET (x, y), 0
   END IF
NEXT: NEXT
 
GET (404, 69)-(472, 82), Nom1
GET (404, 83)-(472, 96), Nom2
GET (404, 97)-(472, 110), Nom3
GET (404, 111)-(472, 124), Nom4
GET (404, 125)-(472, 138), Nom5
GET (404, 139)-(472, 152), Nom6
GET (404, 153)-(472, 166), Nom7
GET (404, 167)-(472, 180), Nom8
 
' Afficher le Fond Ecran avec les Joueurs r`ajouter.
JFondEcran5000
 
PUT (44, 210), Nom1, PSET: PUT (44, 238), Nom2, PSET
PUT (44, 266), Nom3, PSET: PUT (44, 294), Nom4, PSET
PUT (532, 210), Nom5, PSET: PUT (532, 238), Nom6, PSET
PUT (532, 266), Nom7, PSET: PUT (532, 294), Nom8, PSET
 
END SUB
 
SUB JFondEcran5000
 
'*** Affichage du Fond-ecran en Vert+points ***
LINE (0, 0)-(639, 349), 2, B
LINE (2, 2)-(637, 347), 2, BF
FOR T = 0 TO 10000 STEP 1
   x = 1 + INT(RND * 636) + 1
   y = 1 + INT(RND * 346) + 1
   Z = INT(RND * 3)
   IF POINT(x, y) <> 15 THEN
      IF Z = 0 THEN PSET (x, y), 10
      IF Z = 1 THEN PSET (x, y), 7
      IF Z = 2 THEN PSET (x, y), 8
      IF Z = 3 THEN PSET (x, y), 0
   END IF
NEXT
LINE (2, 2)-(637, 347), 2, B
'*** Affichage des descriptifs des points ***
COLOR 4
LOCATE 2, 4: PRINT "Nombre 1 = 100"
LOCATE