プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• 光のパズル

2012年10月2日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

単純だけど難しい！そんな楽しいパズルゲームここに登場！！

操作方法

タッチでパネルの色を変えてお手本の図にするというゲームです。

投稿者より

最近忙しくてプログラムの投稿ができなかったです。多分これからも。
バグ／意見とかあればコメントしてください。

感想をどうぞ

選択肢	投票
楽しい	3
すごい	0
まあまあ	1
参考になった	0
もう少し変えたほうがいいと思う	5
いまいち	2

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

プチコンmkII 向けの QR コードです。

ちなみに投稿者記録

プログラムリスト

+

プログラムリスト

’Ｌｉｇｈｔ　Ｐｕｚｚｌｅ　ｂｙ　Ｉｔｔａｎ ’カイハツ　ロク゛ ’モトモト　Ｎｅｗ　ＳＭＢ　ニアッタ　モノヲ ’イチカラ　イショクシテミヨウト　オモッタ。 ’（２０１１　Ｓｕｍｍｅｒ） ’スコシ　リメイクシタ ’（２０１２　９） ’１０／２　トウコウ。 ＶＩＳＩＢＬＥ　１，１，０，０，０，１ ＣＬＥＡＲ：ＡＣＬＳ ＤＩＭ　Ｈ（６，６），Ｃ（６，６），Ｈ２（６，６） ＤＩＭ　ＳＣＤＡＴＡＳ＄（１０，２） ＤＩＭ　ＳＣＤＡＴＡ（１０，２） ＤＩＭ　ＳＣＭＥＭＲＹ＄（１０，４） ＤＩＭ　ＮＣ（６，６） ＤＩＭ　ＣＭＥＭ（４，３） ＤＩＭ　ＣＭＥＭ２（３６，６） ＭＡＸＳ＝３　’ステ−シ゛ハ゜タ−ンサイタ゛イ ＰＮＬＴＹＰＥ”ＯＦＦ” ＧＯＳＵＢ　＠ＳＣＬＯＡＤ ’−−−ＣＯＬＯＲ　ＳＥＴＴＩＮＧ ＣＯＬＲＥＡＤ（”ＧＲＰ”，０），Ｒ０，Ｇ０，Ｂ０ ＣＯＬＲＥＡＤ（”ＧＲＰ”，７），Ｒ１，Ｇ１，Ｂ１ ＣＯＬＲＥＡＤ（”ＧＲＰ”，８），Ｒ２，Ｇ２，Ｂ２ ＣＯＬＲＥＡＤ（”ＧＲＰ”，９），Ｒ３，Ｇ３，Ｂ３ ＣＭＥＭ（０，０）＝Ｒ０：ＣＭＥＭ（０，１）＝Ｇ０ ＣＭＥＭ（０，２）＝Ｂ０：ＣＭＥＭ（１，０）＝Ｒ１ ＣＭＥＭ（１，１）＝Ｇ１：ＣＭＥＭ（１，２）＝Ｂ１ ＣＭＥＭ（２，０）＝Ｒ２：ＣＭＥＭ（２，１）＝Ｇ２ ＣＭＥＭ（２，２）＝Ｂ２：ＣＭＥＭ（３，０）＝Ｒ３ ＣＭＥＭ（３，１）＝Ｇ３：ＣＭＥＭ（３，２）＝Ｂ３ ＣＯＬ０＄＝ＨＥＸ＄（Ｒ０，２）＋ＨＥＸ＄（Ｇ０，２）＋ＨＥＸ＄（Ｂ０，２） ＣＯＬ１＄＝ＨＥＸ＄（Ｒ１，２）＋ＨＥＸ＄（Ｇ１，２）＋ＨＥＸ＄（Ｂ１，２） ＣＯＬ２＄＝ＨＥＸ＄（Ｒ２，２）＋ＨＥＸ＄（Ｇ２，２）＋ＨＥＸ＄（Ｂ２，２） ＣＯＬ３＄＝ＨＥＸ＄（Ｒ３，２）＋ＨＥＸ＄（Ｇ３，２）＋ＨＥＸ＄（Ｂ３，２） ’−−− ＠ＴＩＴＬＥ ＢＧＭＳＴＯＰ　０，１：ＷＡＩＴ　６０ ＢＧＭＰＬＡＹ　１８ ＲＫ＝１０ ＦＯＲ　Ｉ＝０　ＴＯ　３５ ＮＣ（Ｉ％６，Ｉ／６）＝０ ＮＥＸＴ ＧＰＡＧＥ　０ Ｇ＄＝”Ｌｉｇｈｔ” ＦＯＲ　Ｉ＝０　ＴＯ　４ ＧＰＵＴＣＨＲ　６０＋Ｉ＊１６，５５，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（Ｇ＄，Ｉ，１）），３，２ ＮＥＸＴ Ｇ＄＝”Ｐｕｚｚｌｅ” ＦＯＲ　Ｉ＝０　ＴＯ　５ ＧＰＵＴＣＨＲ　８０＋Ｉ＊１６，８５，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（Ｇ＄，Ｉ，１）），８，２ ＮＥＸＴ ＣＯＬＯＲ　９ ＬＯＣＡＴＥ　１２，１４ ？”―セツメイ―” ＬＯＣＡＴＥ　２，１６ ？”タッチスルト　ソノハ゜ネルト　マワリノ　イロカ゛カワルヨ。” ＬＯＣＡＴＥ　２，１８ ？”ウエノ　オテホン　ト゛ウリニ　シテイカイスウテ゛ ＬＯＣＡＴＥ　１０，２０ ？”エヲアワセロ！！ ＰＮＬＳＴＲ　３，５，”Ｔ　Ｏ　Ｕ　Ｃ　Ｈ　　　　Ｓ　Ｃ　Ｒ　Ｅ　Ｅ　Ｎ　！” ＧＰＡＧＥ　１ ＧＬＩＮＥ　０，１２８，２５６，１２８，１２ ＰＮＬＳＴＲ　９，２０，”Ｈ　Ｉ　　Ｓ　Ｃ　Ｏ　Ｒ　Ｅ” ’−−−−−ＴＯＵＣＨ　ＴＯ　ＳＴＡＲＴ ＠Ｐ＿ＴＣＨＳＴ 　ＩＦ　ＴＣＨＴＩＭＥ＜５　ＴＨＥＮ　＠Ｐ＿ＴＣＨＳＴ 　ＩＦ　ＴＣＨＹ＞１２８　ＴＨＥＮ　＠ＳＣ 　ＦＯＲ　Ｊ＝０　ＴＯ　１ 　ＧＰＡＧＥ　Ｊ 　　ＦＯＲ　Ｉ＝３２　ＴＯ　７０ 　　ＣＯＬＳＥＴ　”ＧＲＰ”，Ｉ，”００００００” 　　ＮＥＸＴ 　ＮＥＸＴ 　 　Ｋ＝４’−−ＳＣＡＬＥ 　ＦＯＲ　Ｉ＝０　ＴＯ　３５ 　　ＮＣＬ（Ｉ％６，Ｉ／６）＝０ 　ＮＥＸＴ 　ＳＴＧ＝０：ＳＣＯＲＥ＝０ 　ＴＣＨＵ＝１：ＧＣＬＳ：ＣＬＳ 　ＳＣＯＲＥ＝０ 　ＧＯＳＵＢ　＠Ｐ＿ＢＤＲＡＷ 　ＧＯＳＵＢ　＠Ｐ＿ＳＴＧＳＥＴ 　ＰＰ＝３ 　ＢＧＭＰＬＡＹ　２７ 　ＷＡＩＴ　３０ ’−−−−−ＭＡＩＮＬＯＯＰ（ＷＡＩＴ　ＭＯＤＥ） ＠Ｐ＿ＭＡＩＮ 　ＰＮＬＳＴＲ　０，３，ＭＩＤ＄（”ааа”，０，ＰＰ）＋”　”，１３ 　ＰＮＬＳＴＲ　３，２，”アト”＋ＳＴＲ＄（Ａ−Ｂ）＋”カイ”，０ 　ＰＮＬＳＴＲ　０，１，”Ｌｖ．”＋ＳＴＲ＄（ＦＬＯＯＲ（（ＳＴＧ）／３）＋１），０ 　ＰＮＬＳＴＲ　０，０，”ＳＴＡＧＥ”＋ＳＴＲ＄（ＳＴＧ＋１），０ 　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＴＣＨＵ＝０：ＧＯＴＯ＠Ｐ＿ＭＡＩＮ 　ＩＦ　ＴＣＨＵ＝＝１　ＴＨＥＮ　＠Ｐ＿ＭＡＩＮ 　ＩＦ　ＴＣＨＴＩＭＥ＜５　ＴＨＥＮ　＠Ｐ＿ＭＡＩＮ 　 　Ｘ＝ＦＬＯＯＲ（ＴＣＨＸ／３２）−２ 　Ｙ＝ＦＬＯＯＲ（ＴＣＨＹ／３２） 　ＩＦ　Ｘ＞Ｋ−１　ＯＲ　Ｙ＞Ｋ−１　ＯＲ　Ｘ＜０　ＯＲ　Ｙ＜０　ＴＨＥＮ　＠Ｐ＿ＭＡＩＮ 　ＧＯＳＵＢ　＠Ｐ＿ＲＶＳ 　ＧＯＳＵＢ　＠Ｐ＿ＤＲＡＷ 　ＢＥＥＰ　３８，０，８０ 　Ｂ＝Ｂ＋１ 　ＴＣＨＵ＝１ 　ＩＦ　Ａ＞Ｂ　ＴＨＥＮ　ＧＯＴＯ＠Ｐ＿ＭＡＩＮ 　ＧＯＳＵＢ　＠Ｐ＿ＣＬＲＣＨＫ 　ＩＦ　ＣＬＲ＝＝１　ＴＨＥＮ　＠Ｐ＿ＣＬＲ 　 　ＰＰ＝ＰＰ−１ 　Ｄ＝１：ＧＯＳＵＢ　＠Ｐ＿ＣＬＲＣＨＫ 　ＧＯＳＵＢ　＠Ｐ＿ＤＲＡＷ 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ＊Ｋ−１ 　　Ｈ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））＝Ｈ２（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ）） 　ＮＥＸＴ 　ＩＦ　ＰＰ＜＝０　ＴＨＥＮ　＠Ｐ＿ＯＵＴ 　ＰＮＬＳＴＲ　５，２，”０”，０ 　ＢＥＥＰ　１１，０，１２７ 　ＷＡＩＴ　８０ 　Ｂ＝０ 　ＧＯＳＵＢ　＠Ｐ＿ＤＲＡＷ ＧＯＴＯ＠Ｐ＿ＭＡＩＮ ’−−−−−クリアノ　ス゛ ’６＊６ ＠Ｐ＿ＣＳ６＿１ ＤＡＴＡ　■■■■■■ ＤＡＴＡ　□□■■□□ ＤＡＴＡ　□□□□□□ ＤＡＴＡ　□□□□□□ ＤＡＴＡ　■□□□□■ ＤＡＴＡ　■■□□■■ ＠Ｐ＿ＣＳ６＿２ ＤＡＴＡ　■■□□□■ ＤＡＴＡ　■□■■■□ ＤＡＴＡ　■□■■■□ ＤＡＴＡ　■□□□□■ ＤＡＴＡ　■□■■■■ ＤＡＴＡ　■□■■■■ ＠Ｐ＿ＣＳ６＿３ ＤＡＴＡ　■■□□■■ ＤＡＴＡ　■□□□□■ ＤＡＴＡ　□□□□□□ ＤＡＴＡ　■■□□■■ ＤＡＴＡ　■■□□■■ ＤＡＴＡ　■■□□■■ ’５＊５ ＠Ｐ＿ＣＳ５＿１ ＤＡＴＡ　□■■■□ ＤＡＴＡ　□□■■□ ＤＡＴＡ　□■□■□ ＤＡＴＡ　□■■□□ ＤＡＴＡ　□■■■□ ＠Ｐ＿ＣＳ５＿２ ＤＡＴＡ　■□■□■ ＤＡＴＡ　□■□■□ ＤＡＴＡ　■□■□■ ＤＡＴＡ　□■□■□ ＤＡＴＡ　■□■□■ ＠Ｐ＿ＣＳ５＿３ ＤＡＴＡ　□■■■□ ＤＡＴＡ　■□□□■ ＤＡＴＡ　■□■□■ ＤＡＴＡ　■□□□■ ＤＡＴＡ　□■■■□ ’４＊４ ＠Ｐ＿ＣＳ４＿１ ＤＡＴＡ　□■□□ ＤＡＴＡ　□■■■ ＤＡＴＡ　■■■□ ＤＡＴＡ　□□■□ ＠Ｐ＿ＣＳ４＿２ ＤＡＴＡ　■■■■ ＤＡＴＡ　■■■■ ＤＡＴＡ　■■■■ ＤＡＴＡ　■■■■ ＠Ｐ＿ＣＳ４＿３ ＤＡＴＡ　□■■□ ＤＡＴＡ　■□□■ ＤＡＴＡ　■□□■ ＤＡＴＡ　□■■□ ’−−−−−ＭＡＫＩＮＧ　ＳＴＡＧＥ ＠Ｐ＿ＳＴＧＳＥＴ 　ＳＴＧＳ＝ＲＮＤ（ＭＡＸＳ）＋１ 　Ｒ＄＝”＠Ｐ＿ＣＳ”＋ＳＴＲ＄（Ｋ）＋”＿”＋ＳＴＲ＄（ＳＴＧＳ） 　ＲＥＳＴＯＲＥ　Ｒ＄ 　ＧＯＳＵＢ　＠Ｐ＿ＣＲＥＡＤ 　ＲＥＳＴＯＲＥ　Ｒ＄ 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ−１　　 　ＲＥＡＤ　Ｃ＄ 　　ＦＯＲ　Ｊ＝０　ＴＯ　Ｋ−１ 　　Ｈ（Ｊ，Ｉ）＝（ＭＩＤ＄（Ｃ＄，Ｊ，１）＝＝”■”） 　　ＮＥＸＴ　Ｊ 　ＮＥＸＴ　Ｉ 　Ａ＝０ ’−−−−−ＭＡＫＩＮＧ　ＱＵＥＳＴＩＯＮ 　ＦＯＲ　Ｌ＝０　ＴＯ　ＦＬＯＯＲ（ＳＴＧ／９） 　　Ｘ＝ＲＮＤ（Ｋ）：Ｙ＝ＲＮＤ（Ｋ） 　　ＧＯＳＵＢ　＠Ｐ＿ＲＶＳ 　　Ａ＝Ａ＋１ 　ＮＥＸＴ　Ｌ 　Ａ２＝Ａ 　ＧＰＡＧＥ　０：ＳＣ＝１ 　ＧＯＳＵＢ　＠Ｐ＿ＤＲＡＷ 　ＧＰＡＧＥ　１ 　ＧＯＳＵＢ　＠Ｐ＿ＤＲＡＷ 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ＊Ｋ−１ 　Ｈ２（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））＝Ｈ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ）） 　ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−ＲＥＡＤ　ＣＬＥＡＲ　ＳＴＡＧＥ ＠Ｐ＿ＣＲＥＡＤ 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ−１ 　ＲＥＡＤ　Ｃ＄ 　　ＦＯＲ　Ｊ＝０　ＴＯ　Ｋ−１ 　　Ｃ（Ｊ，Ｉ）＝ＭＩＤ＄（Ｃ＄，Ｊ，１）＝＝”■” 　　ＮＥＸＴ　Ｊ 　ＮＥＸＴ　Ｉ ＲＥＴＵＲＮ ’−−−−−ＧＲＡＤＴＩＯＮ（ＲＶＳ） ＠Ｐ＿ＤＲＡＷ 　ＧＳＴＥＰ＝８ 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ＊Ｋ−１ 　ＮＣＬ＝ＮＣ（Ｉ％Ｋ，Ｉ／Ｋ） 　ＣＯ＝Ｈ（Ｉ％Ｋ，Ｉ／Ｋ）＋１ 　ＩＦ　ＳＣ＝＝１　ＴＨＥＮ　ＣＯ＝Ｃ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））＋１ 　ＣＭＥＭ２（Ｉ，０）＝ＣＭＥＭ（ＮＣＬ，０） 　ＣＭＥＭ２（Ｉ，１）＝ＣＭＥＭ（ＮＣＬ，１） 　ＣＭＥＭ２（Ｉ，２）＝ＣＭＥＭ（ＮＣＬ，２） 　ＣＭＥＭ２（Ｉ，３）＝ＣＭＥＭ（ＣＯ，０）−ＣＭＥＭ（ＮＣＬ，０） 　ＣＭＥＭ２（Ｉ，４）＝ＣＭＥＭ（ＣＯ，１）−ＣＭＥＭ（ＮＣＬ，１） 　ＣＭＥＭ２（Ｉ，５）＝ＣＭＥＭ（ＣＯ，２）−ＣＭＥＭ（ＮＣＬ，２） 　ＩＦ　ＳＣ＝＝０　ＴＨＥＮ　ＮＣ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））＝ＣＯ 　ＮＥＸＴ 　 　ＦＯＲ　Ｊ＝０　ＴＯ　ＧＳＴＥＰ−１ 　　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ＊Ｋ−１ 　　　ＦＯＲ　Ｌ＝０　ＴＯ　２ 　　　ＣＭＥＭ２（Ｉ，Ｌ）＝ＣＭＥＭ２（Ｉ，Ｌ）＋ＣＭＥＭ２（Ｉ，Ｌ＋３）／ＧＳＴＥＰ 　　　ＮＥＸＴ 　　ＲＧＢ＄＝ＨＥＸ＄（ＣＭＥＭ２（Ｉ，０），２） 　　ＲＧＢ＄＝ＲＧＢ＄＋ＨＥＸ＄（ＣＭＥＭ２（Ｉ，１），２） 　　ＲＧＢ＄＝ＲＧＢ＄＋ＨＥＸ＄（ＣＭＥＭ２（Ｉ，２），２） 　　ＣＯＬＳＥＴ　”ＧＲＰ”，３２＋ＦＬＯＯＲ（Ｉ／Ｋ）＊６＋Ｉ％Ｋ，ＲＧＢ＄ 　　ＮＥＸＴ 　ＮＥＸＴ 　ＳＣ＝０ 　ＣＯ＝０ ＲＥＴＵＲＮ ’−−−−−ＤＲＡＷ　ＬＩＮＥＳ ＠Ｐ＿ＢＤＲＡＷ 　ＧＰＡＧＥ　０ 　ＩＦ　ＳＴＧ％９＝＝０　ＴＨＥＮ　ＧＰＡＧＥ　１：ＧＣＬＳ：ＧＰＡＧＥ　０：ＧＣＬＳ 　ＦＯＲ　Ｌ＝−１　ＴＯ　０ 　　ＦＯＲ　Ｊ＝０　ＴＯ　１ 　　　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ 　　　　ＧＬＩＮＥ　６４＋Ｉ＊３２＋Ｌ，Ｌ，６４＋Ｉ＊３２＋Ｌ，Ｌ＋３２＊Ｋ，１５ 　　　　ＧＬＩＮＥ　６４，Ｉ＊３２＋Ｌ，６４＋３２＊Ｋ，Ｉ＊３２＋Ｌ，１５ 　　　ＮＥＸＴ　Ｉ 　　ＧＰＡＧＥ　１ 　　ＮＥＸＴ　Ｊ 　ＧＰＡＧＥ　０ 　ＮＥＸＴ　Ｌ ’−−−−−ＤＲＡＷ　ＣＩＲＣＬＥ 　ＦＯＲ　Ｊ＝０　ＴＯ　１ 　ＧＰＡＧＥ　Ｊ 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ＊Ｋ−１ 　Ｃ＝ＦＬＯＯＲ（Ｉ／Ｋ）＊６＋Ｉ％Ｋ＋３２ 　ＧＣＩＲＣＬＥ　（Ｉ％Ｋ）＊３２＋８０，ＦＬＯＯＲ（Ｉ／Ｋ）＊３２＋１６，１３，Ｃ 　ＧＰＡＩＮＴ　（Ｉ％Ｋ）＊３２＋８０，ＦＬＯＯＲ（Ｉ／Ｋ）＊３２＋１６，Ｃ 　ＮＥＸＴ 　ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−ＲＶＳ　ＳＥＴＴＩＮＧ ＠Ｐ＿ＲＶＳ 　ＦＯＲ　Ｉ＝−１　ＴＯ　１ 　　ＦＯＲ　Ｊ＝−１　ＴＯ　１ 　　　ＩＦ　Ｘ＋Ｉ＜０　ＯＲ　Ｙ＋Ｊ＜０　ＯＲ　Ｘ＋Ｉ＞Ｋ−１　ＯＲ　Ｙ＋Ｊ＞Ｋ−１　ＴＨＥＮ　＠Ｐ＿Ｒ２ 　　　Ｈ（Ｘ＋Ｉ，Ｙ＋Ｊ）＝Ｈ（Ｘ＋Ｉ，Ｙ＋Ｊ）−ＳＧＮ（（Ｈ（Ｘ＋Ｉ，Ｙ＋Ｊ）＊２）−１） 　　＠Ｐ＿Ｒ２ 　　ＮＥＸＴ　Ｊ 　ＮＥＸＴ　Ｉ ＲＥＴＵＲＮ ’−−−−−ＣＬＥＡＲ　ＣＨＥＫ ＠Ｐ＿ＣＬＲＣＨＫ 　ＣＬＲ＝０：ＣＬ＝０ 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｋ＊Ｋ−１ 　　ＩＦ　Ｈ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））＝＝Ｃ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））　ＴＨＥＮ　ＣＬ＝ＣＬ＋１ 　　ＩＦ　Ｄ＝＝１　ＡＮＤ　Ｈ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））！＝Ｃ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））　ＴＨＥＮ　Ｈ（Ｉ％Ｋ，ＦＬＯＯＲ（Ｉ／Ｋ））＝２ 　ＮＥＸＴ 　ＩＦ　ＣＬ＝＝Ｋ＊Ｋ　ＴＨＥＮ　ＣＬＲ＝１ 　Ｄ＝０ ＲＥＴＵＲＮ ’−−−−−ＣＬＥＡＲ！！ ＠Ｐ＿ＣＬＲ 　ＢＧＭＳＴＯＰ 　ＢＥＥＰ　３８，０，８０ 　ＰＮＬＳＴＲ　５，２，”０”，０ 　ＷＡＩＴ　８０ 　ＰＮＬＳＴＲ　０，４，”ＣＬＥＡＲ！”，７ 　ＢＥＥＰ　４３，０，１２７ 　ＳＴＧ＝ＳＴＧ＋１ 　ＳＣＯＲＥ＝ＳＣＯＲＥ＋１００−（ＰＰ＝＝２）＊２０−（ＰＰ＝＝１）＊３０ 　ＷＡＩＴ　１２０ 　ＩＦ　ＳＴＧ％３＝＝０　ＴＨＥＮ　ＢＥＥＰ　５：ＰＮＬＳＴＲ　０，１，”Ｌｖ．　ＵＰ！！”：ＷＡＩＴ　２０　ＰＮＬＳＴＲ　０，１，”　　　　　　　　” 　 　Ｋ＝（ＦＬＯＯＲ（ＳＴＧ／３）％３）＋４ 　ＧＯＳＵＢ　＠Ｐ＿ＢＤＲＡＷ 　ＧＯＳＵＢ　＠Ｐ＿ＳＴＧＳＥＴ 　Ｂ＝０：ＰＰ＝３ 　ＰＮＬＳＴＲ　０，４，”　　　　　　”，７ 　ＢＧＭＰＬＡＹ　２７ ＧＯＴＯ　＠Ｐ＿ＭＡＩＮ ’−−−−−ＧＡＭＥ　ＯＶＥＲ ＠Ｐ＿ＯＵＴ 　ＰＮＬＳＴＲ　５，２，”０”，０ 　ＰＮＬＳＴＲ　０，２，”　”，０ 　ＰＮＬＳＴＲ　０，３，”ＧＡＭＥ”，１３ 　ＰＮＬＳＴＲ　２，４，”ＯＶＥＲ！”，１３ 　ＢＧＭＳＴＯＰ 　ＷＡＩＴ　６０ 　ＢＥＥＰ　３７ 　ＷＡＩＴ　１２０ 　ＡＣＬＳ 　ＲＫ＝１０ 　ＦＯＲ　Ｉ＝９　ＴＯ　０　ＳＴＥＰ　−１ 　ＩＦ　ＳＣＤＡＴＡ（Ｉ，１）＜ＳＣＯＲＥ　ＴＨＥＮ　ＲＫ＝Ｉ 　ＩＦ　ＳＣＤＡＴＡ（Ｉ，１）＝＝ＳＣＯＲＥ　ＡＮＤ　ＳＣＤＡＴＡ（Ｉ，０）＜＝ＳＴＧ　ＴＨＥＮ　ＲＫ＝Ｉ 　ＮＥＸＴ 　？”ＣＬＥＡＲ　ＳＴＡＧＥ：”ＳＴＧ 　？”ＴＯＴＡＬ　ＳＣＯＲＥ：”ＳＣＯＲＥ 　ＣＯＬＯＲ　３ 　？”И　И　И　И　И　И　И　И　И 　？”　ス　コ　ア　コ　ウ　シ　ン　！ 　？”И　И　И　И　И　И　И　И　И 　ＩＮＰＵＴ　”ナマエヲニュウリョク（８モシ゛イナイ）”；ＮＡＭＥ＄ 　ＮＡＭＥ＄＝ＬＥＦＴ＄（ＮＡＭＥ＄＋”　　　　　　　　”，８） 　ＨＳＣ＝ＳＣＯＲＥ 　ＨＤＡＹ＄＝ＮＤＡＹ＄ 　ＨＳＴ＝ＳＴＧ 　ＨＮＡＭＥ＄＝ＮＡＭＥ＄ 　ＦＯＲ　Ｉ＝ＲＫ　ＴＯ　９ 　ＳＷＡＰ　ＨＳＴ，ＳＣＤＡＴＡ（Ｉ，０） 　ＳＷＡＰ　ＨＳＣ，ＳＣＤＡＴＡ（Ｉ，１） 　ＳＷＡＰ　ＨＤＡＹ＄，ＳＣＤＡＴＡＳ＄（Ｉ，０） 　ＳＷＡＰ　ＨＮＡＭＥ＄，ＳＣＤＡＴＡＳ＄（Ｉ，１） 　ＮＥＸＴ ＧＯＴＯ＠ＳＣ ＠ＳＣＬＯＡＤ ’テ゛−タ ’１２０９０１００２０００１８８０　　　ｉｔｔａｎ ’└──┬─┘└┬─┘└┬───┘└────┬─┘ ’┌──┴──┐│┌──┴────────┐│ ’│クリアシタ│││スコア：０ミス→１００││ ’│ヒツ゛ケ　│││ミステ゛１ミス→８０　││ ’└─────┘││ヘンカ　２ミス→５０　││ ’　　┌────┴┴──┬──┬─────┴┴┐ ’　　│クリアステ−シ゛│　　│ナマエ　―８　│ ’　　└────────┘　　└───────┘ ＭＥＭ＄＝”” ＳＹＳＢＥＥＰ＝０ ＬＯＡＤ”ＭＥＭ：ＬＰＳＣＯＲＥ”，０ ＩＦ　ＲＥＳＵＬＴ＝＝０　ＴＨＥＮ　＠ＮＥＷ ＠ＳＣＳＫ ＳＣ＄＝ＭＥＭ＄ ＦＯＲ　Ｉ＝０　ＴＯ　９ ＳＣＤＡＴＡＳ＄（Ｉ，０）＝ＭＩＤ＄（ＳＣ＄，Ｉ＊２４，６） ＳＣＤＡＴＡ（Ｉ，０）＝ＶＡＬ（ＭＩＤ＄（ＳＣ＄，Ｉ＊２４＋６，４）） ＳＣＤＡＴＡ（Ｉ，１）＝ＶＡＬ（ＭＩＤ＄（ＳＣ＄，Ｉ＊２４＋１０，６）） ＳＣＤＡＴＡＳ＄（Ｉ，１）＝ＭＩＤ＄（ＳＣ＄，Ｉ＊２４＋１６，８） ＮＥＸＴ ＮＤＡＹ＄＝ＭＩＤ＄（ＤＡＴＥ＄，２，２） ＮＤＡＹ＄＝ＮＤＡＹ＄＋ＭＩＤ＄（ＤＡＴＥ＄，５，２） ＮＤＡＹ＄＝ＮＤＡＹ＄＋ＭＩＤ＄（ＤＡＴＥ＄，８，２） ＲＥＴＵＲＮ ＠ＮＥＷ ＳＣ＄＝（”０００１０１”＋”０”＊１０＋”　”＊８）＊１０ ？”ハイスコアテ゛−タヲサクセイシマス。” ＭＥＭ＄＝ＳＣ＄ ＳＡＶＥ”ＭＥＭ：ＬＰＳＣＯＲＥ” ＧＯＴＯ＠ＳＣＳＫ ＠ＳＣ ＡＣＬＳ ＢＥＥＰ　６０ ＢＧＭＳＴＯＰ　０，１ ＷＡＩＴ　６０ ＢＧＭＰＬＡＹ　９ ＬＯＣＡＴＥ　５，３ ＣＯＬＯＲ　１４，３ ？”Ｌ　ｉ　ｇ　ｈ　ｔ　　　Ｐ　ｕ　ｚ　ｚ　ｌ　ｅ” ＷＡＩＴ　３０ ＬＯＣＡＴＥ　７，８ ＣＯＬＯＲ　０，０ ？”Ｐｒｏｇｒａｍｉｎｇ　：　Ｉｔｔａｎ ＷＡＩＴ　３０ ＬＯＣＡＴＥ　９，１４ ？”２０１２　／　９　／　２８ ＷＡＩＴ　３０ ＦＯＲ　Ｉ＝０　ＴＯ　９ Ｄ＄＝ＳＣＤＡＴＡＳ＄（Ｉ，０） Ｄ＄＝”２０”＋ＭＩＤ＄（Ｄ＄，０，２）＋”／”＋ＭＩＤ＄（Ｄ＄，２，２）＋”／”＋ＭＩＤ＄（Ｄ＄，４，２） ＳＣＭＥＭＲＹ＄（Ｉ，０）＝Ｄ＄ ＳＴ＄＝ＳＴＲ＄（ＳＣＤＡＴＡ（Ｉ，０）） ＳＴ＄＝ＲＩＧＨＴ＄（”　”＊４＋ＳＴ＄，４） ＳＣＭＥＭＲＹ＄（Ｉ，１）＝ＳＴ＄ ＳＲ＄＝ＳＴＲ＄（ＳＣＤＡＴＡ（Ｉ，１）） ＳＲ＄＝ＲＩＧＨＴ＄（”　”＊６＋ＳＲ＄，６） ＳＣＭＥＭＲＹ＄（Ｉ，２）＝ＳＲ＄ ＳＣＭＥＭＲＹ＄（Ｉ，３）＝ＳＣＤＡＴＡＳ＄（Ｉ，１） ＮＥＸＴ ＰＮＬＳＴＲ　０，０，”−−ＨＩ　ＳＣＯＲＥ−−” ＦＯＲ　Ｉ＝０　ＴＯ　９ ＰＮＬＳＴＲ　１，２＋Ｉ＊２，ＳＴＲ＄（Ｉ＋１）＋”，” ＰＮＬＳＴＲ　８，３＋Ｉ＊２，ＳＣＭＥＭＲＹ＄（Ｉ，０），２ ＰＮＬＳＴＲ　３，２＋Ｉ＊２，ＳＣＭＥＭＲＹ＄（Ｉ，１），３ ＰＮＬＳＴＲ　７，２＋Ｉ＊２，”ＳＴＡＧＥ” ＰＮＬＳＴＲ　１４，２＋Ｉ＊２，ＳＣＭＥＭＲＹ＄（Ｉ，２），３ ＰＮＬＳＴＲ　２０，２＋Ｉ＊２，”ＰＯＩＮＴＳ” ＰＮＬＳＴＲ　２３，３＋Ｉ＊２，ＳＣＭＥＭＲＹ＄（Ｉ，３），１５ ＩＦ　ＲＫ＝＝Ｉ　ＴＨＥＮ　ＰＮＬＳＴＲ　２７，２＋Ｉ＊２，”←ＹＯＵ！”，３ ＶＳＹＮＣ　５ ＮＥＸＴ ＰＮＬＳＴＲ　０，２３，”タイトルヘ” ＰＮＬＳＴＲ　８，２３，”セ−フ゛シテ　シュウリョウ” ＠ＳＣＬＯＯＰ ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＧＯＴＯ＠ＳＣＬＯＯＰ ＩＦ　ＴＣＨＹ＜１８４　ＴＨＥＮ　ＧＯＴＯ＠ＳＣＬＯＯＰ ＩＦ　ＴＣＨＸ＜４０　ＴＨＥＮ　ＣＬＳ：ＧＯＴＯ＠ＴＩＴＬＥ ＩＦ　ＴＣＨＸ＜６４　ＴＨＥＮ　ＧＯＴＯ＠ＳＣＬＯＯＰ ＩＦ　ＴＣＨＸ＜１６８　ＴＨＥＮ　ＧＯＴＯ＠ＳＣＳＶ ＧＯＴＯ＠ＳＣＬＯＯＰ ＠ＳＣＳＶ ＳＣ＄＝”” ＦＯＲ　Ｉ＝０　ＴＯ　９ ＳＣ＄＝ＳＣ＄＋ＳＣＤＡＴＡＳ＄（Ｉ，０） ＳＣ＄＝ＳＣ＄＋ＲＩＧＨＴ＄（”０００”＋ＳＴＲ＄（ＳＣＤＡＴＡ（Ｉ，０）），４） ＳＣ＄＝ＳＣ＄＋ＲＩＧＨＴ＄（”０００００”＋ＳＴＲ＄（ＳＣＤＡＴＡ（Ｉ，１）），６） ＳＣ＄＝ＳＣ＄＋ＳＣＤＡＴＡＳ＄（Ｉ，１） ＮＥＸＴ ＭＥＭ＄＝ＳＣ＄ ＳＡＶＥ”ＭＥＭ：ＬＰＳＣＯＲＥ ＡＣＬＳ ＢＧＭＳＴＯＰ

