BASICで2Dゲーム制作
提出日: 8/3/2024
状態: Not specified
ユーザーコメント
コード内容
10 CLS
20 CLT
30 X=16
40 Y=5
50 K=INKEY()
60 X=X+(K=29)-(K=28)
70 IF SCR(X,Y) PRINT TICK():END
80 LC X,Y
90 PRINT "V"
100 LC RND(32),23
110 PRINT "*"
120 WAIT 5
130 GOTO 50提出日: 8/3/2024
状態: Not specified
10 CLS
20 CLT
30 X=16
40 Y=5
50 K=INKEY()
60 X=X+(K=29)-(K=28)
70 IF SCR(X,Y) PRINT TICK():END
80 LC X,Y
90 PRINT "V"
100 LC RND(32),23
110 PRINT "*"
120 WAIT 5
130 GOTO 50