Off Topic Stuff

Discussion forum for all Windows batch related topics.

Moderator: DosItHelp

Message
Author
Squashman
Expert
Posts: 4206
Joined: 23 Dec 2011 13:59

Off Topic Stuff

#1 Post by Squashman » 30 Dec 2013 16:03

Some times I do wish we had another forum category to share off topic stuff. I know a lot of you are old school people who have had computers for years and would appreciate some of these links.

http://www.neowin.net/news/microsoft-pa ... k-inferior
Would be really cool if the guy would have saved all the key strokes and clicks with AutoIt or AutoHotKey. That would be awesome. Who wants to makes Santa Clause in pure batch! LOL!

For you old school gamers. I know I played Frogger for hours!
http://news.cnet.com/8301-17938_105-576 ... r-browser/

berserker
Posts: 95
Joined: 18 Dec 2013 00:51

Re: Off Topic Stuff

#2 Post by berserker » 30 Dec 2013 18:21

why not some mod create the "off topic forum" ? then you can post your off topic stuff there. Its more clean. Also good to create others for other topics.

AiroNG
Posts: 46
Joined: 17 Nov 2013 15:00
Location: Germany

Re: Off Topic Stuff

#3 Post by AiroNG » 30 Dec 2013 18:29

My first games were Jill of the jungle and the Commander Keen Saga.
I'm still sad that I lost my original copy of the latter.

The Santa Clause link is nice, but have a look on this one:
http ://www.youtube.com/watch?v=hb3A1TdqXug - (Drawing the Mona Lisa in MSPaint)

Squashman
Expert
Posts: 4206
Joined: 23 Dec 2011 13:59

Re: Off Topic Stuff

#4 Post by Squashman » 30 Dec 2013 19:19

berserker wrote:why not some mod create the "off topic forum" ? then you can post your off topic stuff there. Its more clean. Also good to create others for other topics.

Moderators dont have that much control. We would need the site admin to create it. I am not sure he would want it to turn into a free for all.

brinda
Posts: 78
Joined: 25 Apr 2012 23:51

Re: Off Topic Stuff

#5 Post by brinda » 01 Jan 2014 07:50

merry christmas and a happy new year all,

squashman,
that is a lovely video, of MS paint. It reminds of the day of a 286 pc with 40MB hard drive and 1.2 + 1.44 MB disk + dos 5 before windows came in

thank you.

foxidrive
Expert
Posts: 6033
Joined: 10 Feb 2012 02:20

Re: Off Topic Stuff

#6 Post by foxidrive » 01 Jan 2014 10:20

I agree, that is a fantastic work of art - such a talented person behind the 'paint-brush'.

penpen
Expert
Posts: 1872
Joined: 23 Jun 2013 06:15
Location: Germany

Re: Off Topic Stuff

#7 Post by penpen » 01 Jan 2014 17:52

