Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2016/12/29 03:29:03

MixJuice GET URL : kidspod.club/mj/134

H05

H05

イチゴ集め(ゲームのもと・改造用としてup)

後日改造予定
(クラウド機能として利用)

  • No registered tag exist.

SOURCE CODE

5 'イチコ゛アツメ.1
100 G=0
120 X=16:Y=20
130 T=1800:CLT
200 A=3+RND(26)
210 B=3+RND(12)
220 CLS
230 LC A,B:? CHR$(#FF)
240 LC X,Y:? CHR$(#F9)
250 LC 15,0:? "GET:";G:
300 LC 0,0:? "TIME:";T-TICK();" "
310 LC X,Y:? " "
320 K=INKEY()
330 IF K=28 IF X>3 X=X-1
340 IF K=29 IF X<28 X=X+1
350 IF K=30 IF Y>3 Y=Y-1
360 IF K=31 IF Y<20 Y=Y+1
370 LC X,Y:? CHR$(#F9)
400 IF T-TICK() <= 0 GOTO 500
410 IF X=A AND Y=B G=G+1:GOTO 200
420 GOTO 300
500 LC 10,14:? "GAME END"
510 END

COMMENT