壁ポン

　
　今回は、スカッシュというか壁打ちピンポンゲームを作ってみました。

【対応機種】
ニンテンドー　DSi・DSiLL・３DS/プチコンｍｋ２

【遊び方】
　ゲームがはじまると、いよいよ奥からボールのお出ましだ。
四角い板（ラケット）を十字キーやスライドパッドで操作してバシッ！と打ち返すのだ。
見事打ち返せれば１０点、５回ミスすれば、やれやれゲーム　オーバー・・・
とまあこんな調子だ。
レトロで平凡なゲームだが、壁を跳ね返るボールの動きにじっと目を凝してみる。
そうすれば、きっとその先に高得点が見えてくるはずだ。
それでは、プログラムリストを見てみるとしよう・・・
（とまあ、なぜか小さな村イタリア風？にしてみました。）


【プログラム　リスト】

’　＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
‘　　   カベポン　ｂｙ kameyoko    
’　＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
ＣＬＥＡＲ：ＳＰＣＬＲ：ＣＯＬＯＲ　１５：ＭＺ＝１５０
ＶＩＳＩＢＬＥ　１，０，０，０，１，１：ＧＣＬＳ
’　＊＊＊　ハイケイ　ビョウガ　＊＊＊
Ｘ１＝０：Ｙ１＝０：Ｘ２＝２５５：Ｙ２＝１９１
ＦＯＲ　Ｚ＝２５　ＴＯ　１７５　ＳＴＥＰ　５０
ＧＯＳＵＢ　＠ＫＥ：ＧＯＳＵＢ　＠ＫＥ２
ＧＢＯＸ　ＧＸ１，ＧＹ１，ＧＸ２，ＧＹ２，４
ＮＥＸＴ
Ｚ＝２５
ＧＯＳＵＢ　＠ＫＥ：ＧＯＳＵＢ　＠ＫＥ２
ＧＬＩＮＥ　　　０，　　０，ＧＸ１，ＧＹ１，４
ＧＬＩＮＥ　ＧＸ２，ＧＹ１，２５５，　　０，４
ＧＬＩＮＥ　　　０，１９１，ＧＸ１，ＧＹ２，４
ＧＬＩＮＥ　ＧＸ２，ＧＹ２，２５５，１９１，４
ＧＰＡＩＮＴ　１２８，９６，４，４
’　＊＊＊　スタート　＊＊＊
＠ＳＴ
ＣＬＳ：ＢＥＥＰ　３４
ＬＯＣＡＴＥ　１４，１１：？　”ＳＴＡＲＴ”
ＷＡＩＴ　１００：ＣＬＳ
ＭＸ＝１２８：ＭＹ＝１６６
ＳＣ＝０：ＭＳ＝０：ＧＯＳＵＢ　＠ＳＣ
’　＊＊＊　リプレイ　＊＊＊
＠ＰＲ
ＢＸ＝ＲＮＤ（２４０）：ＢＹ＝ＲＮＤ（１７６）：ＢＺ＝２５
ＢＶＸ＝（－１＋ＲＮＤ（２）＊２）＊２：ＢＶＹ＝（－１＋ＲＮＤ（２）＊２）＊１６：ＢＶＺ＝２
’　＊＊＊　ヒョウジ　＊＊＊
＠ＬＰ
Ｎ１＝０：Ｎ２＝1
ＩＦ　ＢＺ＞ＭＺ　ＴＨＥＮ　ＳＷＡＰ　Ｎ１，Ｎ２
ＳＰＳＥＴ　Ｎ１，１０，０，０，０，０
ＳＰＳＥＴ　Ｎ２，２５１，７，０，０，０
ＳＰＳＣＡＬＥ　Ｎ１，ＭＺ
ＳＰＳＣＡＬＥ　Ｎ２，ＢＺ
Ｘ１＝ＭＸ：Ｙ１＝ＭＹ：Ｚ＝ＭＺ
ＧＯＳＵＢ　＠ＫＥ
ＳＰＯＦＳ　Ｎ１，ＧＸ１，ＧＹ１
Ｘ１＝ＢＸ：Ｙ１＝ＢＹ：Ｚ＝ＢＺ
ＧＯＳＵＢ　＠ＫＥ
ＳＰＯＦＳ　Ｎ２，ＧＸ１，ＧＹ１
ＷＡＩＴ　１
’　＊＊＊　ボール　＊＊＊
ＢＸ＝ＢＸ＋ＢＶＸ：ＢＹ＝ＢＹ＋ＢＶＹ：ＢＺ＝ＢＺ＋ＢＶＺ
ＩＦ　ＢＶＹ＜１６　ＴＨＥＮ　ＢＶＹ＝ＢＶＹ＋１
ＩＦ　ＢＸ＜０　ＯＲ　ＢＸ＞２３９　ＴＨＥＮ　ＢＶＸ＝－ＢＶＸ：ＢＥＥＰ　５１
ＩＦ　ＢＹ＜０　ＯＲ　ＢＹ＞１７５　ＴＨＥＮ　ＢＶＹ＝－ＢＶＹ：ＢＹ＝ＢＹ＋ＢＶＹ：ＢＥＥＰ　５１
ＩＦ　ＢＺ＜２５　ＴＨＥＮ　ＢＶＺ＝－ＢＶＺ：ＢＥＥＰ　５１
ＩＦ　ＢＺ＜２００　ＴＨＥＮ　＠ＳＫ
ＭＳ＝ＭＳ＋１：ＧＯＳＵＢ　＠ＳＣ：ＢＥＥＰ　６４：ＷＡＩＴ　５０
ＩＦ　ＭＳ＜５　ＴＨＥＮ　＠ＰＲ
ＢＥＥＰ　１４
ＬＯＣＡＴＥ　１２，１１：？　”ＧＡＭＥ　ＯＶＥＲ”
ＷＡＩＴ　２００
ＧＯＴＯ　＠ＳＴ
’　＊＊＊　プレイヤー　＊＊＊
＠ＳＫ
Ｂ＝ＢＵＴＴＯＮ（）
ＩＦ　Ｂ＝＝１　ＡＮＤ　ＭＹ＞０　ＴＨＥＮ　ＭＹ＝ＭＹ－４
ＩＦ　Ｂ＝＝２　ＡＮＤ　ＭＹ＜１７５　ＴＨＥＮ　ＭＹ＝ＭＹ＋４
ＩＦ　Ｂ＝＝４　ＡＮＤ　ＭＸ＞０　ＴＨＥＮ　ＭＸ＝ＭＸー４
ＩＦ　Ｂ＝＝８　ＡＮＤ　ＭＸ＜２３９　ＴＨＥＮ　ＭＸ＝ＭＸ＋４
Ｘ＝ＡＢＳ（ＢＸ－ＭＸ）：Ｙ＝ＡＢＳ（ＢＹ－ＭＹ）：Ｚ＝ＡＢＳ（ＢＺ－ＭＺ）
ＩＦ　Ｘ＜２４　ＡＮＤ　Ｙ＜２４　ＡＮＤ　Ｚ＜１６　ＡＮＤ　ＢＶＺ＞０　ＴＨＥＮ　ＢＶＺ＝－ＢＶＺ：ＢＥＥＰ　３０：ＳＣ＝ＳＣ＋１０：ＧＯＳＵＢ　＠ＳＣ
ＧＯＴＯ　＠ＬＰ
’　＊＊＊　ケイサンSUB 1　＊＊＊
＠ＫＥ
ＧＸ１＝ＦＬＯＯＲ（１２８＋（Ｘ１－１２８）＊Ｚ／２００）
ＧＹ１＝ＦＬＯＯＲ（　９６＋（Ｙ１－　９６）＊Ｚ／２００）
ＲＥＴＵＲＮ
’　＊＊＊　ケイサンSUB 2  ＊＊＊
＠ＫＥ２
ＧＸ２＝ＦＬＯＯＲ（１２８＋（Ｘ２－１２８）＊Ｚ／２００）
ＧＹ２＝ＦＬＯＯＲ（　９６＋（Ｙ２－　９６）＊Ｚ／２００）
ＲＥＴＵＲＮ
’　＊＊＊　SCORE　ヒョウジ　＊＊＊
＠ＳＣ
ＬＯＣＡＴＥ　　０，　０：？　”ＳＣＯＲＥ”：ＳＣ
ＬＯＣＡＴＥ　２６，　０：？　”ＭＩＳＳ”；ＭＳ
ＲＥＴＵＲＮ

 

　レッツ　壁ポング！！

ゲーム制作ランキング