新しく発言する  EXIT  インデックスへ

パソコンが相手をしない「リバーシゲーム」


  パソコンが相手をしない「リバーシゲーム」 荒田浩二 2008/09/07 22:24:58 
  !<その2> 荒田浩二 2008/09/07 22:28:58 
  !<その3> 荒田浩二 2008/09/07 22:34:40 
  !<その4> 荒田浩二 2008/09/07 22:36:50 
  !<その5> 荒田浩二 2008/09/07 22:38:44 
  !<その6> 荒田浩二 2008/09/07 22:42:31 
  !<その7> 荒田浩二 2008/09/07 22:46:36 
  !<その8> 荒田浩二 2008/09/07 22:50:34 
Re: パソコンが相手をしない「リバーシゲーム」  返事を書く  ノートメニュー
荒田浩二 <knrztrhoel> 2008/09/07 22:50:34
!<その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>に続く
  !<その9> 荒田浩二 2008/09/07 22:53:02 
  !<その10> 荒田浩二 2008/09/07 22:55:29 
  !<その11> 荒田浩二 2008/09/07 22:56:46 

 インデックスへ  EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。