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

パンくずリスト

• トップ
• Toukou
• EASY GAME

2013年2月5日投稿 / 投稿者 :らいむ / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

初投稿です。

基本操作がタッチパネルだけの子供用ゲームです。

幼稚園児を対象にしたので、みなさんがやっても面白くないかもしれません。

６歳のいとこにみせたら結構食いついてくれました。

全部で3つ作りました。

1つ目　EYES

下画面に２つの目玉があり、タッチした方向に目が動くというものです。

操作方法

　・タッチ　→　目が動く

　・右上の×印のアイコン　→　END

　・右下の５つのアイコン　→　表情の変化

９行目の変数ECで目の色を変えられるようにしました。(2月6日)

QR コード

プログラムリスト

+

191行

’　　　−ＥＹＥＳ− ’（Ｃ）２０１２　ＲＡＩＭＵ ＣＬＥＡＲ：ＡＣＬＳ ＰＮＬＴＹＰＥ　”ＯＦＦ ＥＣ＝７　：’ＣＯＬＯＲ ＧＰＵＴＣＨＲ　７５，５０，”ＢＧＦ０”，６９，７，４ ＧＰＵＴＣＨＲ　１００，５０，”ＢＧＦ０”，８９，１５，４ ＧＰＵＴＣＨＲ　１２５，５０，”ＢＧＦ０”，６９，７，４ ＧＰＵＴＣＨＲ　１５０，５０，”ＢＧＦ０”，８３，１５，４ ＣＯＬＯＲ　２ ＬＯＣＡＴＥ　１８，１４：？”（Ｃ）２０１２　ＲＡＩＭＵ” ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　８，２２：？”↓　シタカ゛メン　ヲ　タッチ　↓ ＧＰＡＧＥ　１ ＧＯＳＵＢ　＠ＩＮＩＴ ＧＯＳＵＢ　＠ＥＹＥＳＥＴ ＧＯＳＵＢ　＠ＩＣ ＠Ｌ ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　＠Ｌ ＠ＭＬＯＯＰ 　ＩＦ　ＴＣＨＳＴ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＡＬＣＵ　ＥＬＳＥ　ＧＯＳＵＢ　＠ＩＮＩＴ 　ＯＮ　Ｆ　ＧＯＳＵＢ　＠ＯＮＬＹ，＠ＮＯＴＣ，＠ＳＭＩＬＥ，＠ＡＮＧＲＹ，＠ＳＡＤ 　ＧＯＳＵＢ　＠ＥＹＥＳＥＴ 　ＧＯＳＵＢ　＠ＩＣ 　ＶＳＹＮＣ　１ 　ＧＣＬＳ ＧＯＴＯ　＠ＭＬＯＯＰ ＠ＩＮＩＴ 　Ｘ１＝９０：Ｙ１＝８０ 　Ｘ２＝１６０：Ｙ２＝８０ ＲＥＴＵＲＮ ＠ＣＡＬＣＵ 　ＰＸ＝ＴＣＨＸ−９０：ＰＹ＝ＴＣＨＹ−８０ 　ＤＳＴ＝ＳＱＲ（ＰＸ＊ＰＸ＋ＰＹ＊ＰＹ） 　ＩＦ　ＤＳＴ＞８　ＴＨＥＮ　ＤＳＴ＝８ 　ＲＤ＝ＡＴＡＮ（ＰＹ，ＰＸ） 　Ｘ１＝９０＋ＣＯＳ（ＲＤ）＊ＤＳＴ 　Ｙ１＝８０＋ＳＩＮ（ＲＤ）＊ＤＳＴ 　ＰＸ＝ＰＸ−７０ 　ＤＳＴ＝ＳＱＲ（ＰＸ＊ＰＸ＋ＰＹ＊ＰＹ） 　ＩＦ　ＤＳＴ＞８　ＴＨＥＮ　ＤＳＴ＝８ 　ＲＤ＝ＡＴＡＮ（ＰＹ，ＰＸ） 　Ｘ２＝１６０＋ＣＯＳ（ＲＤ）＊ＤＳＴ 　Ｙ２＝８０＋ＳＩＮ（ＲＤ）＊ＤＳＴ ＲＥＴＵＲＮ ＠ＥＹＥＳＥＴ 　ＧＣＩＲＣＬＥ　９０，８０，１５，１５ 　ＧＰＡＩＮＴ　９０，８０，１５ 　ＧＣＩＲＣＬＥ　Ｘ１，Ｙ１，７，ＥＣ 　ＧＰＡＩＮＴ　Ｘ１，Ｙ１，ＥＣ 　ＧＣＩＲＣＬＥ　Ｘ１，Ｙ１，４，１４ 　ＧＰＡＩＮＴ　Ｘ１，Ｙ１，１４ 　ＧＰＳＥＴ　Ｘ１＋２，Ｙ１−２，１３ 　ＧＣＩＲＣＬＥ　１６０，８０，１５，１５ 　ＧＰＡＩＮＴ　１６０，８０，１５ 　ＧＣＩＲＣＬＥ　Ｘ２，Ｙ２，７，ＥＣ 　ＧＰＡＩＮＴ　Ｘ２，Ｙ２，ＥＣ 　ＧＣＩＲＣＬＥ　Ｘ２，Ｙ２，４，１４ 　ＧＰＡＩＮＴ　Ｘ２，Ｙ２，１４ 　ＧＰＳＥＴ　Ｘ２＋２，Ｙ２−２，１３ ＲＥＴＵＲＮ ＠ＳＭＩＬＥ 　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　＠ＮＯＴＣ 　ＧＣＩＲＣＬＥ　９０，５５，１５，１ 　ＧＦＩＬＬ　７５，５５，１０５，７０ 　ＧＣＩＲＣＬＥ　１６０，５５，１５，１ 　ＧＦＩＬＬ　１４５，５５，１７５，７０ 　ＧＣＩＲＣＬＥ　１２５，１１５，２０，２ 　ＧＰＡＩＮＴ　１２５，１１５，２ 　ＧＦＩＬＬ　１０５，１１５，１４５，９５ ＲＥＴＵＲＮ ＠ＡＮＧＲＹ 　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　＠ＮＯＴＣ 　ＧＬＩＮＥ　７５，４５，１０５，５５，１ 　ＧＬＩＮＥ　１４５，５５，１７５，４５，１ 　ＧＣＩＲＣＬＥ　１２５，１４０，２５，２ 　ＧＦＩＬＬ　９５，１２５，１５０，１７５ ＲＥＴＵＲＮ ＠ＮＯＴＣ 　ＧＬＩＮＥ　７５，５０，１０５，５０，１ 　ＧＬＩＮＥ　１４５，５０，１７５，５０，１ 　ＧＬＩＮＥ　１０５，１２０，１４５，１２０，２ ＲＥＴＵＲＮ ＠ＯＮＬＹ ＲＥＴＵＲＮ ＠ＳＡＤ 　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　＠ＮＯＴＣ 　ＧＬＩＮＥ　７５，５５，１０５，４５，１ 　ＧＬＩＮＥ　１４５，４５，１７５，５５，１ 　ＧＬＩＮＥ　１０５，１２０，１４５，１２０，２ ＲＥＴＵＲＮ ＠ＩＣ 　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　＠ＮＴ 　ＩＦ　ＴＣＨＸ＜２５１　ＡＮＤ　ＴＣＨＸ＞２３３　ＡＮＤ　ＴＣＨＹ＜２２　ＡＮＤ　ＴＣＨＹ＞４　ＴＨＥＮ　ＢＥＥＰ　９：ＥＮＤ 　ＩＦ　ＴＣＨＸ＜２５１　ＡＮＤ　ＴＣＨＸ＞２３３　ＡＮＤ　ＴＣＨＹ＜１８７　ＡＮＤ　ＴＣＨＹ＞１６９　ＴＨＥＮ　Ｆ＝４ 　ＩＦ　ＴＣＨＸ＜２３１　ＡＮＤ　ＴＣＨＸ＞２１３　ＡＮＤ　ＴＣＨＹ＜１８７　ＡＮＤ　ＴＣＨＹ＞１６９　ＴＨＥＮ　Ｆ＝３ 　ＩＦ　ＴＣＨＸ＜２１１　ＡＮＤ　ＴＣＨＸ＞１９３　ＡＮＤ　ＴＣＨＹ＜１８７　ＡＮＤ　ＴＣＨＹ＞１６９　ＴＨＥＮ　Ｆ＝２ 　ＩＦ　ＴＣＨＸ＜１９１　ＡＮＤ　ＴＣＨＸ＞１７３　ＡＮＤ　ＴＣＨＹ＜１８７　ＡＮＤ　ＴＣＨＹ＞１６９　ＴＨＥＮ　Ｆ＝１ 　ＩＦ　ＴＣＨＸ＜１７１　ＡＮＤ　ＴＣＨＸ＞１５３　ＡＮＤ　ＴＣＨＹ＜１８７　ＡＮＤ　ＴＣＨＹ＞１６９　ＴＨＥＮ　Ｆ＝０ 　＠ＮＴ 　ＧＢＯＸ　１７４，１７０，１９０，１８６，１５ 　ＧＰＳＥＴ　１７４，１７０：ＧＰＳＥＴ　１７４，１８６ 　ＧＰＳＥＴ　１９０，１７０：ＧＰＳＥＴ　１９０，１８６ 　ＧＬＩＮＥ　１７８，１７５，１８０，１７５，１ 　ＧＬＩＮＥ　１８４，１７５，１８６，１７５，１ 　ＧＢＯＸ　１７９，１７７，１８０，１７８，７ 　ＧＢＯＸ　１８４，１７７，１８５，１７８，７ 　ＧＬＩＮＥ　１８０，１８１，１８４，１８１，２ 　ＧＢＯＸ　２１４，１７０，２３０，１８６，１５ 　ＧＰＳＥＴ　２１４，１７０：ＧＰＳＥＴ　２１４，１８６ 　ＧＰＳＥＴ　２３０，１７０：ＧＰＳＥＴ　２３０，１８６ 　ＧＰＳＥＴ　２１８，１７４，１ 　ＧＬＩＮＥ　２１９，１７５，２２０，１７５，１ 　ＧＰＳＥＴ　２２６，１７４，１ 　ＧＬＩＮＥ　２２４，１７５，２２５，１７５，１ 　ＧＢＯＸ　２１９，１７７，２２０，１７８，７ 　ＧＢＯＸ　２２４，１７７，２２５，１７８，７ 　ＧＬＩＮＥ　２２１，１８１，２２３，１８１，２ 　ＧＰＳＥＴ　２２０，１８２，２ 　ＧＰＳＥＴ　２２４，１８２，２ 　ＧＢＯＸ　１９４，１７０，２１０，１８６，１５ 　ＧＰＳＥＴ　１９４，１７０：ＧＰＳＥＴ　１９４，１８６ 　ＧＰＳＥＴ　２１０，１７０：ＧＰＳＥＴ　２１０，１８６ 　ＧＬＩＮＥ　１９９，１７４，２００，１７５，１ 　ＧＰＳＥＴ　１９８，１７５，１ 　ＧＬＩＮＥ　２０５，１７４，２０６，１７５，１ 　ＧＰＳＥＴ　２０４，１７５，１ 　ＧＢＯＸ　１９９，１７７，２００，１７８，７ 　ＧＢＯＸ　２０４，１７７，２０５，１７８，７ 　ＧＬＩＮＥ　２０１，１８２，２０３，１８２，２ 　ＧＬＩＮＥ　２００，１８１，２０４，１８１，２ 　ＧＢＯＸ　１５４，１７０，１７０，１８６，１５ 　ＧＰＳＥＴ　１５４，１７０：ＧＰＳＥＴ　１５４，１８６ 　ＧＰＳＥＴ　１７０，１７０：ＧＰＳＥＴ　１７０，１８６ 　ＧＢＯＸ　１５９，１７７，１６０，１７８，７ 　ＧＢＯＸ　１６４，１７７，１６５，１７８，７ 　ＧＢＯＸ　２３４，１７０，２５０，１８６，１５ 　ＧＰＳＥＴ　２３４，１７０：ＧＰＳＥＴ　２３４，１８６ 　ＧＰＳＥＴ　２５０，１７０：ＧＰＳＥＴ　２５０，１８６ 　ＧＬＩＮＥ　２３８，１７５，２３９，１７５，１ 　ＧＰＳＥＴ　２４０，１７４，１ 　ＧＬＩＮＥ　２４５，１７５，２４６，１７５，１ 　ＧＰＳＥＴ　２４４，１７４，１ 　ＧＢＯＸ　２３９，１７７，２４０，１７８，７ 　ＧＢＯＸ　２４４，１７７，２４５，１７８，７ 　ＧＬＩＮＥ　２４０，１８１，２４４，１８１，２ 　ＧＰＡＩＮＴ　１５６＋２０＊Ｆ，１７２，１３ 　ＧＢＯＸ　２３４，５，２５０，２１，１８ 　ＧＰＳＥＴ　２３４，５ 　ＧＰＳＥＴ　２３４，２１ 　ＧＰＳＥＴ　２５０，５ 　ＧＰＳＥＴ　２５０，２１ 　ＧＰＡＩＮＴ　２３５，６，２ 　ＧＬＩＮＥ　２３８，８，２４７，１７ 　ＧＬＩＮＥ　２３７，８，２４７，１８ 　ＧＬＩＮＥ　２３７，９，２４６，１８ 　ＧＬＩＮＥ　２４６，８，２３７，１７ 　ＧＬＩＮＥ　２４７，８，２３７，１８ 　ＧＬＩＮＥ　２４７，９，２３８，１８ ＲＥＴＵＲＮ

