igayori.s37

一度くらいはブログに作品をアップしたかったので
小規模ですがそれ用に作ってみました。

1キーで操作するブロック崩しで
パドル(ラケット)ではなくボールの方を操作します。

細かい事はReadmeに書いてありますので参照して下さい。

尚、動作には .NET Framework が必要です。

正月休みに突貫で作ったんで色々と粗がありますが
大目に見てくださいｗ

昔MSXで作ったソフトのソースファイルが
もう使っていないPCの中から出てきた。

フロッピーディスクには実行用のファイルしか無かったんで
ソースファイルはもう紛失したもんだと思ってただけに、かなり嬉しい。

久しぶりに眺めてみると、とても人に見せられない
絵に描いたようなスパゲッティプログラムでした。

どうやらZ80を使った仕事の時に
参考にする為にこのPCに入れていたみたいなんだけど
当時の自分はこれが参考になったんだろうか？

またSTGです。

本当にヒマな時にしか手をつけないから
全然作業が進まないけど。

ちょっとヒマだったんで、なんとなく思い出した昔のマンガ
「こんにちはマイコン」の中で作っていたゲームを再現してみた。

「こんにちはマイコン」とは「ゲームセンターあらし」の登場人物を使ったパソコンの入門書で
自分と同世代のプログラマーは結構このマンガの影響を受けた人が多いと思う。（自分もその一人です）


マンガ本自体は既に持っていないんで、記憶に残っている

・ブロック崩しのブロック無しみたいなゲームだった

・球を打ち返すたびに点数が入った

・操作するラケット？が”＝＝＝”だった

を元に、MSX-BASICで作ってみたけど………


こんな感じだったか？


いまいちピンと来ないんで、古本屋に行って本を探してこようかな。


せっかくなんで、リスト置いときます。

---

10 SCREEN 1:WIDTH 32:KEY OFF
20 SC=0
30 BL=0:BT=1:BX=1:BY=1
40 PL=15:PT=22
50 CLS
60 LOCATE 0,0:PRINT "SCORE";SC;
70 S=STICK(0)
80 IF S=0 THEN 120
90 LOCATE PL,PT:PRINT "   ";
100 IF S=3 AND PL<29 THEN PL=PL+1
110 IF S=7 AND PL>0 THEN PL=PL-1
120 LOCATE PL,PT:PRINT "===";
130 LOCATE BL,BT:PRINT " ";
140 BL=BL+BX
150 BT=BT+BY
160 LOCATE BL,BT:PRINT "o";
170 IF BL<=0 THEN BX=1
180 IF BL>=31 THEN BX=-1
190 IF BT<=1 THEN BY=1
200 IF BT=PT AND BL>=PL AND BL<=PL+2 THEN BY=-1:SC=SC+1
210 IF BT<23 THEN 60
220 BEEP
230 LOCATE 12,11:PRINT "GAME OVER";
240 LOCATE 9,13:PRINT "PUSH SPACE KEY";
250 IF STRIG(0)=0 THEN 250
260 GOTO 20

---

VisualじゃないBasicでプログラム書いたの十数年ぶりだな〜

最後に休んだのが2月末だったから、実にひと月以上ぶりの休日。

何すっかな〜
とりあえず次回作用のドット絵でも描こうか。

急な休みなんで、それくらいしかやる事が思いつかない。


写真は横でくつろぎすぎている猫。
最近暖かくなってきたんで、よくこんな風にひっくり返って寝てる。