【8万文字・96KB】.bat(バッチファイル)でRPG

バッチ言語でRPGを作っています。

遊び方

WASDです。

コード

@echo off
setlocal enabledelayedexpansion
chcp 932 >nul
color 0A
set "coffee=?"
set /a penalflag3=0, whenflag0=0
title Salads And Elements
mode con: cols=10 lines=10
if exist name.bat call name.bat
if not exist photo.bat (
>photo.bat echo @echo off
>>photo.bat echo setlocal enabledelayedexpansion
>>photo.bat echo title Photos in SAE
>>photo.bat echo mode con: cols=100 lines=30
)
set "tilde=%~f0"
set /a c1=5, c2=9
cls
set "today=1"
rundll32 user32.dll,MessageBeep 32
set /p ty="今日は西暦何年ですか？"
set /p m="今日は何月ですか？"
set /p d="今日は何日ですか？"
set /p sn="セーブナンバー:"
if !m! equ 3 if !d! equ 12 (
echo ヘンリー: 今日はモーリシャスの独立記念日だよ^!モーリシャスおめでとう^!
rundll32 user32.dll,MessageBeep 64
pause
)
if !m! equ 7 if !d! equ 7 (
echo ヘンリー: 今日はソロモン諸島の独立記念日だよ^!ソロモン諸島おめでとう^!
rundll32 user32.dll,MessageBeep 64
pause
)
if !m! equ 10 if !d! equ 3 (
echo ヘンリー: 今日はドイツの独立記念日^(ドイツ統一の日^)だよ^!独^(ドイツ^)独立記念日だね^!
rundll32 user32.dll,MessageBeep 64
pause
)
if !m! equ 4 if !d! equ 4 (
echo ヘンリー: 今日はグランピー・キャットの誕生日だよ^!因みに　月日両方を二倍すると世界猫の日になるんだよね^!
rundll32 user32.dll,MessageBeep 64
pause
)
if !m! equ 1 if !d! equ 15 (
echo ヘンリー: 今日はウィキペたんの誕生日^(設定上^)だよ^!あ　あとWikipediaの創立記念日だよ
echo https://commons.wikimedia.org/wiki/File:Wikipe-tan_Birthday.jpg?uselang=ja
rundll32 user32.dll,MessageBeep 64
pause
)
cls
if !m! equ 1 set /a d0=0
if !m! equ 2 set /a d0=31
if !m! equ 3 set /a d0=59
if !m! equ 4 set /a d0=90
if !m! equ 5 set /a d0=120
if !m! equ 6 set /a d0=151
if !m! equ 7 set /a d0=181
if !m! equ 8 set /a d0=212
if !m! equ 9 set /a d0=243
if !m! equ 10 set /a d0=273
if !m! equ 11 set /a d0=304
if !m! equ 12 set /a d0=334
set /a y0=!ty! - 1
set /a leap=!y0! / 4 - !y0! / 100 + !y0! / 400
set /a m4=!ty! %% 4, m100=!ty! %% 100, m400=!ty! %% 400, leap0=0
if !m4! equ 0 if !m100! neq 0 set /a leap0=1
if !m400! equ 0 set /a leap0=1
if !m! gtr 2 if !leap0! equ 1 (set /a leap0=1) else (set /a leap0=0)
set /a julius1=!y0! * 365 + !d0! + !d! + !leap! + !leap0!
set "timer=%TIME%"
set "hh=!timer:~0,2!"
set "hh=!hh: =0!"
set "mm=!timer:~3,2!"
set "ss=!timer:~6,2!"
set /a hh=1!hh! - 100, mm=1!mm! - 100, ss=1!ss! - 100
:loop0
cls
echo 1Salads11
echo 1And11111
echo 1Elements
set d1=!c1!Afresh11
set d2=!c2!Past1111
for %%i in (d1 d2) do (
set "tmp=!%%i!"
for /f "delims=" %%A in ("!tmp!") do (
set "display=%%A"
set "display=!display:9=#!"
set "display=!display:5=@!"
echo !display!
)
)
echo 11(C)2026
echo PYRROLINE
set "choose=?"
rundll32 user32.dll,MessageBeep 32
set /p choose="WorS: "
if /i "!choose!"=="W" (
if !c1! equ 9 (
set /a c1=5
set /a c2=9
) else (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
)
)
if /i "!choose!"=="S" (
if !c2! equ 9 (
set /a c2=5
set /a c1=9
) else (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
)
)
set "choose2=?"
set /p choose2="OK?(y/n): "
if /i "!choose2!"=="y" (
if !c1! equ 5 (
set /a go=1
) else (
set /a go=2
)
set /a whenflag0=1
)
if !whenflag0! neq 1 goto :loop0
:when
set /a rareflag=0, rareflag2=0
set "log1=Nothing"
set "log2=Nothing"
set "log3=Nothing"
if "!go!"=="1" (
set /a start1=!hh! * 3600 + !mm! * 60 + !ss!
set /a random3=!random! %% 2
if !random3! equ 0 (
set "name3=Pablo_Diego_Jose_Francisco_de_Paula_Juan_Nepomuceno_Maria_de_los_Remedios_Cipriano_de_la_Santisima_Trinidad_Ruiz_y_Picasso"
) else (
set "name3=%username%"
)
set /a stan=0
call :name
set "name0=!name0: =_!"
set "name0=!name0:>=?!"
set "name0=!name0:<=?!"
set "name0=!name0:|=?!"
set "name0=!name0:&=?!"
set /a random3=!random! %% 2
if !random3! equ 0 (
set "world=Nicotinamide_adenine_dinucleotide_phosphate"
) else (
set "world=%comptername%"
)
set /p world="このワールドに名前をつけてください: "
if "!world!"=="おまかせ" (
set "world=オンダンセトロン"
)
cls
set "t2="
set /a ambrosiaflag0=0, phoneflag=0, composter=0, composterflag=0, hide0=0, flash=0, ticket=0, primeflag=0, that=0, film=0, filmflag=0, camera2=0, hp12=200, cal=0, dani=0, author=0, video0=1, video0flag=0, videoflag=0, video=0, hide1=0, hp=20, hp0=10, return0=0, keyp=0, step=0, shopnum=0, hydroflag=0, hydrogenflag=0, heliumflag=0, lithiumflag=0, berylliumflag=0, boronflag=0, carbonflag=0, nitrogenflag=0, oxyflag=0, oxygenflag=0, hydrogen=0, helium=0, lithium=0, beryllium=0, boron=0, carbon=0, nitrogen=0, oxygen=0, fluorine=0, character2flag=0, pen1=0, pen2=0, pen3=0, pen4=0, i1=111, i2=111, i3=111, y=1, rx=5, x=10000, potion=0, tr1=0, tr2=0, tr3=0, return700=1, wiki=0, skill=0
) else (
echo セーブデータを読み込みます
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
cls
if exist save!sn!.bat (
call save!sn!.bat
echo 多分上手くいきました
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
set /a rareflag=1
) else (
echo 舐めとんのか
pause
exit
)
cls
echo ゲイリー: 所得税貰います　超過累進税率方式なんて知りません
timeout /t 2 >nul
echo ゲイリー: 日本国に於ける住民税を除いた最高税率は45^%？知りません　どこの国だよ日本
timeout /t 2 >nul
set /p toby="ゲイリー: 郷に入っては郷に従えって知ってますか？(y/n)"
if !cal! leq 100 (
echo ゲイリー: 少ないカルですね　
timeout /t 2 >nul
echo ゲイリー: こちらをどうぞ　困窮者給付金だとでも思っておいてください
timeout /t 2 >nul
set /a cal=!cal! + !random! %% 10000
) else (
if "!toby!"=="y" (
set /a cal=!cal! / 2
) else (
set /a cal=!cal! / 3
)
if not "!toby!"=="y" if not "!toby!"=="n" (
set /a cal=!cal! / 5
)
)
set /a rareflag2=1
)
set /a fightflag=0, pitfallflag=0, gotoflag=0, eraser=0, flashflag=0, hp0sflag=0, loopflag=0, neutronflag=0, boltwoodflag=0
set "name=null"
set "prime="
set /a otherflag=0, keep=0, random0=1
if !camera! equ 1 (
echo 「古いカメラ」は!name0!を待っている間に　ぼろぼろに崩れ落ちてしまっていた
rundll32 user32.dll,MessageBeep 16
timeout /t 1 /nobreak >nul
set /a camera=0
cls
)
cls
if !rareflag2! equ 1 goto :return0
:stage1
cls
if not "!t2!"=="およそ300～350kcal消費しました" (
if 10000 leq !step! (
echo 作者: おぉ　肥満にならずに済んだのですね^!
rundll32 user32.dll,MessageBeep 0
timeout /t 1 /nobreak >nul
echo トロフィー「およそ300～350kcal消費しました」を獲得しました
rundll32 user32.dll,MessageBeep 64
timeout /t 1 /nobreak >nul
set /a tr2=1
set "t2=およそ300～350kcal消費しました"
)
)
cls
if "!hydrogen!"=="1" (
set /a line7=111111111
) else (
set /a line7=711111111
)
set /a line6=111111111
set /a line5=111131111
set /a line4=111111111
set /a line3=111111111
set /a line2=111111111
set /a line1=111111111
set /a return700=1
goto :do
:return1
set chest1=!line7:~-9,1!
if /i "!chest1!"=="8" (
set /a hydrogen=1
set /a i1=!i1! + 100
echo 水素の鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
set /a keyp=1
echo 方向操作画面で「K」と入力してみてください　所持している鍵の一覧を表示できます
rundll32 user32.dll,MessageBeep 0
pause
)
set /a nextflag=0
if !hydrogen! equ 1 (
set goal=!line5:~-5,1!
if /i "!goal!"=="4" (
set /a return0=1
)
)
if !return0! equ 1 goto :return0
goto :stage1
:stage2
cls
if "!helium!"=="1" (
set /a line7=111111111
) else (
set /a line7=171111111
)
if !hide0! equ 1 (
set /a line7=!line7! + 600000000
)
set /a line6=111111115
set /a line5=111131111
set /a line4=111111111
set /a line3=111111111
if "!composterflag!"=="1" (
if not "!splendid!"=="1" (
set /a line2=111111115
) else (
set /a line2=111111111
)
) else (
set /a line2=111111111
)
if "!lithium!"=="1" (
set /a line1=111111111
) else (
set /a line1=111111117
)
set /a return700=2
goto :do
:return2
set splendid2=!line2:~-1,1!
if /i "!splendid2!"=="6" (
call :shop2
set /a splendid=1
)
set character3=!line6:~-1,1!
if /i "!character3!"=="6" (
echo ハロルド: 方向選択画面で「R」と入力したらゲームをセーブできるんですよ
rundll32 user32.dll,MessageBeep  0
pause
echo ハロルド: でも1度もセーブせずにクリアすると特別な演出^(絶対に期待しない方が良い^)があるらしいんですよね
<nul set /p toby="B" | choice /c A /n >nul 2>&1
pause
if !dani! equ 0 (
set /a camera=1
echo !name0!は「古いカメラ」を授かった^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo ハロルド: 本当に大切な瞬間に　方向選択画面で「C」と入力してみてください
rundll32 user32.dll,MessageBeep 0
pause
echo ハロルド: そのカメラは年季こそ入っていますが　かなり性能は良いはずです
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo ハロルド: ですので　4コマぐらいなら動画を撮ることができるでしょう
rundll32 user32.dll,MessageBeep 0
timeout /t 1 /nobreak >nul
set /a dani=1
)
if "!author!"=="0" (
echo 作者: 誰だこいつ^!？
rundll32 user32.dll,MessageBeep 48
timeout /t 1 /nobreak >nul
set /a author=1
)
)
set chest2=!line7:~-8,1!
if /i "!chest2!"=="8" (
set /a helium=1
set /a i1=!i1! + 10
echo ヘリウムの鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
set /a hp0=10, hp100=10
if !composterflag! equ 1 (
set "name=macaroni salad EX"
) else (
set "name=macaroni salad"
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
set chest3=!line1:~-1,1!
if "!chest3!"=="8" (
set /a lithium=1
set /a i1=!i1! + 1
echo リチウムの鍵と古い地図の欠片を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 2 >nul
echo 因みに　他の破片は　どこを探しても見つからないですよ
rundll32 user32.dll,MessageBeep 0
timeout /t 1 /nobreak >nul
echo 1712111
echo 2212
echo 111
echo 1
echo;
rundll32 user32.dll,MessageBeep 0
set /a abandon=15
for /L %%i in (1,1,15) do (
timeout /t 1 >nul
set /a abandon=!abandon! - 1
echo !abandon!
rundll32 user32.dll,MessageBeep 48
)
)
set floor1=!line6:~-9,1!
if "!floor1!"=="2" goto :pitfall
set floor1=!line7:~-5,1!
if "!floor1!"=="2" goto :pitfall
set floor1=!line6:~-8,1!
if "!floor1!"=="2" goto :pitfall
set floor1=!line6:~-6,1!
if "!floor1!"=="2" goto :pitfall
set hide1=!line7:~-9,1!
if "!hide1!"=="2" (
set /a hide0=1
echo 作者: 時には　ステージを隅々までくまなく探索することが重要ではない場合もあります
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo 作者: まあ　このブロックは安全ですけど
rundll32 user32.dll,MessageBeep 0
timeout /t 1  >nul
set /a potion=!potion! + 33
echo 回復薬を33個手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 /nobreak >nul
)
if /i "!hide1!"=="8" (
echo スタンリー: 世間に蔓延る「うまい話」は　本質的には「落とし穴」と同義なのかも知れません
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
set /a pitfallflag=1
)
if !pitfallflag! equ 1 goto :pitfall
if !helium! equ 1 (
if !lithium! equ 1 (
set goal=!line5:~-5,1!
if /i "!goal!"=="4" (
set /a return0=2
)
)
)
if !return0! equ 2 goto :return0
goto :stage2
:stage3
cls
set /a line7=111111115
set /a line6=111111111
set /a line5=111131111
set /a line4=111111111
if "!beryllium!"=="1" (
set /a line3=111111111
) else (
set /a line3=111171111
)
if "!character2flag!"=="1" (
set /a line2=111111111
) else (
set /a line2=111151111
)
set /a line1=111111111
set /a return700=3
goto :do
:return3
set buyer=!line7:~-1,1!
if "!buyer!"=="6" (
set /a shopnum=!shopnum! + 1
if !ambrosiaflag0! equ 1 (
echo チョップは閉店したョ^!
rundll32 user32.dll,MessageBeep 64
pause
) else (
if !shopnum! geq 9 (
echo ゲイリー: どうも「セット・チョップ」です
timeout /t 1 >nul
set /a phoneflag=1
call :shop
) else (
if !shopnum! geq 7 (
echo お店からただならぬ音が聞こえる^.^.^.
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo 今入るのはやめておこう
rundll32 user32.dll,MessageBeep 0
) else (
echo ゲイリー: どうもよく分からんショップの「セット・チョップ」です
rundll32 user32.dll,MessageBeep 32
timeout /t 1 >nul
if !shopnum! geq 2 (
if !cal! gtr 10000 (
echo ゲイリー: これを"差し上げ"ます
rundll32 user32.dll,MessageBeep 32
set /a phoneflag=1, cal=!cal! - 10000, potion=!potion! + 3
timeout /t 1 >nul
if !phoneflag! equ 1 (
echo !name0!は「高性能なスマホ」を手に入れた^!
rundll32 user32.dll,MessageBeep 32
timeout /t 2 >nul
echo ゲイリー: 移動画面で「B」を押せばいつでもどこでも　気軽に「セット・チョップ」を使えます
rundll32 user32.dll,MessageBeep 32
timeout /t 5 >nul
echo ゲイリー: え？商品はどうやって配送されるか？
rundll32 user32.dll,MessageBeep 32
timeout /t 2 >nul
echo ゲイリー: 知らん地面から生えてくるとかじゃね？そういうことは作者に聞けよ
rundll32 user32.dll,MessageBeep 32
timeout /t 2 >nul
) else (
set /a potion=!potion! + 1
echo !name0!は「回復薬」を手に入れた^!
rundll32 user32.dll,MessageBeep 64
)
echo ゲイリー: じゃあ　お買い物楽しんで
rundll32 user32.dll,MessageBeep 32
timeout /t 1 >nul
)
)
call :shop
)
)
)
)
set chest4=!line3:~-5,1!
if "!chest4!"=="8" (
set /a beryllium=1
set /a i2=!i2! + 100
echo ベリリウムの鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
set /a hp0=35, hp100=35
if !composterflag! equ 1 (
set "name=choregi salad EX"
) else (
set "name=choregi salad"
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
set character2=!line2:~-5,1!
if "!character2!"=="6" (
set /a character2flag=1
if !wiki! gtr 0 (
echo ヘンリー: それは^.^.^.「ウィキペたんの一次創作イラスト」じゃないか^!
rundll32 user32.dll,MessageBeep 64
timeout /t 3 >nul
echo ヘンリー: 10000　いや　5000calで譲ってくれないか？
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo 作者: 何故値下げした？
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
set "toby=n"
set /p toby="5000calで譲ってくれないか？(y/n): "
if /i "!toby!"=="y" (
echo ヘンリー: ありがとう^!
rundll32 user32.dll,MessageBeep 64
timeout /t 3 >nul
set /a wiki=!wiki! - 1, cal=!cal! + 5000
)
if /i "!toby!"=="n" (
echo ヘンリー: そうか^.^.^.　残念だな^.^.^.^.^.^.
rundll32 user32.dll,MessageBeep 64
timeout /t 3 >nul
)
) else (
echo ヘンリー: おっと^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo ヘンリー: うっかり回復のポーションを君にぶちまけちゃった^!ごめんね^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
set /a hp=!hp! - 1
echo !name0!のHPが1減少しました
rundll32 user32.dll,MessageBeep 16
set /a hp=!hp! + 25
echo !name0!のHPが25回復しました
rundll32 user32.dll,MessageBeep 64
timeout /t 2 >nul
echo ヘンリー: お詫びと言ってはなんだけど^,^,^,
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo 回復薬を手に入れた^!
rundll32 user32.dll,MessageBeep 64
set /a potion=!potion! + 2
timeout /t 1 >nul
echo ヘンリー: クリーニング代　出しましょうか？良い場所を知ってるんですよ^!
rundll32 user32.dll,MessageBeep 64
timeout /t 2 >nul
echo ヘンリー: あ　伝え忘れていましたけど　回復薬は攻撃選択画面で「P」と入力することで使えます^!
rundll32 user32.dll,MessageBeep 64
timeout /t 2 >nul
)
)
if !beryllium! equ 1 (
set goal=!line5:~-5,1!
if /i "!goal!"=="4" (
set /a return0=3
)
)
if !return0! equ 3 goto :return0
goto :stage3
:stage4
cls
if !that! equ 1 (
set /a line7=111111111
) else (
set /a line7=111111115
)
set /a line6=111111111
set /a line5=111131111
set /a line4=111111111
set /a line3=777777777
if !boron! equ 1 (
set /a line3=!line3! - 600000000
)
if !carbon! equ 1 (
set /a line3=!line3! - 60000000
)
if !pen1! equ 1 (
set /a line3=!line3! - 6000000
)
if !nitrogen! equ 1 (
set /a line3=!line3! - 600000
)
if !pen2! equ 1 (
set /a line3=!line3! - 60000
)
if !oxygen! equ 1 (
set /a line3=!line3! - 6000
)
if !pen3! equ 1 (
set /a line3=!line3! - 600
)
if !pen4! equ 1 (
set /a line3=!line3! - 60
)
if !fluorine! equ 1 (
set /a line3=!line3! - 6
)
set /a line2=111111111
set /a line1=111111111
set /a return700=4
goto :do
:return4
set character1=!line7:~-1,1!
if /i "!character1!"=="6" (
call :isthisprime
if !prime! equ 1 (
if !primeflag! neq 1 (
set /a that=1
echo アレクサンダー: 歩数が素数の君には　これをプレゼントしよう
<nul set /p toby="B" | choice /c A /n >nul 2>&1
timeout /t 1 /nobreak >nul
echo アレクサンダー: ^(ハロルドなる人から貰ったのだが要らなくて困ってたんだ^)
<nul set /p toby="B" | choice /c A /n >nul 2>&1
timeout /t 2 >nul
echo ハロルドっぽい: ここで　タイピングターイム
<nul set /p toby="B" | choice /c A /n >nul 2>&1
timeout /t 1 >nul
set "thunder=?"
set /p thunder="ハロルドっぽい: さっきアレクサンダーが言った文章を一言一句間違えずに打ってみよう: "
<nul set /p toby="B" | choice /c A /n >nul 2>&1
if "!thunder!"=="ハロルドなる人から貰ったのだが要らなくて困ってたんだ" echo アレクサンダー: ^(心が読めるのか^!？^)
if not "!thunder!"=="ハロルドなる人から貰ったのだが要らなくて困ってたんだ" echo アレクサンダー: ^(何を言ってらっしゃる？^)
<nul set /p toby="B" | choice /c A /n >nul 2>&1
timeout /t 2 >nul
set /a camera2=1
echo 「良さげなカメラ」を手に入れた
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
set /a film=!film! + 2
echo フィルムを2枚手に入れた
rundll32 user32.dll,MessageBeep 64
timeout /t 2 >nul
echo 方向選択画面で「F」を入力すれば使えて　写真は「photo.bat」というファイルに貯まりますおすすめは　「Windows+R」をして　その先で「cmd」と打ち　その先で「photo」と打っていただくのが良いかと
rundll32 user32.dll,MessageBeep 0
pause
set /a primeflag=1
)
echo アレクサンダー: やっぱり素数は素晴らしい^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
) else if !prime! equ 0 (
echo アレクサンダー: 素数は素晴らしい^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
)
)
set chest5=!line3:~-9,1!
if /i "!chest5!"=="8" (
set /a boron=1
set /a i2=!i2! + 10
echo ホウ素の鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo 作者: よかったねー
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
)
set chest6=!line3:~-8,1!
if /i "!chest6!"=="8" (
set /a carbon=1
set /a i2=!i2! + 1
echo 炭素の鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
)
set chest-1=!line3:~-7,1!
if /i "!chest-1!"=="8" (
set /a pen1=1
set /a hp0=50, hp100=50
if !composterflag! equ 1 (
set "name=caesar salad EX"
) else (
set "name=caesar salad"
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
set chest7=!line3:~-6,1!
if /i "!chest7!"=="8" (
set /a nitrogen=1
set /a i3=!i3! + 100
echo 窒素の鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo 作者: 私は素数が好きです^(急^)
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
set /a hp0=57, hp100=57
if !composterflag! equ 1 (
set "name=caesar salad EX"
) else (
set "name=caesar salad"
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
set chest-2=!line3:~-5,1!
if /i "!chest-2!"=="8" (
set /a pen2=1
set /a hp0=53, hp100=53
if !composterflag! equ 1 (
set "name=caesar salad EX"
) else (
set "name=caesar salad“
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
set chest8=!line3:~-4,1!
if /i "!chest8!"=="8" (
set /a oxygen=1
set /a i3=!i3! + 10
echo 酸素の鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
)
set chest-3=!line3:~-3,1!
if /i "!chest-3!"=="8" (
set /a pen3=1
echo 回復薬を手に入れた^!
rundll32 user32.dll,MessageBeep 64
set /a potion=!potion! + 1
timeout /t 1 >nul
set /a hp0=59, hp100=59
if !composterflag! equ 1 (
set "name=caesar salad EX"
) else (
set "name=caesar salad"
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
set chest-4=!line3:~-2,1!
if /i "!chest-4!"=="8" (
set /a pen4=1
set /a hp0=47, hp100=47
if !composterflag! equ 1 (
set "name=caesar salad EX"
) else (
set "name=caesar salad"
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
set chest9=!line3:~-1,1!
if /i "!chest9!"=="8" (
set /a fluorine=1
set /a i3=!i3! + 1
echo フッ素の鍵を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
set /a hp0=113, hp100=113
if !composterflag! equ 1 (
set "name=caesar salad EX"
) else (
set "name=caesar salad"
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
if !boron! equ 1 (
if !carbon! equ 1 (
if !nitrogen! equ 1 (
if !oxygen! equ 1 (
if !fluorine! equ 1 (
set goal=!line5:~-5,1!
if /i "!goal!"=="4" (
set /a return0=4
)
)
)
)
)
)
if !return0! equ 4 goto :return0
goto :stage4
:stage5
cls
set /a line7=111111111
set /a line6=111111111
set /a line5=111171111
set /a line4=111111111
set /a line3=111111111
set /a line2=111111111
set /a line1=111111111
set /a return700=5
goto :do
:return5
set floor1=!line7:~-7,1!
if /i "!floor1!"=="2" goto :pitfall
set floor1=!line6:~-5,1!
if /i "!floor1!"=="2" goto :pitfall
set floor1=!line5:~-4,1!
if /i "!floor1!"=="2" goto :pitfall
set floor1=!line5:~-6,1!
if /i "!floor1!"=="2" goto :pitfall
set chest0=!line5:~-5,1!
if /i "!chest0!"=="8" (
set /a hp0=1729, hp100=1729
if !composterflag! equ 1 (
set "name=potato salad EX"
) else (
set "name=potato salad"
)
set /a return0=5
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
goto :stage5
:do
call :akintosave2
if !tr1! equ 1 (
set "t1=最早ヒーラー"
) else (
set "t1=このトロフィーは「回復」に関係します"
)
if !tr2! equ 1 (
set "t2=およそ300～350kcal消費しました"
) else (
set "t2=このトロフィーは「足」に関係します"
)
if !tr3! equ 1 (
set "t3=あなたに最大級の祝福と敬意を表します素晴らしい^!"
) else (
set "t3=このトロフィーは非常に「困難」です"
)
if !y! equ 7 set /a line7=!line7! + !x!
if !y! equ 6 set /a line6=!line6! + !x!
if !y! equ 5 set /a line5=!line5! + !x!
if !y! equ 4 set /a line4=!line4! + !x!
if !y! equ 3 set /a line3=!line3! + !x!
if !y! equ 2 set /a line2=!line2! + !x!
if !y! equ 1 set /a line1=!line1! + !x!
for %%i in (line7 line6 line5 line4 line3 line2 line1) do (
set "tmp=!%%i!"
for /f "delims=" %%A in ("!tmp!") do (
set "display=%%A"
set "display=!display:3=#!"
set "display=!display:5=$!"
set "display=!display:7=?!"
set "display=!display:2=@!"
set "display=!display:1=.!"
echo !display!
)
set /a video0flag=!video0flag! + 1
if !videoflag! equ 4 (
set "video04@%%i=!display!"
if %%i equ 1 set /a videoflag=-1
)
if !videoflag! equ 3 (
set "video03@%%i=!display!"
if %%i equ 1 set /a videoflag=4
)
if !videoflag! equ 2 (
set "video02@%%i=!display!"
if %%i equ 1 set /a videoflag=3
)
if !videoflag! equ 1 (
set "video01@%%i=!display!"
if %%i equ 1 set /a videoflag=2
)
if !filmflag! equ 1 (
set "photo%%i=!display!"
if "%%i"=="line1" (
set /a filmflag=0
(
echo echo !world! / !ty!-!m!-!d! / %%TIME%%
echo echo !photo7!
echo echo !photo6!
echo echo !photo5!
echo echo !photo4!
echo echo !photo3!
echo echo !photo2!
echo echo !photo1!
echo echo;
) >> photo.bat
)
)
)
set "hp5="
set /a hp7=(!hp12! - !hp!) / 10
set /a hp6=!hp! / 10
for /L %%i in (1,1,!hp7!) do (
set hp5=!hp5!.
)
for /L %%i in (1,1,!hp6!) do (
set hp5=!hp5!@
)
echo !name0! ^| HP: !hp5! !hp!/!hp12!
echo STAGE: !return700!ステージ目 ^| STEP: !step!歩 ^| 累計消費カロリー: !cal!cal^(kcalじゃないよ^) ^| 経験値: !composter! ^| Lv: !composterflag!
echo;
echo !log3!
echo !log2!
echo !log1!
echo;
if !step! leq -100 (
echo 作者: 歩数カンスト^!？^!？怖ッ^!
rundll32 user32.dll,MessageBeep 16
timeout /t 3 /nobreak >nul
echo 作者: 又はチート？^(ちゃんとやった人は本当にごめんなさい^)
rundll32 user32.dll,MessageBeep 64
pause
echo 作者: 取り敢えず　2000000000calにしときます
rundll32 user32.dll,MessageBeep 64
set /a cal=2000000000
pause
)
if !videoflag! equ -1 (
echo 「古いカメラ」はぼろぼろに崩れ落ちてしまった
rundll32 user32.dll,MessageBeep 48
timeout /t 3 /nobreak >nul
set /a videoflag=-2
set /a camera=0
)
set "que=?"
set /p que="Move (WASD) or Action (Film/Camera/Item/Potion/Trophy/Record/Key/Memory/Eraser/Other/Buy) [H]elp: "
set /a ambrosiaeater=0
if /i "que"=="ambrosia" (
if !composterflag! geq 2 (
if !primeflag! equ 1 (
if !boltwoodflag! equ 1 (
set /a ambrosiaeater=1
)
)
)
)
if !ambrosiaeater! equ 1 goto :ambrosia
if /i "!que!"=="wiki" echo ウィキペたん: Wikiって略すな^!
if /i "!que!"=="ぬるぽ" (
echo ｶﾞｯ
rundll32 user32.dll,MessageBeep 16
timeout /t 3 >nul
set /a hp=!hp! - 1
echo !name0!のHPが1減少しました
rundll32 user32.dll,MessageBeep 64
timeout /t 3 >nul
)
if /i "!que!"=="おっと" (
echo 作者: 「おっと」を言って良いのはヘンリーか私だけだ　いいね？
rundll32 user32.dll,MessageBeep 0
timeout /t 2 /nobreak >nul
)
if /i "!que!"=="dq" (
echo ゲイリー: 初代ドラクエ^(64KB^)より容量食ってる^(90KB超え^)くせに　この程度のクオリティなのか？
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo 作者: 圧縮処理をしてないだけだ　テキストの生肉というアンブロシアを食え
rundll32 user32.dll,MessageBeep 16
timeout /t 3 >nul
echo ゲイリー: 生肉を神々の食物にするな
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
)
if /i "!que!"=="pyrroline" set & pause
if /i "!que!"=="h" (
echo F: 写真撮影
echo C: 動画撮影
echo I: 所持アイテム確認
echo P: ポーションの数を表示^(ポーションの数のキリが良くなったらたまに開いてみると良いかも？^)
echo T: 所持実績表示
echo R: セーブ
echo K: 所持鍵表示
echo M: アルバム再生
echo E: クリアタイム表示
echo O: 別世界へ
echo B: ポケット^(ショップ^)
echo H: アクションキーのヘルプ^(これ^)
rundll32 user32.dll,MessageBeep 0
pause
cls
)
if /i "!que!"=="set" (
set
pause
)
if /i "!que!"=="v" (
if !composterflag! equ 1 (
set "name=tuna salad EX"
set /a hp0=100, hp100=100
) else (
set "name=tuna salad"
set /a hp0=20, hp100=20
)
set /a fightflag=1
)
if !fightflag! equ 1 goto :fight1
if /i "!que!"=="b" (
if !phoneflag! equ 1 (
echo !name0!はポケットから「壊れかけのケータイ」を取り出した
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
if !shopnum! geq 7 if !shopnum! leq 8 (
echo 本店は臨時休業中の様だ　どこかの支店に繋がった
rundll32 user32.dll,MessageBeep 16
)
call :shop
) else (
echo !name0!はポケットに手を突っ込んでみた
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
set /a random3=!random! %% 3
if !random3! equ 0 echo ポケットから「欠けたビー玉」が出てきた瑕釁^(←作者: この文字　表示されなかったら悲しいなぁ^.^.^.「ちぬる」という漢字です　熟語の方は「かきん」と読みます^)とはこのことか & rundll32 user32.dll,MessageBeep 64
if !random3! equ 1 echo ポケットから「札束の玩具」が出てきた二宮尊徳が描かれている & rundll32 user32.dll,MessageBeep 64
if !random3! equ 2 echo ポケットから「ウル王朝のゲームの説明書」が出てきた何故？？？？ & rundll32 user32.dll,MessageBeep 64
timeout /t 5 >nul
echo !name0!は不法投棄した芥改役^(江戸時代中期に江戸幕府が設置した　ごみの不法投棄や処理を取り締まる役職^)に刎頚されるぜ^!
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo 作者: ^(現実では絶対にやらないでね^)
rundll32 user32.dll,MessageBeep 48
timeout /t 2 >nul
)
)
set /a otherflag2=0 
if /i "!que!"=="o" (
if !ticket! geq 1 (
echo 別世界から帰りたければセーブしてね^(それでもできなかったら思い切ってゲームを切って再度ロードしてください^)
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
set /a ticket=!ticket! - 1
set /a otherflag2=1
) else (
echo チケットを手に入れてから来てね^!
rundll32 user32.dll,MessageBeep 16
timeout /t 2 >nul
)
)
if !otherflag2! equ 1 goto :other
if /i "!que!"=="e" (
echo !eraser!
rundll32 user32.dll,MessageBeep 64
pause
)
if /i "!que!"=="i" call :item
if /i "!que!"=="M" call photo.bat
if !camera2! equ 1 (
if /i "!que!"=="F" (
set "use=n"
rundll32 user32.dll,MessageBeep 48
set /p use="「良さげなカメラのフィルム」を1枚消費しますが　よろしいですか？^(y/n^): "
if /i "!use!"=="y" (
if !film! equ 0 (
echo フィルムがありません
rundll32 user32.dll,MessageBeep 16
timeout /t 1 >nul
) else (
set /a filmflag=1
set /a film=!film! - 1
echo 写真を撮った
rundll32 user32.dll,MessageBeep 64
timeout /t 1 /nobreak >nul
)
)
)
)
if !camera! equ 1 (
if /i "!que!"=="c" (
set "use=n"
rundll32 user32.dll,MessageBeep 48
set /p use="本当に古いカメラを使いますか？^(y/n^): "
if /i "!use!"=="y" (
set /a videoflag=1
echo 「古いカメラ」が動き出した
rundll32 user32.dll,MessageBeep 0
timeout /t 1 /nobreak >nul
)
)
)
if /i "!que!"=="R" (
echo 作者: その通りです　休憩を取ることは大切ですね
rundll32 user32.dll,MessageBeep -1
timeout /t 1 >nul
echo 作者: そう　特にこのゲームでは
rundll32 user32.dll,MessageBeep -1
timeout /t 1 >nul
cls
call :akintosave
)
if /i "!que!"=="T" (
echo !t1! & echo !t2! & echo !t3!
pause
if "!t3!"=="あなたに最大級の祝福と敬意を表します素晴らしい^!" (
set "end=n"
rundll32 user32.dll,MessageBeep 48
set /p end="エンドロールを見ますか？(y/n): "
)
)
if /i "!end!"=="y" goto :end
if /i "!que!"=="P" (
echo !potion!
pause
if 100 leq !potion! (
echo 作者: 本当にポーション100個所持をやり遂げたんですか^!？信じられない^!
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo トロフィー「最早ヒーラー」を獲得しました
rundll32 user32.dll,MessageBeep 64
timeout /t 1 /nobreak >nul
set /a tr1=1
)
)
if !keyp! equ 1 (
if /i "!que!"=="K" (
goto :key
)
)
set /a calrandom=!random! %% 2
if /i "!que!"=="W" (
if !y! equ 7 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
) else (
set /a y=!y! + 1
set /a step=!step! + 1
if !calrandom! equ 0 set /a cal=!cal! + 30
if !calrandom! equ 1 set /a cal=!cal! + 40
)
)
if /i "!que!"=="S" (
if !y! equ 1 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
) else (
set /a y=!y! - 1
set /a step=!step! + 1
if !calrandom! equ 0 set /a cal=!cal! + 30
if !calrandom! equ 1 set /a cal=!cal! + 40
)
)
if /i "!que!"=="A" (
if !rx! equ 9 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
) else (
set /a x=!x! * 10
set /a rx=!rx! + 1
set /a step=!step! + 1
if !calrandom! equ 0 set /a cal=!cal! + 30
if !calrandom! equ 1 set /a cal=!cal! + 40
)
)
if /i "!que!"=="D" (
if !rx! equ 1 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
) else (
set /a x=!x! / 10
set /a rx=!rx! - 1
set /a step=!step! + 1
if !calrandom! equ 0 set /a cal=!cal! + 30
if !calrandom! equ 1 set /a cal=!cal! + 40
)
)
if !return700! equ 1 goto :return1
if !return700! equ 2 goto :return2
if !return700! equ 3 goto :return3
if !return700! equ 4 goto :return4
if !return700! equ 5 goto :return5
goto :stagehenry
:key
set "f1=!i1:~-3,1!"
set "f2=!i1:~-2,1!"
set "f3=!i1:~-1,1!"
set "f4=!i2:~-3,1!"
set "f5=!i2:~-2,1!"
set "f6=!i2:~-1,1!"
set "f7=!i3:~-3,1!"
set "f8=!i3:~-2,1!"
set "f9=!i3:~-1,1!"
if !f1! geq 3 set i1=2!f2!!f3!
if !f2! geq 3 set i1=!f1!2!f3!
if !f3! geq 3 set i1=!f1!!f2!2
if !f4! geq 3 set i2=2!f5!!f6!
if !f5! geq 3 set i2=!f4!2!f6!
if !f6! geq 3 set i2=!f4!!f5!2
if !f7! geq 3 set i3=2!f8!!f8!
if !f8! geq 3 set i3=!f7!2!f8!
if !f9! geq 3 set i3=!f7!!f8!2
for %%i in (i1 i2 i3) do (
set "tmp=!%%i!"
for /f "delims=" %%A in ("!tmp!") do (
set "display=%%A"
set "display=!display:3=@!"
set "display=!display:2=#!"
set "display=!display:1=.!"
echo !display!
)
)
set "return=n"
set /p return="return?(y/n): "
if /i "!return!"=="y" goto :return0
goto :key
:return0
set /a otherflag=0, gotoflag=0
set /a y=1, rx=5, x=10000
if !return0! equ 5 (
set /a composter=!composter! + 3
rem タリウムと
if !tr1! equ 1 (
if !tr2! equ 1 (
if not !tr3! equ 1 (
if !composterflag! geq 2 (
set /a tr3=1
cls
echo 作者: あなたは本当にこのゲームを攻略しましたね
rundll32 user32.dll,MessageBeep 64
timeout /t 3 /nobreak >nul
echo 作者: ここまでプレイしていただき　本当にありがとうございます
rundll32 user32.dll,MessageBeep 64
timeout /t 3 /nobreak >nul
echo 作者: では　最後にこのゲームの恒例行事で締めくくりましょう
rundll32 user32.dll,MessageBeep 64
timeout /t 3 /nobreak >nul
echo 作者: おっとその前にゲームをセーブしておいてくださいね
rundll32 user32.dll,MessageBeep 64
timeout /t 3 /nobreak >nul
call :akintosave2
call :akintosave
pause
echo You made mistake
<nul set /p toby="B" | choice /c A /n >nul 2>&1
rundll32 user32.dll,MessageBeep 64
pause
<nul set /p="swertia japonica salad: 残念　アナログセーブコードは消しておきました" | clip
exit
) else (
echo All clear?
timeout /t 3 >nul
echo 作者: この「理不尽な」ゲームをプレイしていただき　ありがとうございました
rundll32 user32.dll,MessageBeep 64
timeout /t 3 >nul
echo 作者: またお会いしましょう
set /a hydrogen=0, helium=0, lithium=0, beryllium=0, boron=0, carbon=0, nitrogen=0, oxygen=0, fluorine=0, character2flag=0, pen1=0, pen2=0, pen3=0, pen4=0
set /a antedateflag=1
set /a return0=0
rundll32 user32.dll,MessageBeep 64
timeout /t 3 >nul
)
)
)
)
if 27 leq !composter! (
set /a composterflag=1
)
if 90 leq !composter! (
set /a composterflag=2
)
if 120 leq !composter! set /a composterflag=3
set /a hydrogen=0, helium=0, lithium=0, beryllium=0, boron=0, carbon=0, nitrogen=0, oxygen=0, fluorine=0, character2flag=0, pen1=0, pen2=0, pen3=0, pen4=0
set /a antedateflag=1
set /a return0=0
)
if !return0! gtr 20000000 goto :stagehenry
if !return0! equ 4 goto :stage5
if !return0! equ 3 goto :stage4
if !return0! equ 2 goto :stage3
if !return0! equ 1 goto :stage2
goto :stage1
:pitfall
echo 落とし穴に落ちました
for /L %%i in (1,1,2) do (
rundll32 user32.dll,MessageBeep 48
)
pause
exit
:fight1
set /a cal0=0, fightflag=0, flashflag=0, hp0sflag=0, loopflag=0
set /a little=1
set "old="
if !keyp! neq 1 (
set /a random2=!random! %% 2
if !random2! equ 1 (
echo !name!: せめて使えるワザの1つぐらい覚えてから来ればどうだ？
rundll32 user32.dll,MessageBeep 16
timeout /t 2 /nobreak >nul。
echo !name!: 冷やかしに来たなら帰りな　私がご機嫌な内に
rundll32 user32.dll,MessageBeep 16
timeout /t 2 /nobreak >nul
)
goto :return0
)
:fightcmd
if !composter! gtr 8 (
set /a i1=222, i2=222, i3=222
if !skill! geq 1 set /a i1=!i1! + 200
if !skill! geq 2 set /a i1=!i1! + 20
if !skill! geq 3 set /a i1=!i1! + 2
if !skill! geq 4 set /a i2=!i2! + 200
if !skill! geq 5 set /a i2=!i2! + 20
if !skill! geq 6 set /a i2=!i2! + 2
if !skill! geq 7 set /a i3=!i3! + 200
if !skill! geq 8 set /a i3=!i3! + 20
if !skill! geq 9 set /a i3=!i3! + 2
if !skill! geq 10 set /a i1=!i1! + 200
if !skill! geq 11 set /a i1=!i1! + 20
if !skill! geq 12 set /a i1=!i1! + 2
if !skill! geq 13 set /a i2=!i2! + 200
if !skill! geq 14 set /a i2=!i2! + 20
if !skill! geq 15 set /a i2=!i2! + 2
if !skill! geq 16 set /a i3=!i3! + 200
if !skill! geq 17 set /a i3=!i3! + 20
if !skill! geq 18 set /a i3=!i3! + 2
)
rem タリウム
set /a i3t=!i3!, i2t=!i2!, i1t=!i1!
set /a iy=1
set /a irx=3
set /a ix=100
:loop
set /a loopflag=0, enterflag=0
if !hp! leq 0 (
echo you loss
for /L %%i in (1,1,4) do (
rundll32 user32.dll,MessageBeep 48
)
pause
exit
)
cls
set "the1=111111111"
set "the2=113333311"
set "the3=132222231"
set "the4=132424231"
set "the5=132222231"
set "the6=113333311"
set "the7=111111111"
if !return0! equ 1 (
set "the1=111111111"
set "the2=113333311"
set "the3=113222311"
set "the4=113424311"
set "the5=113222311"
set "the6=113333311"
set "the7=111111111"
)
if !return0! equ 2 (
set "the1=113333311"
set "the2=113111311"
set "the3=113222311"
set "the4=113424311"
set "the5=113222311"
set "the6=113222311"
set "the7=113333311"
)
if !return0! equ 3 (
set "the1=111111111"
set "the2=333333333"
set "the3=322222223"
set "the4=322424223"
set "the5=322222223"
set "the6=333333333"
set "the7=111111111"
)
if !return0! equ 4 (
set "the1=111111111"
set "the2=333333333"
set "the3=314242413"
set "the4=341424243"
set "the5=324142423"
set "the6=333333333"
set "the7=111111111"
)
if !otherflag! neq 1 (
if !composterflag! equ 1 (
set "the1=111111111"
set "the2=333333333"
set "the3=222222222"
set "the4=444444444"
set "the5=222222222"
set "the6=333333333"
set "the7=111111111"
)
if !composterflag! geq 2 (
set "the1=111111111"
set "the2=!tilde!"
set "the3=111111111"
set "the4=322242223"
set "the5=111111111"
set "the6=!tilde!"
set "the7=111111111"
)
)
for %%i in (the1 the2 the3 the4 the5 the6 the7) do (
set "tmp=!%%i!"
for /f "delims=" %%A in ("!tmp!") do (
set "display=%%A"
set "display=!display:3=#!"
set "display=!display:4=@!"
set "display=!display:2=_!"
set "display=!display:1=.!"
echo !display!
)
)
echo;
set /a i3=!i3t!, i2=!i2t!, i1=!i1t!
:loop100
if !iy! equ 1 set /a i1=!i1! + !ix!
if !iy! equ 2 set /a i2=!i2! + !ix!
if !iy! equ 3 set /a i3=!i3! + !ix!
echo ==beryllium's flag==
set "hydroflagflag=[-]"
for /L %%i in (1, 1,!hydroflag!) do (
set "hydroflagflag=!hydroflagflag![H]"
if "!hydroflagflag!"=="[-][H]" set "hydroflagflag=[H]"
)
if "!hydroflagflag:~0,6!"=="[H][H]" set "hydroflagflag=!hydroflagflag! OK^!"
echo !hydroflagflag!
echo;
echo ==oxygen's flag==
set "oxyflagflag=[-]"
for /L %%i in (1, 1,!oxyflag!) do (
set "oxyflagflag=!oxyflagflag![O]"
if "!oxyflagflag!"=="[-][O]" set "oxyflagflag=[O]"
)
if "!oxyflagflag:~0,6!"=="[O][O]" set "oxyflagflag=!oxyflagflag! OK^!"
echo !oxyflagflag!
echo;
echo ==fluorine's flag==
set "hydrogenflagflag=[-]" & set "heliumflagflag=[-]" & set "lithiumflagflag=[-]" & set "berylliumflagflag=[-]" & set "boronflagflag=[-]" & set "carbonflagflag=[-]" & set "nitrogenflagflag=[-]" & set "oxygenflagflag=[-]" & set "fluorineflagflag=[-]" 
if !hydrogenflag! equ 1 set "hydrogenflagflag=[H]"
if !heliumflag! equ 1 set  "heliumflagflag=[He]"
if !lithiumflag! equ 1 set "lithiumflagflag=[Li]"
if !berylliumflag! equ 1 set "berylliumflagflag=[Be]"
if !boronflag! equ 1 set "boronflagflag=[B]"
if !carbonflag! equ 1 set "carbonflagflag=[C]"
if !nitrogenflag! equ 1 set "nitrogenflagflag=[N]"
if !oxygenflag! equ 1 set "oxygenflagflag=[O]"
if !hydrogenflag!  equ 1 (
if !heliumflag! equ 1 (
if !lithiumflag! equ 1 (
if !berylliumflag! equ 1 (
if !boronflag! equ 1 (
if !carbonflag! equ 1 (
if !nitrogenflag! equ 1 (
if !oxygenflag! equ 1 (
 set "fluorineflagflag=[F] OK^!"
)
)
)
)
)
)
)
)
echo !hydrogenflagflag!!heliumflagflag!!lithiumflagflag!!berylliumflagflag!!boronflagflag!!carbonflagflag!!nitrogenflagflag!!oxygenflagflag!!fluorineflagflag!
echo;
echo -=+=-
for %%i in (i1 i2 i3) do (
set "tmp=!%%i!"
for /f "delims=" %%A in ("!tmp!") do (
set "display=%%A"
set "display=!display:5=$!"
set "display=!display:4=?!"
set "display=!display:3=@!"
set "display=!display:2=#!"
set "display=!display:1=.!"
echo !display!
)
)
echo -=+=-
echo;
set "hp5="
set /a hp7=(!hp12! - !hp!) / 10
set /a hp6=!hp! / 10
for /L %%i in (1,1,!hp7!) do (
set "hp5=!hp5!."
)
for /L %%i in (1,1,!hp6!) do (
set "hp5=!hp5!@"
)
echo !name0!のHP: !hp5! !hp!/!hp12!
set "hp5="
set /a hp10=!hp4! / 10 * 10
set /a hp9=!hp0! / 10 * 10
set /a hp7=(!hp10! - !hp9!) / 10
set /a hp6=!hp9! / 10
for /L %%i in (1,1,!hp7!) do (
set "hp5=!hp5!."
)
for /L %%i in (1,1,!hp6!) do (
set "hp5=!hp5!@"
)
echo !name!のHP: !hp5! !hp0!/!hp100!
rem  ここは元はecho !name!のHP: !hp5! !hp0!/!hp4!だった
set "dir=?"
set /p dir="select (WASD) Potion / Electronic flash: "
if !neutronflag! neq 1 if !boltwoodflag! equ 1 (
if "!dir!"=="Th" (
echo バートラム: 中性子線ビーム^(やけくそ^)
rundll32 user32.dll,MessageBeep 64
timeout /t 1 >nul
echo 作者: ^(英訳したらNeutron beam beamじゃん^)
rundll32 user32.dll,MessageBeep -1
timeout /t 3 >nul
set /a hp0=!hp0! - 230
set "new=!name!のHPが230減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set /a neutronflag=1
)
)
if /i "!dir!"=="e" (
if 1 leq !flash! (
echo Electronic flash!
rundll32 user32.dll,MessageBeep 64
set /a random3=!random! %% 2 + 1
set /a flashflag=!flashflag! + !random3!
set /a hp0sflag=1
)
)
if /i "!dir!"=="P" (
if 3 leq !potion! (
if !composterflag! equ 1 (
set /a potion=!potion! - 3
set /a random4=!random!
set /a random7=!random4! %% 7 * 20
set /a hp=!hp! + !random7!
set "new=!name0!のHPが!random7!回復しました"
call :log
set /a hp0=!hp0! - 3
set "new=!name!のHPが3減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
timeout /t 1 >nul
set /a hp0sflag=1
)
)
if !potion! neq 0 (
set /a potion=!potion! - 1
set /a random7=!random! %% 7 * 5
set /a hp=!hp! + !random7!
set "new=!name0!のHPが!random7!回復しました"
call :log
timeout /t 1 >nul
set /a hp0sflag=1
) else (
goto :loop100
)
)
if !hp0sflag! equ 1 goto :hp0s
if /i "!dir!"=="W" (
if !iy! equ 1 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
echo 作者: ここが無法地帯だとでも？
rundll32 user32.dll,MessageBeep 16
pause
exit
) else (
set /a iy=!iy! - 1
)
)
if /i "!dir!"=="S" (
if !iy! equ 3 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
echo 作者: ここが無法地帯だとでも？
rundll32 user32.dll,MessageBeep 16
pause
exit
) else (
set /a iy=!iy! + 1
)
)
if /i "!dir!"=="A" (
if !irx! equ 3 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
echo 作者: ここが無法地帯だとでも？
rundll32 user32.dll,MessageBeep 16
pause
exit
) else (
set /a ix=!ix! * 10
set /a irx=!irx! + 1
)
)
if /i "!dir!"=="D" (
if !irx! equ 1 (
echo You made mistake
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
echo 作者: ここが無法地帯だとでも？
rundll32 user32.dll,MessageBeep 16
pause
exit
) else (
set /a ix=!ix! / 10
set /a irx=!irx! - 1
)
)
set "f1=!i1:~-3,1!"
set "f2=!i1:~-2,1!"
set "f3=!i1:~-1,1!"
set "f4=!i2:~-3,1!"
set "f5=!i2:~-2,1!"
set "f6=!i2:~-1,1!"
set "f7=!i3:~-3,1!"
set "f8=!i3:~-2,1!"
set "f9=!i3:~-1,1!"
echo =======
if !f1! equ 3 (
echo hydrogen & echo 相手に控えめなダメージを与える
rundll32 user32.dll,MessageBeep 0
)
if !f2! equ 3 (
echo helium & echo 自分のHPを少し回復する
rundll32 user32.dll,MessageBeep 0
)
if !f3! equ 3 (
echo lithium & echo カウンター
rundll32 user32.dll,MessageBeep 0
)
if !f4! equ 3 (
echo beryllium & echo hydrogenを2回使っていると　相手にかなりダメージを与える　与えたら　hydrogenのカウンターはリセットされる　カウンターが揃っていない時に使うとhydrogenが発動する
rundll32 user32.dll,MessageBeep 0
)
if !f5! equ 3 (
echo boron & echo 元素ワザがランダムに繰り出せる　まだ持っていないワザも使える　しかし　稀に失敗して自分がダメージを受けたり敵が回復することもある　極々稀にとっておきのワザが繰り出せるとか繰り出せないとか
rundll32 user32.dll,MessageBeep 0
)
if !f6! equ 3 (
echo carbon & echo 自分のHPをそれなりに回復する
rundll32 user32.dll,MessageBeep 0
)
if !f7! equ 3 (
echo nitrogen & echo 自分のHPを少し削る代わりに　その2倍のダメージを相手に与える
rundll32 user32.dll,MessageBeep 0
)
if !f8! equ 3 (
echo oxygen & echo 3回使用ごとに発動　敵にそれなりのダメージ を与え　与えたダメージ分だけ自分のHPを回復する
rundll32 user32.dll,MessageBeep 0
)
if !f9! equ 3 (
echo fluorine & echo 水素から酸素までの全ての元素を使用した状態で放つと　敵にありったけのダメージ を与える　与えたあとはカウンターはリセットされる
rundll32 user32.dll,MessageBeep 0
)
if !f1! equ 5 (
echo hydrogen+ & echo 素晴らしいワザ　相手に控えめなダメージを与える
rundll32 user32.dll,MessageBeep 0
)
if !f2! equ 5 (
echo helium+ & echo 素晴らしいワザ　自分のHPを少し回復する
rundll32 user32.dll,MessageBeep 0
)
if !f3! equ 5 (
echo lithium+ & echo 素晴らしいワザ　カウンター
rundll32 user32.dll,MessageBeep 0
)
if !f4! equ 5 (
echo beryllium+ & echo 素晴らしいワザ　hydrogenを2回使っていると　相手にかなりダメージを与える　与えたら　hydrogenのカウンターはリセットされる　カウンターが揃っていない時に使うとhydrogenが発動する
rundll32 user32.dll,MessageBeep 0
)
if !f5! equ 5 (
echo boron+ & echo 素晴らしいワザ　元素ワザがランダムに繰り出せる　まだ持っていないワザも使える　しかし　稀に失敗して自分がダメージを受けたり敵が回復することもある　稀にとっておきのワザが繰り出せるとか繰り出せないとか
rundll32 user32.dll,MessageBeep 0
)
if !f6! equ 5 (
echo carbon+ & echo 素晴らしいワザ　自分のHPをそれなりに回復する
rundll32 user32.dll,MessageBeep 0
)
if !f7! equ 5 (
echo nitrogen+ & echo 素晴らしいワザ　自分のHPを削る代わりに　その2倍のダメージを相手に与える
rundll32 user32.dll,MessageBeep 0
)
if !f8! equ 5 (
echo oxygen+ & echo 素晴らしいワザ　3回使用ごとに発動　敵にそれなりのダメージ を与え　与えたダメージ分だけ自分のHPを回復する
rundll32 user32.dll,MessageBeep 0
)
if !f9! equ 5 (
echo fluorine+ & echo 素晴らしいワザ　水素から酸素までの元素の内　5つ以上を使用した状態で放つと　敵にありったけのダメージ を与える　与えたあとはカウンターはリセットされる
rundll32 user32.dll,MessageBeep 0
)
echo =======
set "enter=n"
rundll32 user32.dll,MessageBeep 32
set /p enter="enter?(y/n): "
echo;
if /i "!enter!"=="y" goto :loop3
goto :loop
:loop3
if !f1! equ 3 goto :hydro
if !f2! equ 3 goto :helium
if !f3! equ 3 goto :lithium
if !f4! equ 3 goto :beryllium
if !f5! equ 3 goto :boron
if !f6! equ 3 goto :carbon
if !f7! equ 3 goto :nitrogen
if !f8! equ 3 goto :oxygen
if !f9! equ 3 goto :fluorine
if !f1! equ 5 goto :hydrogen2
if !f2! equ 5 goto :helium2
if !f3! equ 5 goto :lithium2
if !f4! equ 5 goto :beryllium2
if !f5! equ 5 goto :boron2
if !f6! equ 5 goto :carbon2
if !f7! equ 5 goto :nitrogen2
if !f8! equ 5 goto :oxygen2
if !f9! equ 5 goto :fluorine2
rem タリウム
goto :loop
:hydro
echo hydrogen^!
rundll32 user32.dll,MessageBeep 64
set /a random1=!random! %% 3
set /a random2=!random! %% 3
set /a random0=!random1! - !random2!
if !random0! leq 0 (
set /a random0=1
)
set /a hp0=!hp0! - !random0!
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set /a cal0=!cal0! + !random0!
set /a hydrogenflag=1
set /a hydroflag=!hydroflag! + 1
goto :hp0s
:helium
echo helium^!^!
rundll32 user32.dll,MessageBeep 64
set /a random1=!random! %% 3
set /a random2=!random! %% 3
set /a random0=!random1! - !random2!
if !random0! leq 0 (
set /a random0=0
)
set /a hp=!hp! + !random0! + 1
set /a BTW=!random0! + 1
set "new=!name0!のHPが!BTW!回復しました"
call :log
set /a cal0=!cal0! + 1
set /a heliumflag=1
goto :hp0s
:lithium
echo lithium^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a hp0=!hp0! - !random0!
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set /a cal0=!cal0! + 3
set /a lithiumflag=1
goto :hp0s
:beryllium
echo beryllium.
rundll32 user32.dll,MessageBeep 0
if 2 leq !hydroflag! (
echo beryllium^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a random0=!random! %% 3
set /a random0=!random0! * 10
set /a random1=!random0! / 5 + 5
set /a hp=!hp! - !random1!
set /a hp0=!hp0! - !random0!
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set /a cal0=!cal0! + !random0!
set /a hydroflag=!hydroflag! - 2
) else (
goto :hydro
)
set /a berylliumflag=1
goto :hp0s
:boron
echo boron^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a cal0=!cal0! + 1
set /a random5=!random! %% 11
set /a boronflag=1
if !random5! equ 1 goto :hydro
if !random5! equ 2 goto :helium
if !random5! equ 3 goto :lithium
if !random5! equ 4 goto :beryllium
if !random5! equ 5 goto :boron
if !random5! equ 6 goto :carbon
if !random5! equ 7 goto :nitrogen
if !random5! equ 8 goto :oxygen
if !random5! equ 9 goto :fluorine
if !random5! equ 10 (
set /a random1=!random! %% 11
if !random1! equ 10 (
echo Oganesson^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a hp0=!hp0! - 118
set /a hp=!hp! + 10
set "new=!name!のHPが118減少しました"
for /L %%i in (1,1,3) do (
rundll32 user32.dll,MessageBeep 64
)
call :log
set "new=!name0!のHPが10回復しました"
call :log
pause
set /a cal0=!cal0! + 20161128
) else (
set /a hp0=!hp0! + 10
set "new=!name!のHPが10回復しました"
call :log
set /a cal0=!cal0! + 10
)
)
if !random5! equ 0 (
set /a hp=!hp! - 7
set "new=!name0!のHPが7減少しました"
rundll32 user32.dll,MessageBeep 16
call :log
timeout /t 1 >nul
)
goto :hp0s
:carbon
echo carbon^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a random2=!random! %% 3
if !random2! equ 0 (
set /a random2=4
)
set /a random0=!random0! / !random2!
set /a hp=!hp! + !random0!
set "new=!name0!のHPが!random0!回復しました"
call :log
set /a cal0=!cal0! + 6
set /a carbonflag=1
goto :hp0s
:nitrogen
echo nitrogen^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a random0=!random! %% 10
set /a random1=!random0! *2
set /a hp=!hp! - !random0!
set /a hp0=!hp0! - !random1!
set "new=!name0!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set "new=!name!のHPが!random1!減少しました"
rundll32 user32.dll,MessageBeep 0
call :log
set /a cal0=!cal0! + 10
set /a nitrogenflag=1
goto :hp0s
:oxygen
echo oxygen^!^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
if !oxyflag! equ 2 (
set /a random0=!random! %% 4
set /a random0=!random0! * 10
set /a hp0=!hp0! - !random0!
set /a hp=!hp! + !random0!
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set "new=!name0!のHPが!random0!回復しました"
rundll32 user32.dll,MessageBeep 16
call :log
set /a cal0=!cal0! + 117
set /a oxyflag=0
) else (
set /a oxyflag=!oxyflag! + 1
set /a cal0=!cal0! + 1
)
set /a oxygenflag=1
goto :hp0s
:fluorine
echo fluorine^!^!^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a flagflag=!hydrogenflag! + !heliumflag! + !lithiumflag! + !berylliumflag! + !boronflag! + !carbonflag! + !nitrogenflag! + !oxygenflag!
if !flagflag! equ 8 (
set /a hp0=!hp0! - 1000
set "new=!name!のHPが1000減少しました"
for /L %%i in (1,1,3) do (
rundll32 user32.dll,MessageBeep 64
)
call :log
set /a cal0=!cal0! + 1900
set /a "hydrogenflag=0, heliumflag=0, lithiumflag=0, berylliumflag=0, boronflag=0, carbonflag=0, nitrogenflag=0, oxygenflag=0"
)
goto :hp0s
rem タリウムとアンダー
:hydrogen2
echo hydrogen^!
rundll32 user32.dll,MessageBeep 64
set /a random1=!random! %% 10
set /a random2=!random! %% 3
set /a random0=!random1! - !random2!
if !random0! leq 0 (
set /a random0=1
)
set /a hp0=!hp0! - !random0!
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set /a cal0=!cal0! + !random1!
set /a hydrogenflag=1
set /a hydroflag=!hydroflag! + 1
goto :hp0s
:helium2
echo helium^!^!
rundll32 user32.dll,MessageBeep 64
set /a random1=!random! %% 10
set /a random2=!random! %% 3
set /a random0=!random1! - !random2!
if !random0! leq 0 (
set /a random0=0
)
set /a hp=!hp! + !random0! + 1
set /a BTW=!random0! + 1
set "new=!name0!のHPが!BTW!回復しました"
call :log
set /a cal0=!cal0! + 10
set /a heliumflag=1
goto :hp0s
:lithium2
echo lithium^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a hp0=!hp0! - !random0! * 2
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set /a cal0=!cal0! + 30
set /a lithiumflag=1
goto :hp0s
:beryllium2
echo beryllium.
rundll32 user32.dll,MessageBeep 0
if 2 leq !hydroflag! (
echo beryllium^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a random0=!random! %% 30
set /a random0=!random0! * 5
set /a random1=!random0! / 5 + 5
set /a hp=!hp! - !random1!
set /a hp0=!hp0! - !random0!
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set /a cal0=!cal0! + !random0!
set /a hydroflag=0
) else (
goto :hydro
)
set /a berylliumflag=1
goto :hp0s
:boron2
echo boron^!
rundll32 user32.dll,MessageBeep 64
set /a boronflag=1
set /a random1=!random! %% 11
if !random1! equ 0 (
echo neon
echo neon flash^!
rundll32 user32.dll,MessageBeep 64
set /a random3=!random! %% 2 + 1
set /a flashflag=!flashflag! + !random3!
set /a hp0sflag=1
)
if !random1! equ 1 goto :hydrogen2
if !random1! equ 2 goto :helium2
if !random1! equ 3 goto :lithium2
if !random1! equ 4 goto :beryllium2
if !random1! equ 5 goto :boron2
if !random1! equ 6 goto :carbon2
if !random1! equ 7 goto :nitrogen2
if !random1! equ 8 goto :oxygen2
if !random1! equ 9 goto :fluorine2
if !random1! equ 10 (
echo Oganesson^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a hp0=!hp0! - 118
set /a hp=!hp! + 10
set "new=!name!のHPが118減少しました"
for /L %%i in (1,1,3) do (
rundll32 user32.dll,MessageBeep 64
)
call :log
set "new=!name0!のHPが10回復しました"
call :log
pause
set /a cal0=!cal0! + 2016
)
goto :hp0s
:carbon2
echo carbon^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a random2=!random! %% 100
if !random2! equ 0 set /a random2=100
set /a hp=!hp! + !random2!
set "new=!name0!のHPが!random2!回復しました"
call :log
set /a cal0=!cal0! + 60
set /a carbonflag=1
goto :hp0s
:nitrogen2
echo nitrogen^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /p random0="数字を入れてね^(自分はその2倍のダメージを受け　相手は1倍のダメージを受けます^)"
set /a random1=!random0! *2
set /a hp=!hp! - !random1!
set /a hp0=!hp0! - !random0!
set "new=!name0!のHPが!random1!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 0
call :log
set /a cal0=!cal0! + 10
set /a nitrogenflag=1
goto :hp0s
:oxygen2
echo oxygen^!^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
if !oxyflag! equ 2 (
set /a random0=!random! %% 6
set /a random0=!random0! * 10
set /a hp0=!hp0! - !random0!
set /a hp=!hp! + !random0!
set "new=!name!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 64
call :log
set "new=!name0!のHPが!random0!回復しました"
rundll32 user32.dll,MessageBeep 16
call :log
set /a cal0=!cal0! + 117
set /a oxyflag=0
) else (
set /a oxyflag=!oxyflag! + 1
set /a cal0=!cal0! + 1
)
set /a oxygenflag=1
goto :hp0s
:fluorine2
echo fluorine^!^!^!^!^!^!^!^!^!
rundll32 user32.dll,MessageBeep 64
set /a flagflag=!hydrogenflag! + !heliumflag! + !lithiumflag! + !berylliumflag! + !boronflag! + !carbonflag! + !nitrogenflag! + !oxygenflag!
if !flagflag! geq 5 (
set /a hp0=!hp0! - 1000
set "new=!name!のHPが1000減少しました"
for /L %%i in (1,1,3) do (
rundll32 user32.dll,MessageBeep 64
)
call :log
set /a cal0=!cal0! + 1900
set /a "hydrogenflag=0, heliumflag=0, lithiumflag=0, berylliumflag=0, boronflag=0, carbonflag=0, nitrogenflag=0, oxygenflag=0"
)
goto :hp0s
rem タリウムオーバー
:hp0s
set /a hp0sflag=0
set /a hp11=!hp12! + 1
if !hp11! leq !hp! (
echo 作者:そんなに体重が増えたら　健康診断に引っかかりますよ
set /a hp=200
call :akintosave2
rundll32 user32.dll,MessageBeep 48
pause
exit
)
if !hp0! leq 0 (
set /a composter=!composter! + 1
echo You win
set /a i3=!i3t!, i2=!i2t!, i1=!i1t!
timeout /t 2 >nul
echo この戦闘で消費したカロリーは!cal0!でした
rundll32 user32.dll,MessageBeep 0
if 50 leq !cal0! rundll32 user32.dll,MessageBeep 64 & pause
echo ゲイリー: じゃあ　税金とか諸々貰いますねー
set /a cal0=!cal0! / 2
set /a cal=!cal! + !cal0!
set /a random2=!random! %% 3
if !random2! equ 0 (
echo !name!が回復薬を落とした^!
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo 回復薬を手に入れた^!
rundll32 user32.dll,MessageBeep 64
set /a potion=!potion! + 1
timeout /t 1 >nul
)
if !random2! equ 1 (
set /a random2=!random! %% 3
if !random2! equ 1 (
echo !name!がカメラのフィルムを落とした^!
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo フィルムを手に入れた^!
rundll32 user32.dll,MessageBeep 64
set /a film=!film! + 1
timeout /t 1 >nul
)
if !random2! equ 0 (
echo !name!が何かのチケットを落とした^!
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo チケットを手に入れた^!
rundll32 user32.dll,MessageBeep 64
set /a ticket=!ticket! + 1
timeout /t 1 >nul
)
)
set /a gotoflag=1
)
set /a gotoflag=!gotoflag! + !otherflag!
if !gotoflag! equ 2 exit /b
if !gotoflag! equ 1 goto :return0
echo !name!
rundll32 user32.dll,MessageBeep 0
if !flashflag! equ 1 (
set /a flashflag=!flashflag! - 1
set "new=!name!は眩暈がして動けない"
rundll32 user32.dll,MessageBeep 0
call :log
set /a loopflag=1
)
if !loopflag! equ 1 goto :loop
set /a random5=!random! %% 7
if !composterflag! geq 2 (
if !random5! equ 0 (
echo Swertia japonica: 良いファイルですね
timeout /t 1 >nul
rundll32 user32.dll,MessageBeep 48
for /f "delims=" %%i in ('dir /b') do (
echo %%i
)
timeout /t 1 >nul
cls
echo Swertia japonica
echo Curium + alpha particle
echo Californium
echo Calcium + Californium
echo Oganesson^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!
timeout /t 2 >nul
rundll32 user32.dll,MessageBeep 48
set /a hp=!hp! - (120 / !little!)
set /a hp4=118 / !little!
if !hp4! leq 15 (
echo オガネソンはとうに多くの半減期を迎えている
rundll32 user32.dll,MessageBeep 16
set /a hp=!hp! - 10
set "new=!name0!のHPが10減少しました"
rundll32 user32.dll,MessageBeep 16
call :log
) else (
set /a hp0=!hp0! + 10
set "new=!name0!のHPが!hp4!減少しました"
rundll32 user32.dll,MessageBeep 16
call :log
set "new=!name!のHPが10回復しました"
call :log
set /a little=!little! + 1
)
)
if !composterflag! equ 1 (
echo Morinda citrifolia
if !random5! equ 0 (
echo Morinda citrifolia: 回復薬を使うと良いですよ
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
)
if !random5! equ 1 (
echo Morind citrifolia: ワザを複数使うなんて卑怯だろ^!
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo Morind citrifolia: こっちはワザ1つしか使えないってのに
rundll32 user32.dll,MessageBeep 0
)
if !random5! equ 2 (
echo Morind citrifolia: 苦^(にが^)く変化したサラダは　年老いています
rundll32 user32.dll,MessageBeep 0
)
timeout /t 1 >nul
cls
set /a hp=!hp! / 2
set "new=!name0!のHPが半分になりました"
rundll32 user32.dll,MessageBeep 48
call :log
)
if !return0! equ 1 (
if !random5! equ 0 (
echo !name!: サラダが喋った？
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo !name!: サラダが喋るわけないだろ　
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo !name!: 口がある方が珍しいのに
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo !name!: あれ　じゃあおれどうやって喋ってるんだ？
rundll32 user32.dll,MessageBeep 0
)
timeout /t 1 >nul
cls
echo Natrium
rundll32 user32.dll,MessageBeep 16
set /a random1=!random! %% 3
set /a random2=!random! %% 5
set /a random0=!random1! - !random2!
if !random0! leq 0 (
set /a random0=0
)
set /a hp=!hp! - !random0!
set "new=!name0!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 16
call :log
timeout /t 1 >nul
)
if !return0! equ 2 (
if !random5! equ 0 (
echo !name!: Avaunt!
rundll32 user32.dll,MessageBeep 0
)
timeout /t 1 >nul
cls
echo Chlorine
rundll32 user32.dll,MessageBeep 16
set /a random0=!random! %% 9
set /a hp=!hp! - !random0!
set /a hp0=!hp0! + 2
set "new=!name0!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 16
set "new=!name!のHPが2回復しました"
call :log
timeout /t 1 >nul
)
if !return0! equ 3 (
if !random5! equ 0 (
echo !name!: Why?
rundll32 user32.dll,MessageBeep 0
)
timeout /t 1 >nul
cls
echo Argon
rundll32 user32.dll,MessageBeep 16
set /a random1=!random! %% 4
set /a random2=!random! %% 4
set /a random0=!random1! * !random2!
set /a hp=!hp! + !random0!
set "new=!name0!のHPが!random0!回復しました"
call :log
timeout /t 1 >nul
)
if !return0! equ 4 (
if !composterflag! gtr 20 (
if !random5! equ 0 (
echo !name!: 最早見慣れたでしょ
rundll32 user32.dll,MessageBeep 0
)
)
if !random5! equ 1 (
echo !name!: なんで皆んなThouに戦いを挑むかって　
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo !name!: Thouが赤旗持ってるからだよ。
rundll32 user32.dll,MessageBeep 0
)
timeout /t 1 >nul
cls
echo Scandium
rundll32 user32.dll,MessageBeep 16
if "!old!"=="" (
set /a random0=!random! %% 100
set /a hp=!hp! - !random0!
set "new=!name0!のHPが!random0!減少しました"
rundll32 user32.dll,MessageBeep 16
call :log
timeout /t 1 >nul
set /a old=!hp!
) else (
set /a random1=!random! %% 5
if !random1! equ 0 (
set /a random1=2
)
if !old! leq !hp! (
echo null
rundll32 user32.dll,MessageBeep 0
set /a good=!hp! - !old!
set /a good=!good! * !random1!
set /a hp=!hp! + !good!
set "new=!name0!のHPが!good!回復しました"
call :log
timeout /t 1 >nul
) else (
echo null
rundll32 user32.dll,MessageBeep 0
set /a good=!old! - !hp!
set /a good=!good! * !random1!
set /a hp=!hp! - !good!
set "new=!name0!のHPが!good!減少しました"
rundll32 user32.dll,MessageBeep 16
call :log
timeout /t 1 >nul
)
set /a old=!hp!
)
)
goto :loop
:shop
set /a hyp=1
set /a w1=1, w2=0, w3=0, w4=0, w5=0, w6=0, numflag=0
:shoploop
cls
echo !w1!回復薬
echo !w2!エレクトロニックフラッシュ
echo !w3!良さげなカメラのフィルム
echo !w4!何かのチケット
echo !w5!ジヒドロゲン物置きサイド^(誤字じゃないョ^)
echo !w6!回復薬+
set "com=?"
set /p com="(w/s): "
if /i "!com!"=="w" (
set /a hyp=!hyp! - 1
if !hyp! equ 7 (
echo You made mistake.
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
)
)
if /i "!com!"=="s" (
set /a hyp=!hyp! + 1
if !hyp! equ 0 (
echo You made mistake.
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
)
)
cls
set "exit=?"
set /p exit="exit?(y/n): "
set /a random3=!random! %% 5
if /i "!exit!"=="y" (
cls
exit /b
)
set /p choice2="choice?(y/n)"
if !hyp! equ 1 set /a w1=1, w2=0, w3=0, w4=0, w5=0, w6=0
if !hyp! equ 2 set /a w1=0, w2=1, w3=0, w4=0, w5=0, w6=0
if !hyp! equ 3 set /a w1=0, w2=0, w3=1, w4=0, w5=0, w6=0
if !hyp! equ 4 set /a w1=0, w2=0, w3=0, w4=1, w5=0, w6=0
if !hyp! equ 5 set /a w1=0, w2=0, w3=0, w4=0, w5=1, w6=0
if !hyp! equ 6 set /a w1=0, w2=0, w3=0, w4=0, w5=0, w6=1
if /i "!choice2!"=="y" (
if !hyp! equ 1 (
set /a w1=1, w2=0, w3=0, w4=0, w5=0
echo HPをかなり回復できる　現在所持数は!potion!個
set /a num=300
echo !num!cal
set "buy=?"
set /p buy="これを買いますか？(y/n): "
if "!buy!"=="y" (
set /a many=1
set /p many="いくつ買いますか？: "
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
set "many=!many:０=0!"
set "many=!many:１=1!"
set "many=!many:２=2!"
set "many=!many:３=3!"
set "many=!many:４=4!"
set "many=!many:５=5!"
set "many=!many:６=6!"
set "many=!many:７=7!"
set "many=!many:８=8!"
set "many=!many:９=9!"
)
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
echo 半角数字を入力してください
set /a numflag=1
)
if !numflag! neq 1 (
if 0 gtr !many! set /a many=!many! * -1
set /a num=!num! * !many!
if !cal! gtr !num! set /a cal=!cal! - !num!, potion=!potion! + !many!
if !cal! leq !num! echo 消費カロリーが足りません
)
)
pause
)
if !hyp! equ 2 (
set /a w1=0, w2=1, w3=0, w4=0, w5=0
echo  アメリカ国家科学賞の力等で相手を怯ませることができる現在所持数は!flash!個
set /a num=900
echo !num!cal
set "buy=?"
set /p buy="これを買いますか？(y/n): "
if "!buy!"=="y" (
set /a many=1
set /p many="いくつ買いますか？: "
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
set "many=!many:０=0!"
set "many=!many:１=1!"
set "many=!many:２=2!"
set "many=!many:３=3!"
set "many=!many:４=4!"
set "many=!many:５=5!"
set "many=!many:６=6!"
set "many=!many:７=7!"
set "many=!many:８=8!"
set "many=!many:９=9!"
)
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
echo 半角数字を入力してください
set /a numflag=1
)
if !numflag! neq 1 (
if 0 gtr !many! set /a many=!many! * -1
set /a num=!num! * !many!
if !cal! gtr !num! set /a cal=!cal! - !num!, flash=!flash! + !many!
if !cal! leq !num! echo 消費カロリーが足りません
)
)
pause
)
if !hyp! equ 3 (
set /a w1=1, w2=0, w3=1, w4=0, w5=0
echo かなり洒落ているカメラのフィルムカメラの所持数は!camera2!個で　フィルム所持数は!film!枚
set /a num=600
echo !num!cal
set "buy=?"
set /p buy="これを買いますか？(y/n): "
if "!buy!"=="y" (
set /a many=1
set /p many="いくつ買いますか？: "
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
set "many=!many:０=0!"
set "many=!many:１=1!"
set "many=!many:２=2!"
set "many=!many:３=3!"
set "many=!many:４=4!"
set "many=!many:５=5!"
set "many=!many:６=6!"
set "many=!many:７=7!"
set "many=!many:８=8!"
set "many=!many:９=9!"
)
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
echo 半角数字を入力してください
set /a numflag=1
)
if !numflag! neq 1 (
if 0 gtr !many! set /a many=!many! * -1
set /a num=!num! * !many!
if !cal! gtr !num! set /a cal=!cal! - !num!, film=!film! + !many!
if !cal! leq !num! echo 消費カロリーが足りません
)
)
pause
)
if !hyp! equ 4 (
set /a w1=1, w2=0, w3=0, w4=1, w5=0
echo どこかに行けるチケット現在所持数は!ticket!枚
set /a num=1000
echo !num!cal
set "buy=?"
set /p buy="これを買いますか？(y/n): "
if "!buy!"=="y" (
set /a many=1
set /p many="いくつ買いますか？: "
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
set "many=!many:０=0!"
set "many=!many:１=1!"
set "many=!many:２=2!"
set "many=!many:３=3!"
set "many=!many:４=4!"
set "many=!many:５=5!"
set "many=!many:６=6!"
set "many=!many:７=7!"
set "many=!many:８=8!"
set "many=!many:９=9!"
)
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
echo 半角数字を入力してください
set /a numflag=1
)
if !numflag! neq 1 (
if 0 gtr !many! set /a many=!many! * -1
set /a num=!num! * !many!
set /a random4=!random! %% 100
set /a cal=!cal! - !num!
if !cal! gtr !num! (
if !random4! equ 0 (
for /L %%i in (1,1,!many!) do (
set /a wiki=!wiki! + 1, random3=!random! %% 5
if !random3! equ 0 echo 「ウィキペたんの一次創作イラスト^(ウィキペたん^)」を手に入れた^! & echo https://commons.wikimedia.org/wiki/File:Wikipe-tan.png?uselang=ja
if !random3! equ 1 echo 「ウィキペたんの一次創作イラスト^(ソックパペットショー^)」を手に入れた^!& echo https://commons.wikimedia.org/wiki/File:Wikipe-tan_sockpuppet_show.png?uselang=ja
if !random3! equ 2 echo 「ウィキペたんの一次創作イラスト^(ポータルの門とウィキペ
ペたん^)」を手に入れた^!& echo https://commons.wikimedia.org/wiki/File:Wikipe-tan_portal.png?uselang=ja
if !random3! equ 3 echo 「ウィキペたんの一次創作イラスト^(猫耳ウィキペたん^)」を手に入れた^!& echo https://commons.wikimedia.org/wiki/File:Neko_Wikipe-tan.svg?uselang=ja
if !random3! equ 4 echo 「ウィキペたんの一次創作イラスト^(シンプルなウィキペたん^)」を手に入れた^!& echo https://commons.wikimedia.org/wiki/File:Simple_Wikipe_tan_by_Kasuga39.png?uselang=ja
rundll32 user32.dll,MessageBeep 64
)
pause
echo ヘンリー: ちゃんとサイト開いたの？？？？
pause
) else (
set /a ticket=!ticket! + !many!
)
)
if !cal! leq !num! echo 消費カロリーが足りません
)
)
pause
)
if !hyp! equ 5 (
set /a w1=1, w2=0, w3=0, w4=0, w5=1
set /a random4=!random! %% 15
if !random4! equ 0 echo 酸性雨の主成分
if !random4! equ 1 echo 温室効果を引き起こす
if !random4! equ 2 echo 酷い火傷の原因となり得る
if !random4! equ 3 echo 地形の侵食を引き起こす^!
if !random4! equ 4 echo 多くの材料の腐食を進行させ　さび付かせる^!
if !random4! equ 5 echo 電気事故の原因となり　自動車のブレーキの効果を低下させる
if !random4! equ 6 echo 末期がん患者の悪性腫瘍から検出される
if !random4! equ 7 echo 危険性に反して頻繁に用いられている
if !random4! equ 8 echo 工業用の溶媒　冷媒として用いられる
if !random4! equ 9 echo 原子力発電所で用いられる
if !random4! equ 10 echo 発泡スチロールの製造に用いられる
if !random4! equ 11 echo 防火剤として用いられる^!
if !random4! equ 12 echo 各種の残酷な動物実験に用いられる
if !random4! equ 13 echo 防虫剤の散布に用いられる洗浄した後も産物はDHMOによる汚染状態のままである
if !random4! equ 14 echo 各種のジャンクフードや　その他の食品に添加されている
set /a num=18015
echo !num!cal
set "buy=?"
set /p buy="これを買いますか？(y/n): "
if "!buy!"=="y" (
set /a many=1
set /p many="いくつ買いますか？: "
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
set "many=!many:０=0!"
set "many=!many:１=1!"
set "many=!many:２=2!"
set "many=!many:３=3!"
set "many=!many:４=4!"
set "many=!many:５=5!"
set "many=!many:６=6!"
set "many=!many:７=7!"
set "many=!many:８=8!"
set "many=!many:９=9!"
)
echo !many!| findstr /r "^[0-9][0-9]*$" >nul
if errorlevel 1 (
echo 半角数字を入力してください
set /a numflag=1
)
if !numflag! neq 1 (
if 0 gtr !many! set /a many=!many! * -1
set /a num=!num! * !many!
if !cal! gtr !num! set /a cal=!cal! - !num!, hp12=!hp12! + !many! * 5
if !cal! leq !num! echo 消費カロリーが足りません
)
)
pause
)
if !hyp! equ 6 (
echo HPを全回復できる　腐りやすい
set /a num=3000
echo !num!cal
set "buy=?"
set /p buy="これを買いますか？(y/n): "
if "!buy!"=="y" (
if !cal! gtr !num! set /a cal=!cal! - !num!, hp=!hp12!
if !cal! leq !num! echo 消費カロリーが足りません
)
pause
)
)
pause
cls
if !cal! leq -1 exit
goto :shoploop
:item
set /a hyp=2
:itemloop
cls
set /a w1=0, w2=0, w3=0, w4=0, w5=0, w6=0
if !hyp! equ 1 (
set /a w1=1
echo 真っ赤な旗。降伏を一切認めない　最も強い敵意を表す　フェリシアン化カリウムでできている　現在所持数は2147483647本
)
if !hyp! equ 2 (
set /a w2=1
echo 今にも壊れそうなカメラ^"一度だけ^"4コマ分動画を撮れる現在所持数は!camera!個
)
if !hyp! equ 3 (
set /a w3=1
echo かなり洒落ているカメラのフィルムカメラの所持数は!camera2!個で　フィルム所持数は!film!枚
)
if !hyp! equ 4 (
set /a w1=1, w2=0, w3=0, w4=1, w5=0
echo どこかに行けるチケット現在所持数は!ticket!枚
)
if !hyp! equ 5 (
set /a w5=1
echo ハロルド産のエレクトロニックフラッシュ現在所持数は!flash!個
)
if !hyp! equ 6 (
set /a w6=1
echo 回復薬HPをそれなりに回復できる現在所持数は!potion!個
)
rundll32 user32.dll,MessageBeep 0
pause
cls
echo !w1!赤旗
echo !w2!古いカメラ
echo !w3!良さげなカメラのフィルム
echo !w4!何かのチケット
echo !w5!エレクトロニックフラッシュ
echo !w6!回復薬
rundll32 user32.dll,MessageBeep 0
set "com=?"
set /p com="(w/s): "
if !wiki! gtr 0 (
if /i "!com!"=="wiki" echo ウィキペたん: Wikiって略すな^!
rundll32 user32.dll,MessageBeep 16
timeout /t 1 >nul
)
if /i "!com!"=="w" (
set /a hyp=!hyp! - 1
if !hyp! equ 0 (
echo You made mistake.
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
)
)
if /i "!com!"=="s" (
set /a hyp=!hyp! + 1
if !hyp! equ 7 (
echo You made mistake.
for /L %%i in (1,1,3) do (
<nul set /p toby="B" | choice /c A /n >nul 2>&1
)
pause
exit
)
)
cls
set "exit=?"
set /p exit="exit?(y/n): "
if /i "!exit!"=="y" cls & exit /b
goto :itemloop
:akintosave2
if exist save!sn!.bat attrib -h save!sn!.bat
(
echo chcp 932 >nul
echo set /a skill=!skill!
echo set /a wiki=!wiki!
echo set /a ambrosiaflag0=!ambrosiaflag0!
echo set /a shopnum=!shopnum!
echo set /a start1=!start1!
echo set /a return0=!return0!
echo set /a hp=!hp!
echo set /a keyp=!keyp!
echo set /a y=!y!
echo set /a x=!x!
echo set /a rx=!rx!
echo set /a i1=!i1!
echo set /a i2=!i2!
echo set /a i3=!i3!
echo set /a hydrogen=!hydrogen!
echo set /a helium=!helium!
echo set /a lithium=!lithium!
echo set /a beryllium=!beryllium!
echo set /a boron=!boron!
echo set /a carbon=!carbon!
echo set /a nitrogen=!nitrogen!
echo set /a oxygen=!oxygen!
echo set /a fluorine=!fluorine!
echo set /a hydroflag=!hydroflag!
echo set /a oxyflag=!oxyflag!
echo set /a hydrogenflag=!hydrogenflag!
echo set /a heliumflag=!heliumflag!
echo set /a lithiumflag=!lithiumflag!
echo set /a berylliumflag=!berylliumflag!
echo set /a boronflag=!boronflag!
echo set /a carbonflag=!carbonflag!
echo set /a nitrogenflag=!nitrogenflag!
echo set /a oxygenflag=!oxygenflag!
echo set /a step=!step!
echo set /a composter=!composter!
echo set /a potion=!potion!
echo set /a tr1=!tr1!
echo set /a tr2=!tr2!
echo set /a tr3=!tr3!
echo set /a composterflag=!composterflag!
echo set /a character2flag=!character2flag!
echo set /a pen1=!pen1!
echo set /a pen2=!pen2!
echo set /a pen3=!pen3!
echo set /a pen4=!pen4!
echo set /a hide0=!hide0!
echo set /a return700=!return700!
echo set /a antedateflag=1
echo set /a author=!author!
echo set /a camera=!camera!
echo set /a dani=!dani!
echo set /a cal=!cal!
echo set /a hp12=!hp12!
echo set "world=!world!"
echo set /a film=!film!
echo set /a filmflag=!filmflag!
echo set /a camera2=!camera2!
echo set /a that=!that!
echo set /a primeflag=!primeflag!
echo set "name3=!name3!"
echo set "name0=!name3!"
echo set /a ticket=!ticket!
echo set /a flash=!flash!
echo set /a phoneflag=!phoneflag!
) > save!sn!.bat
attrib +h save!sn!.bat
exit /b
:name
set /a nameflag=0
if !stan! neq 1 (
echo スタンリー: null
rundll32 user32.dll,MessageBeep 0
pause
echo スタンリー: null
rundll32 user32.dll,MessageBeep 0
pause
set /a stan=1
)
set /p name3="あなたの名前は何ですか？: "
set "name3=!name3: =_!"
set "name3=!name3:>=?!"
set "name3=!name3:<=?!"
set "name3=!name3:|=?!"
set "name3=!name3:&=?!"
if "!name3!"=="PYRROLINE" (
echo PYRROLINE: 駄目です
rundll32 user32.dll,MessageBeep 16
pause
set /a nameflag=1
)
if "!name3!"=="作者" (
echo 作者: 許さん
rundll32 user32.dll,MessageBeep 16
pause
set /a nameflag=1
)
if "!name3!"=="ハロルド" (
echo ハロルド: 良いけど駄目です
rundll32 user32.dll,MessageBeep 16
pause
set /a nameflag=1
)
if "!name3!"=="ヘンリー" (
echo ヘンリー: 全然使っても良いよ^!
rundll32 user32.dll,MessageBeep 16
pause
set /a nameflag=-200000000
)
if "!name3!"=="アイザック" (
echo アイザック: 
pause
echo 作者: 最早セリフ考えるの怠くなってきた
rundll32 user32.dll,MessageBeep 48
pause
set /a nameflag=1
)
if "!name3!"=="フランツ" (
echo フランツ: 駄目
rundll32 user32.dll,MessageBeep 16
pause
set /a nameflag=1
)
if "!name3!"=="エンリコ" (
echo エンリコ: アメリカのシカゴには何人のピアノの調律師がいるか？
rundll32 user32.dll,MessageBeep 32
pause
set /a nameflag=1
)
if "!name3!"=="おまかせ" (
set "name3=オンダンセトロン"
)
set "name0=!name3!"
if !nameflag! equ 1 goto :name
if not exist name.bat (
(
echo set "akin_to_name=!name0!"
) > name.bat
attrib +h name.bat
)
exit /b
:log
set "log3=!log2!"
set "log2=!log1!"
set "log1=!new!"
echo !log3! & echo !log2! & echo #!log1!
echo;
timeout /t 3 >nul
exit /b
:isthisprime
if !step! equ 1729 (
echo シュリニヴァーサ: おぉ分かっていますね
rundll32 user32.dll,MessageBeep 0
pause
echo アレクサンダー: 1729は素数と最早相反している？いや、シュリニヴァーサ先生が素数と言ったら素数だ
pause
set /a prime=1
)
if !step! equ 1729 goto :flagflagflag
if !step! equ 57 (
echo アレクサンダー: 素数とは？あぁ　例えば　「57」とかですかね
rundll32 user32.dll,MessageBeep 0
pause
set /a prime=1
)
if !step! equ 57 goto :flagflagflag
set "prime="
If !step! leq 1 set /a prime=0
set /a mod=!step! %% 2
if !mod! equ 0 set /a prime=0
if !step! equ 2 set /a prime=1
if not "!prime!"=="" goto :flagflagflag
set /a step0=!step! / 2
:primeloop
set /a m=3 + (2 * !n!)
set /a s=!step! %% !m!
if !s! equ 0 set /a prime=0
if !m! gtr !step0! set /a prime=1
set /a n=!n! + 1
if "!prime!"=="" goto :primeloop
:flagflagflag
exit /b
:end
set /p ty="今日は西暦何年ですか？"
set /p m="今日は何月ですか？"
set /p d="今日は何日ですか？"
if !m! equ 1 set /a d0=0
if !m! equ 2 set /a d0=31
if !m! equ 3 set /a d0=59
if !m! equ 4 set /a d0=90
if !m! equ 5 set /a d0=120
if !m! equ 6 set /a d0=151
if !m! equ 7 set /a d0=181
if !m! equ 8 set /a d0=212
if !m! equ 9 set /a d0=243
if !m! equ 10 set /a d0=273
if !m! equ 11 set /a d0=304
if !m! equ 12 set /a d0=334
set /a y0=!ty! - 1
set /a leap=!y0! / 4 - !y0! / 100 + !y0! / 400
set /a m4=!ty! %% 4, m100=!ty! %% 100, m400=!ty! %% 400, leap0=0
if !m4! equ 0 if !m100! neq 0 set /a leap0=1
if !m400! equ 0 set /a leap0=1
if !m! gtr 2 if !leap0! equ 1 (set /a leap0=1) else (set /a leap0=0)
set /a julius2=!y0! * 365 + !d0! + !d! + !leap! + !leap0!
set /a julius=!julius2! - !julius1!
set "timer=%TIME%"
set "hh=!timer:~0,2!"
set "hh=!hh: =0!"
set "mm=!timer:~3,2!"
set "ss=!timer:~6,2!"
set /a hh=1!hh! - 100, mm=1!mm! - 100, ss=1!ss! - 100
set /a start2=!hh! * 3600 + !mm! * 60 + ss
set /a start=!start2! - !start1!
if !start! leq 0 (
set /a julius=!julius! + 1, start=!start! + 86400
)
set /a hh=!start! / 3600
set /a mm=!start! %% 3600 / 60
set /a ss=!start! %% 60
echo;
echo プロデューサー: PYRROLINE
echo;
timeout /t 1 /nobreak >nul
echo;
echo ディレクター: PYRROLINE
echo;
timeout /t 1 /nobreak >nul
echo;
echo プログラマー: PYRROLINE
echo;
timeout /t 1 /nobreak >nul
echo;
echo シナリオライター: PYRROLINE
echo;
timeout /t 1 /nobreak >nul
echo;
if !wiki! gtr 0 (
echo ウィキペたん: kasuga氏
echo;
timeout /t 1 /nobreak >nul
echo;
echo CC BY-SA 3.0
echo;
timeout /t 1 /nobreak >nul
echo;
echo https://creativecommons.org
echo;
timeout /t 1 /nobreak >nul
echo;
echo https://commons.wikimedia.org/wiki/File:Wikipe-tan_full_length.svg?uselang=ja
echo;
timeout /t 1 /nobreak >nul
echo;
echo;
timeout /t 1 /nobreak >nul
echo;
pause
)
echo;
timeout /t 1 /nobreak >nul
echo;
echo;
timeout /t 1 /nobreak >nul
echo;
echo;
timeout /t 1 /nobreak >nul
echo;
if not "!video01@7!"=="" (
echo ハロルド: これからお見せするのは　いつか　あなたが撮った写真ですよ　カメラが古いけれど性能の良い機種で良かったですね
timeout /t 2 >nul
echo ハロルド: 今の安い機種ならカメラが壊れたら大抵アウトでしたよ
timeout /t 2 >nul
echo 作者: だから本当に君　誰？^!
timeout /t 1 /nobreak >nul
set /a author=2
echo !video01@7!
echo !video01@6!
echo !video01@5!
echo !video01@4!
echo !video01@3!
echo !video01@2!
echo !video01@1!
timeout /t 1 /nobreak >nul
echo !video02@7!
echo !video02@6!
echo !video02@5!
echo !video02@4!
echo !video02@3!
echo !video02@2!
echo !video02@1!
timeout /t 1 /nobreak >nul
echo !video03@7!
echo !video03@6!
echo !video03@5!
echo !video03@4!
echo !video03@3!
echo !video03@2!
echo !video03@1!
timeout /t 1 /nobreak >nul
echo !video04@7!
echo !video04@6!
echo !video04@5!
echo !video04@4!
echo !video04@3!
echo !video04@2!
echo !video04@1!
timeout /t 1 /nobreak >nul
pause
)
if !that! equ 1 (
echo アレクサンダー: 良さげなカメラをちゃんと使っていたら写真が表示されますよ
call photo.bat
)
set eraser=クリア時間: !julius!日!hh!時間!mm!分!ss!秒
echo !eraser!
timeout /t 5 >nul
echo このゲームはフィクションであり　登場するキャラクター達は
timeout /t 1 >nul
echo ヘンリーはヘンリー・キャヴェンティッシュ
timeout /t 1 >nul
echo アレクサンダーはアレクサンドル・グロタンディーク
timeout /t 1 >nul
echo ハロルドはハロルド・エジャートン
timeout /t 1 >nul
set spoiler="?"
set /p spoiler="ネタバレが含まれる可能性がありますネタバレを食らっても良い方は　好きな科学者の名前を入力してください　そうでない方は　何も入力しないでエンターを押してください: "
if not "!spoiler!"=="?" (
echo アイザックはアイザック・ニュートン
timeout /t 1 >nul
echo フランツはフランツ・カフカ
timeout /t 1 >nul
echo エンリコはエンリコ・フェルミ
timeout /t 1 >nul
echo ルイはルイ・パスツール
timeout /t 1 >nul
echo バートラムはバートラム・ボルトウッド
)
timeout /t 1 /nobreak >nul
echo とは一切関係がないことはないです
echo 普通にモデルにしました
echo by PYRROLINE
pause
timeout /t 1 /nobreak >nul
echo;
timeout /t 1 /nobreak >nul
echo;
echo;
timeout /t 1 /nobreak >nul
echo;
echo;
timeout /t 1 /nobreak >nul
echo;
echo (C)2026 PYRROLINE
timeout /t 1 /nobreak >nul
cls
set "end=n"
goto :return0
rem otherタリウ
:other
set /a newx=4, newy=4, newx2=1000
for /L %%i in (1,1,7) do (
set /a queue%%i=1111111
)
:otherloop
cls
for /L %%i in (1,1,7) do (
set /a line%%i=queue%%i
)
for /L %%i in (1,1,7) do (
if !newy! equ %%i set /a line%%i=!queue%%i! + !newx2!
)
for /L %%i in (1,1,7) do (
set "tmp=!line%%i!"
for /f "delims=" %%a in ("!tmp!") do (
set "display=%%a"
set "display=!display:7=?!"
set "display=!display:5=$!"
set "display=!display:2=@!"
set "display=!display:1=.!"
echo !display!
)
)
set /p choice="WASDR"
if /i "!choice!"=="r" call :akintosave2 & goto :return0
if /i "!choice!"=="w" (
if !newy! equ 1 (
set /a newy=7, nextflag=1
call :next
)
if !nextflag! neq 1 (
set /a newy=!newy! - 1
) else (
set /a nextflag=0
)
)
if /i "!choice!"=="s" (
if !newy! equ 7 (
set /a newy=1, nextflag=1
call :next
)
if !nextflag! neq 1 (
set /a newy=!newy! + 1
) else (
set /a nextflag=0
)
)
if /i "!choice!"=="a" (
if !newx! equ 7 (
set /a newx=1, newx2=1, nextflag=1
call :next
)
if !nextflag! neq 1 (
set /a newx=!newx! + 1, newx2=!newx2! * 10
) else (
set /a nextflag=0
)
)
if /i "!choice!"=="d" (
if !newx! equ 1 (
set /a newx=7, newx2=1000000, nextflag=1
call :next
)
if !nextflag! neq 1 (
set /a newx=!newx! - 1, newx2=!newx2! / 10
) else (
set /a nextflag=0
)
)
for %%y in (!newy!) do (
for %%x in (!newx!) do (
call set search=!queue%%y:~-%%x,1!
if !search! equ 7 set /a eraserflag=1 & call :chest
if !search! equ 5 set /a eraserflag=1 & call :person
if !eraserflag! equ 1 (
call set queue%%y=!queue%%y:~0,-%%x!
for /L %%i in (1,1,!newx!) do (
set "queue%%y=!queue%%y!1"
)
set /a eraserflag=0
)
)
)
goto :otherloop
:chest
echo 宝箱を開けた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 2 >nul
set /a otherflag=1, return0=!random! %% 5, hp0=!random! %% 301
if !hp0! equ 0 set /a hp0=57
if !hp0! gtr 120 (
set "name=fruit salad EX"
) else (
set "name=fruit salad"
)
if !hp0! equ 57 set "name=caesar salad"
set /a gotoflag=2
goto :fight1
:return1000
set /a gotoflag=1
exit /b
:person
set /a random3=!random! %% 20
if !random3! equ 0 (
echo アイザック: リンゴ^.^.^.　は無いのでこれを
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo !name0!は回復薬を手に入れた!
rundll32 user32.dll,MessageBeep 64
set /a potion=!potion! + 1
)
if !random3! equ 1 (
echo フランツ: さっき変な人がリンゴの代わりにと回復薬を渡してきました
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo フランツ: うちのグレゴールへの何かあれですかね
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo フランツ: 取り敢えず　差し上げます
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo !name0!は回復薬を手に入れた^!
rundll32 user32.dll,MessageBeep 64
set /a potion=!potion! + 1
)
if !random3! equ 2 (
echo ハロルド: シーザーサラダはジュリアス・シーザー^(ユリウス・カエサル^)の好物であったという説があるけど　
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo ハロルド: 最早「義経=ジンギスカン説」よりも信憑性の低い滓
rundll32 user32.dll,MessageBeep 0
)
if !random3! equ 3 (
echo 作者: この「別世界」のオープンワールド構想は元々「SAE2」のものだったんだけどね
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo 作者: 本当の次回作は「バッチでオンラインゲーム^!^!^!」ですよろしく
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
)
if !random3! equ 4 (
rundll32 user32.dll,MessageBeep 32
set /p toby="エンリコ: アメリカのシカゴには何人のピアノの調律師がいるか？"
if !toby! geq 120 if !toby! leq 150 (
echo エンリコ: 素晴らしいですね^!Wikipediaでも見たのですか？
timeout /t 2 >nul
echo エンリコ: こちらをプレゼント致しましょう
timeout /t 2 >nul
echo !name0!は回復薬を手に入れた^!
rundll32 user32.dll,MessageBeep 64
set /a potion=!potion! + 13
) else (
echo エンリコ: 残念^.^.^.
)
)
if !random3! equ 5 (
echo フランチェスコ: オリーブオイルの入っていないシーザーサラダはシーザーサラダじゃない
rundll32 user32.dll,MessageBeep 0
)
if !random3! equ 6 (
echo !name!Jr.: サラダがどこから生まれるか　気になりはしなかったかい？
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo !name!Jr.: この「別世界」で生まれるんだよ
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
set /a hp=!hp! - 10
set /a new=!name0!のHPが10減少しました
rundll32 user32.dll,MessageBeep 16
call :log
timeout /t 2 >nul
echo !name!Jr.: さよならー
rundll32 user32.dll,MessageBeep 0
)
if !random3! equ 7 (
echo ルイ: ほら　この白鳥の首のように曲がったフラスコを見たまえ
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo ルイ: 煮沸したスープは　何日経っても腐敗しないのだよ^!
rundll32 user32.dll,MessageBeep 0
set /p toby="実験台になってくれるかな？(y/n)"
timeout /t 2 >nul
if "!toby!"=="y" (
echo ルイ: 飲め
) else (
echo ルイ: 駄目です
timeout /t 2 >nul
echo ルイ: 飲め
)
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo !name0!のHPが10減少しました
rundll32 user32.dll,MessageBeep 16
set /a hp=!hp! - 10
)
if !random3! equ 8 (
echo バートラム: 新元素「イオニウム」を発見したぞ^!
rundll32 user32.dll,MessageBeep 64
timeout /t 2 >nul
echo !name0!は「イオニウムの鍵」を手に入れた^!
rundll32 user32.dll,MessageBeep 64
timeout /t 3 /nobreak >nul
echo バートラム: ^.^.^.あすみません　これただのトリウムの同位体でした無かったことにしてください
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo !name0!の「イオニウムの鍵」は消滅した
rundll32 user32.dll,MessageBeep 16
set /a boltwoodflag=1
)
if !random3! equ 9 (
echo !name!: 住み心地が良いですね
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo !name!: %COMPUTERNAME%は
rundll32 user32.dll,MessageBeep 48
)
if !random3! equ 10 (
echo ハロルド: %username%さん　楽しめていますか？
rundll32 user32.dll,MessageBeep 48
)
if !random3! equ 11 (
echo トーマス: 天才とは　1^%の閃きと99^%の汗^(物理的な^)である
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo: トーマス: はは冗談だよ
rundll32 user32.dll,MessageBeep 0
)
if !random3! equ 12 (
echo 安倍: 新仮名としたのは一世一代の過ちであった
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo 山田: 一世一代の過ちで済むか
rundll32 user32.dll,MessageBeep 16
)
if !random3! equ 13 (
if !shopnum! geq 9 (
echo ロアルド: こんにちは
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
set "seller=?"
set /p seller="ロアルド: アイテムの買取を致しましょうか？(y/n)"
if /i "!seller!"=="y" (
echo ゲイリー: こんにちは
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo ゲイリー: では　持っているアイテムの中で1番数が多いものを買い取ります
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo ゲイリー: え？さっきの奴は誰って？
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo ゲイリー: え　知らない方です
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
echo ゲイリー: 取り敢えず　あなたの持っているアイテムの中で1番数が多いものを買い取ります
rundll32 user32.dll,MessageBeep 0
timeout /t 1 >nul
set /a random4=!random! %% 3 + 1
set /a seller=!potion! - !film!
if !seller! gtr 0 (
set /a seller=!flash! - !potion!
if !seller! gtr 0 (
echo ゲイリー: エレクトロニックフラッシュを買い取ります
rundll32 user32.dll,MessageBeep 0
set /a flash=!flash! - !random4!
) else (
echo ゲイリー: 回復薬を買い取ります
rundll32 user32.dll,MessageBeep 0
set /a potion=!potion! - !random4!
)
) else (
set /a seller=!flash! - !film!
if !seller! gtr 0 (
echo ゲイリー: エレクトロニックフラッシュを買い取ります
rundll32 user32.dll,MessageBeep 0
set /a flash=!flash! - !random4!
) else (
echo ゲイリー: フィルムを買い取ります
rundll32 user32.dll,MessageBeep 0
set /a film=!film! - !random4!
)
)
pause
if !flash! leq -1 (
echo ハロルド: なぜエレクトロニックフラッシュの数がマイナスなのですか？
rundll32 user32.dll,MessageBeep 0
pause
set /a flash=0
call :akintosave2
exit
)
if !potion! leq -1 (
echo ヘンリー: なんで回復薬の数がマイナスになってるの？
rundll32 user32.dll,MessageBeep 0
pause
set /a potion=0
call :akintosave2
exit
)
if !film! leq -1  (
echo アレクサンダー: フィルムの数がマイナスに？
rundll32 user32.dll,MessageBeep 0
pause
echo 作者: なんでそんなことするの^.^.^.
rundll32 user32.dll,MessageBeep 0
pause
set /a film=0
call :akintosave2
exit
)
set /a random3=!random! %% 7
if !random3! equ 0 (
set /a cal=!cal! + 5000 * !random4!
) else (
set /a cal=!cal! + 500 * !random4!
)
)
) else (
echo ハロルドっぽい: サラダとはアンブロシアだ
rundll32 user32.dll,MessageBeep 0
)
)
if !random3! equ 14 (
echo ゲイリー: こんにちは
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo ゲイリー: ガチャを作りました^(作者が^)
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo ゲイリー: 引いてみてください300カルです
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
set /p toby="引きますか？(y/y)"
echo 引きました
set /a cal=!cal! - 300
rundll32 user32.dll,MessageBeep 0
timeout /t 4 /nobreak >nul
echo 【SSR】100万300カルの景品が当たった^!^!^!
rundll32 user32.dll,MessageBeep 64
timeout /t 3 /nobreak >nul
echo ゲイリー: はいストップ
rundll32 user32.dll,MessageBeep 16
timeout /t 2 >nul
echo ゲイリー: 一時所得に該当し　年間50万円の特別控除枠を超えているので課税対象です
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
echo ゲイリー: 「100万300^(収入^) - 300^(費用^) - 50万^(控除^)=50万, 50万 * 0.5=25万」ですので　
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo ゲイリー: 25万カルポッキリです
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
if !cal! leq 250000 (
echo ゲイリー: え？25万カルもないのですか？じゃあ返品ですね300カルだけ返します
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
) else (
echo ゲイリー: おっと手が滑った^!
rundll32 user32.dll,MessageBeep 0
timeout /t 2 /nobreak >nul
echo 作者: 「おっと」を言って良いのはヘンリーか私だけだ　いいね？
rundll32 user32.dll,MessageBeep 0
timeout /t 2 /nobreak >nul
echo ゲイリー: あー　すみません　その状態なら200カル程度の価値しかありませんね
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo ゲイリー: ちゃんと弁償しますよそこまでのカスじゃないのでね弁償しますよ　
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo ゲイリー: 300カル
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
)
set /a cal=!cal! + 300
)
if !random3! equ 15 (
echo William: I'm us!!!
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo ウィリアム: そう我々は複数人だという説がある
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo 威廉: 我想知道這是否屬實但這不可能
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo William: Art thou OK?
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo Уильям: ржу не могу.
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo 威廉: 我不認為我們的系統其實有那麼碎片化
rundll32 user32.dll,MessageBeep 0
timeout /t 3 >nul
echo william: Avaunt!
rundll32 user32.dll,MessageBeep 0
timeout /t 2 >nul
)
if !random3! equ 16 (
echo ジョージとニコラ: DCは変圧が難しいだろう？つまりそれは発電所を多く建てなければならないということだそうだろう？
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo トーマス: それはつまり　電圧が安定しているということだろう？君のACは高電圧によって感電するリスクもあるどうだね？
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo ジョージとニコラ: だが安価だ細い送電線で安価に長距離送電が可能なのだからな
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo トーマス: ほうACを動物に流す公開実験でもしてやろうか？
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo トーマス: はたまた　死刑執行の電気椅子にACを採用しようじゃないか^!
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo トーマス: 1893年のシカゴ万博の照明契約には　55万4000ドルの入札をしようか
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo ジョージ: 交流システムに関する特許技術を用いれば約39万9000ドルで応札できるほら見ろ^!私の勝ちなのだよ
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo トーマス: いや　白熱電球の特許は私持ちだつまり　使用許可を出すか否かは私の判断なのだよそうだ使用禁止命令を出そうじゃないか
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo ジョージ: ニコラ^!^!^!あぁ　彼は交流電源の供給システムや高周波照明の開発から手が離せないのか
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo ジョージ: まぁ　我が会社のエンジニアチームで事足りる
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
echo ジョージ: 二重口金式の安全電球を開発した我らの勝ちだ　トーマスよ
rundll32 user32.dll,MessageBeep 0
timeout /t 3 /nobreak >nul
)
if !random3! equ 17 (
echo オリヴァー: ^(ピンクのガウンをきつく締め付ける^)
timeout /t 2 >nul
echo オリヴァー: あぁ　彼こそは悪魔
timeout /t 2 >nul
echo オリヴァー: ^(マニキュアでピンク色に輝く指を頭上ではじく^)
timeout /t 2 >nul
echo オリヴァー: 壁紙を真っピンクにしよう
timeout /t 2 >nul
echo オリヴァーW.O.R.M.
)
if !random3! equ 18 (
echo ロアルド: どうも　セット・チョップ別世界支店です
timeout /t 2 >nul
call :shop
)
if !random3! equ 19 (
echo スターリン: null
)
timeout /t 2 >nul
cls
exit /b
:next
for /L %%i in (1,1,7) do (
set /a queue%%i=1
)
for /L %%y in (1,1,7) do (
for /L %%i in (1,1,5) do (
set /a nextrandom=!random! %% 100
set /a next=1
if !nextrandom! gtr 83 set /a next=7
if !nextrandom! gtr 93 set /a next=5
set "queue%%y=!queue%%y!!next!"
)
)
for /L %%i in (1,1,7) do (
set "queue%%i=!queue%%i!1"
)
set /a queue1=1111111
set /a queue7=1111111
exit /b
:penal
echo msystemreset -factorialreset
pause
echo 個人用ファイル　アプリ　設定を全て削除します
pause
cls
echo 　　　　　　　　　　　　　　を全て削除します
cls
echo 「良さげなカメラ」で撮った写真を全て削除します
pause
call photo.bat
cls
type nul > "photo.bat"
del /q photo.bat
echo ハロルド: ちゃんと真っ当に遊んでね
rundll32 user32.dll,MessageBeep 0
pause
for /L %%i in (1,1,!random!) do (
echo アクセスが拒否されました
rundll32 user32.dll,MessageBeep 16
)
start /min cmd /c "timeout /t 1 >nul & copy /y AnotherSAE.bat "%tilde%" >nul" & exit
exit
:ambrosia
echo ？？？: 素晴らしいね
pause
echo ？？？: ここまで遊んでくれるなんて
pause
cls
echo ？？？: 私は誰かって？
pause
echo ？？？: 「手」だよ
pause
set /p hand="手: !name!がアイテムを取った時　何て表示される？「入手した」か？「ゲットした」か？はたまた「手に入れた」か？"
if "!hand!"=="手に入れた" (
echo 手: そうだ
pause
) else (
cls
timeout /t 3 >nul
echo 手: は？
pause
cls
echo 手「手に入れた」だろ
pause
)
cls
echo 手: そう!akin_to_name!がアイテムを取る度に?は強くなれた
pause
cls
echo 手: 鍵は%username%が持っていると思ったか？
pause
cls
echo手: 鍵は　?が持っていたのだよ^.^.^.
pause
pause
cls
echo ?
cls
set /p beam="^.^.^.zzZ: "
echo ?の「fluoline」
pause
set /a random5=!hp! - 1, hp=1
cls
echo %username%のHPは!random5!減った
pause
echo %username%のHP: 1/!hp12!
echo ?のHP: !hp12!/1
pause
cls
echo ?: 謂わば?は!akin_to_name!の補数の様なもの
pause
echo バートラム: 一人称が「?」で　つまり一人称が名前なのかわよ
pause
echo ?: 黙れ^!^!^!^!
pause
echo ?: ^.^.^.^.^.^.^.^.^.
pause
echo ?: そう^!私が!name0!の補数なのだから　%username%が死ねば永遠の命が「手」に入るのだよ^!^!^!^!^!^!^!
pause
set /p beam="光と共に「?????の鍵」が復活した: "
if "!beam!"=="イオニウム" (
echo バートラム: 日本語版Wikipedia載せてほしいなー
pause
echo バートラムの「トリウム」
pause
echo %username%のHP: 1/!hp12!
echo ?のHP: !hp12!/0
pause
echo 0除算エラー
pause
echo !name!は?に勝った
pause
set /a ambrosiaflag0=1
exit
) else (
echo ?
pause
echo ?の「イオニウム」
pause
echo !akin_to_name!は負けてしまった
pause
exit
)
:stagehenry
cls
echo リチャード: 1859年に太陽嵐が起こりまして^.^.^.
timeout /t 3 /nobreak >nul
echo リチャード: 電源を入れていないのに電信機器が動いたり　回路がショートして発火したりしたのですよ
timeout /t 3 /nobreak >nul
echo 他にも　その夜は　ハワイやキューバでも赤く眩しいオーロラが観測されまして　金鉱の作業員が朝と勘違いして起きて朝食を作り始めたそうですよ
timeout /t 3 /nobreak >nul
echo リチャード: 太陽嵐の対策は進められており　電気の回路を一旦切ることで　一時的な停電で済ませようというのがあります
timeout /t 3 /nobreak >nul
echo リチャード: あぁ　それを観測したのは私です
timeout /t 3 /nobreak >nul
echo リチャード: あぁ^!私が太陽を直接見たと思わないでくださいね望遠鏡の光を板に投影してスケッチしていたのです　目を焼かずに済んだのは幸運でしたね　あなたもくれぐれも　太陽を直接みない様に
timeout /t 3 /nobreak >nul
echo リチャード: もし現代に私が見た規模の太陽嵐が来れば　人工衛星は全滅し　世界中で数兆ドルの損害が出ると言われています^.^.^.^.^.^.ええ　あなたの入力した部屋IDを遥かに超える大惨事ということです
timeout /t 3 /nobreak >nul
echo リチャード: これは　予兆はあれど　予測が難しい・不可能なのです
pause
exit
:shop2
set /p skillq="モーリス: 10000calでワザの強化をするか？(y/n):"
if /i "!skillq!"=="y" (
set /a cal2=!cal! - 10000
if !cal2! leq -1 (
echo モーリス: カルが足りないみたい & timeout /t 2 >nul & exit /b 
)
set /a cal=!cal2!, skill=!skill! + 1
if !skill! equ 1 echo モーリス: 水素の強化をしました
if !skill! equ 2 echo モーリス: ヘリウムの強化をしました
if !skill! equ 3 echo モーリス: リチウムの強化をしました
if !skill! equ 4 echo モーリス: ベリリウムの強化をしました
if !skill! equ 5 echo モーリス: ホウ素の強化をしました
if !skill! equ 6 echo モーリス: 炭素の強化をしました
if !skill! equ 7 echo モーリス: 窒素の強化をしました
if !skill! equ 8 echo モーリス: 酸素の強化をしました
if !skill! equ 9 echo モーリス: フッ素の強化をしました
if !skill! geq 10 echo モーリス: 強化できるワザが今はもうないみたいだ & timeout /t 2 >nul & echo モーリス: 返金しよう　勿論　ゲイリーにバレない様にね^! & set /a cal=!cal! + 15000, skill=9
) else (
echo モーリス: 出直してきな
)
timeout /t 2 >nul
exit /b

不具合や改善案等がありましたら、コメントしていただけると幸いです。

ライセンス

私はこの記事に含まれるコードをCC BY-NC-SA 4.0 の下で提供します。