Discoljus i Batch (3 / 4 steg)
Steg 3: Disco ljus i Batch
Nu skriver du följande kod:-utanför
CON cols = 200 rader = 68
färger cursoroff
titeln DISCO
Ange txtcolor = A
ställa in gamla = 16
: NUMBERSELECT
CLS
SET/A NEW=%RANDOM%/1000
OM % NYA % LEQ 15 GOTO BLW15(1)
OM % NYA % GEQ 15 GOTO ABV15
: BLW15(1)
ECHO % NYA %
GÅ TILL NUMBERSELECT2
: NUMBERSELECT2
CLS
SET/A NEW=%RANDOM%/1000
OM % NYA % LEQ 15 GOTO BLW15(2)
OM % NYA % GEQ 15 GOTO ABV15
: BLW15(2)
om % gamla % EQU % nya % goto NUMBERSELECT
om nya % EQU 0 goto NUMBERSELECT
om % gamla % NEQ % nya % goto PROJECTCOLOR
: PROJECTCOLOR
ställa in gamla = % nya %
GÅ TILL NYA %
: ABV15
GÅ TILL NUMBERSELECT
: 1
ställa in bgcolor = 1
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 2
ställa in bgcolor = 2
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 3
ställa in bgcolor = 3
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 4
ställa in bgcolor = 4
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 5
ställa in bgcolor = 5
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 6
ställa in bgcolor = 6
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 7
ställa in bgcolor = F
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 8
ställa in bgcolor = 8
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 9
ställa in bgcolor = 9
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 10
ställa in bgcolor = A
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 11
ställa in bgcolor = B
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 12
ställa in bgcolor = C
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 13
ställa in bgcolor = D
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 14
ställa in bgcolor = E
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT
: 15
ställa in bgcolor = 7
färg % bgcolor %% txtcolor %
ping -n 1 0.0.0.0 > nul
gå till NUMBERSELECT