Stap 3: Het creëren van een scherm: hoofdprogramma
uitschakelen
titel scherm
kleur 0a
set/a breedte = 40
set/a hoogte = 20
lastlaw-set/a = % van de breedte * hoogte %
bottombarrier-set/a = % lastlaw % - breedte %
set/a wet = 0
sidea-set/a = breedte % + 1
sideb-set/a = breedte % * 2
set marker = O
set blok = #
Stel leeg =-
instellen achter = leeg %
set/a plaats = 222
ECHO.
titel scherm % breedte %x % hoogte
: LawLoop
als % recht % == % lastlaw % goto ObjectPlace
set/a wet = % + 1 van de wet
als % recht % LEQ % breedte % ()
set v wet % = procent barrière
goto LawLoop
)
als % recht % GTR % bottombarrier % ()
set v wet % = procent barrière
goto LawLoop
)
als % recht % == % sidea % (
set v wet % = procent barrière
sidea-set/a = % sidea % + % van de breedte
goto LawLoop
)
als % recht % == % sideb % (
set v wet % = procent barrière
sideb-set/a = % sideb % + % van de breedte
ECHO *
goto LawLoop
) anders ()
set v wet % = leeg %
goto LawLoop
)
: ObjectPlace
set v plaats % = procent marker
: ScreenLoop
CLS
oproep screen.bat
set duw = y
rem start move.vbs
set/p duw =
Als % duw % == w)
Duw =-% breedte % instellen
goto verplaatsen
)
Als % duw % == s)
set duw = + % van de breedte
goto verplaatsen
)
Als % duw % == d)
set duw = + 1
goto verplaatsen
)
Als % duw % == een)
set shove =-1
goto verplaatsen
)
goto ScreenLoop
: Verplaatsen
set/a spotcheck = % plaats % duw %
set checker = %% v % spotcheck %%%
ECHO instellen spotcheck checker % = > spotcheck.bat
oproep spotcheck.bat
Als spotcheck % == % barrière % goto ScreenLoop
set v plaats % = % achter %
set/a plaats = % plaats % duw %
set v plaats % = procent marker
rem als % achter % == % % symboolset achter = symbool %
instellen achter = spotcheck %
goto ScreenLoop
De code is ook geupload als .txt bestand hieronder. Deze instellen als een batch-bestand in dezelfde map als screen.bat.