コメント

• メルビル : マ○オのやつか (2012/10/02 (火) 23:34:56)
• 朱雀 : マ○オですね (2012/10/03 (水) 01:45:41)
• 田中 : マ○オだ (2012/10/03 (水) 07:11:41)
• ウイング : マ○オか (2012/10/03 (水) 14:37:53)
• どこかの人 : マ〇オのだ (2012/10/03 (水) 15:24:39)
• 中学生 : 自分が得意だったやつ (2012/10/03 (水) 16:15:25)
• 道産子の初心者 : Ｎ○ｗ　Ｓ○ｐ○ｒ　Ｍａ○ｉ○　Ｂ○ｏ○　のやつですね。 (2012/10/03 (水) 16:25:58)
• 名無しさん : マ○オ乙です (2012/10/03 (水) 20:40:21)
• 名無しさん : マ○オやんｗ面白いですな (2012/10/04 (木) 12:29:40)
• minecrafter郎 : マ○オだ (2012/12/06 (木) 18:43:12)
• .EXE : ヨ＊シーみたいな石像が飛んでいく奴だな。 (2012/12/06 (木) 20:07:38)
• .EXE : 任○堂WWWWWWWW (2012/12/23 (日) 06:38:54)
• 名無しさん : まさか (2012/12/26 (水) 13:37:02)
• ｙｙｙ : いいのかなｗｗｗｗｗ (2012/12/26 (水) 13:37:42)
• 名無しさん : タイム制限あった方が面白い (2013/05/01 (水) 11:09:08)
• AAAAAAAAAA : マ○オw (2013/10/24 (木) 21:00:07)

お名前: