Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

Un super perroquet en couleur par Dbenham

Voir le sujet précédent Voir le sujet suivant Aller en bas

Un super perroquet en couleur par Dbenham

Message par Sachadee le Dim 14 Juil 2013, 20:57

sendspace.com u463rh

Credit : Dbenham

Code:
@echo off
setlocal disableDelayedExpansion
set q=^"
echo(
echo(
call :c 0E "                ,      .-;" /n
call :c 0E "            ,  |\    / /  __," /n
call :c 0E "            |\ '.`-.|  |.'.-'" /n
call :c 0E "              \`'-:  `; : /" /n
call :c 0E "              `-._'.  \'|" /n
call :c 0E "              ,_.-=` ` `  ~,_" /n
call :c 0E "              '--,.    "&call :c 0c ".-. "&call :c 0E ",=!q!." /n
call :c 0E "                /    "&call :c 0c "{ "&call :c 0A "* "&call :c 0c ")"&call :c 0E "`"&call :c 06 ";-."&call :c 0E "}" /n
call :c 0E "                |      "&call :c 0c "'-' "&call :c 06 "/__ |" /n
call :c 0E "                /          "&call :c 06 "\_,\|" /n
call :c 0E "                |          (" /n
call :c 0E "            "&call :c 0c "__ "&call :c 0E "/ '          \" /n
call :c 02 "    /\_    "&call :c 0c "/,'`"&call :c 0E "|    '  "&call :c 0c ".-~!q!~~-." /n
call :c 02 "    |`.\_ "&call :c 0c "|  "&call :c 0E "/  ' ,    "&call :c 0c "/        \" /n
call :c 02 "  _/  `, \"&call :c 0c "|  "&call :c 0E "; ,    . "&call :c 0c "|  ,  '  . |" /n
call :c 02 "  \  `,  "&call :c 0c "|  "&call :c 0E "|  ,  ,  "&call :c 0c "|  :  ;  : |" /n
call :c 02 "  _\  `,  "&call :c 0c "\  "&call :c 0E "|.    ,  "&call :c 0c "|  |  |  | |" /n
call :c 02 "  \`  `.  "&call :c 0c "\ "&call :c 0E "|  '    "&call :c 0A "|"&call :c 0c "\_|-'|_,'\|" /n
call :c 02 "  _\  `,  "&call :c 0A "`"&call :c 0E "\  '  . ' "&call :c 0A "| |  | |  |          "&call :c 02 "__" /n
call :c 02 "  \    `,  "&call :c 0E "| ,  '    "&call :c 0A "|_/'-|_\_/    "&call :c 02 "__ ,-;` /" /n
call :c 02 "    \    `,    "&call :c 0E "\ .  , ' .| | | | |  "&call :c 02 "_/' ` _=`|" /n
call :c 02 "    `\    `,  "&call :c 0E "\    ,  | | | | |"&call :c 02 "_/'  .=!q!  /" /n
call :c 02 "    \`    `,  "&call :c 0E "`\      \/|,| ;"&call :c 02 "/'  .=!q!    |" /n
call :c 02 "      \      `,    "&call :c 0E "`\' ,  | ; "&call :c 02 "/'    =!q!    _/" /n
call :c 02 "      `\    `,  "&call :c 05 ".-!q!!q!-. "&call :c 0E "': "&call :c 02 "/'    =!q!    /" /n
call :c 02 "    jgs _`\    ;"&call :c 05 "_{  '  ; "&call :c 02 "/'    =!q!      /" /n
call :c 02 "      _\`-/__"&call :c 05 ".~  `."&call :c 07 "8"&call :c 05 ".'.!q!`~-. "&call :c 02 "=!q!    _,/" /n
call :c 02 "    __\      "&call :c 05 "{  '-."&call :c 07 "|"&call :c 05 ".'.--~'`}"&call :c 02 "    _/" /n
call :c 02 "    \    .=!q!` "&call :c 05 "}.-~!q!'"&call :c 0D "u"&call :c 05 "'-. '-..'  "&call :c 02 "__/" /n
call :c 02 "  _/  .!q!    "&call :c 05 "{  -'.~('-._,.'"&call :c 02 "\_,/" /n
call :c 02 "  /  .!q!    _/'"&call :c 05 "`--; ;  `.  ;" /n
call :c 02 "  .=!q!  _/'      "&call :c 05 "`-..__,-'" /n
call :c 02 "    __/'" /n
echo(

exit /b

:c
setlocal enableDelayedExpansion
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:colorPrint Color  Str  [/n]
setlocal
set "s=%~2"
call :colorPrintVar %1 s %3
exit /b

:colorPrintVar  Color  StrVar  [/n]
if not defined DEL call :initColorPrint
setlocal enableDelayedExpansion
pushd .
':
cd \
set "s=!%~2!"
:: The single blank line within the following IN() clause is critical - DO NOT REMOVE
for %%n in (^"^

^") do (
  set "s=!s:\=%%~n\%%~n!"
  set "s=!s:/=%%~n/%%~n!"
  set "s=!s::=%%~n:%%~n!"
)
for /f delims^=^ eol^= %%s in ("!s!") do (
  if "!" equ "" setlocal disableDelayedExpansion
  if %%s==\ (
    findstr /a:%~1 "." "\'" nul
    <nul set /p "=%DEL%%DEL%%DEL%"
  ) else if %%s==/ (
    findstr /a:%~1 "." "/.\'" nul
    <nul set /p "=%DEL%%DEL%%DEL%%DEL%%DEL%"
  ) else (
    >colorPrint.txt (echo %%s\..\')
    findstr /a:%~1 /f:colorPrint.txt "."
    <nul set /p "=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%"
  )
)
if /i "%~3"=="/n" echo(
popd
exit /b


:initColorPrint
for /f %%A in ('"prompt $H&for %%B in (1) do rem"') do set "DEL=%%A %%A"
<nul >"%temp%\'" set /p "=."
subst ': "%temp%" >nul
exit /b


:cleanupColorPrint
2>nul del "%temp%\'"
2>nul del "%temp%\colorPrint.txt"
>nul subst ': /d
exit /b

pause

_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum