• IchigoCake
• BASIC
• CakeRes
• CakeRes✕レトロゲームズ
• いわゆるスカッシュ
• ふうせんFU-SEN

NEW
VIDEO 1
PC.VIDEO 0
PC.RESET

10 'ResXRetro Squash
15 POKE #1E02,0:'1.3.2 bug
20 UART 1:VIDEO 0:PC.VIDEO 1
30 PC.SCREATE 0,#A6
40 PC.SMOVE 0,0,1
50 PC.SCREATE 1,#A6
60 PC.SMOVE 1,7,1
70 PC.SCREATE 2,#A6
80 PC.SMOVE 2,14,1
90 PC.SCREATE 3,#38
100 PC.SCREATE 4,#9B
110 PC.SSTART #1B
120 S=0:X=RND(72):Y=0:N=1:P=40
130 IF Y<40 M=1 ELSE M=-1
140 PC.SMOVE 3,X,Y
150 PC.SMOVE 4,P,40
160 WAIT 5
170 IF X+M<0 OR X+M>71 M=-M
180 IF Y+N<0 N=1
190 IF Y+N>45 GOTO 300
200 IF Y+N<35 OR Y+N>45 GOTO 260
210 IF X-P<-6 OR X-P>6 GOTO 260
220 S=S+1:N=-1
230 PC.SCREATE 0,#A6+S/100
240 PC.SCREATE 1,#A6+S%100/10
250 PC.SCREATE 2,#A6+S%10
260 X=X+M:Y=Y+N
270 P=P-BTN(28)*2+BTN(29)*2
280 P=(P+72)%72
290 GOTO 140
300 IF !BTN(32) CONT
310 PC.SSTART #FF
320 PC.VIDEO 0:VIDEO 1

'OK

Pagetop