Licorne/Writer

From Esolang
Jump to navigation Jump to search
Back to Licorne

Programmed in Batch.

@echo off
del "licorne.bat">nul
ping 1.0.0.0 -n 1 -w 10 >nul
cls
echo @echo off >>licorne.bat
set ln=-1
:lpl
set /a ln=ln + 1
batbox /k
if %errorlevel%==23 goto hurlerAuxLicornes
if %errorlevel%==22 goto chierUnArcEnCiel
if %errorlevel%==9 goto demanderABitou
if %errorlevel%==3 goto compterLesArcsEnCiel
if %errorlevel%==16 goto stopperCesKinderBueno
if %errorlevel%==112 goto arreterDiscretos
if %errorlevel%==80 goto arreterDiscretos
if %errorlevel%==1 goto chialerDevantTitanicPendantMillisecondes
if %errorlevel%==59 goto 1
if %errorlevel%==105 goto insererUneImageBMPFabulous
if %errorlevel%==73 goto insererUneImageBMPFabulous
if %errorlevel% neq 73 if %errorlevel% neq 105 if %errorlevel% neq 59 if %errorlevel% neq 1 if %errorlevel% neq 80 if %errorlevel% neq 112 if %errorlevel% neq 16 if %errorlevel% neq 3 if %errorlevel% neq 9 if %errorlevel% neq 23 if %errorlevel% neq 22 goto lpl
:1
batbox /k
if %errorlevel%==41 goto sauvegarder
if %errorlevel% neq 41 goto lpl
:insererUneImageBMPFabulous
echo inserer une image.$[image.bmp].^&x.œy.~z.FABULOUS;
set /p inserer=$
set /p x=^&
set /p y=œ
set /p z=~
echo insertbmp /p:%inserer% /x:%x% /y:%y% /z:%z% >>licorne.bat
goto lpl
:sauvegarder
batbox /g 0 0 /c 0xF0
set /p sauv=Sauvegarder dans le dossier (copiez, clic droit, collez :D): 
copy "licorne.bat" "%sauv%"
copy "insertbmp.exe" "%sauv%"
copy "batbox.exe" "%sauv%"
ping 1.0.0.0 -n 1 -w 1000>nul
del "licorne.bat"
cls
echo @echo off >>licorne.bat
set ln=-1
color 0F
goto lpl
:hurlerAuxLicornes
set /p hurler=hurler.$.aux licornes; $
echo echo %hurler% >>licorne.bat
goto lpl
:chierUnArcEnCiel
echo chier un.$=^&; $
set /p chier=$
set /p arcenciel=^&
echo set %chier%=%arcenciel% >>licorne.bat
goto lpl
:demanderABitou
echo demander.$=^&.… Bitou;
set /p demander=$
set /p bitou=^&
echo set /p %demander%=%bitou% >>licorne.bat
goto lpl
:compterLesArcsEnCiel
echo compter les.$=^&;
set /p compter=$
set /p arcsenciel=^&
echo set /a %compter%=%arcsenciel% >>licorne.bat
goto lpl
:stopperCesKinderBueno
echo stopper ces Kinder Bueno
echo pause >>licorne.bat
goto lpl
:arreterDiscretos
echo s'arrˆter discr‚tos
echo pause^>nul >>licorne.bat
goto lpl
:chialerDevantTitanicPendantMillisecondes
set /p chialer=chialer devant Titanic pendant.$.millisecondes; $
echo ping 1.0.0.0 -n 1 -w %chialer%^>nul >>licorne.bat
goto lpl

There are also insertbmp.exe and batbox.exe external commands.