[TIPSYQUO]

okay i was really bored and wrote these up to pass time
they are both pretty cool ;)

this is a gun that flashes once every 3 seconds
to simulate a bullet being fired. preety neat

Code

@ECHO OFF&SETLOCAL ENABLEDELAYEDEXPANSION
Set "Art=%TMP%\Art.TXT"
:ART
>%Art% ECHO    _
>>%Art% ECHO     _-' "'-,
>>%Art% ECHO     _-' ^I d$$b ^I
>>%Art% ECHO    _-'    ^I $$$$ ^I
>>%Art% ECHO     _-'  ^I Y$$P ^I
>>%Art% ECHO    _-'^I  ^I  ^I
>>%Art% ECHO     _-'  _*  ^I  ^I
>>%Art% ECHO    _-' ^I_-"  __--''\    /
>>%Art% ECHO     _-'  __--'  __*--'
>>%Art% ECHO     -'  __-''    __--*__-"`
>>%Art% ECHO     ^I    _--''   __--*"__-'`
>>%Art% ECHO     ^I_--"  .--=`"__-^|^I"
>>%Art% ECHO     ^I  ^I  ^I\\   ^I^I
>>%Art% ECHO     ^I .dUU ^I  ^I \\ //
>>%Art% ECHO     ^I UUUU ^I _^I___//
>>%Art% ECHO     ^I UUUU ^I  ^I
>>%Art% ECHO     ^I UUUU ^I  ^I
>>%Art% ECHO     ^I UUUU ^I  ^I
>>%Art% ECHO     ^I UUUU ^I  ^I
>>%Art% ECHO     ^I UUUU ^I  ^I
>>%Art% ECHO     ^I UUP' ^I  ^I
>>%Art% ECHO     ^I   ___^-"`
FOR /F "tokens=* delims=*" %%A IN (%Art%) DO (
SET String=%%A&CALL:Line
)
:Black
SET /A "Count+=1"
COLOR 0F
IF %Count% EQU 900 SET /A "Count=0"&&GOTO:Bang
GOTO:Black

:Bang
SET /A "Count+=1"
COLOR CF
COLOR EC
COLOR FE
echo 
IF %Count% EQU 20 SET /A "Count=0"&&GOTO:Black
GOTO:Bang

:Line
ECHO !String!
PING ::1 -n 1 >NUL
GOTO:EOF

This is a batch that type writes TIPSYQUO from left to right

Code

@ECHO OFF
COLOR 0A
SET STR=    @@  @@@  @@    @@   @@@ @@@   @@    @@@  @@@   @@
SET STR1=    @@  @@@  @@  @@   @@@ @@@  @@   @@@  @@@  @@
SET STR2=  @@!    @@!  @@!  @@@  !@@  @@! !@@  @@!  @@@   @@!  @@@  @@!  @@@
SET STR3=  !@!    !@!  !@!  @!@  !@!  !@! @!!  !@!  @!@   !@!  @!@  !@!  @!@
SET STR4=  @!!    !!@  @!@@!@!   !!@@!!  !@!@!   @!@  !@!   @!@  !@!  @!@  !@!
SET STR5=  !!!    !!!  !!@!!!  !!@!!!  @!!!   !@!  !!!   !@!  !!!  !@!  !!!
SET STR6=  !!:    !!:  !!:    !:!    !!:    !!:!!:!:   !!:  !!!  !!:  !!!
SET STR7=  :!:    :!:  :!:     !:!  :!:    :!: :!:    :!:  !:!  :!:  !:!
SET STR8=  ::  ::   ::  :::: ::  ::    :: :!   :: ::  :: ::
SET STR9=  :  :  :  :: : :  :  : :  :::   : :  :    : :  :

:START
CLS&SET /A COUNT+=1
CALL SET substring=%%str:~0,%COUNT%%%
CALL SET substring1=%%str1:~0,%COUNT%%%
CALL SET substring2=%%str2:~0,%COUNT%%%
CALL SET substring3=%%str3:~0,%COUNT%%%
CALL SET substring4=%%str4:~0,%COUNT%%%
CALL SET substring5=%%str5:~0,%COUNT%%%
CALL SET substring6=%%str6:~0,%COUNT%%%
CALL SET substring7=%%str7:~0,%COUNT%%%
CALL SET substring8=%%str8:~0,%COUNT%%%
CALL SET substring9=%%str9:~0,%COUNT%%%
ECHO %substring%
ECHO %substring1%
ECHO %substring2%
ECHO %substring3%
ECHO %substring4%
ECHO %substring5%
ECHO %substring6%
ECHO %substring7%
ECHO %substring8%
ECHO %substring9%
PING ::1 -n 1 >NUL
IF %COUNT% EQU 78 PAUSE
GOTO START

[ZedNull]

I think the forum removed some of your spaces.

[TIPSYQUO]

I think the forum removed some of your spaces.

yes they did... sux ill post them on pastebin in a second

EDIT:

okay heres the links

SHOOTING GUN EFFECT:
http://pastebin.com/xASz9WR4

PRINT FROM LEFT TO RIGHT
http://pastebin.com/ZTWuUgM9

[NEW] TECHNO EFFECT
http://pastebin.com/AjbC6Ku5

[Dead_Status]

Batch art seems to be getting popular..
Anyways check out Picascii.com
You can upload pictures and it will convert it into text that you can copy into a batch file.

[Turkey Dunce]

very nice indeed, howlong did it took you?

[TIPSYQUO]

very nice indeed, howlong did it took you?

from the looks of it forever but really only takes a few minutes

[ucantwin]

those are all really cool and it does look like it took really long.

[Danny28]

Very Nice. It freaked me out when it went red, and yellow....and blinked. :) Nice!

[chocolate99]

prety sweet ima use in txts

[framework]

Wow, I never thought that batch art would catch on!