Att skapa en Pixel skärm i Batch (3 / 9 steg)
Steg 3: Skapa en skärm: huvudprogrammet
utanför
titel skärmen
färg 0a
Set/a bredd = 40
Set/a höjd = 20
Set/a lastlaw = % bredd * höjd %
Set/a bottombarrier = % lastlaw % - % bredd
Set/a lag = 0
Set/a sidea = % bredd % + 1
Set/a sideb = % bredd % * 2
Ställ in markör = O
Ställ in hinder = #
Ange tomma =-
ställa in bakom = % tomma %
Set/a plats = 222
ECHO.
titeln skärmen % bredd %x % höjd
: LawLoop
om % lag % == % lastlaw % goto ObjectPlace
Set/a lag = % lag % + 1
om % lag % LEQ % bredd % ()
Ställ in v % lag % = % barriär %
gå till LawLoop
)
om % lag % GTR % bottombarrier % ()
Ställ in v % lag % = % barriär %
gå till LawLoop
)
om % lag % == % sidea %)
Ställ in v % lag % = % barriär %
Set/a sidea = % sidea % + % bredd
gå till LawLoop
)
om % lag % == % sideb %)
Ställ in v % lag % = % barriär %
Set/a sideb = % sideb % + % bredd
ECHO *
gå till LawLoop
) annat ()
Ställ in v % lag % = % tomma %
gå till LawLoop
)
: ObjectPlace
Ställ in v % plats % = % markör %
: ScreenLoop
CLS
kalla screen.bat
Ställ in skjuta = y
rem start move.vbs
Set/p shove =
om % shove % == () w
uppsättning shove =-% bredd %
gå till flytta
)
om % shove % == () s
Ställ in skjuta = % bredd
gå till flytta
)
om % shove % == () d
Ställ in skjuta = + 1
gå till flytta
)
om % shove % == en (
uppsättning shove =-1
gå till flytta
)
gå till ScreenLoop
: Flytta
Set/a spotcheck = % plats % % skjuta %
Ställ in checker = %% v % spotcheck %%%
ECHO ställa spotcheck = % checker % > spotcheck.bat
kalla spotcheck.bat
om spotcheck % == % barriär % goto ScreenLoop
Ställ in v % plats % = % bakom %
Set/a plats = % plats % % skjuta %
Ställ in v % plats % = % markör %
rem om % bakom % == % % symboluppsättning bakom = % symbolen %
ställa in bakom = % spotcheck %
gå till ScreenLoop
Koden är också upp som en txt-fil nedan. Konfigurera den som en batchfil i samma katalog som screen.bat.