Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
ANIMATION By STRYK
Auteur Message
Répondre en citant
Message ANIMATION By STRYK 
Hello,

Voici une petite animation de texte de ma création

Si ça peut donner des idées à certains Wink
Il m'a fallut un peu de temps pour décrypter le code de "I'M HERE" ... mais on peut faire des choses sympa avec ^^

Code:

@echo off
title Batch_Animation  ^|  By STRYK  ^|

::                         Copyright © :  stryk@live.fr
::                      ----------------------------------

::      888888b.                     .d8888b.  888                     888
::      888  "88b                   d88P  Y88b 888                     888
::      888  .88P                   Y88b.      888                     888
::      8888888K.  888  888          "Y888b.   stryk@live.fr. 888  888 888  888
::      888  "Y88b 888  888             "Y88b. 888    888P"   888  888 888 .88P
::      888    888 888  888               "888 888    888     888  888 888888K
::      888   d88P Y88b 888         Y88b  d88P Y88b.  888     Y88b 888 888 "88b
::      8888888P"   "Y88888          "Y8888P"   "Y888 888      "Y88888 888  888
::                      888                                        888
::                 Y8b d88P                                   Y8b d88P
::                  "Y88P"                                     "Y88P"

:: \\ Merci à "I'M HERE" pour ses codes qui m'ont beaucoups inspirés !!

call :TXTCOLOR
set COLOR=TXTCOLOR.exe
:: \\ Texte à modifier selon vos besoins !
:: \\ #################################
set "TEXT= BATCH DESIGNED BY STRYK"
set "BYE= A BIENTOT SUR BATCH XOO IT"
:: \\ #################################
set "X=*"
set "D=/"
set FLAG=0
set MOVE_1=1
set MOVE_2=1000000000
set EXCH=0

call :DEF_TAG "%TEXT%"
call :VARTICAL "x_TM_x"
call :HORIZONTAL
call :BYE "%BYE%"

del /q x_TM_x >nul
@ping localhost -n 3 >nul
exit

:DEF_TAG
for /f "tokens=2,* delims=[]" %%A in ('"%comspec% /u /c echo:%~1|more|find /n /v """') do (
    echo. %%A>>x_TM_x
    )
goto :EOF

:VARTICAL
set COUNT=0
:UP
set /a COUNT = COUNT + 1
cls
for /f "tokens=*" %%A in ('type "%~1"') do (
    echo.  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A  %%A
   @ping localhost -n 1 >nul
    )
@ping localhost -n 2 >nul
if %COUNT%==3 goto :END_ANIM
  goto :UP
  :END_ANIM
goto :EOF

:HORIZONTAL
cls
color 00

echo.
%COLOR% 00 0 "%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%"
%COLOR% 02 1 "%TEXT% "
echo.
%COLOR% 00 0 "%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%"
%COLOR% 03 1 "%TEXT% "
echo.
%COLOR% 00 0 "                            "
%COLOR% 04 1 "%TEXT% "
echo.
%COLOR% 00 0 "%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%"
%COLOR% 05 1 "%TEXT%"
echo.
%COLOR% 00 0 "%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%"
%COLOR% 06 1 "%TEXT%"
echo.
%COLOR% 00 0 "                            "
%COLOR% 07 1 "%TEXT%"
echo.
%COLOR% 00 0 "%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%"
%COLOR% 08 1 "%TEXT%"
echo.
%COLOR% 00 0 "%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%"
%COLOR% 09 1 "%TEXT%"
echo.
%COLOR% 00 0 "                            "
%COLOR% 0A 1 "%TEXT%"
echo.
%COLOR% 00 0 "%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%%MOVE_1%"
%COLOR% 0B 1 "%TEXT%"
echo.
%COLOR% 00 0 "%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%%MOVE_2%"
%COLOR% 0C 1 "%TEXT%"
echo.
%COLOR% 00 0 "                            "
%COLOR% 0D 1 "%TEXT%"

set /a MOVE_1=MOVE_1%X%10
set /a MOVE_2=MOVE_2%D%10

@ping localhost -n 1 >nul
if %MOVE_1%==1000000000 (
   set "X=/"
   set "D=*"
   set /a FLAG=FLAG+1
   )
if %MOVE_1%==1 (
   set "X=*"
   set "D=/"
   )
if %FLAG%==2 goto :END_H
goto :HORIZONTAL
:END_H
goto :EOF

:BYE
cls
set "LINE_%EXCH%="
set /a EXCH=EXCH+1
set "LINE_%EXCH%=                   ----   %~1   ----"
echo. &echo.
echo. %LINE_0%
echo. %LINE_1%
echo. %LINE_2%
echo. %LINE_3%
echo. %LINE_4%
echo. %LINE_5%
echo. %LINE_6%
echo. %LINE_7%
echo. %LINE_8%
echo. %LINE_9%
echo. %LINE_10%
echo. %LINE_11%
echo. %LINE_12%
echo. %LINE_13%
echo. %LINE_14%
echo. %LINE_15%
echo. %LINE_16%
echo. %LINE_17%
echo. %LINE_18%
echo. %LINE_19%
echo. %LINE_20%
@ping localhost -n 1 >nul
if %EXCH%==20 goto :EOF

goto :BYE

