プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2017/03/20 13:42:43

MixJuice GET URL : kidspod.club/mj/171

オセロ

オセロです。
コンピュータと対戦します。
コンピュータはそれなりに強いです。

・X,Yの入力時に8以上の数字を入力すると盤面を再表示します。
・コンピュータは置けるところが無い場合、自動的にパスします。
・人にはパス機能がありません。

  • 1
  • 1

SOURCE CODE

10 CLV:LET[1],63,56,7,18,45,42,21,16,47,2,61,40,23,58,5,26,37,19,44,34,29,43,20,17,46,13,114,138,53,41,22,24,59,39,132,96,60,31,3,25,51,38,12,33,52,30,11,49,14,9,54,1,55,6,57,15,1,48,62
20 LET[70],9,10,6,2,1,0,4,8:J=1:K=2:C=240
30 @A:GSB@S
40 @B:INPUT"X?",X:IFX>7GOTO@A
50 INPUT"Y?",Y:IFY>7GOTO@A
60 GSB@T:IFF=0?"NG!":GOTO@B
70 GSB@S:Z=0:J=2:IFK=2K=1ELSEJ=1:K=2
80 @H:X=[Z]&56>>3:Y=[Z]&7:GSB@T:Z=Z+1:IFF=0ANDZ!=60GOTO@H
90 ?"COM X";X;" Y";Y:J=2:IFK=2K=1ELSEJ=1:K=2
100 GOTO@A
110 @S:?"Y|01234567-X";:M=0:N=0:FORI=0TO63:IFI%8=0?CHR$(12):?I/8;"|";
120 B=[I]>>6:IFB=0?"-";ELSEIFB=1?"O";:M=M+1:ELSE?"X";:N=N+1
130 NEXT:?CHR$(12):?"O";M;" X";N:IFM+N=64END
140 RTN
150 @T:V=X:W=Y:F=0:IF[X+Y*8]>>6!=0RTN
160 FORI=70TO77:T=[I]&12>>2-1:U=[I]&3-1:V=V+T:W=W+U:IFV<0ORW<0ORV>7ORW>7:GOTOC
170 IF[V+W*8]>>6<>KGOTOC
180 @F:V=V+T:W=W+U:IFV<0ORV>7ORW<0ORW>7GOTOC
190 IF[V+W*8]>>6=KGOTO@F
200 IF[V+W*8]>>6<>JGOTOC
210 R=X:S=Y:F=1:[R+S*8]=[R+S*8]&63+64*J
220 @G:R=R+T:S=S+U:A=R+S*8:IF[A]>>6=JGOTOC
230 [A]=[A]&63+64*J:GOTO@G
240 V=X:W=Y:NEXT:RTN

COMMENT