Qiita Teams that are logged in
You are not logged in to any team

Log in to Qiita Team
Community
OrganizationAdvent CalendarQiitadon (β)
Service
Qiita JobsQiita ZineQiita Blog
4
Help us understand the problem. What is going on with this article?
@plcherrim

「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ

More than 5 years have passed since last update.

 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるClojure 様に影響され、気付いたら出来上がっていました。

 1000字を超えても完成しなければ煽られずに済むおまけつきです。

「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ.bat
@echo off
mode con:cols=100 lines=50
title 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ
:top
cls
set word=
echo 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ
echo.
echo 何かキーを押すと進捗状況を確認します
pause >nul
set loop=0
set wcount=0
:generate
set /a num=%random%*4/32768
set str=進捗
set length=2
if %num% == 1 set str=どう
if %num% == 2 set str=です
if %num% == 3 set str=か&set length=1
set /a loop+=1,wcount+=length
goto write

:write
set word=%word%%str%
set judge=%word:~-7%
cls
echo %word%
if %judge% == 進捗どうですか goto fin
if %wcount% geq 1000 goto out
goto generate

:fin
echo.
echo.
echo.
echo.
timeout /t 2 /nobreak >nul
echo                      _人人人人人人人_
echo                      >進捗どうですか<
echo                       ̄Y^^Y^^Y^^Y^^Y^^Y^^Y^^ ̄
echo.
echo                                       %wcount%文字で煽られました。
pause >nul
goto top

:out
echo.
echo.
echo.
echo.
timeout /t 2 /nobreak >nul
echo                          ふう…。
echo.
echo                                       煽られずに済みました。
pause >nul
goto top

                      進捗ダメです

 以上です。ありがとうございました。

4
Help us understand the problem. What is going on with this article?
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
plcherrim
バッチファイルが好き。

Comments

No comments
Sign up for free and join this conversation.
Sign Up
If you already have a Qiita account Login
4
Help us understand the problem. What is going on with this article?