Ah: "Frogger" ... i first had played it on a C64(G) (1988/1989... don't know anymore but it was on X-mas WITH Frogger :D ).
It is still working 8) , but half of the discs seems to have lost its data :( :x ... my Frogger's "dead" now ...

For all, that may buy one to test it, here is a little tutorial i've found on youtube:
http://www.youtube.com/watch?v=xmnlkLc1Foc

I wish you all a merry christmas and have a good new year 2014,
penpen

foxidrive
Expert
Posts: 6033
Joined: 10 Feb 2012 02:20

Re: Off Topic Stuff

#8 Post by foxidrive » 01 Jan 2014 18:09

Speaking about old games and consoles, The Internet Archive is hosting MAME emulated games in Java to play in your web browser - and there are oodles of them.

https://archive.org/details/consolelivingroom

einstein1969
Expert
Posts: 776
Joined: 15 Jun 2012 13:16
Location: Italy, Rome

Re: Off Topic Stuff

#9 Post by einstein1969 » 02 Jan 2014 10:43

There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?

einstein1969

Squashman
Expert
Posts: 4206
Joined: 23 Dec 2011 13:59

Re: Off Topic Stuff

#10 Post by Squashman » 02 Jan 2014 11:42

einstein1969 wrote:There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?

einstein1969


I can't imagine trying to code your Frog jumping onto a log and moving with the log at the same time.

einstein1969
Expert
Posts: 776
Joined: 15 Jun 2012 13:16
Location: Italy, Rome

Re: Off Topic Stuff

#11 Post by einstein1969 » 02 Jan 2014 14:04

Squashman wrote:
einstein1969 wrote:There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?

einstein1969


I can't imagine trying to code your Frog jumping onto a log and moving with the log at the same time.


sum the Velocity of log + Velocity of frog

something like this:

Code: Select all

@echo off & setlocal EnableDelayedExpansion

set "L0=°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²"
set "L1=±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û"
set "L2=                                                         "

set /a F=0, MF=0, PXF=15, PYF=2, JF=0

:loop

set L0F=%L0%
set L1F=%L1%
set L2F=%L2%

For %%y in ("%PYF%") do for %%x in ("%PXF%") do set L%%~yF=!L%%~yF:~0,%%~x!X

cls
echo(%L0F%
echo(
echo(%L1F%
echo(
echo(%L2F%

ping 192.0.2.0 -n 1 -w 500 >nul

set L0=%L0:~-1%%L0:~0,-1%
If %PYF% equ 0 set /a PXF+=1
if %MF% equ 0 (
      set L1=%L1:~1%%L1:~0,1%
      If %PYF% equ 1 set /a PXF-=1
      )
set /a "F=F+1, MF=F %% 2, JF=F %% 10"
if %JF% equ 0 (set /a "PYF=PYF-1" & IF !PYF! lss 0 set PYF=2)

goto :loop


substitute this line for X movement

Code: Select all

set /a "F=F+1, MF=F %% 2, JF=F %% 10, PXF=PXF+(%RANDOM% %% 3)-1"

penpen
Expert
Posts: 1872
Joined: 23 Jun 2013 06:15
Location: Germany

Re: Off Topic Stuff

#12 Post by penpen » 06 Jan 2014 20:05

einstein1969 wrote:There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?
I like this idea :D , but i have not the time, i wish i wanted to have for that :oops: , so i've done only some (quick and dirty) graphic setup:

Code: Select all

@echo off
cls

:output
setlocal enableDelayedExpansion
set "line_0_1=²²²²²² É» ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
set "line_0_2=²²²²²²ÊÊÊʲ²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
set "line_1_1=            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»"
set "line_1_2=            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ"
set "line_2_1=ÜÜ////ÜÜ////            ÜÜ////ÜÜ////ÜÜ////ÜÜ////                ÜÜ////ÜÜ////ÜÜ////ÜÜ////            ÜÜ////ÜÜ////"
set "line_2_2=ßß\\\\ßß\\\\            ßß\\\\ßß\\\\ßß\\\\ßß\\\\                ßß\\\\ßß\\\\ßß\\\\ßß\\\\            ßß\\\\ßß\\\\"
set "line_3_1=ÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_3_2=ÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_4_1=ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍ»        "
set "line_4_2=ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍͼ        "
set "line_5_1=//ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ//"
set "line_5_2=\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\"
set "line_6_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_6_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_7_1=                ÜÜ_ÜÜÜÜÜ                ÜÜ_ÜÜÜÜÜ                                        ÜÜ_ÜÜÜÜÜ                "
set "line_7_2=                ßßîßßßßß                ßßîßßßßß                                        ßßîßßßßß                "
set "line_8_1=                  ÌÄ=ÂÂÄ=¿        ÌÄ=ÂÂÄ=¿                                            ÌÄ=ÂÂÄ=¿                  "
set "line_8_2=                  ÌÄ=ÁÁÄ=Ù        ÌÄ=ÁÁÄ=Ù                                            ÌÄ=ÁÁÄ=Ù                  "
set "line_9_1=            ÚÄËÄË¿                                ÚÄËÄË¿                          ÚÄËÄË¿                        "
set "line_9_2=            ÀÄÊÄÊÙ                                ÀÄÊÄÊÙ                          ÀÄÊÄÊÙ                        "
set "line_10_1=          ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/                ÜÄÄÜÜÜ_/    "
set "line_10_2=          ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\                ßÄÄßßßî\    "
set "line_11_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_11_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"

set "frog_1_0= Ú¿ "
set "frog_2_0=ÁÁÁÁ"
set "frog_1_1= ÌÄ¿"
set "frog_2_1= ÌÄÙ"
set "frog_1_2=ÂÂÂÂ"
set "frog_2_2= ÀÙ "
set "frog_1_3=ÚĹ "
set "frog_2_3=ÀĹ "

:: lines are all 112 characters long
set "LINE_LENGTH=112"
set /A "speed_0=0", "speed_1=-1", "speed_2=1", "speed_3=-1", "speed_4=-1", "speed_5=1"
set /A "speed_6=0", "speed_7=1", "speed_8=-2", "speed_9=2", "speed_10=-1", "speed_11=0"
for /L %%a in (0,1,11) do set /A "offset_%%a=0"


set /A "NORTH=0", "EAST=1", "SOUTH=2", "WEST=3"
set /A "frog.head=!NORTH!"


:next


set "T1=%TIME%"
set /A "N=112*2"
for /L %%k in (0,1,%N%) do (
   cls
rem   echo 0 0
   (
      set "status=                                                                               %%k/%N%"
      echo(!status:~-79!
      for /L %%l in (0,1,11) do (
         set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!"
::         echo set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!", !frame!
         for /F %%f in ("!frame!") do (
            set "l_1=!line_%%l_1:~%%f!!line_%%l_1!"
            set "l_2=!line_%%l_2:~%%f!!line_%%l_2!"
         )
         echo(!l_1:~0,79!
         echo(!l_2:~0,79!
      )
   ) > CON
   pause
)

(
   echo %T1%
   echo %TIME%
) > CON
goto :eof
I hope this post doesn't change the ANSI characters, it should look similar to this (with lesser spaces between the lines; working in my internet explorer 8):

Code: Select all

▓▓▓▓▓▓ ╔╗ ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓
▓▓▓▓▓▓╩╩╩╩▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓
            ╔═╦════════════╗            ╔═╦════════════╗            ╔═╦════════
            ╚═╩════════════╝            ╚═╩════════════╝            ╚═╩════════
▄▄////▄▄////            ▄▄////▄▄////▄▄////▄▄////                ▄▄////▄▄////▄▄/
▀▀\\\\▀▀\\\\            ▀▀\\\\▀▀\\\\▀▀\\\\▀▀\\\\                ▀▀\\\\▀▀\\\\▀▀\
═════╗          ╔═╦════════════════════════╗          ╔═╦══════════════════════
═════╝          ╚═╩════════════════════════╝          ╚═╩══════════════════════
╔═╦══════════╗        ╔═╦══════════╗        ╔═╦══════════╗        ╔═╦══════════
╚═╩══════════╝        ╚═╩══════════╝        ╚═╩══════════╝        ╚═╩══════════
//▄▄////▄▄////          ▄▄////▄▄////▄▄////          ▄▄////▄▄////▄▄////
\\▀▀\\\\▀▀\\\\          ▀▀\\\\▀▀\\\\▀▀\\\\          ▀▀\\\\▀▀\\\\▀▀\\\\
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
                ▄▄_▄▄▄▄▄                ▄▄_▄▄▄▄▄
                ▀▀¯▀▀▀▀▀                ▀▀¯▀▀▀▀▀
                  ╠─=┬┬─=┐        ╠─=┬┬─=┐
                  ╠─=┴┴─=┘        ╠─=┴┴─=┘
            ┌─╦─╦┐                                ┌─╦─╦┐
            └─╩─╩┘                                └─╩─╩┘
          ▄──▄▄▄_/              ▄──▄▄▄_/              ▄──▄▄▄_/              ▄──
          ▀──▀▀▀¯\              ▀──▀▀▀¯\              ▀──▀▀▀¯\              ▀──
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░

If someone is faster than me to create the program logic feal free to use this for non profit use only (i've build this setup on my memory... maybe good, maybe bad... eho knows... my "frogger" is dead... :cry: ); just add an authors note (PM me in such a case and i send you my name per PM).

penpen

einstein1969
Expert
Posts: 776
Joined: 15 Jun 2012 13:16
Location: Italy, Rome

Re: Off Topic Stuff

#13 Post by einstein1969 » 07 Jan 2014 18:26

wow penpen!

I love it. You could add some color?

einstein1969

penpen
Expert
Posts: 1872
Joined: 23 Jun 2013 06:15
Location: Germany

Re: Off Topic Stuff

#14 Post by penpen » 07 Jan 2014 18:43

I haven't tested it until now, but i fear it will get too slow if i implement colors using findstr.
I thought about a little helper tool written in C# doing this, and it should also set the cursor to (0,0) so it won't flicker.
But this should be optional (via switch), and so i assume i do it much later (after all other of the game is finished; and as said above actually i have not much time, so it may take a while).

penpen

einstein1969
Expert
Posts: 776
Joined: 15 Jun 2012 13:16
Location: Italy, Rome

Re: Off Topic Stuff

#15 Post by einstein1969 » 08 Jan 2014 03:04

penpen wrote:I haven't tested it until now, but i fear it will get too slow if i implement colors using findstr.
I thought about a little helper tool written in C# doing this, and it should also set the cursor to (0,0) so it won't flicker.
But this should be optional (via switch), and so i assume i do it much later (after all other of the game is finished; and as said above actually i have not much time, so it may take a while).

penpen


It also I think it could be extremely slow.
I thought, however, some color "static". And let him manage only a few lines with findstr.

What do you think?

Code: Select all

@echo off & setlocal enableDelayedExpansion

set /a cols=80,lines=43

rem color
pushd "%temp%"
for /f %%a in ('"prompt $H&for %%b in (1) do rem"') do set "BS=%%a"
For /L %%c in (1,1,%cols%) do set "str_findstr=!str_findstr!L"
For /L %%l in (1,1,%cols%) do <nul set /p .=%BS%> "!str_findstr:~0,%%l!"

cls & mode %cols%,%lines% & color 1e


:output

rem set "line_0_1=²²²²²² É» ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
rem set "line_0_2=²²²²²²ÊÊÊʲ²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²   
set "line_0_1=%BS%"
set "line_0_2=%BS%"
set "line_1_1=            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»"
set "line_1_2=            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ"
set "line_2_1=ÜÜ////ÜÜ////            ÜÜ////ÜÜ////ÜÜ////ÜÜ////                ÜÜ////ÜÜ////ÜÜ////ÜÜ////            ÜÜ////ÜÜ////"
set "line_2_2=ßß\\\\ßß\\\\            ßß\\\\ßß\\\\ßß\\\\ßß\\\\                ßß\\\\ßß\\\\ßß\\\\ßß\\\\            ßß\\\\ßß\\\\"
set "line_3_1=ÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_3_2=ÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_4_1=ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍ»        "
set "line_4_2=ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍͼ        "
set "line_5_1=//ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ//"
set "line_5_2=\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\"
rem set "line_6_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
rem set "line_6_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_6_1=%BS%"
set "line_6_2=%BS%"
set "line_7_1=                ÜÜ_ÜÜÜÜÜ                ÜÜ_ÜÜÜÜÜ                                        ÜÜ_ÜÜÜÜÜ                "
set "line_7_2=                ßßîßßßßß                ßßîßßßßß                                        ßßîßßßßß                "
set "line_8_1=                  ÌÄ=ÂÂÄ=¿        ÌÄ=ÂÂÄ=¿                                            ÌÄ=ÂÂÄ=¿                  "
set "line_8_2=                  ÌÄ=ÁÁÄ=Ù        ÌÄ=ÁÁÄ=Ù                                            ÌÄ=ÁÁÄ=Ù                  "
set "line_9_1=            ÚÄËÄË¿                                ÚÄËÄË¿                          ÚÄËÄË¿                        "
set "line_9_2=            ÀÄÊÄÊÙ                                ÀÄÊÄÊÙ                          ÀÄÊÄÊÙ                        "
set "line_10_1=          ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/                ÜÄÄÜÜÜ_/    "
set "line_10_2=          ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\                ßÄÄßßßî\    "
rem set "line_11_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
rem set "line_11_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_11_1=%BS%"
set "line_11_2=%BS%"

set "frog_1_0= Ú¿ "
set "frog_2_0=ÁÁÁÁ"
set "frog_1_1= ÌÄ¿"
set "frog_2_1= ÌÄÙ"
set "frog_1_2=ÂÂÂÂ"
set "frog_2_2= ÀÙ "
set "frog_1_3=ÚĹ "
set "frog_2_3=ÀĹ "

:: lines are all 112 characters long
set "LINE_LENGTH=112"
set /A "speed_0=0", "speed_1=-1", "speed_2=1", "speed_3=-1", "speed_4=-1", "speed_5=1"
set /A "speed_6=0", "speed_7=1", "speed_8=-2", "speed_9=2", "speed_10=-1", "speed_11=0"
for /L %%a in (0,1,11) do set /A "offset_%%a=0"


set /A "NORTH=0", "EAST=1", "SOUTH=2", "WEST=3"
set /A "frog.head=!NORTH!"


:next

rem 4 c e a 2 1 5

echo(
<nul set /p "=%BS%  " & call :ColorText_bg_BS 4 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS c 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS e 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS a 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 1 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 5 76

echo(
echo(
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 6 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 3 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 6 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 3 /N

For /L %%n in (1,1,10) do echo(
call :ColorText_bg_BS a 78 /N
call :ColorText_bg_BS a 78
For /L %%n in (1,1,9) do echo(
call :ColorText_bg_BS 5 78 /N
call :ColorText_bg_BS 5 78 /n

echo(
echo(
<nul set /p "=%BS%  " & call :ColorText_bg_BS 5 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 1 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS a 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS e 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS c 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 4 76


set "T1=%TIME%"
set /A "N=112*2"
for /L %%k in (0,1,%N%) do (
rem   cls
mode %cols%,%lines%
for /L %%L in (1,1,8) do echo(
rem   echo 0 0
rem   (
      set "status=                                                                               %%k/%N%"
      echo(!status:~-78!
      for /L %%l in (0,1,11) do (
         set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!"
::         echo set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!", !frame!
         for /F %%f in ("!frame!") do (
            set "l_1=!line_%%l_1:~%%f!!line_%%l_1!"
            set "l_2=!line_%%l_2:~%%f!!line_%%l_2!"
         )
         echo(  !l_1:~0,76!
         echo(  !l_2:~0,76!
      )
rem   ) > CON
   pause
   rem ping 192.0.2.0 -n 1 -w 500 >nul
)

(
   echo   %T1%
   echo   %TIME%
) > CON

popd
goto :eof


:ColorText_bg_BS bg_color len [/n]
(   
  set /a "len=%2-1"
  if %1 equ 0 (set fg=1) else set fg=%1
  if !len! geq 1 for %%. in (!len!) do  findstr /v /a:%1!fg! /R "^$" "!str_findstr:~0,%%.!" nul
  if /i "%~3"=="/n" echo(
goto :eof
)


Image

einstein1969

Post Reply