bellyoshi
edit= 今回までのソース
{{{
#------------------------------------------
#【ソフト名】 オセロゲーム（人対ちょっと考えるコンピュータ）
#【 作 者 】 bellyoshi
#【 U R L 】 http://sourceforge.jp/users/bellyoshi/pf/ReversiGame/wiki/FrontPage
#【連 絡 先】 tccwas@gmail.com
#【 転載 】 全て許可
#【なでしこのバージョン】 ver.1.547
#【 実行 の 注意点 】 なし
#【 紹 介 】 コンピュータはちょっと考えて打ちます。
!変数宣言が必要
枠幅とは整数。枠幅は40。
左余白とは整数。左余白は300。
上余白とは整数。上余白は30。
現在局面とは局面。
現在局面を盤描画。
あなたとは文字列。
コンピュータとは文字列。
「あなたは黒ですか？」と二択。
もし、それがはいならば
あなたは「黒」。
コンピュータは「白」
違えば
あなたは「白」。
コンピュータは「黒」。
「あなたが{あなた}でコンピュータが{コンピュータ}で開始します。」と言う。
評価表とは配列。
評価表\0,0=45。評価表\0,1=-4。評価表\0,2=8。評価表\0,3=2。評価表\0,4=2。評価表\0,5=8。評価表\0,6=-4。評価表\0,7=45。
評価表\1,0=-4。評価表\1,1=-12。評価表\1,2=-5。評価表\1,3=-2。評価表\1,4=-2。評価表\1,5=-5。評価表\1,6=-12。評価表\1,7=-4。
評価表\2,0=8。評価表\2,1=-1。評価表\2,2=4。評価表\2,3=-1。評価表\2,4=-1。評価表\2,5=4。評価表\2,6=-1。評価表\2,7=-8。
評価表\3,0=2。評価表\3,1=-2。評価表\3,2=-1。評価表\3,3=0。評価表\3,4=0。評価表\3,5=-1。評価表\3,6=-2。評価表\3,7=2。
評価表\4,0=2。評価表\4,1=-2。評価表\4,2=-1。評価表\4,3=0。評価表\4,4=0。評価表\4,5=-1。評価表\4,6=-2。評価表\4,7=2。
評価表\5,0=8。評価表\5,1=-1。評価表\5,2=4。評価表\5,3=-1。評価表\5,4=-1。評価表\5,5=4。評価表\5,6=-1。評価表\5,7=-8。
評価表\6,0=-4。評価表\6,1=-12。評価表\6,2=-5。評価表\6,3=-2。評価表\6,4=-2。評価表\6,5=-5。評価表\6,6=-12。評価表\6,7=-4。
評価表\7,0=45。評価表\7,1=-4。評価表\7,2=8。評価表\7,3=2。評価表\7,4=2。評価表\7,5=8。評価表\7,6=-4。評価表\7,7=45。
もし現在局面の手番がコンピュータならば
思考する。
■局面とは
・手番
・配置
・終局
・前手番
・飛ばした
・作る～
手番は「黒」
配置は、
「空,空,空,空,空,空,空,空,{改行}」＆
「空,空,空,空,空,空,空,空,{改行}」＆
「空,空,空,空,空,空,空,空,{改行}」＆
「空,空,空,黒,白,空,空,空,{改行}」＆
「空,空,空,白,黒,空,空,空,{改行}」＆
「空,空,空,空,空,空,空,空,{改行}」＆
「空,空,空,空,空,空,空,空,{改行}」＆
「空,空,空,空,空,空,空,空」。
終局はいいえ。
飛ばしたはいいえ。
前手番は「空」
・複製(引継局面で)～
手番は引継局面→手番。
配置は引継局面→配置。
終局は引継局面→終局。
飛ばしたは引継局面→飛ばした。
前手番は引継局面→前手番。
・ひっくり返せる(横位置,縦位置から横方向,縦方向へ)～
横とは整数。横は横位置+横方向。
縦とは整数。縦は縦位置+縦方向。
もし、横,縦が盤中ならば
違えば
それはいいえ。戻る。
石とは文字列。石は配置\縦,横
もし石が「空」なら
それはいいえ。戻る。
もし石が手番なら
それはいいえ。戻る。
横に横方向を直接足す。
縦に縦方向を直接足す。
(横,縦が盤中)の間
石は配置\縦,横。
もし、石が「空」なら
それはいいえ。戻る。
もし、石が手番なら
それははい。戻る。
横に横方向を直接足す。
縦に縦方向を直接足す。
それはいいえ。
・ひっくり返す(横位置,縦位置から横方向,縦方向へ)～
横とは整数。横は横位置+横方向。
縦とは整数。縦は縦位置+縦方向。
(横,縦が盤中)の間
石とは文字列。石は配置\縦,横。
もし、石が「空」なら戻る。
もし、石が手番なら戻る。
配置\縦,横は手番。
横に横方向を直接足す。
縦に縦方向を直接足す。
・打つ(横,縦に)～
配置\縦,横は手番。
もし、横,縦から0,1へひっくり返せるならば
横,縦から0,1へひっくり返す。
もし、横,縦から0,-1へひっくり返せるならば
横,縦から0,-1へひっくり返す。
もし、横,縦から1,0へひっくり返せるならば
横,縦から1,0へひっくり返す
もし、横,縦から1,-1へひっくり返せるならば
横,縦から1,-1へひっくり返す。
もし、横,縦から1,1へひっくり返せるならば
横,縦から1,1へひっくり返す。
もし、横,縦から-1,0へひっくり返せるならば
横,縦から-1,0へひっくり返す。
もし、横,縦から-1,1へひっくり返せるならば
横,縦から-1,1へひっくり返す。
もし、横,縦から-1,-1へひっくり返せるならば
横,縦から-1,-1へひっくり返す。
・置ける(横,縦に)～
石とは文字列。石は配置\縦,横
もし、石が「空」ならば
違えば
それはいいえ。戻る。
もし、横,縦から0,1へひっくり返せるならば
それははい。戻る。
もし、横,縦から0,-1へひっくり返せるならば
それははい。戻る。
もし、横,縦から1,0へひっくり返せるならば
それははい。戻る。
もし、横,縦から1,-1へひっくり返せるならば
それははい。戻る。
もし、横,縦から1,1へひっくり返せるならば
それははい。戻る。
もし、横,縦から-1,0へひっくり返せるならば
それははい。戻る。
もし、横,縦から-1,1へひっくり返せるならば
それははい。戻る。
もし、横,縦から-1,-1へひっくり返せるならば
それははい。戻る。
それはいいえ。
・着手不可～
横とは整数。
横で0から7まで繰り返す
縦とは整数。
縦で0から7まで繰り返す
もし、横,縦に置けるならば
それはいいえ。
戻る。
それははい。
・手番交代～
自身→手番は自身→手番を反転。
飛ばしたはいいえ。
もし、着手不可ならば
前手番は手番。
手番は手番を反転。
もし、着手不可ならば
終局ははい。
違えば
飛ばしたははい。
●盤描画({グループ}対象局面を)
線太さは1
横とは整数。
縦とは整数。
横で0から7まで繰り返す
縦で0から7まで繰り返す
線色は黒色。塗り色は白色。
横×枠幅+左余白,縦×枠幅+上余白から(横+1)×枠幅+左余白,(縦+1)×枠幅+上余白へ四角。
石とは文字列。石は対象局面→配置\縦,横
もし石が「白」なら
線色は黒色。塗り色は白色。
横×枠幅 + 2 +左余白,縦×枠幅+2+上余白から(横+1)×枠幅+左余白-2,(縦+1)×枠幅+上余白-2へ円。
もし石が「黒」なら
線色は黒色。塗り色は黒色。
横×枠幅 + 2 +左余白,縦×枠幅+2+上余白から(横+1)×枠幅+左余白-2,(縦+1)×枠幅+上余白-2へ円。
#-----マウス判定--------------------------------------------------------
母艦のマウス押した時は
入力横とは整数。
入力縦とは整数。
入力横は(母艦のマウスX-左余白)/枠幅。
入力縦は(母艦のマウスY-上余白)/枠幅。
入力横＝入力横を切り下げ。
入力縦＝入力縦を切り下げ。
もし、あなたが現在局面の手番ならば
もし、入力横,入力縦が盤中ならば
もし、現在局面の入力横,入力縦に置けるならば
現在局面の入力横,入力縦に打つ。
現在局面を盤描画。0.01秒待つ。
現在局面で手番交代及び表示。
違えば
「{入力横},{入力縦}に{現在局面→手番}は置けません」と言う。
●盤中(横位置,縦位置が)
もし、0>横位置ならば
それはいいえ。戻る。
もし、横位置>7ならば
それはいいえ。戻る。
もし、0>縦位置ならば
それはいいえ。戻る。
もし、縦位置>7ならば
それはいいえ。戻る。
それははい。
●勝敗判定
黒石数とは整数。黒石数は0。
白石数とは整数。白石数は0。
横とは整数。
横で0から7まで繰り返す
縦とは整数
縦で0から7まで繰り返す
石とは文字列。石は現在局面の配置\縦,横
もし、石が「白」ならば
白石数は白石数+1。
もし、石が「黒」ならば
黒石数は黒石数+1。
もし白石数>黒石数ならば
「{白石数}対{黒石数}で白の勝ちです。」と言う。
もし白石数<黒石数ならば
「{白石数}対{黒石数}で黒の勝ちです。」と言う。
もし白石数=黒石数ならば
「{白石数}対{黒石数}で引き分けです。」と言う。
●空数({グループ}対象局面で)
数とは整数。数は0。
横とは整数。
横で0から7まで繰り返す
縦とは整数。
縦で0から7まで繰り返す
石とは文字列。石は対象局面→配置\縦,横。
もし、石が「空」ならば
数は数+1。
それは数。
●思考する。
仮打局面とは変数。
仮打局面を局面として作成。
最善手横とは整数。最善手横は-1。
最善手縦とは整数。最善手縦は-1。
最善手評価とは整数。最善手評価は-9999。
深さとは整数。深さは3。
空数量とは整数。空数量は現在局面で空数。
もし、空数量＜10ならば
深さは空数量+1。
横とは整数。
横で0から7まで繰り返す
縦とは整数。
縦で0から7まで繰り返す
もし、現在局面の横,縦に置けるならば
評価とは整数。
仮打局面→複製(現在局面で)。
仮打局面→打つ(横,縦に)。
仮打局面→手番は仮打局面→手番を反転。
評価は仮打局面,深さ,真で思考ルーチン評価
もし、最善手評価＜評価ならば
最善手評価は評価。
最善手縦は縦。
最善手横は横。
もし、空数量＜10ならば
「評価は{最善手評価}です。」と表示。
もし、最善手評価=-9999ならば
「最善手-9999失敗」と言う。
現在局面の最善手横, 最善手縦に打つ
現在局面を盤描画。
現在局面で手番交代及び表示。
●思考ルーチン評価({グループ}対象局面,深数,打で)
仮打局面とは変数。
仮打局面を局面として作成。
もし、深数≦1ならば
それは対象局面で局面評価。
違えば
最善手横とは整数。最善手横は-1。
最善手縦とは整数。最善手縦は-1。
最善手評価とは整数。最善手評価は9999。
横とは整数。
横で0から7まで繰り返す
縦とは整数。
縦で0から7まで繰り返す
もし、(対象局面→置ける(横,縦に))ならば
評価とは整数。
仮打局面→複製(対象局面で)
仮打局面→打つ(横,縦に)
仮打局面→手番は仮打局面→手番を反転。
仮打局面→飛ばしたはいいえ。
評価は仮打局面,深数-1,真で相手思考ルーチン評価
もし、最善手評価＞評価ならば
最善手評価は評価。
最善手縦は縦。
最善手横は横。
もし、最善手評価≠9999ならば
それは最善手評価。戻る。
違えば もし、打が偽ならば
評価とは整数。
評価は対象局面で数差。
それは評価。
戻る。
違えば
仮打局面→複製(対象局面で)
仮打局面→前手番は仮打局面→手番。
仮打局面→手番は仮打局面→手番を反転。
仮打局面→飛ばしたははい。
それは対象局面,深数,偽で相手思考ルーチン評価。
●相手思考ルーチン評価({グループ}対象局面,深数,打で)
仮打局面とは変数。
仮打局面を局面として作成。
もし、深数≦1ならば
それは対象局面で局面評価。
違えば
最善手横とは整数。最善手横は-1。
最善手縦とは整数。最善手縦は-1。
最善手評価とは整数。最善手評価は-9999。
横とは整数。
横で0から7まで繰り返す
縦とは整数。
縦で0から7まで繰り返す
もし、(対象局面→置ける(横,縦に))ならば
評価とは整数。
仮打局面→複製(対象局面で)
仮打局面→打つ(横,縦に)
仮打局面→手番は仮打局面→手番を反転。
仮打局面→飛ばしたはいいえ。
評価は仮打局面,深数-1,真で思考ルーチン評価
もし、最善手評価＜評価ならば
最善手評価は評価。
最善手縦は縦。
最善手横は横。
もし、最善手評価≠-9999ならば
それは最善手評価。戻る。
違えば もし、打が偽ならば
評価とは整数。
評価は対象局面で数差。
それは評価。
戻る。
違えば
仮打局面→複製(対象局面で)
仮打局面→前手番は仮打局面→手番。
仮打局面→手番は仮打局面→手番を反転。
仮打局面→飛ばしたははい。
それは対象局面,深数,偽で思考ルーチン評価。
●局面評価({グループ}対象局面で)
評価とは整数。評価は0。
横とは整数。
横で0から7まで繰り返す。
縦とは整数。
縦で0から7まで繰り返す。
石とは文字列。石は対象局面→配置\縦,横
もし、石が「空」ならば
違えば もし、石がコンピュータならば
評価は評価+1×評価表\縦,横。
違えば
評価は評価-1×評価表\縦,横。
それは評価。
●数差({グループ}対象局面で)
数とは整数。数は0。
横とは整数。
横で0から7まで繰り返す
縦とは整数。
縦で0から7まで繰り返す
石とは文字列。石は対象局面→配置\縦,横
もし、石が「空」ならば
違えば もし、石がコンピュータならば
数は数+1。
違えば
数は数-1。
それは数。
#-----------------------------------------------------------------------
#手番交代
●手番交代及び表示({グループ}対象局面で)
対象局面→手番交代。
もし、対象局面→終局ならば
勝敗判定。
違えば
もし、対象局面→飛ばしたならば
「{対象局面→前手番}は置くところがありません」と言う。
もし、対象局面→手番がコンピュータならば
思考する。
●反転(石色を)
もし、石色が「黒」ならば
それは「白」
もし、石色が「白」ならば
それは「黒」
}}}