かわのぼり

こちらも「かわくだり魔改造グランプリ」応募作品です。川の流れを逆方向にしました。

遊び方

カーソルキーの左右で、上から流れてくる岩に当たらないように避けて、川をさかのぼってください。
岩に当たると下へ押し下げられます。一番下まで下げられるとゲームオーバーになって、さかのぼったタイムが表示されます。

プログラム

1 '*Kawanobori
10 CLS:CLT:X=16:Y=6
20 X=X-BTN(28)+BTN(29)
25 X=X&31
30 IF SCR(X,Y) Y=Y+1:IF Y=23 GOTO 80
40 LC X,Y:?"O"
45 SCROLL 2
50 LC RND(32),1:?"*"
60 WAIT 3
70 GOTO 20
80 LC X,Y:?"X";
90 BEEP 30,30
100 LC 0,23:?TICK()/60

Web版はこちら。

SCROLLコマンドを使って画面を逆スクロールさせました。流れが逆になるだけで、だいぶ世界観が変わります。
このプログラムも、既存のかわくだりを改造すれば作れます。
なお60行のWAITは、Web版では画面表示が遅いので「WAIT 0」にしています。