:: ##############################  TXT_COLOR  By CARLOS  ##############################
:: Merci à CARLOS pour le code source en batch de cette commande externe  ^^
:TXTCOLOR
Echo.Const W=^2>t.vbs&Echo.Set o=WScript.StdOut>>t.vbs
For %%b In (
"4D53434600000000BA030000000000002C000000000000000301010001000000000000"
"004900000001000100D20700000000000000009E3B8A662000747874636F6C6F722E65"
"78650063EB078D6903D207434BDD544B681341189E6D538D35352AE2030F4EC44A458D"
"55113C88D4C75A85AA5B5A2F8AD66D324997A6BB7177A2297868498B9450ECA182871E"
"7AF0E0C183878AA98844DA83828288074FE24549B1A00785452AEB3F8F3C5A7C54BD39"
"F0E77F7FF3CD9FD9397976045523847C209E87500E89D5847EBFFA40566C7AB0024D2C"
"7B1ECA292DCF43ED5D868393B615B7F51E1CD14DD3A2B893603B6562C3C4474FB7E11E"
"2B4AC27575B55B2486A622D4A254CDC37D8B82D5CB9525F3624DABE167250896EC985D"
"25782354D6A851C4A70F237E2E5EB8B25297145F1701EFC022CEFAA76B0C70F7FF221F"
"A6244D8B644036540BDE950B202E86A33AD5C17EA188C04BA6E78F864D23FFB73CCF0C"
"BDEB9F6D006324ABFA33AE2F38180016593590C9FBB2FED6C228789969DF903AC7637E"
"16EB2BC6DCAC3A9771157E6782A3F9C17C7060032A77071F295AE19C289EB9C413505E"
"5559DEB4B07C872867B97D15B9CC6385A7EBCAE9B5909EA945F2CACE0498C586F3A146"
"04D80FA7EDFE8CA25FEE995704C53298E865C7630D5F7983CBCC8F254E93EC8F6B9D64"
"95AD6C28190E12280D6AB2767E3E52CC33D47ED7637CAE8D0BE48C8B8203AB8AB6121C"
"A86124328CCE17CFF3B44258617C3E0FAB6FB4ACFA592B6C55F830FBDFB24F5684362A"
"9259207BD21D525F0F3E9530FC544B71139A616EAE062CE8789D455A0E31BBC04E0BCC"
"82F7D5F702EA45690EEB99E5E75553BCCAC747CCE7F374AA747FD6B0FB9313439BCDB1"
"0F0FB091025D3778979F776985EB0263589DD578B5360CDB0DAB2EC89C56E8E5D9358C"
"02CC010462E7BF791E9FDAA7ACFA492B5C1000B0B5573F86D9E5F1EAC7A5BE25F56DA9"
"A7A57E22F533A9EF487D57EA09A973523FC48B79FBFE9755EFD43B08AE084DD38895B0"
"EC304913DCA947BAE3B69532A30D8D3B8F6D8B5936A970E181374C7A8A5C69314CD2D0"
"B86BF736BC997611CC5EB4CDB50BF05FE1B21D08897771AE22761562D3F8C7DCD6410E"
"836C07D9077210A419A41D8480A442A26E08F44D907BA17FEBEB712E476C1A8E2612E0"
"38D44E10130CC349478DB841B959B4204B2D56C6671103A3236299D4B612B124733A1C"
"423BF464B283F626090FC409EDD10D53B7E30EF8240D30DDC4364962EF1EB96333A16D"
"347A5C37A30922DC2396E95809D216B109310FA76231629F30631624DB4AC97698FA21"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In ("4A6DA33345591BFA0E"
) Do >>t.vbs (
Echo.For b=1To 17Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
Cscript /Nologo t.vbs > TXTCOLOR.ex_
Del /f /q /a t.vbs >nul 2>&1
Expand -r TXTCOLOR.ex_ >nul 2>&1
Del /f /q /a TXTCOLOR.ex_ >nul 2>&1
Goto :Eof
:: ################################  End TXT_COLOR  ################################




Dernière édition par stryk le Ven 30 Avr 2010 - 15:21; édité 1 fois

______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message ANIMATION By STRYK 
Hop une autre idée à méditer Mr. Green

Code:

@echo off
:: \\ Code by STRYK

set "XX=+"
set "X=*"
set "D=/"
set "MOVE=1"
set "EXCH=0"
set /p TEXT= Entrez votre Prenom \\:

:DEFIL
cls
set "LINE_%EXCH%="
set /a EXCH=EXCH%XX%1
set /a MOVE=MOVE%X%10
set "LINE_%EXCH%= %MOVE%%MOVE%%MOVE%%MOVE%     ----   Bonjour %TEXT%   ----"
echo. &echo.

echo. %LINE_0%
echo. %LINE_1%
echo. %LINE_2%
echo. %LINE_3%
echo. %LINE_4%
echo. %LINE_5%
echo. %LINE_6%
echo. %LINE_7%
echo. %LINE_8%
echo. %LINE_9%
echo. %LINE_10%
echo. %LINE_11%
echo. %LINE_12%
echo. %LINE_13%
echo. %LINE_14%
echo. %LINE_15%
echo. %LINE_16%
echo. %LINE_17%
echo. %LINE_18%
echo. %LINE_19%
echo. %LINE_20%

@ping localhost -n 1 >nul

if %MOVE%==1000000000 (
   set "X=/"
   set "D=*"
   )
if %MOVE%==1 (
   set "X=*"
   set "D=/"
   )
if %EXCH%==20 set "XX=-"
if %EXCH%==0 set "XX=+"

goto :DEFIL





______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Répondre en citant
Message ANIMATION By STRYK 
Nice Okay Okay



Visiter le site web du posteur
Répondre en citant
Message ANIMATION By STRYK 
Nice Okay Okay




______________________________________________________
Message ANIMATION By STRYK 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch