esbasic0017 のバックアップ(No.3)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
esbasic0017 へ行く。
- 1 (2019-12-10 (火) 16:37:35)
- 2 (2019-12-10 (火) 18:32:18)
- 3 (2019-12-12 (木) 13:30:55)
- 4 (2019-12-16 (月) 18:21:23)
- 5 (2019-12-17 (火) 12:54:20)

教材メモ

(by K, 2019.12.10)

うんてんゲーム

1000 OPENWIN 256,256
1010 DOLOOP
1020   Y=8; S=0; GCLS
1030   DOLOOP
1040     T=(RAND%15)+1; ECHR 15,T,2; // 白い丸
1050     T=(RAND%15)+1; ECHR 15,T,3,4; // 赤いバツ
1060     GETCHR 2,Y,T
1070     IF T==2 THEN S=S+1; FI; // 丸を取ったら加点
1080     GPRINTI 0,0,4,S
1090     IF T==3 GOTO CRASH
1100     ECHR 2,Y,6,6; // 自分（黄色の丸）を表示
1110     EWAIT 200
1120     I=EINKEY
1130     ECHR 2,Y,0
1140     IF I==4134 THEN IF Y> 1 THEN Y=Y-1; FI; FI
1150     IF I==4135 THEN IF Y<15 THEN Y=Y+1; FI; FI
1160     CLRKEYBUF
1170     SCROLL 0; CHRBOX 1,15,15,1,0
1180   ENDDO
1190   LABEL CRASH
1200   ECHR 2,Y,6,5; // 自分をピンク色に
1210   KWAIT 10; // enter:replay
1220 ENDDO

↑

じゃんぷゲーム

1000 OPENWIN 512,384
1010 DOLOOP
1020   GCLS
1030   CHRBOX 32,1,0,22,1,3
1040   CHRBOX 32,1,0,17,1,3
1050   CHRBOX 32,1,0,12,1,3
1060   CHRBOX 32,1,0, 7,1,3
1070   CHRBOX 32,1,0, 2,1,3
1080   FOR I=0,9
1090     X=(RAND%5)*5+6; Y=(RAND%3)*5+7; CHRBOX 2,1,X,Y,0
1100   NEXT
1110   FOR I=0,15
1120     X=(RAND%26)+4; Y=(RAND%19)+3; ECHR X,Y,3,4
1130     X=RAND%30;     Y=(RAND%19)+3; ECHR X,Y,2
1140   NEXT
1150   T=1000; X=0; Y=21; J=0
1160   IF HT<1000 THEN HT=1000; FI
1170   DOLOOP
1180     IF T<0 THEN T=0; FI
1190     GPRINTS 0,0,"GENKI:         HIGH:"
1200     GPRINTI 48,0,5,T
1210     GPRINTI 160,0,5,HT
1220     ECHR X,Y,6,6
1230     IF T<=0 GOTO FIN
1240     IF Y<=6 THEN IF X==31 THEN
1250       IF HT<T THEN HT=T; FI
1260       GPRINTS 376,8," << CLEAR !! >> ",0,2
1270       GOTO FIN
1280     FI; FI
1290     EWAIT 200
1300     I=EINKEY; IF I==4134 THEN I=32; FI
1310     ECHR X,Y,0; GETCHR X,Y+1,C
1320     IF I!=32 THEN IF J==1 THEN J=0; FI; FI
1330     IF I==32 THEN IF C==1 THEN J=1; FI; FI
1340     IF Y%5==3 THEN J=0; FI
1350     X=X+1; IF X==32 THEN X=0; Y=Y-5; FI
1360     IF J==1 THEN
1370       Y=Y-1
1380     ELSE
1390       GETCHR X,Y+1,C; IF C!=1 THEN Y=Y+1; FI
1400     FI
1410     T=T-1
1420     CLRKEYBUF
1430     GETCHR X,Y,C
1440     IF C==1 THEN Y=Y-1; FI
1450     GETCHR X,Y,C
1460     IF C==3 THEN T=T-400; FI
1470     IF C==2 THEN T=T+300; FI
1480   ENDDO
1490   LABEL FIN
1500   KWAIT 10; // enter:replay
1510 ENDDO

↑

こめんと欄

コメント	お名前	NameLink