Skip to content

Instantly share code, notes, and snippets.

@fu-sen fu-sen/fuwafuwa.bas
Last active May 19, 2019

Embed
What would you like to do?
フワフワ Fuwafuwa | IchigoJam BASIC 1.0.0+ https://15jamrecipe.jimdo.com/
10 'フワフワ
20 CLS:CLV:CLP:X=16:Y=1
30 L=S/50:IF L>15 L=15
40 B=RND(16+L)+((15-L)/2)
50 LC B,23:?CHR$(232)
60 X=X-(BTN(28))+(BTN(29))
70 IF V OR W Y=Y-1 ELSE Y=Y+1
80 IF X<1 OR X>30 GOTO 150
90 IF Y<1 OR Y>22 GOTO 150
100 V=SCR(X,Y):W=SCR(X,Y+1)
110 LC X,Y:?CHR$(237);
120 S=S+1:WAIT 5
130 LC B,23:?CHR$(242);
140 LC X,Y:?CHR$(V);:GOTO 30
150 LC X,Y-1:?CHR$(244);
160 LC 0,23:?"SCORE ";S
@tomaes

This comment has been minimized.

Copy link

commented May 19, 2019

Hi! I ported this to GW-BASIC and changed/extented it a bit:
https://gist.github.com/tomaes/e2de81ed13f868c96fc4262151e0a948

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.