• Ichigojam
• mobileB2

10 H=0:S=0
20 A=RND(14):B=0:C=RND(3)+1
30 D=RND(14):E=0:F=RND(3)+1
40 X=7:Y=7
50 CLS
55 LC 0,0:?"S:";S
60 LCX-1,Y:?"@@@";
70 LCA,B:?"*";
80 LCD,E:?"*";
81 IF H=1 PLAY"CC":LC0,1:END
100 IF BTN(LEFT)*(X>0) X=X-1
110 IF BTN(RIGHT)*(X<13) X=X+1
120 B=B+C:C=C+1
130 E=E+F:F=F+1
150 IF(X-1<=A)*(A<=X+1)*(Y<=B) B=Y:H=1
151 IF(X-1<=D)*(D<=X+1)*(Y<=E) E=Y:H=1
160 IF Y<B A=RND(14):B=0:C=RND(3)+1:S=S+1
161 IF Y<E D=RND(14):E=0:F=RND(E)+1:S=S+1
170 WAIT20:GOTO50

Pagetop