QT5寫Tetris之AI機器人玩游戲

背景

使用Qt5.12.9的QGraphicsItem來實現(xiàn)俄羅斯方塊,使用簡單的評估函數(shù),實現(xiàn)AI機器人玩俄羅斯方塊游戲。這是AI機器人的第一步,這個算法很簡單,但很有效,大多數(shù)情況能消5百層以上,最近的為數(shù)不多的測試中,最高紀錄已經(jīng)消了超過2500層。在這個基礎(chǔ)上,可以方便的積累原始數(shù)據(jù),我希望能抽取模式,進行模式識別及至機器學(xué)習(xí)。

思路

在手動游戲基礎(chǔ)上進行改造,借鑒回放的經(jīng)驗,只需要加入一個評估算法,為每一個新方塊找出一個放置的姿態(tài)(旋轉(zhuǎn)次數(shù))和最終位置坐標就可以了。我的算法設(shè)計也很簡單,就是為每一個方塊窮舉其放置方法,使用一個緊密程度的評估算法進行評分,取出最高分的操作,若有相同得分的操作,用隨機數(shù)二一添做五。

效果圖

tetris2604.png

關(guān)鍵代碼分析

流程控制

界面操作控制變量,做到隨時可以在手動與自動兩種模式之間進行切換。

    if (isAutoRunning) {                //自動模式
        autoProcessCurBlock();          //處理當(dāng)前方塊,使用評估函數(shù)確定方塊的最終姿態(tài)與位置
        block->relocate(curPos);            //放置
        block->setBlockNotActive();     //固定方塊
        generateNextBlock();            //取下一個方塊,游戲繼續(xù)
    }else                       //手動模式
        this->moveBlockDown();
    ...

方塊放置評分函數(shù)

我的設(shè)計思想很直觀,俄羅斯方塊就是要盡量緊密的堆積在一起,所以對每一個組成方塊的block都檢測一個它周圍的四個位置,看是否有block(包括邊界)存在,若有就加1分,沒有不加分。這塊的加分,并沒有區(qū)別組成方塊自身的block和外界的block,因為每個方塊都是與自己進行比較,所以區(qū)分與不區(qū)分效果是一樣的。起始分由深度確定,越深我認為效果越好。另個,block的垂直下方最好不要有空洞,若有會減分。

int Game::evaluate(Tetris* t)
{
    QPoint pos = t->getPos();
    int ct = pos.y();               //深度為基礎(chǔ)分
    int cct = t->cleanCount();
    if (cct > 1)                //能消層,加分
        ct += 10 * (cct - 1);
    for (int i = 0; i < 4; i++) {
        for (int j = 0; j < 4; j++) {
            if (t->data[i][j]) {
                ct += t->hasTetrisBlock(pos.x() + j + 1, pos.y() + i) ? 1 : 0;          //檢測block右邊的位置
                ct += t->hasTetrisBlock(pos.x() + j - 1, pos.y() + i) ? 1 : 0;          //檢測block左邊的位置
                ct += t->hasTetrisBlock(pos.x() + j, pos.y() + i + 1) ? 1 : 0;          //檢測block下方的位置
                ct += t->hasTetrisBlock(pos.x() + j, pos.y() + i - 1) ? 1 : 0;          //檢測block上方的位置

                if (i == 3 || t->data[i + 1][j] == 0) {                 
                    if (!t->hasTetrisBlock(pos.x() + j, pos.y() + i + 1)) {         //block下方的緊臨空洞
                        ct -= 4;
                    }
                    else {
                        int k = 2;
                        while (pos.y() + i + k <= 19) {
                            if (!t->hasTetrisBlock(pos.x(), pos.y() + i + k)) { //block下方的非緊臨空洞
                                ct -= 1;
                                break;
                            }
                            k++;
                        }
                    }
                }
            }
        }
    }
    return ct;
}

窮舉方塊的所有放置方式

一個方塊最多只有四種姿態(tài),把方塊的每一種姿態(tài)都從左到右moveDownEnd一次,進行評分,取得分最高的方案。

