Page 1 of 2
Off Topic Stuff
Posted: 30 Dec 2013 16:03
by Squashman
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-inferiorWould 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/
Re: Off Topic Stuff
Posted: 30 Dec 2013 18:21
by berserker
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.
Re: Off Topic Stuff
Posted: 30 Dec 2013 18:29
by AiroNG
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)
Re: Off Topic Stuff
Posted: 30 Dec 2013 19:19
by Squashman
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.
Re: Off Topic Stuff
Posted: 01 Jan 2014 07:50
by brinda
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.
Re: Off Topic Stuff
Posted: 01 Jan 2014 10:20
by foxidrive
I agree, that is a fantastic work of art - such a talented person behind the 'paint-brush'.
Re: Off Topic Stuff
Posted: 01 Jan 2014 17:52
by penpen
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
).
It is still working
, but half of the discs seems to have lost its data
... 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=xmnlkLc1FocI wish you all a merry christmas and have a good new year 2014,
penpen
Re: Off Topic Stuff
Posted: 01 Jan 2014 18:09
by foxidrive
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
Re: Off Topic Stuff
Posted: 02 Jan 2014 10:43
by einstein1969
There is
a better frogger in dos batch?
I would love to play! Why do not we try to make one?
einstein1969
Re: Off Topic Stuff
Posted: 02 Jan 2014 11:42
by Squashman
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.
Re: Off Topic Stuff
Posted: 02 Jan 2014 14:04
by einstein1969
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"
Re: Off Topic Stuff
Posted: 06 Jan 2014 20:05
by penpen
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
, but i have not the time, i wish i wanted to have for that
, 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
:
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...
); just add an authors note (PM me in such a case and i send you my name per PM).
penpen
Re: Off Topic Stuff
Posted: 07 Jan 2014 18:26
by einstein1969
wow penpen!
I love it. You could add some color?
einstein1969
Re: Off Topic Stuff
Posted: 07 Jan 2014 18:43
by penpen
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
Re: Off Topic Stuff
Posted: 08 Jan 2014 03:04
by einstein1969
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
)
einstein1969