内容は上から落ちてくる人を箱に入れるミニゲームです。 初めてのOSPなのでもっと省略できるかもしれません。省略できるところがあれば教えて頂けないでしょうか？ ソースコードはコメントにのせます。

これがソースコードです。

一文字だけ修正

一文字だけではありませんでした。 すみません

とりあえず、変数名を一文字にして、行頭のスペースを消してみよーか。

ちーたけさん» 変数名を1文字にし、行頭のスペースを消しました。 他に省略できるところはないでしょうか？

:を極力少なくする。 A=0:B=0 C=0:IF ～～～THEN 　　↓ ↓ A=0B=0 C=0IF ～～～THEN 等にする。

しょぼーんさん» :を省略出来そうなところを省略しました。 まだ省略できないでしょうか？

このプログラムには10とか150がよく有るから、何か一文字の変数に置き換えるのも良いかも。 150,150,150を A=150 A,A,A にするように

28行目のBUTTON()を変数に入れずに直接判定。みたいな 後、スペース減らすとか?例えばTHENと数字のスペース うーん じゃ、2,3行を合わせちゃうとか...。 このプログラムにあったかわからないけどIFの条件式を反対にしたら1文字縮められるかも IF-1==INSTR(A$,"N")THEN みたいな

1000‰さんの提案の「数値を一文字の変数に置き換える」と、 ヨッシーさんの提案の「28行目のBUTTONを直接判定」を採用しました。 今日までは投稿を受け付けますので、他に省略できるところがあればぜひ提案してください。

@の前のスペースを省略したらどうでしょうか?

・A=150-((Q…にすれば、W-Aの部分をAに して2行目のW=150を消せる。 ・14行目はK=(K+1) MOD 10 ・18行目BEEPの0+は要らない。 ・21行目は不等号を使えば短くできる。 ・20行目と21行目は、 IF (20行目の条件式)×(21行目の条件式) とまとめられ(21行目を短くすれば入るはず)、23行目のENDIFは1消せる。 ・メインループにWHILEではなく@を使う。 ・FOR S=0の後ろの空白1マスは消せるはず。 間違ってたらごめんなさい。

「ENDIFは1つ消せる」だった

あと、4行目はBREPEAT2回使ったほうが短い

受け付けを終了します。 皆さん本当に御回答ありがとうございました。