Paso 3: Crear una pantalla: programa principal
de
Pantalla del título
color 0a
Set/a anchura = 40
Set/a altura = 20
lastlaw set/a = % de la anchura * altura %
Set/a bottombarrier = % lastlaw % - % de ancho
Ley de set/a = 0
Set/a sidea = ancho % + 1
Set/a sideb = % de ancho * 2
Set marcador = O
barrera conjunto = #
conjunto vacío =-
fijar detrás = % vacíos %
lugar conjunto/a = 222
echo.
título de la pantalla ancho %x % altura %
: LawLoop
Si % ley % == % lastlaw % goto ObjectPlace
Set/a Ley = ley % + 1
Si % derecho (%) % LEQ % ancho
Ley de ajuste v % = % de barrera
Goto LawLoop
)
Si % de % GTR % bottombarrier % (la ley
Ley de ajuste v % = % de barrera
Goto LawLoop
)
Si % ley % == % sidea () %
Ley de ajuste v % = % de barrera
Set/a sidea = sidea % + % de ancho
Goto LawLoop
)
Si % ley % == % ladoB () %
Ley de ajuste v % = % de barrera
Set/a sideb = ladoB % + % de ancho
Eco *
Goto LawLoop
) () otro
Ley de ajuste v % = % vacíos %
Goto LawLoop
)
: ObjectPlace
lugar de set v % = % de marcador
: ScreenLoop
CLS
llamar al screen.bat
shove set = y
Rem start move.vbs
Set/p empujar =
Si % empujar % == () w
sistema empujar % = de ancho
Goto movimiento
)
Si % empujar % == () s
shove Set = + % ancho
Goto movimiento
)
Si % empujar % == d)
shove Set = + 1
Goto movimiento
)
Si % empujar % == un)
sistema empujar =-1
Goto movimiento
)
Goto ScreenLoop
: Mover
Set/a spotcheck = lugar % Condition % shove
Comprobador de ajuste = %% v % spotcheck %%%
eco sistema spotcheck = checker % > spotcheck.bat
llamar al spotcheck.bat
Si spotcheck % == % barrera % goto ScreenLoop
lugar de set v % = % que %
conjunto/un lugar = lugar % Condition % shove
lugar de set v % = % de marcador
Rem si % % == % símbolo % fijado detrás = símbolo de %
Set = detrás spotcheck %
Goto ScreenLoop
El código también es cargado como un archivo de .txt a continuación. Configurarlo como un archivo por lotes en el mismo directorio que screen.bat.
