Petitverse

プチコン非公式コミュニティトピック

ここあ ◆cNXcKm243Rna
2018/1/22 20:13

質問

文字を1文字ずつ表示する処理

文字を1文字ずつ表示する（ポケモンやドラクエみたいな）プログラムを書いたのですが、非常に長ったらしいプログラムになってしまいまさした。
簡潔にかきたいのですが、どうすればよいでしょうか。

こういち 2018/1/22 20:20 ◆ou0jbJnEJ0Kb

DIM TEXT$="正義なんて人が勝手に決めたへりくつですよ。"
VAR I
LOCATE 0,25
FOR I=0 TO LEN(TEXT$)-1
　WAIT 29*(BUTTON()==0)+1
　PRINT TEXT$[i];
NEXT I
こんな感じですか？

こういち 2018/1/22 20:47 ◆ou0jbJnEJ0Kb

上の
WAIT 29*(BUTTON()==0)+1
は
WAIT 29*!BUTTON()+1
でも大丈夫です。4文字短くなるので、短さを追求したい場合にどうぞ。

ホラムーン 2018/1/22 20:53 ◆uyXAks2Ee1EU

こういちさん»
このセリフ…深いッ！

はる 2018/1/22 22:44 ◆75Vh4SY8TdKS

DEF TPRINT T$,F
FOR I=0 TO LEN(T$)-1
?T$[I];
WAIT F
NEXT

とすれば、
TPRINT "正義なんて人が勝手に決めたへりくつですよ。",9
というように、自作命令として使うこともできます。
(TPRINTの所には好きな命令名を入れて下さい)

ここあ 2018/1/23 17:42 ◆cNXcKm243Rna

ありがとうございます！
簡略化でき、非常に短縮できました！

ここあ 2018/1/24 23:23 ◆cNXcKm243Rna

>>はるさん
TPRINTの命令で、文字を表示する座標を指定することはできますか？

はる 2018/1/25 4:38 ◆75Vh4SY8TdKS

座標に関しては弄ってないので、
普通のLOCATE命令で指定できますよ。

ここあ 2018/1/25 7:23 ◆cNXcKm243Rna

ありがとうございます！

みどり 2018/7/8 13:14 ◆UuFOYlGswjhS

一番簡単なプログラム　?"あ":WAIT 60:?"り": WAIT60　みたいなのをくり返せばできます。