Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Animation style ecran de veille
Auteur Message
Répondre en citant
Message Animation style ecran de veille 
salut !

voila une animation batch avec des bulles qui rebondissent sur les bords de l'écran Mr. Green

Okay






Code:
@echo off
if not exist batbox.exe call :mkbtx
if not exist bg.exe call :mkbg
set bulle1=/c 0x9b /g 0 0 /a 178  /g -1 1 /a 178  /g -1 0 /a 178  /g -2 1 /a 178  /g -2 2 /a 178  /g -3 2 /a 178  /g -4 2 /a 178  /g -3 1 /a 178  /g 1 0 /a 178  /g 2 1 /a 178  /g 3 1 /a 178  /g 2 0 /a 178  /g 1 1 /a 178  /g 0 1 /a 178  /g -1 2 /a 178  /g 0 2 /a 178  /g 1 2 /a 178  /g 2 2 /a 178  /g 3 2 /a 178  /g 4 2 /a 178  /g -4 3 /a 178  /g -3 4 /a 178  /g -3 3 /a 178  /g -2 3 /a 178  /g -1 3 /a 178  /g 0 3 /a 178  /g 1 3 /a 178  /g 2 3 /a 178  /g 3 3 /a 178  /g 2 4 /a 178  /g 1 4 /a 178  /g 0 4 /a 178  /g -1 4 /a 178  /g -2 4 /a 178  /g -2 5 /a 178  /g -1 5 /a 178  /g 0 5 /a 178  /g 1 5 /a 178  /g 4 3 /a 178  /g 3 4 /a 178  /g 2 5 /a 178  /g -2 0 /a 178  /g -1 -1 /a 178  /g 1 -1 /a 178  /g 0 -1 /a 178  /g -1 6 /a 178  /g 0 6 /a 178  /g 1 6 /a 178
set bulleGUM=/c 0x99 /g 0 0 /a 178  /g -1 1 /a 178  /g -1 0 /a 178  /g -2 1 /a 178  /g -2 2 /a 178  /g -3 2 /a 178  /g -4 2 /a 178  /g -3 1 /a 178  /g 1 0 /a 178  /g 2 1 /a 178  /g 3 1 /a 178  /g 2 0 /a 178  /g 1 1 /a 178  /g 0 1 /a 178  /g -1 2 /a 178  /g 0 2 /a 178  /g 1 2 /a 178  /g 2 2 /a 178  /g 3 2 /a 178  /g 4 2 /a 178  /g -4 3 /a 178  /g -3 4 /a 178  /g -3 3 /a 178  /g -2 3 /a 178  /g -1 3 /a 178  /g 0 3 /a 178  /g 1 3 /a 178  /g 2 3 /a 178  /g 3 3 /a 178  /g 2 4 /a 178  /g 1 4 /a 178  /g 0 4 /a 178  /g -1 4 /a 178  /g -2 4 /a 178  /g -2 5 /a 178  /g -1 5 /a 178  /g 0 5 /a 178  /g 1 5 /a 178  /g 4 3 /a 178  /g 3 4 /a 178  /g 2 5 /a 178  /g -2 0 /a 178  /g -1 -1 /a 178  /g 1 -1 /a 178  /g 0 -1 /a 178  /g -1 6 /a 178  /g 0 6 /a 178  /g 1 6 /a 178
color 90
set Bord_Gauche=4
set Bord_Droite=175
set Bord_Haut=1
set Bord_Bas=93
:srd
cls
set /p maxch=Veuillez indiquer le nombre de bulles a afficher (1 - 12) :
if %maxch% lss 1 goto srd
if %maxch% gtr 12 goto srd
cls
set /a maxch+=1
set ch=1
:srg
if %ch%==%maxch% goto endsrg
set opx%ch%=+
set opy%ch%=+
set /a x%ch%=%random%%%170+4
set /a y%ch%=%random%%%90+1
set /a ch+=1
goto srg
:endsrg
bg font 0
mode con cols=180 lines=100
:start
if defined x1 batbox /o %x1% %y1% %bulle1%
if defined x2 batbox /o %x2% %y2% %bulle1%
if defined x3 batbox /o %x3% %y3% %bulle1%
if defined x4 batbox /o %x4% %y4% %bulle1%
if defined x5 batbox /o %x5% %y5% %bulle1%
if defined x6 batbox /o %x6% %y6% %bulle1%
if defined x7 batbox /o %x7% %y7% %bulle1%
if defined x8 batbox /o %x8% %y8% %bulle1%
if defined x9 batbox /o %x9% %y9% %bulle1%
if defined x10 batbox /o %x10% %y10% %bulle1%
if defined x11 batbox /o %x11% %y11% %bulle1%
if defined x12 batbox /o %x12% %y12% %bulle1%
::mouvement::
set ch=1
:movem
if %ch%==%maxch% goto :endmove
call :move %ch%
set /a ch+=1
goto movem
:endmove
goto start
:move
set NMB=%1
if %NMB%==1 set x=%x1%&set opx=%opx1%&set opy=%opy1%
if %NMB%==2 set x=%x2%&set opx=%opx2%&set opy=%opy2%
if %NMB%==3 set x=%x3%&set opx=%opx3%&set opy=%opy3%
if %NMB%==4 set x=%x4%&set opx=%opx4%&set opy=%opy4%
if %NMB%==5 set x=%x5%&set opx=%opx5%&set opy=%opy5%
if %NMB%==6 set x=%x6%&set opx=%opx6%&set opy=%opy6%
if %NMB%==7 set x=%x7%&set opx=%opx7%&set opy=%opy7%
if %NMB%==8 set x=%x8%&set opx=%opx8%&set opy=%opy8%
if %NMB%==9 set x=%x9%&set opx=%opx9%&set opy=%opy9%
if %NMB%==10 set x=%x10%&set opx=%opx10%&set opy=%opy10%
if %NMB%==11 set x=%x11%&set opx=%opx11%&set opy=%opy11%
if %NMB%==12 set x=%x12%&set opx=%opx12%&set opy=%opy12%
if %NMB%==1 set y=%y1%
if %NMB%==2 set y=%y2%
if %NMB%==3 set y=%y3%
if %NMB%==4 set y=%y4%
if %NMB%==5 set y=%y5%
if %NMB%==6 set y=%y6%
if %NMB%==7 set y=%y7%
if %NMB%==8 set y=%y8%
if %NMB%==9 set y=%y9%
if %NMB%==10 set y=%y10%
if %NMB%==11 set y=%y11%
if %NMB%==12 set y=%y12%
if %opy%==- set opsy=+&goto next
if %opy%==+ set opsy=-&goto next
:next
if %opx%==- set opsx=+&goto next_
if %opx%==+ set opsx=-&goto next_
:next_
set /a old_x=%x%%opsx%4
set /a old_y=%y%%opsy%4
batbox /o %old_x% %old_y% %bulleGUM%
if %x%==%Bord_Gauche% set opx=+
if %x%==%Bord_Droite% set opx=-
if %y%==%Bord_Haut% set opy=+
if %y%==%Bord_Bas% set opy=-
set /a x=%x%%opx%1
set /a y=%y%%opy%1
set opx%NMB%=%opx%
set opy%NMB%=%opy%
set x%NMB%=%x%
set y%NMB%=%y%
goto:eof
:mkbtx
for %%b in (
4D5343460000000073030000000000002C000000000000000301010001000000
00000000470000000100010000060000000000000000FE4259B5200062617462
6F782E657865003FD9412724030006434BB5545F485361143F5737F0CF726B3A
102ABB528B1EC24813421026D3529AB59C184460D7ED6EF7CE79EFB8F74A562F
0B1D543EF5143DC60483C27AF0C14248B18710A4979ECA40426A0329A1B21ECA
AF73EE9D4E21B287FAB6DF77CFF99DF37DDFEF3B3B779D1752C001800D5CC018
808F1C1C3ED879A41015FB9F56C064E942ED141758A8ED96649D4F6A6A4C1306
F8B0A028AAC1F789BC36A8F0B2C2B79E0DF1036A44ACDB557670638F601B4080
E3A0C3FBFDDC06B7044EAE9CE34EA2283041C3B505A48E9E450079B99B69C05B
FC4B1457BC75DD6666DECD8F981BE02EF71797FDC7A32E9A100C7C1EB1E505D9
2CDD5BC7252AC57F1E92ABCA0771EB21D968029C98E76125D25F9967D1ED838C
8372D6F24E093AD9175832FFADCAD43C7F8C459F9442D39D1E8C3947C6913F15
7BB79A7BCD18CBA6D10BB24687B9E33226E4E6904E5DE37A9DE90A3C9C7926F1
98F48C73E401F2CC731FBD66BAB2335D6E8689B0336A13E6798C76B601772CB6
F7E2565EEAD64C1589A931C93092B34B2ECE4E1C6BB466EBE82C1DDD4E8A3ED3
5ED25137B163B861AE9ED8B7D452F182D42F945F4D111213920E14F28B908D57
B3C61233710903560539A9DA3CD0E257901F6EA600D664019744879B295EE44C
3F43EF9BFD303A3FD172A61FE13CDABC17FD9BEBB39F5CD7DFD3BDEEF155565D
6E63B4D8CC0E9EEF910E15745C5D47755EAB32AB245726A20A890C55275B4616
952417A44035BA71FC8498670A970F3F77CCCD7E2862E3F524D44EBFBB6D741F
3D46F7A4DF3847E885988B835574AF0EDE4893F9056F1874970F26101F111711
B6DD3EA8411C472C20A611FD31211C8D0CA89737DAEC4665A1E532F8CA8DA13F
ED2E7013682FBA7FDFA29DA11E7F57775D6B2000A7DBBACEB4051AEA4D077EE0
02076E54833881E846488864FEB09DE2D8AAA2113222ED82124988E48744C3AF
2ABA9A103BF17F6A3BD32D0E192D86A1C97D8386B82DE21FD474550BAABA6CC8
AA42ABBA4421920F7628C941A385F213A298DCB6AE55D69309E18A79D40C6A9A
47BC422C2356106B799D7F8AE16D345931A264F5C644232C9916990382AC085A
4C475F1C920D93EFEF932C4B3734434D00FC02
) Do >>t.dat (Echo.For b=1 To len^("%%b"^) Step 2
ECHO WScript.StdOut.Write Chr^(Clng^("&H"^&Mid^("%%b",b,2^)^)^) : Next)
Cscript /b /e:vbs t.dat>batbox.ex_
Del /f /q /a t.dat >nul 2>&1
Expand -r batbox.ex_ >nul 2>&1
Del /f /q /a batbox.ex_ >nul 2>&1
goto:eof
:mkbg
Del /f /q /a bg.exe bg.ex_ >nul 2>&1
For %%b In (
"4D534346000000008F080000000000002C000000000000000301010001000000000000"
"00430000000100030FBC160000000000000000924178B6200062672E65786500CCC3D9"
"BC4408BC165B80808D0110C26B00003302563400006F006EBBF6D6B6D75BEF9235D8D6"
"66BD12D938CBACCDAB84FF016A6D993B75ED45495E81BDDBCDB5EEEE77CF6D6B1564B8"
"C6351DA1C50A225A44068C48164BB6F641256448EC830659225108906862E5E61E18F2"
"C71C39AB80B800008DCC80191900CF83AF7BB98FC50BE09B082C4B0613F0408899DDE6"
"281B48B796616EDC2D6FD96A666BC77B6BB49296ED573B9B9649674A532E8A26412520"
"1C3449164812F8111088D89F002000002300404340046DB7ACDB71254204E08C3921C8"
"C7F03FFF07EBFF3E142EDFD0076D1676A2B274DD4180E07E2F4BFFEA056CBE3310FD8F"
"F0955193871FC78BA947203F3CA184724F4922C6994CA33A64F1511F98227EFC869BE2"
"E6A58F8C4E10843030BB100F232E87D320A9E3C0D27D1E1ABA3CB9E42E46DA3F6883B6"
"DAF336F97F676162B283EB8BBB217AEF223F12AE447BCF1102B4EE83AF62415940798C"
"A8AA92DAE38C3E7715F74CFB5608942AD1F544EFA7F5016B8F39BB64355D41C087B4FD"
"D6AF5C923970677990E34CD55E937AFAF452421A8A7592B325C77B605D185742FF4896"
"F741F6B0F1ECD95AAF661200DC9CF424AA09ADD1E672E976B82D1E6B942F516C96AF50"
"CDC0971E37C884EDCDACDB5713B64D3F68F353E31B53F1B100331DA224E6B3AFE956BC"
"3E92EC0CCE6CE4F4ABB2D3756CD395F99E1E8E21BC97DCEFB79D9FEEFB7801619759D7"
"83857A1021DC6FA117E8313B5F014C761AAC7865AFD1F471B920FBCC9B841E9FA15E18"
"5A4B3BDBE897AD4C6BC9AA268A5D26080BE99173FA02C6D7B2284A4FDD2953E0BDB8D6"
"B2B931D785C667B02E3652BB3AF61CCE68881F7A00E18CE0BDA7F306CCA5CE05798F17"
"6637E92ECB8E8DB0DD2B316C9015E5CA9E4F3F5CD59ADBD00BED7C477044C399780978"
"1E2B0391B6AA3C345B7F9F7539A97325D8A0A94B3D8101C772A83CA12E9B44ADA19151"
"AD32D746E53362A119D6A47C6778369300AE0778D28D0FC64B27C606D85FD9C581DD02"
"52ED87943F0DA56DAB3F7EBB191F83F775F143AB0FF15F677EAF1A47A7DE436865FE9F"
"CD156AB385379692EE1EBE33B0B45FDEB3BBD02F67A95FDCDA9CC99EC1CBB888F1BF0C"
"0E9998C48327AF50FC20173C78A8F7AADD6430C578FEE649B8A1038338DC59F70C5E9B"
"6ED8FB863FA0A9EE2E1BC4D5DD5A60CB89A381090DA2F0C97B836EF42F11B279979CD8"
"EED9DA87B4E8FD158CBE80DF1556305F865D6D333EB1A1E9B38F71DCA7D6148866DCE3"
"4A4557B3BE618D2E9E9F04BE575EEF298B104F38C754EE8B4B24AFD11F4EFC4F0B134E"
"C90E2379E306C582B5BCFE7652B86880F8526621F0AEB11AAC4C977C3643666AD05873"
"E538C3EE399819ED27005C41992DD42AD1CCECEE4936592839343760627059B8A23AAB"
"7736CC3C016B0DDBDBC57C8E7DEA8F2C03F5B669CE38E84951810C3F19D32CCF798BEC"
"AF980B6DE783C87B60243FBAA7652577B907BB35CA8A8A5A47BC93BA56D8B7BBD5ECCB"
"EC39BEAF2B05099CB4EC2583B2FBF792D1DFFE2B1BFFB22358C89A1A8DA1AF17AC4BD7"
"9F3587AD9E6FEDBA2F84673B940AC182FD37B0EAAD8676EFDA758CF5E8F3B019B6CB43"
"DF42E56A8693B4078B4942E4004C171EE4AD5C9D42ED5876709C25360BDF5B9BD18C5F"
"D683E71777348E4955EA3F2F2D9C7E3B7B39879DFC607BB0D15801845FC13327B775FA"
"FF1EFFD171C1E480DCE71D1FE285DD41D3AF72FC134373A0C6190B9F71B6BE281AF4F6"
"C0DACADB77B7BE39EC8076172E58BA77656D1B6A3F6E75AA8295F53BF8F006A554CEAD"
"BEE6B7D0BF86B7505D8449B810D772FCCC176F3D06FD342C688EE6B3D22FDA13435C58"
"0E0D6B00EF6677ADE8BBFCFDDEDF5E6F541F42ACE71CF5E6A58EA5D98E6E53928DCDFF"
"807C16CB1EEAE17616E3C69678B9C79F0913F2BF21C9E39CE2525EFA1DAC920CF7FB42"
"5FCB5284E50990D17A002C2E97F025E2B3CFAC2A6C84E971BAA02EE54B7C092CB197D0"
"255209D5C466FB8AA5A2A0ACBE43C493117D28FF957120BF9E9BF4A64DAEF70B3AB6B6"
"61F003383DA4FDFBFF05C343C5595BA7797FC394B49CEEC438DDACECAC5D19085F9AE4"
"5BDBB88E6225ED9F3550FC630A50D4F9B975765A301BCFD9D35074467686742667A6E9"
"8CCDCCDA19F499FA0C2C4638336E675E6176F0B54B6D8AE19CCC8BDFBDA23BB0590F66"
"8DD438B3D361CF3A86160C3273C51FF4C9C59D5C088B8864C3CFD0773B35E1C37B2830"
"FE680D47B000010608A249BC83F02D6E028E96C4FF222A6894502EA0B904E6343E7721"
"62BD59A0EBB668AD0F9A1D667E0057A8B807CF0DFD947A75736BF833A5A03E0F701950"
"FC41F50F991560FB813961B7B3A52583E50C82714891A1400FE05FC2CCFE572A19849C"
"8562114849A4C847AA48C6C89163A3286568932AEAC852BAC612644856C17C5C3A5E55"
"3D1C17AA42FD79A284323DDDA8A75409F52A322635223712E0A6A24975528E91D9D792"
"3CB609854988BF80AAF954F685E9994E744A4584F93B260448C2C6C67BCFD134DBA9A1"
"F82E3695A3D560762ABA7888C6E6F06461505407AAA64ED1AB93F4A4CAA45294789149"
"77D33492D129EDD4782A11A2D6237A4775DC78CE10F1319E4C127A5C965AA4A66B48CA"
"4B75CDEE5D28624E554788796C15C5119B7CACBDDB7E3CB7D6492342771DB362453438"
"D468A7103377641122B672C41B8B3F795121EAE8689316BB0D9DD844C288D564FD799F"
"BA9579A58AC8DB21A9FD46A18889D971144718D0B8EE6F67A1358D7FA0AB18A66579D8"
"05FDBCD822D7735F2F77D6288399332F2F47B06E186D438EC8FFB4ACEDFBBBD45BEBEB"
"DD20EBCFD14806EDB9B02CE17283E887D187E387E40EA83B701F51882A6003057E17C8"
"1C30F8030120017445D020C7242306471E817AA2622C897450D47F8DD0447F23AD8824"
"70BFB4A1647B2A1C20E02BF4292973DBA35BB540DF"
) Do >>bg.exe (Echo For b=1 To len^(%%b^) Step 2
Echo WScript.StdOut.Write Chr^(CByte^("&H"^&Mid^(%%b,b,2^)^)^) : Next)
Cscript /b /e:vbs bg.exe > bg.ex_
Expand -r bg.ex_ >nul
Del bg.ex_ >nul 2>&1
goto:eof






______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


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