分享一個(gè)純js寫的俄羅斯方塊

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head></head><body>
<div id="box" style="width:252px;font:25px/25px 宋體;background:#000;color:#9f9;border:#999 20px ridge;text-shadow:2px 3px 1px #0f0;"></div>
<script>

var author = "H_man";
var map = eval("[" + Array(23).join("0x801,") + "0xfff]");
var tatris = [
    [0x6600],
    [0x2222, 0xf00],
    [0xc600, 0x2640],
    [0x6c00, 0x4620],
    [0x4460, 0x2e0, 0x6220, 0x740],
    [0x2260, 0xe20, 0x6440, 0x4700],
    [0x2620, 0x720, 0x2320, 0x2700]
];
var keycom = {
    "38": "rotate(1)",
    "40": "down()",
    "37": "move(2,1)",
    "39": "move(0.5,-1)"
};
var dia, pos, bak, run;

function start() {
    dia = tatris[~~(Math.random() * 7)];
    bak = pos = {
        fk: [],
        y: 0,
        x: 4,
        s: ~~(Math.random() * 4)
    };
    rotate(0);
}

function over() {
    document.onkeydown = null;
    clearInterval(run);
    alert("GAME OVER");
}

function update(t) {
    bak = {
        fk: pos.fk.slice(0),
        y: pos.y,
        x: pos.x,
        s: pos.s
    };
    if(t) return;
    for(var i = 0, a2 = ""; i < 22; i++)
        a2 += map[i].toString(2).slice(1, -1) + "<br/>";
    for(var i = 0, n; i < 4; i++)
        if(/([^0]+)/.test(bak.fk[i].toString(2).replace(/1/g, "\u25a1")))
            a2 = a2.substr(0, n = (bak.y + i + 1) * 15 - RegExp.$_.length - 4) + RegExp.$1 + a2.slice(n + RegExp.$1.length);
    document.getElementById("box").innerHTML = a2.replace(/1/g, "\u25a0").replace(/0/g, "\u3000");
}

function is() {
    for(var i = 0; i < 4; i++)
        if((pos.fk[i] & map[pos.y + i]) != 0) return pos = bak;
}

function rotate(r) {
    var f = dia[pos.s = (pos.s + r) % dia.length];
    for(var i = 0; i < 4; i++)
        pos.fk[i] = (f >> (12 - i * 4) & 15) << pos.x;
    update(is());
}

function down() {
    ++pos.y;
    if(is()) {
        for(var i = 0; i < 4 && pos.y + i < 22; i++)
            if((map[pos.y + i] |= pos.fk[i]) == 0xfff)
                map.splice(pos.y + i, 1), map.unshift(0x801);
        if(map[1] != 0x801) return over();
        start();
    }
    update();
}

function move(t, k) {
    pos.x += k;
    for(var i = 0; i < 4; i++)
        pos.fk[i] *= t;
    update(is());
}
document.onkeydown = function(e) {
    eval(keycom[(e ? e : event).keyCode]);
};
start();
run = setInterval("down()", 400);</script></body></html>
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 人面猴
    序言：七十年代末九昧，一起剝皮案震驚了整個(gè)濱河市，隨后出現(xiàn)的幾起案子讥蟆，更是在濱河造成了極大的恐慌任内，老刑警劉巖血柳，帶你破解...
    沈念sama閱讀 210,914評(píng)論 6贊 490
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件，死亡現(xiàn)場離奇詭異傀顾，居然都是意外死亡椒惨，警方通過查閱死者的電腦和手機(jī)，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 89,935評(píng)論 2贊 383
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門劝贸，熙熙樓的掌柜王于貴愁眉苦臉地迎上來姨谷，“玉大人，你說我怎么就攤上這事映九∶蜗妫” “怎么了？”我有些...
    開封第一講書人閱讀 156,531評(píng)論 0贊 345
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵件甥，是天一觀的道長捌议。 經(jīng)常有香客問我，道長引有，這世上最難降的妖魔是什么瓣颅？ 我笑而不...
    開封第一講書人閱讀 56,309評(píng)論 1贊 282
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任，我火速辦了婚禮譬正，結(jié)果婚禮上宫补，老公的妹妹穿的比我還像新娘。我一直安慰自己曾我，他們只是感情好粉怕，可當(dāng)我...
    茶點(diǎn)故事閱讀 65,381評(píng)論 5贊 384
  • 惡毒庶女頂嫁案：這布局不是一般人想出來的
    文/花漫 我一把揭開白布。 她就那樣靜靜地躺著抒巢，像睡著了一般贫贝。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上蛉谜，一...
    開封第一講書人閱讀 49,730評(píng)論 1贊 289
  • 城市分裂傳說
    那天稚晚，我揣著相機(jī)與錄音凤优，去河邊找鬼。 笑死蜈彼，一個(gè)胖子當(dāng)著我的面吹牛，可吹牛的內(nèi)容都是我干的俺驶。 我是一名探鬼主播幸逆，決...
    沈念sama閱讀 38,882評(píng)論 3贊 404
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢(mèng)啊……” “哼暮现！你這毒婦竟也來了还绘？” 一聲冷哼從身側(cè)響起，我...
    開封第一講書人閱讀 37,643評(píng)論 0贊 266
  • 萬榮殺人案實(shí)錄
    序言：老撾萬榮一對(duì)情侶失蹤栖袋，失蹤者是張志新（化名）和其女友劉穎拍顷，沒想到半個(gè)月后，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體塘幅，經(jīng)...
    沈念sama閱讀 44,095評(píng)論 1贊 303
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡昔案，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,448評(píng)論 2贊 325
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了电媳。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片踏揣。...
    茶點(diǎn)故事閱讀 38,566評(píng)論 1贊 339
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡，死狀恐怖匾乓，靈堂內(nèi)的尸體忽然破棺而出捞稿，到底是詐尸還是另有隱情，我是刑警寧澤拼缝，帶...
    沈念sama閱讀 34,253評(píng)論 4贊 328
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布娱局，位于F島的核電站，受9級(jí)特大地震影響咧七，放射性物質(zhì)發(fā)生泄漏衰齐。R本人自食惡果不足惜，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,829評(píng)論 3贊 312
  • 男人毒藥：我在死后第九天來索命
    文/蒙蒙 一猪叙、第九天 我趴在偏房一處隱蔽的房頂上張望娇斩。 院中可真熱鬧，春花似錦穴翩、人聲如沸犬第。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,715評(píng)論 0贊 21
  • 一樁弒父案芒帕，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽歉嗓。三九已至，卻和暖如春背蟆，著一層夾襖步出監(jiān)牢的瞬間鉴分，已是汗流浹背哮幢。 一陣腳步聲響...
    開封第一講書人閱讀 31,945評(píng)論 1贊 264
  • 情欲美人皮
    我被黑心中介騙來泰國打工， 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留志珍，地道東北人橙垢。 一個(gè)月前我還...
    沈念sama閱讀 46,248評(píng)論 2贊 360
  • 代替公主和親
    正文 我出身青樓，卻偏偏與公主長得像伦糯，于是被迫代替她去往敵國和親柜某。 傳聞我的和親對(duì)象是個(gè)殘疾皇子，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,440評(píng)論 2贊 348

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