出来れば、文字を、カーソルが決まった所にきて、決まったボタンを押すと、列一つ分スクロールする方法を教えてください！

バトル画面のプログラムは、ここから･･･

ここの少し先です。(そこは、表示する文字です。)

文字の表示はできました！

ちょっと眺めてみたのですが、画像だけではちょっとわからないですね…… 公開キーはありますか？ （WHILE ループの中に GOTO 文が仕込まれているので、ちょっとこのプログラムは怪しい動きをする可能性が高いのではないかと思ってはいるのですが）

公開キーは出していませんが、別に､おかしい動きはしません。 文字の表示は出来たので、最初の投稿(知りたいことが書いてある投稿)で2つ目のやり方は、分かりますか？

すみません、ちょっと質問の意味が分からないです。 具体的にはどういう動きをさせたいんですか？

この様な動きです。 　～～～ 　～～～ 　～～～ 　～～～ →～～～ この様になっていて、決まったボタンを押すと、一番うえの文字が消えて、下から新しい文字が出てくると言うのをやりたいです。

となると…… LOCATE PRINT IF ～ THEN ～ BUTTON WHILE ～ WEND GOSUB ～ RETURN の組み合わせでできると思いますが、これらの命令は全部分かりますか？

はい、分かります。

とすると、簡単にいうとこんな感じかなぁ。 色々端折ってますので、これを適当に修正してください。 NEXT_LINE=1 LINE=5 DIM MSGDATA$[10],MSG$[10] MSGDATA$[0]="1行目" MSGDATA$[1]="2行目" ' 以下必要な分だけ定義

FOR I=0 TO 9:MSG$[I]=MSGDATA$[I]:NEXT WHILE TRUE IF BUTTON() == #A THEN GOSUB @MSG_CLS GOSUB @MSG ENDIF WEND

@MSG_CLS LOCATE X,Y FOR I=0 TO LINE-1:PRINT " ":NEXT RETURN

@MSG LOCATE X,Y FOR I=0 TO LINE-1 PRINT MSG$[I] IF NEXT_LINE+I<10 THEN MSG$[I]=MSGDATA$[NEXT_LINE+I] ELSE MSG$[I]="" ENDIF NEXT INC NEXT_LINE RETURN

そのプログラムのみで動きますか？

いろいろ端折っているので、これだけじゃ動かないです。 どうしても、といのであれば、 ACLS X=0:Y=0 とつけ加えて、WHILE ～ TRUE の中にVSYNC を追加して、BUTTON() の判定をBUTTON(2) に変更し、@MSG の先頭にLOCATE X:Y を追加すればサンプルとして動きが確認できるとは思います。

ありがとうございました！