Étape 3: Disco s’allume en lot
Maintenant, tapez le code suivant:-hors
con cols = 200 lignes = 68
coloris cursoroff
titre DISCO
Définissez txtcolor = A
définir la vieille = 16
: NUMBERSELECT
CLS
SET/A NEW=%RANDOM%/1000
IF % NOUVEAU GOTO LEQ 15 % BLW15(1)
IF % NOUVEAU % GEQ 15 GOTO ABV15
: BLW15(1)
ECHO% % NOUVEAU
GOTO NUMBERSELECT2
: NUMBERSELECT2
CLS
SET/A NEW=%RANDOM%/1000
IF % NOUVEAU GOTO LEQ 15 % BLW15(2)
IF % NOUVEAU % GEQ 15 GOTO ABV15
: BLW15(2)
si % vieux % EQU % nouveau % goto NUMBERSELECT
si nouveau % EQU 0 goto NUMBERSELECT
si % vieux % QNE % nouveau % goto PROJECTCOLOR
: PROJECTCOLOR
définir la vieille = % nouveau
GOTO % NOUVEAU
: ABV15
GOTO NUMBERSELECT
: 1
Affectez à bgcolor = 1
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 2
Affectez à bgcolor = 2
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 3
Affectez à bgcolor = 3
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 4
Affectez à bgcolor = 4
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 5
Affectez à bgcolor = 5
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 6
Affectez à bgcolor = 6
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 7
Affectez à bgcolor = F
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 8
Affectez à bgcolor = 8
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 9
Affectez à bgcolor = 9
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 10
Affectez à bgcolor = A
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 11
Affectez à bgcolor = B
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 12
Affectez à bgcolor = C
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 13
Affectez à bgcolor = D
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 14
Affectez à bgcolor = E
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT
: 15
Affectez à bgcolor = 7
couleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT