Program post site for everyone
ななめスクロールの川くだりです。
左上の数字がスコアです。操作は左右キーです。
１００点ごとにスピードが上がりますが、
なんとなくまったりとしたゲームにしたかったので、
スピードはゆっくりにしてます。
お茶でも飲みながらやってください。
10 CLS:CLV:FOR I=0 TO 1:LC 0,RND(23):?"*";:LC Z,X:?CHR$(0):LCRND(31),23:?"*":SCROLL 1:K=INKEY():CLK:X=X+(K=29)*(X<15)-(K=28)*(X>0):Z=16+X:I=SCR(Z,X):LC Z,X:?CHR$(#ED):S=S+1:LC 0,0:?S:WAIT15-S/100:NEXT
斜めスクロール！ この発想は見事ですね。元々の川下りから、グッと印象が変わりました。表示しているキャラクタも相まって、宇宙探検みたいなイメージを持ちました。これを1行で書くという手腕もすごい！
