このプログラムは何言語？何のプログラム？

解決済

質問者：kakibesuto
質問日時：2010/11/02 04:39
回答数：7件

このプログラムは何言語？何のプログラム？
手掛かり的な情報は全く無いのです。

10 CLS:CGSET 1,0
20 DEF SPRITE 0,(0,1,0,0,0)=
CHR$(1)+CHR$(0)+CHR$(3)+CHR$(2)
30 SPRITE ON
40 FOR X=0 TO 240
50 SPRITE 0,X,120
60 PAUSE 3
70 NEXT

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (7件)

ベストアンサー優先
最新から表示
回答順に表示

No.7ベストアンサー

回答者： ralf124c
回答日時：2010/11/02 13:16

補足：

一応正確を記す為に
20 DEF SPRITE 0,(0,1,0,0,0)=CHR$(1)+CHR$(0)+CHR$(3)+CHR$(2)
だと、たてに左右入れ替わった真っ二つ髭親父のスプライトとなります。
ちゃんと表示させると
20 DEF SPRITE 0,(0,1,0,0,0)=CHR$(0)+CHR$(1)+CHR$(2)+CHR$(3)
この順番
「上左＋上右＋下左＋下右」に対応していて
[0][1]
[2][3]
が正常表示なら
[1][0]
[3][2]
が質問者様が提示したイメージとなります。

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。
大正解です。素晴らしいです。尊敬します。

類似のお兄さんですよね。
0,(0,1,0,1,0)このように１に変えると右向きに表示されますね。
ありがとうございました。

通報する

お礼日時：2010/11/03 03:35

No.6

回答者： ralf124c
回答日時：2010/11/02 12:09

たびたびすいません。

やっぱりFamily-BASICでした。
V3で検証したところ、あらかじめ用意された「某ゲームで有名な髭親父」のスプライトが画面真ん中を左から右へ移動します。

- 0
- 件

通報する

No.5

回答者： ralf124c
回答日時：2010/11/02 11:25

どうもこれはANo.2さんのHu-BASICが正しいようです。

一般的にはファミコン用のFamily-BASICの方が有名かも
MSX-BasicにはCGSETという命令はないので・・・一応MSXで動作確認してみました。
Family-BASICもあるのですがおしいれ深く入っていて出すのが面倒です。

- 0
- 件

通報する

No.4

回答者： tetsumyi
回答日時：2010/11/02 10:44

私もMSXbasicだと思います。

現在、このプロラムがWindows上でほとんどそのままで動く９９Basicがあります。
http://www.sagami.ne.jp/tadaka/99Basic/

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。

通報する

お礼日時：2010/11/03 03:26

No.3

回答者： AsanoNagi
回答日時：2010/11/02 08:45

古いパソコン用Basicによるものですね。

SPRITE というのは、文字の表示機構をグラフィック表示に流用することで、貧弱なハードウエアでそこそこの画像表示（多くは、アクションゲーム用）をこなすものです。

20 DEF SPRITE 0,(0,1,0,0,0)=CHR$(1)+CHR$(0)+CHR$(3)+CHR$(2)
ここで、外字定義と同じようなやり方で、ひとまとまり（概ね、画面上の１文字分）の画像パターンを定義しています。

40 FOR X=0 TO 240
50 SPRITE 0,X,120
60 PAUSE 3
70 NEXT

このあたりの命令で、画面の左端（0, 120)から右端（240, 120) まで画像を移動させています。
移動させるに当たって、表だって表示されていたものを消す → 新たな位置に表示させるという手間を分でないのがミソですね。

PAUSE は、移動が早くなりすぎないように時間稼ぎをしているものです。