ひややっこBlog

国盗りＳＬＧを作る（１）

Fri, 29 Jan 2010 08:40:50 GMT

　なんだかすごいことになってしまった。
これ、Windowsでプログラムを始めてから１０年越しで作りたいリストの中に入ってるんだ。

いちどWin32API版習作を２ｃｈに放流したことがあるけど、もうすでにその域を超えてる。
実際一度通った道だからな。効率は良い。
そして、以前のプログラムよりはるかにキレイに出来てる。

まあキレイなのはここまで。ここから先は未知の領域なんで右往左往が楽しめる。

ダウンロード　http://hiyayakko.sarashi.com/LearnSLG/LearnSLG003.zip　(2010.01.29)

つづきはこちら

迷走・頓挫

Thu, 28 Jan 2010 01:42:40 GMT

　タワーディフェンス系のアクションSLGを作ろうと思った。
一方的に防衛するだけではストレス溜まるので、自分の城と相手の城を同じ画面に配置して
攻めたり攻められたりできるようにと考えた。
実装がシンプルになるようとことん追求していくと、ロードモナークっぽい感じになりそうな。

キャラの大きさ、盤面の広さはこれぐらいがいいと思う。

ダウンロード　http://hiyayakko.sarashi.com/Other/ActionSLG001.zip　(2010.01.28)

つづきはこちら

飽きた（笑）

Tue, 26 Jan 2010 08:53:29 GMT

　このゲームのデザインには致命的な欠陥があることは、作りはじめる前から知ってたけど。

テトリスなんかの積み上がったらゲームオーバーとか、上海や鮫亀なんかの消し切ったら
勝ちとか、そういうゲームの目標が最初から見えない。
消すところが無くなったら負けというけど、そういう状況になるのがプレイヤーの責任とは
言い切れない部分が大きい。
本家ZooKeeperでは動かせなくなったら再度配り直しになって、しかもボーナスまで
与えてる。ゲームを支配するのは制限時間だけ。
いろいろルールを付け足してごちゃごちゃになってるのがゲームデザイン的に美しくない。
それでも遊べるというか、むしろ面白いんだけど。

ver0.10から細かい調整を加えてみた。
まだ、枠を入れ替えたときに消えなかったら戻す処理を入れてないので、好きなように
入れ替えし放題のゲームにもなってない「ふいんき」だけのシロモノだ。
せめてここまでは作っておいたほうが良いのかな？
いちど思考が途切れてしまったら、戻ってくるのにすごく労力がいる。

ver0.11 細かい調整？
・消滅アニメ表示、インフォメーション削除、落下速度アップ
ダウンロード　http://hiyayakko.sarashi.com/ChangePuzzle/ChangePuzzle011.zip

あるテレビCM見て

Mon, 28 Dec 2009 07:52:24 GMT

　「GREE」だったか、無料携帯ゲームサイトのテレビCMに、おあつらえ向きにも
「３つ並べて消す」系のゲームが出てた。
ズーキーパー系とは違う操作系で、最下ラインにキャラクターがいて色玉を入れ替えてた
ように見えた。
この、CMの中のほんの数秒ではルールがよくわからんかったが、落下したブロックが
落下じゃなく、ぱっと消えて収まるべき枠にぱっと入れ替わる感じ。
落ちるアニメーション省略してしまったら、何が起こってるのか把握しにくいと思うのだが。

これ見て、「勝った」と思った次第。

Ver0.10
マウスによる入れ替え処理が、ついに入りました。
もう、なんとなく小一時間遊べる感じ。・・・小一時間は言い過ぎた。

なんか妙なバグが潜んでる予感。
事実、いろいろ噴出して、押さえ込むのに苦労したし。

ダウンロード　http://hiyayakko.sarashi.com/ChangePuzzle/ChangePuzzle010.zip　(2009.12.28)
ホームページ　http://hiyayakko.sarashi.com/ChangePuzzle/ChangePuzzle.html

したらば掲示板（コメントなどはこちらへ）
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42268/1261713900/

誰に遠慮してんだか

Sun, 27 Dec 2009 03:13:53 GMT

　なんやかや言いながら、ver0.09までキタ。
下準備はだいたい済んだ感じで、あとマウスでの入れ替えを組み込めば
もうなんとなく遊べる気配。

ゲームプログラム解説ブログをやりたいのか好き勝手作りたいのかと聞かれれば
このブログの存在意義は圧倒的に前者なんだけど、先に進みたい気持ちが止まらない。

作りながら解説のサイクルを細切れにやるのか、完成したソースに解説を加えていくのか。
市販のゲームプログラム本はほとんど後者だから、後者のやり方で圧倒的に完成度の低い
こんなクソースでは俺が納得しない。
落としどころが無いなあ。

ダウンロード　http://hiyayakko.sarashi.com/ChangePuzzle/ChangePuzzle009.zip　(2009.12.27)
ホームページ　http://hiyayakko.sarashi.com/ChangePuzzle/ChangePuzzle.html

したらば掲示板（コメントなどはこちらへ）
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42268/1261713900/

並べて消すパズルを作る（１）

Fri, 25 Dec 2009 02:47:45 GMT

頭のリハビリ兼ねて、なんか簡単なもの作ってみようと思った。
いわゆる「ズーキーパー」系の、縦横に３つ並べて消すパズルを作ろうと思う。

ぼちぼち作ってみたけど、作るよりプログラムの解説っぽいのがめんどい。
だめだなあ。一度枯れた情熱はなかなか戻らない。

ダウンロード　http://hiyayakko.sarashi.com/ChangePuzzle/ChangePuzzle002.zip 　(2009.12.25)

ホームページ　http://hiyayakko.sarashi.com/ChangePuzzle/ChangePuzzle.html

つづきはこちら

そして時は流れて

Sun, 20 Dec 2009 09:35:35 GMT

半年ぐらい、何もしてなかった気がする。
エントリ読み直してみたら、９月中ほどあたりから失踪してた模様。まる３ヶ月ってところか。

ほんと、何もしてない。
手がつかないほど忙しかったわけでもなく、ただ一度集中力が切れただけ。

一度集中力が切れたら、ほんとに手が動かなくなる。頭がまわらなくなる。
何か作りたい、生み出したい気持ちは日に日に強くなっていくけど、規模を見積もりすると
すぐに気持ちが萎えてしまう。
そして萎えた気持ちに自己嫌悪して。

こんな感じで過ごしてた空白時間。
もう一度簡単なところから出直して、少しでも流れを取り戻したい。

検証！必勝パターン（５）

Tue, 08 Sep 2009 17:24:09 GMT

勝ちパターンの計算については、だいたい文章化できたかな？

１．自分のコマの上下左右斜め列に＋１０点
２．相手のコマの上下左右斜め列に－１０点
３．４隅は無条件に＋１点
４．中央を開けて○と×がにらみ合いになったときは、残る角に＋１５点

※
５．１列に自分のコマがふたつあるときは、残りの空白列に＋１００点
ここに置いたら勝ちなので、最優先でここに置く。
６．１列に相手のコマがふたつあるときは、残りの空白列に＋８０点
ここを残して相手にまわしたら負けるので、条件５の次に優先

このルールで盤面計算しなおして、再検証してみる。

ケース４
対角

いきなりルール３の「角は＋１点」忘れてるけど。
このケース４のためにルール４追加したんだから、うまくいってもらわないと困る。

４手目×はリーチ阻止でここ一拓。
５手目の決定も、この新ルールで予想外にうまくいった。
角３つ押さえた形でダブルリーチ。これで勝ち。

ケース３
辺の角

いちばん素直な形じゃないかな。
１０点のところが１マス。ここに置いてみる。
４手目の×の人は、リーチ阻止するしかない。
で、５手目は×のリーチ阻止が○側のダブルリーチになる。確定。

ケース２
桂馬飛び

これも、この日のために追加したルール３「角は＋１点」をフル活用。
３手目は左下隅に確定。
あとは×側リーチ阻止 → ○側リーチ阻止の、５手目でダブルリーチ。

ケース１
接辺

処理ごまかしてる。
ホントは対角になる右下ではなく左下を優先しないといけないんだけど。
なんかうまく出来てしまった。

４手目の×はリーチ阻止するしかない。
で、５手目はいちばん点数の高い右下でダブルリーチ。すなわち勝利確定。

いいんじゃね？
なかなか、いい感じじゃね？

プログラム組む前は、いちど仮置きして、×側から評価しないといけないと読んでた。
ここに置いたら相手がこう置く。そう来たらこう返すみたいな感じの３手読み。
それが盤面に点数つけていちばんいいところに置けば済むんだから、うまく出来たと自画自賛。

main.cpp

