Discoteca luces en lote (3 / 4 paso)

Paso 3: Luces de discoteca en lote

de
con cols = 200 líneas = 68
cursoroff colous
título de DISCO
establecer txtcolor = A
Set edad = 16

: NUMBERSELECT
CLS
SET/A NEW=%RANDOM%/1000
IF % NUEVO % LEQ 15 GOTO BLW15(1)
IF % NUEVO % GEQ GOTO 15 ABV15

: BLW15(1)
ECHO % NUEVO %
GOTO NUMBERSELECT2

: NUMBERSELECT2
CLS
SET/A NEW=%RANDOM%/1000
IF % NUEVO % LEQ 15 GOTO BLW15(2)
IF % NUEVO % GEQ GOTO 15 ABV15

: BLW15(2)
Si % edad % EQU % nuevo % goto NUMBERSELECT
Si % nuevo % EQU 0 goto NUMBERSELECT
Si % edad % NEQ % nuevo % goto PROJECTCOLOR

: PROJECTCOLOR
Set edad = nuevo %
GOTO % NUEVO %

: ABV15
GOTO NUMBERSELECT

: 1
establecer bgcolor = 1
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 2
establecer bgcolor = 2
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 3
establecer bgcolor = 3
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 4
establecer bgcolor = 4
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 5
establecer bgcolor = 5
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 6
establecer bgcolor = 6
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 7
establecer bgcolor = F
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 8
establecer bgcolor = 8
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 9
establecer bgcolor = 9
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 10
establecer bgcolor = A
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 11
establecer bgcolor = B
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 12
establecer bgcolor = C
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 13
establecer bgcolor = D
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 14
establecer bgcolor = E
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT

: 15
establecer bgcolor = 7
color bgcolor % %% txtcolor %
ping -n 1 0.0.0.0 > nul
Goto NUMBERSELECT