Batch Rocket n

@ECHO OFF & Mode 1000
:reset
    Setlocal EnableDelayedExpansion
    CLS
    Set "_P=|"
    Set "_D=-"
    Set "_B=_"
    Set "_Base=1"
    Set "_Dlength=3"
    Set "_intWidth=1"
    Set "_intHieght=2"
    Set "_ConeHieght=1"
    Set "_Star=*"
    Set "_FlagOffset=2"
:Select
    Set /p count=[Select rocket number]
    CLS
    FOR /L %%A in (1,1,80) DO (IF "%%A"=="!count!" GOTO :buildRocket)
    ECHO(80 max (Screen Size Limit) && GOTO :Select
:buildRocket
    For /L %%A in (2,1,!count!) Do (CALL :rocket)
    Set "_ConeInt=1"
    Call :BuildCone _FlagOffset _ConeHieght
    Call :BuildLine 0 _Dlength _Star _Star _D
    Call :BuildInterior _intWidth _intHieght
    Call :BuildLine 0 _Dlength _Star _Star _D
    Call :BuildBase _Base _B
    ECHO(
    Set /A "_Base+=2"
    Set /A "_Dlength+=2"
    Set /A "_intWidth+=1"
    Set /A "_ConeHieght+=1"
    Set /A "_intHieght+=2"
    Set /A "_FlagOffset+=1"
    Pause >nul
    Endlocal
    GOTO :reset

:rocket
    Set /A "_Base+=2"
    Set /A "_Dlength+=2"
    Set /A "_intWidth+=1"
    Set /A "_ConeHieght+=1"
    Set /A "_intHieght+=2"
    Set /A "_FlagOffset+=1"
    Exit /B

:BuildCone
    Setlocal EnableDelayedExpansion
    Set "tmpstr=!_P!"
    Set "_ConeOffset=!%2!"
    FOR /L %%A in (1,1,!%1!) Do (
        Set "tmpstr= !tmpstr!"
    )
    ECHO(!tmpstr!
    FOR /L %%A in (1,1,!%2!) Do (
        Set "coneline=/"
        For /L %%B in (1,1,!_ConeOffset!) Do (Set "coneline= !coneline!")
        FOR /L %%C in (1,1,!_ConeInt!) Do (Set "coneline=!coneline! ")
        Set "coneline=!coneline!\"
        ECHO(!coneline!
        Set /A "_ConeOffset-=1"
        Set /A "_ConeInt+=2"
    )
    (Endlocal & Exit /B)
:BuildInterior
    Setlocal EnableDelayedExpansion
    Set "tmpstr=!_P! "
    FOR /L %%A in (1,1,!%1!) Do (Set "tmpstr=!tmpstr!o ")
    Set "tmpstr=!tmpstr!!_P!"
    FOR /L %%A in (1,1,!%2!) Do (ECHO(!tmpstr!)
    (Endlocal & Exit /B)
:BuildBase
    Setlocal EnableDelayedExpansion
    Set "tmpstr= /"
    FOR /L %%A in (1,1,!%1!) Do (Set "tmpstr=!tmpstr!!%2!")
    Set "tmpstr=!tmpstr!\"
    ECHO(!tmpstr!
    (Endlocal & Exit /B)
:BuildLine
    Setlocal EnableDelayedExpansion
    Set "tmpstr="
    FOR /L %%A in (1,1,%1) Do (IF not "!tmpstr!"=="" (Set "tmpstr=!tmpstr!!%5!") Else (Set "tmpstr=!%5!"))
    Set "tmpstr=!tmpstr!!%3!"
    For /L %%A in (1,1,!%2!) Do (Set "tmpstr=!tmpstr!!%5!!")
    Set "tmpstr=!tmpstr!!%4!"
    ECHO(!tmpstr!
    (Endlocal & Exit /B)