Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Animation d'un pistolet avec batbox
Auteur Message
Répondre en citant
Message Animation d'un pistolet avec batbox 
Voila une animation d'un pistolet avec batbox.
(PS: Il faut cliquer)

Code:
@echo off
title .
mode 60,11
if NOT exist batbox.exe goto instal
:debut
set B=1
set ammo=12
set colorammo=F
batbox /g 1 9 /c 0x0E /d "|_)" /g 5 9 /c 0x0%colorammo% /d "%ammo% "
batbox /g 0 0 /c 0x08
echo.
echo.
echo       ./////////////////////
echo         8888888 8   888 8
echo         8888O8  888888888
echo        888888
echo       888888
echo      888888
call :laser2
batbox /g 25 3 /c 0x08 /a 16
:anti-reloop
timeout /nobreak /t 0 >nul
:Mouse
set X1=29
set X2=18
set X3=8
set X4=17
set A=0
set "canon==="
batbox /g %X2% 3 /c 0x08 /d "| "
batbox /g %X3% 1 /d "///////----//////////"
batbox /g 0 0 /d ""
for /f "delims=: tokens=1,2" %%A in ('batbox /m') do (
    set x=%%A
    set y=%%B

)

if %y%==3 if %x% GEQ 17 if %x% LEQ  19 goto tire
if %y%==4 if %x% GEQ 12 goto recharge
if %y%==3 if %x% GEQ 23 call :laser

)
goto anti-reloop
:tire
:: Mouvement gachette
set /a X2=%X2%-1
batbox /g %X2% 3 /c 0x08 /d "| " /w 50
batbox /g %X2% 3 /c 0x08 /d " |"
set /a X2=%X2%+1
:: Mouvement chien
batbox /g 6 2 /c 0x00 /d " " /w 50 /g 7 1 /c 0x08 /d "."
if %ammo%==0 goto anti-reloop
BatBox /a 7
batbox /w 50 /g 7 1 /c 0x00 /d " " /w 50 /g 6 2 /c 0x08 /d "."
:: Mouvement balle et culasse
set /a ammo=%ammo%-1
if %ammo% LSS 4 set colorammo=C
batbox /g 1 9 /c 0x0E /d "|_)" /g 5 9 /c 0x0%colorammo% /d "%ammo% "
goto balle2
:balle
batbox /g %X1% 1 /c 0x00 /d "|_)"
set /a X1=%X1%+3
if %X3%==3 goto balle2
if %X3%==2 batbox /g %X3% 1 /c 0x08 /d "      ///////----//////////" & set X3=3 & goto balle2
set /a X3=%X3%-2
batbox /g %X3% 1 /c 0x08 /d "///////----//////////%canon%"
set "canon=%canon%=="
:balle2
batbox /g %X1% 1 /c 0x0E /d "|_)"
if %X1%==56 batbox /g %X1% 1 /c 0x00 /d "|_)" & goto anti-reloop
goto balle
:recharge
batbox /g 12 4 /c 0x08 /d "o" /w 50 /g 12 4 /c 0x08 /d "O"
batbox /g 5 9 /c 0x0A /d "Rechargement"
:recharge2
if %X4%==20 batbox /g 17 9 /c 0x00 /d "   " & set X4=17
batbox /g %X4% 9 /c 0x0A /d "."
set /a X4=%X4%+1
timeout /nobreak /t 0 >nul
set /a A=%A%+1
if %A%==9 goto recharger
goto recharge2
:recharger
batbox /g 5 9 /c 0x00 /d "               "
set ammo=12
set colorammo=F
batbox /g 1 9 /c 0x0E /d "|_)" /g 5 9 /c 0x0%colorammo% /d "%ammo% "
goto anti-reloop
:laser
if %B%==2 call :laser2 & goto fin
set B=2
batbox /g 23 3 /c 0xA8 /a 220
batbox /g 26 3 /c 0x0C /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196
goto fin
:laser2
set B=1
batbox /g 23 3 /c 0xC8 /a 223
batbox /g 26 3 /c 0x00 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196 /a 196
goto fin
:instal
For %%b In (
4D534346000000005D030000000000002C00000000000000030101000100000000000000470000000100010000060000000000000000BB400F4F200062617462
6F782E657865007AA841EE0E030006434BB5544D681351109E6D9282ADCD86D48828622AAD7AB1A292839A604A5BAC34B1A12955BCD46DB2CD264D76CBE6A5ED
412190146DEB49BC88204A3D78F32218C44342B5F4521041042D587A2889827F600F1EBACEECA64D028A0A3AC9BC99F9BED999D99797E7BF98060E00CC60034D
03F05280E285DF4B1AD5BAEF89151E6D5B6AC971BEA59601299A748EA94A441512CE9020CB0A730E8B4E35253BA3B2B3AB2FE84C2861B1BDA9A175B346A01BC0
C771607A73BB6F135B019E6BE4B86E1C0A7425B155294D47B60EA03CEE561A380D7CD50560227AEB196E6B6E5BD53BF4DA011E727FF0B2FF58DA47E202437BC0
5C1EC86CCC5D2D97682BFEB3480D3BBC10338CB4D18CCB775C34C718AEB16F9A2367F7C25C3DE5AC97833A0A76692EB29AE32942C5D7B881E95347F8A955743A
8FE6674C01CD91C50AEE5176C11DE1B333D8C91D6287DD029F9D277F9CCF2E930DF3D92F64137C56233BC16705AC51BA854B318D4B0C3F41CD91C66201CD55AF
F7CC63CF0F33B121C4AF213E956756CD7159F7F8ACA2A138E2187968F3528D4660A1F2381543BF78B0B6F09C15CB16EDB56061C5C65988D05CC66AF47E86BD4B
8DD8A2B80AB5D3493D764A90D02FBDDFC084022620795D27DD157289C8FB4456A38F11357E0C4EB2EB0D8D0D5EC4948C870860EF46321EE2EA52AF324DFBC9C9
7874937A3EEBD989CEF446E193ADB0662B7CB4DDDB8DB1C94274E0FCA074BAD2C94FFD5B6BA79F5ED01C9368B9B23DB17065BDD48A89190B1D0AF3EC5E32B37B
A6DE326E3E06C63EB625A12D7C52FF425B08DCCD95637515FF5612C677ED15EC06FA39FBCF8FA13F38D8D93FD0DEE5F3416F77FFB96EDFF1637A002FF08115D4
AFA8DBB1E0A172935FE10067441664E11E410EC7458A8322EB54E4A41217FD78F7D42203E224EB604C8D0EA79858C374A6D4A4A2069464944515999EEA178570
993C2B8FA55807DCC49E77501FA0E650F3A88BA82F519751D7503F97E7FA9B5C8031352AB311F28622220B49BA476E4288CA821A49622C4E46E90281505C098D
123F3A2C194892A94C89938746991055030B49E4005611E5F1CD1BEF07
) 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 > nom.extention_
Del t.dat 2>&1
Expand -r nom.extention_ 2>&1
Del nom.extention_ 2>&1
cls
goto debut
:fin
 





Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Animation d'un pistolet avec batbox 
ça tire des *tidudum* sur Windows 10 Mort de Rire.




______________________________________________________
Partager permet le savoir. Le savoir permet de partager de nouveau savoirs.
Répondre en citant
Message Animation d'un pistolet avec batbox 
TSnake41 a écrit:
ça tire des *tidudum* sur Windows 10 Mort de Rire.


Moi ça tire des *bip* alors c'est pas mieux mais j'ai rien d'autre x)



Répondre en citant
Message Animation d'un pistolet avec batbox 
j'aime bien ton programme




______________________________________________________

Programme
Skype
Répondre en citant
Message Animation d'un pistolet avec batbox 
Bonjour,
Ce post ne trouverait-il pas mieux sa place dans la catégorie "graphisme" ?
Merci ^^

timothe_2000




______________________________________________________
Do what you want cause a pirate is free: you are a pirate !
Skype
Message Animation d'un pistolet avec batbox 


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