Disco lichten in Batch (3 / 4 stap)

Stap 3: Disco lichten in Batch

uitschakelen
CON cols = 200 regels = 68
colous cursoroff
titel DISCO
set txtcolor = A
OUDE set = 16

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

: BLW15(1)
NIEUWE ECHO %
GOTO NUMBERSELECT2

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

: BLW15(2)
als % oude % EQU % nieuwe % goto NUMBERSELECT
Als nieuwe % EQU 0 goto NUMBERSELECT
als % oude % NEQ % nieuwe % goto PROJECTCOLOR

: PROJECTCOLOR
OUDE set = nieuwe %
NIEUWE GOTO %

: ABV15
GOTO NUMBERSELECT

: 1
instellen van bgcolor = 1
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 2
instellen van bgcolor = 2
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 3
instellen van bgcolor = 3
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 4
instellen van bgcolor = 4
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 5
instellen van bgcolor = 5
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 6
instellen van bgcolor = 6
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 7
instellen van bgcolor = F
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 8
instellen van bgcolor = 8
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 9
instellen van bgcolor = 9
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 10
instellen van bgcolor = A
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 11
instellen van bgcolor = B
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 12
instellen van bgcolor = C
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 13
instellen van bgcolor = D
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 14
instellen van bgcolor = E
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT

: 15
instellen van bgcolor = 7
kleur % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
goto NUMBERSELECT