// CPU思考ルーチン
void CpuTurn()
{
    int x,y;
    int bx,by;
    // 点数評価テーブル
    int tb[3][3]={0};
    int c=-99;

    // （１）次に自分が勝てる手があれば迷わずそこへ置く
    if(CheckDouble(game.Player,bx,by)){
        board[by][bx]=game.Player;
        ChangeTurn();
        return;
    }

    // （２）相手からのリーチはなるべく阻止！
    if(CheckEnemyDouble(game.Player,bx,by)){
        board[by][bx]=game.Player;
        ChangeTurn();
        return;
    }

    // ４隅にゲタをはかせる
    tb[0][0]++;
    tb[0][2]++;
    tb[2][0]++;
    tb[2][2]++;

    // ２ターン目、×側は中央が空いてたら最優先
    if(game.Turn==1)tb[1][1]+=50;

    // 評価点加点
    for(y=0;y<3;y++){
        for(x=0;x<3;x++){
            if(board[y][x]==game.Player){
                for(int i=0;i<3;i++){
                    tb[y][i]+=10;
                    tb[i][x]+=10;
                }
                if(x==y){
                    tb[0][0]+=10;
                    tb[1][1]+=10;
                    tb[2][2]+=10;
                }
                if(((x-y)*(y-x)==-4)||(x==1&&y==1)){
                    tb[0][2]+=10;
                    tb[1][1]+=10;
                    tb[2][0]+=10;
                }
            } else if(board[y][x]!=NONE){
                for(int i=0;i<3;i++){
                    tb[y][i]-=10;
                    tb[i][x]-=10;
                }
                if(x==y){
                    tb[0][0]-=10;
                    tb[1][1]-=10;
                    tb[2][2]-=10;
                }
                if(((x-y)*(y-x)==-4)||(x==1&&y==1)){
                    tb[0][2]-=10;
                    tb[1][1]-=10;
                    tb[2][0]-=10;
                }
            }
        }
    }

    // 対角でにらみあいが発生したときは角の優先度を上げる
    if(((board[0][0]!=NONE)&&(board[1][1]==NONE)&&(board[2][2]!=NONE))||
       ((board[0][2]!=NONE)&&(board[1][1]==NONE)&&(board[2][0]!=NONE))) {
        tb[0][0]+=15;
        tb[0][2]+=15;
        tb[2][0]+=15;
        tb[2][2]+=15;
    }

    // 評価点のいちばん高いポイントを探す
    bx = by = c = -99;
    for(y=0;y<3;y++){
        for(x=0;x<3;x++){
            if((board[1][1]!=game.Player)&&(tb[y][x]==0))continue;
            if((board[y][x]==NONE)&&(tb[y][x]>c)){
                bx = x;
                by = y;
                c = tb[y][x];
            }
        }
    }
    if(c!=-99){
        board[by][bx]=game.Player;
        ChangeTurn();
    } else {
        // ここに来ることはない。はず！
        while(1){
            bx = GetRand(2);
            by = GetRand(2);
            if(board[by][bx]==NONE){
                board[by][bx]=game.Player;   // 手番のひとのカーソルを置く
                ChangeTurn();
                break;
            }
        }
    }
}

この、冒頭のルールを頭に入れてたら、この意味不明のソースが
ちょっとは輝いて見えるようになってると思うがどうか。

ルール再掲載
１．自分のコマの上下左右斜め列に＋１０点
２．相手のコマの上下左右斜め列に－１０点
３．４隅は無条件に＋１点
４．中央を開けて○と×がにらみ合いになったときは、残る角に＋１５点

※
５．１列に自分のコマがふたつあるときは、残りの空白列に＋１００点
ここに置いたら勝ちなので、最優先でここに置く。
６．１列に相手のコマがふたつあるときは、残りの空白列に＋８０点
ここを残して相手にまわしたら負けるので、条件５の次に優先

で、前に作ったリーチ状態の確認を盤面評価にうまく組み込めるかと目論んでたんだけど、
だらっと長くなったルール１、２、「評価点加点」の部分がさらに長くなりそうなので
前作った部分をそのまま流用することにした。

ここまででCPU思考ルーチンのだいたい８割は説明できたかな。
あと、２手目で中央に置かれたときと×を受け持ったとき用の、いやらしい微調整だけ。

ブログエントリ
○×ゲームを作る（１）
http://http://hiyayakkoprog.blog.shinobi.jp/Entry/53/

ダウンロードＨＰ
http://hiyayakko.sarashi.com/Marubatu/MaruBatu.html

したらば掲示板
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42268/1251347335/-100

検証！必勝パターン（４）

Tue, 08 Sep 2009 15:36:16 GMT

やっと、勝ちパターンの検証も最終局面。

パターン４
対角

ふむ。今までのパターンが使えない。
１０点のところに置くと、勝ち目がないどころか負けてしまう。

正解は残りの角を狙うこと。
特別ルールでも作りますか。割と安易に。

特別ルール
中央を空けて対角でにらみ合いが発生した場合、残りの角を優先する

優先するためには１０点以上与えないといけない。＋１５点ぐらい出しておくか？

ブログエントリ
○×ゲームを作る（１）
http://http://hiyayakkoprog.blog.shinobi.jp/Entry/53/

ダウンロードＨＰ
http://hiyayakko.sarashi.com/Marubatu/MaruBatu.html

したらば掲示板
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42268/1251347335/-100

検証！必勝パターン（３）

Tue, 08 Sep 2009 15:24:40 GMT

落書き画像作ってブログに入れるの、慣れてきた。
思ってたより楽勝。
この調子でいけるなら、１パターン１エントリじゃなく、全部詰め込んでも耐えられる長さだったか。
まあ今さらなんなんだし、あと少しこのまま突っ走る。

パターン３
自辺の角

このパターンをパターン１にするべきだったか。
この形を見て、プログラムに応用できるとひらめいたんだ。

このパターンだと、１０点は１箇所だけで、他は相殺される。そしてこの場所が正解。

ブログエントリ
○×ゲームを作る（１）
http://http://hiyayakkoprog.blog.shinobi.jp/Entry/53/

ダウンロードＨＰ
http://hiyayakko.sarashi.com/Marubatu/MaruBatu.html

したらば掲示板
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42268/1251347335/-100