MORPION par CDBVS: """""""""""""""""" Suivez l'exact écrit, même les espaces qui sont utile dans la présentation. l'apostroph ' = REM. Rappel pour les plus nul que moi: Rem est une ligne non prise en compte, c'est uniquement fait pour comprendre ce que l'on tappe. Ligne 35, il y a 10 espaces entre les deux phrases et le 'o' des lignes 35, 40 et 47 c'est une lettre et non pas un chiffre ! Je ne sais pas si les lignes 48 et 190 ont besoin d'être, mais je les avaient mises là avant de finir la programation. 5 '*** Morpion *** Par CDBVS 10 mode 1:window 13,27,11,14:print"** MORPION **":for t=1 to 10000:next t:mode 2:cls 15 input "Nom du joueur numero 1 ";a$:cls 20 input "Nom du joueur numero 2 ";b$:cls 25 print "Bonjour ";a$;", vous etes = ";chr$(230):for t=1 to 5000:next t:cls 30 print "Bonjour ";b$;", vous etes = ";chr$(120):for t=1 to 5000:next t:cls 35 print "Choisissez votre position avec les touches du pave numerique. Quand vous etes pres, tappez sur la touche 'o'" 40 c$ inkey$:if c$="" then goto 40 45 if c$="o" then goto 50 47 if c$<>"o" then goto 35 48 'Ne pas enlever cette ligne 50 window 30,80,4,8:print a$;" quel case choisissez vous ?" 55 d$=inkey$:if d$="" goto 55 60 if d$="7" then goto 200 65 if d$="8" then goto 210 70 if d$="9" then goto 220 75 if d$="4" then goto 230 80 if d$="5" then goto 240 85 if d$="6" then goto 250 90 if d$="1" then goto 260 95 if d$="2" then goto 270 100 if d$="3" then goto 280 105 window 30,80,4,8:print b$;" quel case choisissez vous ?" 110 e$=inkey$:if e$="" goto 110 115 if e$="7" then goto 300 120 if e$="8" then goto 310 125 if e$="9" then goto 320 130 if e$="4" then goto 330 135 if e$="5" then goto 340 140 if e$="6" then goto 350 145 if e$="1" then goto 360 150 if e$="2" then goto 370 155 if e$="3" then goto 380 190 goto 48 200 window 10,11,5,6:print chr$(230):goto 105 210 window 12,13,5,6:print chr$(230):goto 105 220 window 14,15,5,6:print chr$(230):goto 105 230 window 10,11,7,8:print chr$(230):goto 105 240 window 12,13,7,8:print chr$(230):goto 105 250 window 14,15,7,8:print chr$(230):goto 105 260 window 10,11,9,10:print chr$(230):goto 105 270 window 12,13,9,10:print chr$(230):goto 105 280 window 14,15,9,10:print chr$(230):goto 105 300 window 10,11,5,6:print chr$(120):goto 50 310 window 12,13,5,6:print chr$(120):goto 50 320 window 14,15,5,6:print chr$(120):goto 50 330 window 10,11,7,8:print chr$(120):goto 50 340 window 12,13,7,8:print chr$(120):goto 50 350 window 14,15,7,8:print chr$(120):goto 50 360 window 10,11,9,10:print chr$(120):goto 50 370 window 12,13,9,10:print chr$(120):goto 50 380 window 14,15,9,10:print chr$(120):goto 50 --- Enfin un jeu CDBVS simplissime qui fonctionne et pas trops nul :)