Shell POC generated maps - Printable Version

Code
@echo off & setlocal enableDelayedExpansion



call :init



:main



    call :display

    call :controls

    

goto :main



:display

    cls&echo.

    echo  Û!out!Û

    for /l %%a in (1,1,!maxY!) do echo= Û!line[%%a]:~%$_%,%_$%!Û

    echo  Û!out!Û

goto :eof



:controls

    for /f "tokens=*" %%a in ('choice /c:ad /n') do (

        if /i "%%a" equ "D" if !$_! leq !maxCam! set /a "$_+=1"

        if /i "%%a" equ "A" if !$_! geq 1        set /a "$_-=1"

    )

goto :eof



:generateImage

    rem pick a template

    set /a "pickTemplate=!random! %% numberOfTemplates + 1"

    rem concatenate to line[%%a]

    for /l %%a in (1,1,!maxY!) do set "line[%%a]=!line[%%a]!!L[%%a].%pickTemplate%!"

goto :eof



:init

    rem initialize important global varibles

    set "title=POC Ever-Generating Map Side Scroller"

    set "tempfile=%temp%\tmpfont.file"

    set "defaultMapID=001"

    set "defaultFileExt=.txt"

    set "numberOfTemplates=3"

    

    rem Generate new font

    if not exist "%tempfile%" (

        echo.>"%tempfile%"

        reg add "HKEY_CURREnt_USER\Console\%title%" /f >nul

        for %%a in ("facename     /t REG_SZ    /d "terminal""

                     "fontfamily   /t REG_DWoRD /d 0"

                     "fontSize     /t REG_DWoRD /d 0xc"

                     "fontWeight   /t REG_DWoRD /d 0"

        ) do (    set "param=%%a"& set "param=!param:~1!" & set "param=!param:~0,-1!"

                reg add "HKEY_CURREnt_USER\Console\%title%" /f /v !param! >nul )    

        

        start /high /max "%title%" "%~f0" %* & exit

    ) else ( del /f /q "%tempfile%" )        

    rem clean up

    for %%a in ("tempfile" "title" "defaultMapID" "param") do set "%%~a="



    rem collect each template into it's own array of variables.

    :: for example template001 has 10 lines

    ::        template 001      template002      template003

    ::         line 1 = ...      line 1 = ...     line 1 = ...

    ::         line 2 = ...      line 2 = ...     line 2 = ...

    ::         line 3 = ...      line 3 = ...     line 3 = ...

    cd maps

    for /l %%g in (1,1,!numberOfTemplates!) do (

        set "maxY="

        for /f "tokens=*" %%a in (template00%%g!defaultFileExt!) do (

            set /a "maxY+=1"

            set "L[!maxY!].%%g=%%~a"

        )

    )

    cd..

    

    rem $_ is 0, _$ = 30

    :: for example:

    ::         set "String=There is some cool code here"

    ::         echo !String:~%$_%,%_$%!

    ::         %string:~0,30%

    

    ::CHANGE MODIFIER FOR GLOBAL SIZE

    set "modifier=5"

    

    set /a "DM=(modifier * 10) + 2"

    set /a "$_=0", "_$=$_ + DM", "maxCam=_$ - 5"

    

    for /l %%a in (1,1,!_$!) do set "out=!out!Û"

    

    set /a "cols=maxCam + 9", "lines=maxY + 4"

    

    rem each line is 10 characters long = 60 characters in length; double the display size.

    for /l %%a in (1,1,!DM!) do call :generateImage

    

    color f0

    mode con: lines=!lines! cols=!cols!

goto :eof