2つ目　BUBBLES　

下画面上部から出てくるシャボン玉をひたすら割るゲームです。

操作方法

　・タッチ　→　シャボンを割る。

　・右上のアイコン　→　END

QRコード

プログラムリスト

+

107行

’　　−ＢＵＢＢＬＥＳ− ’（Ｃ）２０１３　ＲＡＩＭＵ ＣＬＥＡＲ：ＡＣＬＳ：ＰＮＬＴＹＰＥ　”ＯＦＦ ＶＩＳＩＢＬＥ　１，１，０，０，０，１ ＢＬＫ＝１０ ＤＩＭ　ＢＬ（ＢＬＫ），ＢＬＸ（ＢＬＫ），ＢＬＹ（ＢＬＫ） ＤＩＭ　ＢＬＳＸ（ＢＬＫ），ＢＬＳＹ（ＢＬＫ） ＤＩＭ　ＢＬＰ（ＢＬＫ） ＢＬＫ＝ＢＬＫ−１ ＧＰＵＴＣＨＲ　４５，５０，”ＢＧＦ０”，６６，１５，４ ＧＰＵＴＣＨＲ　７０，５０，”ＢＧＦ０”，８５，９，４ ＧＰＵＴＣＨＲ　９５，５０，”ＢＧＦ０”，６６，１１，４ ＧＰＵＴＣＨＲ　１２０，５０，”ＢＧＦ０”，６６，１５，４ ＧＰＵＴＣＨＲ　１４５，５０，”ＢＧＦ０”，７６，９，４ ＧＰＵＴＣＨＲ　１７０，５０，”ＢＧＦ０”，６９，１１，４ ＧＰＵＴＣＨＲ　１９５，５０，”ＢＧＦ０”，８３，１５，４ ＬＯＣＡＴＥ　８，２２：？”↓　シタカ゛メン　ヲ　タッチ　↓ ＣＯＬＯＲ　２ ＬＯＣＡＴＥ　１８，１３：？”（Ｃ）２０１３　ＲＡＩＭＵ ＧＰＡＧＥ　１ ＧＬＩＮＥ　１２５，０，１２５，１５，１５ ＧＬＩＮＥ　１２９，０，１２９，１５，１５ ＳＰＳＥＴ　０，０，０，０，０，０ ＳＰＣＯＬ　０，０，０，１，１，０ ＠ＬＯＯＰ 　ＧＣＬＳ 　ＳＰＯＦＳ　０，ＴＣＨＸ，ＴＣＨＹ 　ＧＯＳＵＢ　＠ＥＤ 　ＧＯＳＵＢ　＠ＢＬＳＨ 　ＧＯＳＵＢ　＠ＢＬＭＶ 　ＧＬＩＮＥ　１２５，０，１２５，１５，１５ 　ＧＬＩＮＥ　１２９，０，１２９，１５，１５ 　ＶＳＹＮＣ　１ ＧＯＴＯ　＠ＬＯＯＰ ＠ＢＬＳＨ 　ＩＦ　ＢＬＳ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＩＦ　ＢＰＵＴ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＬＳＥＴ 　ＢＬ（ＢＫ）＝ＢＬ（ＢＫ）＋２ 　ＢＬＹ（ＢＫ）＝ＢＬＹ（ＢＫ）＋２ 　ＩＦ　ＢＬ（ＢＫ）＞＝ＢＬＰ（ＢＫ）　ＴＨＥＮ　＠ＢＬＳＰ ＲＥＴＵＲＮ ＠ＢＬＳＥＴ 　ＢＰＵＴ＝１ 　ＢＬ＝０ 　ＢＬＰ（ＢＫ）＝ＲＮＤ（１０）＋１０ 　ＢＬＸ（ＢＫ）＝１２７ 　ＢＬＹ（ＢＫ）＝１６ ＲＥＴＵＲＮ ＠ＢＬＳＰ 　ＢＬ（ＢＫ）＝ＢＬＰ（ＢＫ） 　ＢＬ（ＢＫ）＝ＢＬＰ（ＢＫ） 　ＲＤ＝ＲＡＤ（ＲＮＤ（１６０）） 　ＢＬＳＸ（ＢＫ）＝ＣＯＳ（ＲＤ）＊２ 　ＢＬＳＹ（ＢＫ）＝ＳＩＮ（ＲＤ）＊２ 　ＢＰＵＴ＝０ 　ＢＫ＝ＢＫ＋１ 　ＩＦ　ＢＫ＝＝ＢＬＫ＋１　ＴＨＥＮ　ＢＬＳ＝１ ＲＥＴＵＲＮ ＠ＢＬＭＶ 　Ｂ＝０ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＢＬＫ 　　ＩＦ　ＢＬ（Ｉ）＝＝０　ＴＨＥＮ　＠Ｎ 　　Ｂ＝Ｂ＋１ 　　ＧＣＩＲＣＬＥ　ＢＬＸ（Ｉ），ＢＬＹ（Ｉ），ＢＬ（Ｉ），１５ 　　ＩＦ　ＢＬＰ（Ｉ）！＝ＢＬ（Ｉ）　ＴＨＥＮ　＠Ｎ 　　ＢＬＸ（Ｉ）＝ＢＬＸ（Ｉ）＋ＢＬＳＸ（Ｉ） 　　ＢＬＹ（Ｉ）＝ＢＬＹ（Ｉ）＋ＢＬＳＹ（Ｉ） 　　ＩＦ　ＢＬＸ（Ｉ）−ＢＬ（Ｉ）＜０　ＯＲ　ＢＬＸ（Ｉ）＋ＢＬ（Ｉ）＞２５６　ＴＨＥＮ　ＢＬＳＸ（Ｉ）＝ＢＬＳＸ（Ｉ）−ＢＬＳＸ（Ｉ）＊２ 　　ＩＦ　ＢＬＹ（Ｉ）−ＢＬ（Ｉ）＜０　ＯＲ　ＢＬＹ（Ｉ）＋ＢＬ（Ｉ）＞１９２　ＴＨＥＮ　ＢＬＳＹ（Ｉ）＝ＢＬＳＹ（Ｉ）−ＢＬＳＹ（Ｉ）＊２ 　　ＢＬＰ＝ＢＬ（Ｉ）＊１．６ 　　ＨＩＴ＝ＳＰＨＩＴＲＣ（０，ＢＬＸ（Ｉ）−ＢＬＰ／２，ＢＬＹ（Ｉ）−ＢＬＰ／２，ＢＬＰ，ＢＬＰ） 　　ＩＦ　ＨＩＴ＋ＴＣＨＳＴ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＩＮＩＴ 　　＠Ｎ 　ＮＥＸＴ 　ＩＦ　Ｂ＝＝０　ＴＨＥＮ　ＢＬＳ＝０：ＢＫ＝０ ＲＥＴＵＲＮ ＠ＩＮＩＴ 　ＢＬ（Ｉ）＝０ 　ＢＥＥＰ　２４ ＲＥＴＵＲＮ ＠ＥＤ 　ＩＦ　ＴＣＨＸ＜２５１　ＡＮＤ　ＴＣＨＸ＞２３３　ＡＮＤ　ＴＣＨＹ＜２２　ＡＮＤ　ＴＣＨＹ＞４　ＡＮＤ　ＴＣＨＳＴ＝＝１　ＴＨＥＮ　ＢＥＥＰ　９：ＥＮＤ 　ＧＢＯＸ　２３４，５，２５０，２１，１８ 　ＧＰＳＥＴ　２３４，５：ＧＰＳＥＴ　２５０，５ 　ＧＰＳＥＴ　２３４，２１：ＧＰＳＥＴ　２５０，２１ 　ＧＰＡＩＮＴ　２３５，６，２ 　ＧＬＩＮＥ　２３８，８，２４７，１７ 　ＧＬＩＮＥ　２３７，８，２４７，１８ 　ＧＬＩＮＥ　２３７，９，２４６，１８ 　ＧＬＩＮＥ　２３７，１７，２４６，８ 　ＧＬＩＮＥ　２３７，１８，２４７，８ 　ＧＬＩＮＥ　２３８，１８，２４７，９ ＲＥＴＵＲＮ

CHECKER FLAG (この２作品へのコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• kerious!!! : I LOVE THESE!!! You should make more. They remind me of the WarioWare games. With the eyes game, you should have it so you can change the color of the eyes. The bubbles games is SO fun!!! Great job! Keep up the good work. (2013/02/05 (火) 23:05:29)
• らいむ : Thank you for writing a comment! It can change eyes color now. (2013/02/06 (水) 16:42:33)
• 名無しさん : .. (2013/02/09 (土) 01:33:07)
• 名無しさん : (・∀・)＜グーグル先生の出番だ！　英語勉強しろよ＞(-"-)・・・。＞(´・ω・｀) (2013/02/17 (日) 13:04:03)
• らいむ : 僕、英語のコメントしてますが翻訳サイト使ってます。中３なんで… (2013/02/17 (日) 16:00:10)
• ミジュはると : 結構おもろい!! (2013/03/25 (月) 09:24:30)

お名前: