今回は石の描画までやってみた。置かれてる石の色を表す配列を作り、その要素を1つずつ取り出してGCIRCLEで描画している。次回は入力された場所に石を描画するようにしたい。簡単に一部の変数の説明を載せておく
- BD 置かれてる石の色を表す2次元配列
- MX X方向にボードをずらす量
- MY Y方向にボードをずらす量
- C 1マスのサイズ
- W ボードのサイズ
CLEAR PNLTYPE"OFF" GPAGE 1 @START GCLS15 DIM BD(10,10) MX=50 MY=15 C=20 W=8*C GBOX MX,MY,W+MX,W+MY GPAINT MX+1,MY+1,10 FOR I=0 TO 8 L=C*I GLINE MX,L+MY,W+MX,L+MY,14 GLINE L+MX,MY,L+MX,W+MY,14 NEXT BD(4,4)=1 BD(4,5)=2 BD(5,4)=2 BD(5,5)=1 GOSUB @DRAW @LOOP GOTO @LOOP @DRAW FOR Y=0 TO 8 FOR X=0 TO 8 ST=BD(X,Y) IF ST>0 THEN GOSUB @STONE NEXT NEXT RETURN @STONE DX=X*C+MX-10 DY=Y*C+MY-10 GCIRCLE DX,DY,8,14+ST GPAINT DX,DY,8,14+ST RETURN