void Game::autoProcessCurBlock()
{
    int max = 0;
    QPoint initPos = block->getPos();
    Tetris* tmp = new Tetris(initPos, block->getShape(), -1);       //構(gòu)造當(dāng)前方塊的替身,blockType為-1,這種方塊不會顯示
    int rotateCt = block->getRotateNum();               //同步替身初始姿態(tài)
    for (int k = 0; k < rotateCt; k++)
        tmp->rotate();
    rotateCt = 0;                           //用于保存方塊的最終姿態(tài)

    for (int r = 0; r < 4; r++) {                   //四種姿態(tài)遍歷,其實可以優(yōu)化,有的方塊不需要四次
        if (r > 0) {
            tmp->relocate(initPos);             //注意,旋轉(zhuǎn)要在方塊進入游戲界面的地方旋轉(zhuǎn),不然可能旋轉(zhuǎn)不成功
            tmp->rotate();
        }
        while (tmp->moveLeft());                //從最左邊開始
        do {
            tmp->moveDownEnd();
            tmp->setBlockNotActive();           //固定方塊,以便進行評分
            int score = evaluate(tmp);          //評分
            if (score > max) {              //找到當(dāng)前最優(yōu)方案
                max = score;
                curPos = tmp->getPos();
                rotateCt = r;
            }
            else if (score == max) {                //出現(xiàn)相等評分,隨機取
                if (qrand() % 2 == 1) {
                    curPos = tmp->getPos();
                    rotateCt = r;
                }
            }
            //initPos.setX(tmp->getPos().x());
            tmp->relocate(QPoint(tmp->getPos().x(), initPos.y()));  //返回到游戲空間上方
            tmp->setBlockTest();                //方塊恢復(fù)到測試狀態(tài) 
        } while (tmp->moveRight());             //方塊右移,直到不能移動 
    }
    delete tmp;                         //銷毀測試方塊,突然想到這塊可以優(yōu)化,只需要建七個方塊就好,這樣就不用不斷的創(chuàng)建和銷毀了
    for (int k = 0; k < rotateCt; k++)
        block->rotate();
}

下一步的設(shè)想

使用python重新實現(xiàn)所有功能,也不再用Qt,就用python自帶的tkinter就好。把重點放在模式提取,讓AI自動玩游戲,寫個算法,提取優(yōu)秀的操作模式。然后使用模式匹配或機器學(xué)習(xí)算法來優(yōu)化AI。現(xiàn)在還沒有具體的想法,只有這么個大概的設(shè)想。

源代碼及運行方法

項目采用cmake組織,請安裝cmake3.10以上版本。下面腳本是windows下基于MSVC的,其它操作系統(tǒng)上基本類似,或者使用qtcreator打開進行操作。

cmake -A win32 -Bbuild .
cd build
cmake --build . --config Release

注:本項目采用方案能跨平臺運行,已經(jīng)適配過windows,linux,mac。

源代碼:

https://gitee.com/zhoutk/qtetris.git

https://gitee.com/zhoutk/qtdemo/tree/master/tetrisGraphicsItem

https://github.com/zhoutk/qtDemo/tree/master/tetrisGraphicsItem
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
平臺聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點,簡書系信息發(fā)布平臺,僅提供信息存儲服務(wù)。
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌,老刑警劉巖,帶你破解...
    沈念sama閱讀 230,501評論 6 544
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異,居然都是意外死亡,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 99,673評論 3 429
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人,你說我怎么就攤上這事。” “怎么了?”我有些...
    開封第一講書人閱讀 178,610評論 0 383
  • 文/不壞的土叔 我叫張陵,是天一觀的道長。 經(jīng)常有香客問我,道長,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 63,939評論 1 318
  • 正文 為了忘掉前任,我火速辦了婚禮,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘。我一直安慰自己,他們只是感情好,可當(dāng)我...
    茶點故事閱讀 72,668評論 6 412
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著,像睡著了一般。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 56,004評論 1 329
  • 那天,我揣著相機與錄音,去河邊找鬼。 笑死,一個胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播,決...
    沈念sama閱讀 44,001評論 3 449
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 43,173評論 0 290
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 49,705評論 1 336
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 41,426評論 3 359
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 43,656評論 1 374
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情,我是刑警寧澤,帶...
    沈念sama閱讀 39,139評論 5 364
  • 正文 年R本政府宣布,位于F島的核電站,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 44,833評論 3 350
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧,春花似錦、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 35,247評論 0 28
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 36,580評論 1 295
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人。 一個月前我還...
    沈念sama閱讀 52,371評論 3 400
  • 正文 我出身青樓,卻偏偏與公主長得像,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 48,621評論 2 380

推薦閱讀更多精彩內(nèi)容