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

パソコンが相手をする「オセロ・ゲーム」勝...

　　パソコンが相手をする「オセロ・ゲーム」勝てるか？ SECOND 2008/08/23 07:49:16 
　　├!続き1 SECOND 2008/08/23 07:50:29 
　　│└!続き2 SECOND 2008/08/23 07:51:40 
　　│　└!続き3 SECOND 2008/08/23 07:52:45 
　　│　　└!続き4 SECOND 2008/08/23 07:53:45 
　　├Win98SEの方で「0th33p.dllをロードできない... SECOND 2008/09/13 18:00:37 
　　└!コンピューターの打つ手を、ゆっくり確認出... SECOND 2008/09/13 18:50:45  (修正1回)
　　　└!続き1 SECOND 2008/09/13 18:52:22  (修正1回)
　　　　└!続き2 SECOND 2008/09/13 18:53:47  (修正1回)
　　　　　└!続き3 SECOND 2008/09/13 18:55:17  (修正2回)
Re: !続き2 返事を書く ノートメニュー
SECOND <jjqdmekgpt> 2008/09/13 18:55:17 ** この記事は2回修正されてます
! 続き3
SET TEXT COLOR 1
END SUB

SUB messYOU2(w$)
SET TEXT COLOR "red"
PLOT TEXT,AT XL,YY+2.5:w$
SET TEXT COLOR 1
END SUB

!-----
SUB YOU0
!-----
CALL sens( CPL+t_)
LET PP=AR0
!-----
CALL messYOU("　　　　　　　　　　")
IF PP<3 THEN
IF PP=0 THEN
LET w$="パス ですね。"
ELSE
IF PP=2 THEN
LET w=ORD(r$(17:17))
LET w$=CHR$(64+MOD(w,16))&CHR$(48+IP(w/16))&"と"
ELSE
LET w$=""
END IF
LET w=ORD(r$(16:16))
LET w$=w$&CHR$(64+MOD(w,16))&CHR$(48+IP(w/16))&"だけです。"
END IF
CALL messYOU(w$)
END IF
PLOT TEXT,AT XL,YY+2 :"何処 ? ＿　　　　　 "
IF PP=0 THEN
CALL SEL(7.5, 9.5," PASS", 7.5, 10,"クリックして下さい。", 7.5,xc*6,-1,0)
LET Y=9
LET X=9 ! Pass ok.
ELSE
CALL mousexy
END IF
END SUB

!-----
SUB COMP0
PLOT TEXT,AT XL,YC+0.5 :"考えています　"
CALL TM0( G3,0)
!-----
CALL sens( CMN)
!-----
LET Z0=AR0
LET PP=ORD(r$(1:1))
!----ステータス表示
LET G1=ORD(r$(18:18))+256*ORD(r$(19:19))+65536*ORD(r$(20:20))
LET G2=( ORD(r$(14:14))+256*ORD(r$(15:15))-32768 )/256
CALL TM0( G3,G3)
IF G3<1 THEN LET G3=1
PLOT TEXT,AT XL,YC+2 :"|"&USING$("#######",G1)&USING$("#######",G3)&" sec |"
IF G1=0 THEN
PLOT TEXT,AT XL,YC+2.5 :"| ------"
ELSE
PLOT TEXT,AT XL,YC+2.5 :"|"&USING$("####.##",G2)
END IF
PLOT TEXT,AT XL+1.56,YC+2.5 :USING$("#######.##",G1/G3)&"　|"
!----返答
PLOT TEXT,AT XL,YC+0.5 :REPEAT$(" ",16)
IF PP=0 THEN
SET TEXT COLOR "red"
PLOT TEXT,AT XL,YC+0.5 :"パス です。"
SET TEXT COLOR 1
LET Y=9
LET X=9
ELSE
LET Y=IP(Z0/16)
LET X=MOD(Z0,16)
END IF
PLOT TEXT,AT XL,YC+0.5: CHR$(64+X)&CHR$(48+Y)&" です。"
IF pp<>0 THEN CALL ackB("私の手、確認して、左クリック")
END SUB

SUB ackB(w$)
PLOT TEXT,AT 4,10: w$
CALL blink
PLOT TEXT,AT 4,10: REPEAT$(" ",LEN(w$))
END SUB

SUB ack(x,y,w$)
LET x1=x+LEN(w$)*xc+xc2
PLOT TEXT,AT x,y :w$
PLOT TEXT,AT x1,y :"左クリック：ＯＫ．"
PLOT TEXT,AT x1,y+0.5 :"右クリック：終了。"
DO
LET rb=mrb
LET lb=mlb
MOUSE POLL mx,my,mlb,mrb
WAIT DELAY 0
LOOP UNTIL lb<mlb OR rb<mrb
IF rb<mrb THEN
SET TEXT COLOR "red"
PLOT TEXT,AT x, y+1.5:"終了しました。"
STOP
END IF
END SUB

!-----
SUB note0
CLEAR
PLOT TEXT,AT xc4,0.5:"　***　小山オセロ　ver.7.0　***"
!
PLOT TEXT,AT xc4,1.5:"１．　コンピュータの強さ"
PLOT TEXT,AT xc4,2.0:"　レベル １ または ２　　初級"
PLOT TEXT,AT xc4,2.5:"　レベル ３ または ４　　中級"
PLOT TEXT,AT xc4,3.0:"　レベル ５　　　　　　　上級"
!
PLOT TEXT,AT xc4,4.0:"２．　入力方法"
PLOT TEXT,AT xc4,4.5:"　打つ手は、盤面に直接、左クリック入力して下さい。"
PLOT TEXT,AT xc4,5.0:"　盤面上で、コマが回転しますから、"
! 続き4
 
　　　　　　└!続き4 SECOND 2008/09/13 18:56:52  (修正1回)
　　　　　　　└DELETED  SECOND  2008/09/13 19:28:19  (削除)

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