新しく発言する  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 
Re: !続き3  返事を書く  ノートメニュー
SECOND <jjqdmekgpt> 2008/08/23 07:53:45
! 続き4
PLOT TEXT,AT xc4,2.5:" レベル 3 または 4  中級"
PLOT TEXT,AT xc4,3.0:" レベル 5       上級"
!
PLOT TEXT,AT xc4,4.0:"2. 入力方法"
PLOT TEXT,AT xc4,4.5:" 打つ手は、盤面に直接、左クリック入力して下さい。"
PLOT TEXT,AT xc4,5.0:" 盤面上で、コマが回転しますから、"
PLOT TEXT,AT xc4,5.5:" 重ねてクリックすると、入力決定します。"

PLOT TEXT,AT xc4,6.5:" 他の位置に移動するとキャンセルして、やり直せます。"
PLOT TEXT,AT xc4,7.0:" 右クリックは、中止になります。"
!
PLOT TEXT,AT xc4,8.0:" 2008年8月11日"
!
CALL ack(xc4+xc2, 9, "<読み終ったら> ")
END SUB

SUB ack(x,y,w$)
LET x1=x+LEN(w$)*xc
PLOT TEXT,AT x,y :w$
PLOT TEXT,AT x1,y :"左クリック:OK."
PLOT TEXT,AT x1,y+0.5 :"右クリック:中止。"
DO
MOUSE POLL mx,my,mlb,mrb
WAIT DELAY 0
LOOP UNTIL mlb=1 OR mrb=1
IF mlb=0 THEN
SET TEXT COLOR "red"
!SET TEXT HEIGHT 0.6
PLOT TEXT,AT x, y+1.5:"中止しました。"
STOP
END IF
END SUB

!--------------------
SUB printA32
PRINT right$("0000000"&BSTR$(AR0,16),8)
END SUB

SUB printr
FOR i=1 TO 20 STEP 2
PRINT right$("0"&BSTR$(ORD(r$(i+1:i+1)),16),2);right$("0"&BSTR$(ORD(r$(i:i)),16),2);" ";
NEXT i
FOR i=21 TO LEN(r$)
PRINT right$("0"&BSTR$(ORD(r$(i:i)),16),2);" ";
NEXT i
PRINT
END SUB

END
  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回)
      └!続き4 SECOND 2008/09/13 18:56:52  (修正1回)
       └DELETED  SECOND  2008/09/13 19:28:19  (削除)

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