Skip to content

Instantly share code, notes, and snippets.

@fu-sen

fu-sen/fuwafuwa.bas

Last active Dec 4, 2019
Embed
What would you like to do?
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

@tomaes tomaes commented May 19, 2019

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

@fu-sen

This comment has been minimized.

Copy link
Owner Author

@fu-sen fu-sen commented Dec 4, 2019

@tomaes

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

Wow! 😲 I noticed your program now.
I'm happy about that, but the characters are on the balloons. 🎈
It is an important element in this game.

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.