!<その8>
LET L8=31.5
SET TEXT JUSTIFY "RIGHT","BASE"
PLOT TEXT ,AT a1,L8 : "着手点の表示 :"
SET TEXT JUSTIFY "LEFT","BASE"
PLOT TEXT ,AT 11,L8 : "あり"
PLOT TEXT ,AT 17,L8 : "なし"
DRAW CIRCLE WITH SCALE(a4)*SHIFT(10,L8-a4)
DRAW CIRCLE WITH SCALE(a4)*SHIFT(16,L8-a4)
SET AREA COLOR 0
PAINT 10,L8-a4
PAINT 16,L8-a4
SET AREA COLOR bb
IF putcol<>0 THEN LET a6=10 ELSE LET a6=16
DRAW DISK WITH SCALE(a5)*SHIFT(a6,L8-a4)
LET L9=34.5
SET TEXT JUSTIFY "RIGHT","BASE"
PLOT TEXT ,AT a1,L9 : "画面の解像度 :"
SET TEXT JUSTIFY "LEFT","BASE"
SET AREA COLOR 0
FOR i=1 TO 5
PLOT TEXT,AT 4.5+6*i,L9:STR$(pixd(i,1))&"*"&STR$(pixd(i,2))
DRAW CIRCLE WITH SCALE(a4)*SHIFT(4+6*i,L9-a4)
PAINT 4+6*i,L9-a4
NEXT i
SET AREA COLOR bb
DRAW DISK WITH SCALE(a5)*SHIFT(4+6*pix,L9-a4)
LET mx=18 ! [設定]ボタン表示
LET my=43 ! ボタンの左上点
LET mbw=4 ! ボタン幅
LET mbh=2 ! ボタン高
DRAW button01(0,5,"設 定",0.6*mbh,8) WITH SCALE(mbw,mbh)*SHIFT(mx,my)
SET DRAW MODE EXPLICIT
SET TEXT HEIGHT 1
! メニュー選択操作
DO
DO
GET POINT : x,y
IF x>=mx AND x<=mx+4 AND y>=my AND y<=my+1.8 THEN EXIT DO
SET DRAW MODE HIDDEN
SELECT CASE y
CASE 5 TO 7.5 ! m=3〜16 マス数(横)
CALL choose(L1+1,3,m9,m)
CASE 8 TO 10.5 ! n=3〜16 マス数(縦)
CALL choose(L2+1,3,m9,n)
CASE 12 TO 14.5 ! b=0〜9 先手の石の色
CALL choose(L3+1,0,9,b)
CASE 15 TO 17.5 ! w=0〜9 後手の石の色
CALL choose(L4+1,0,9,w)
CASE 19 TO 21.5 ! board=2〜11 盤面の色
CALL choose(L5+1,2,11,board)
CASE 23 TO 25.5 ! ground=2〜11 背景の色
CALL choose(L6+1,2,11,ground)
CASE 27.2 TO 29 ! iss=0,1 初期の配置
IF x>=9 AND x<=13 THEN
SET AREA COLOR 0
FLOOD 16,L7-a4
SET AREA COLOR bb
DRAW DISK WITH SCALE(a5)*SHIFT(10,L7-a4)
LET iss=0
ELSEIF x>=15 AND x<=19 THEN
SET AREA COLOR 0
FLOOD 10,L7-a4
SET AREA COLOR bb
DRAW DISK WITH SCALE(a5)*SHIFT(16,L7-a4)
LET iss=1
END IF
!<その9>に続く
|
新しく発言する
EXIT
インデックスへ
返事を書く 
ノートメニュー