cards=[[ \🂡 \🂢 \🂣 \🂤 \🂥 \🂦 \🂧 \🂨 \🂩 \🂪 \🂫 \🂭 \🂮] [ \🂱 \🂲 \🂳 \🂴 \🂵 \🂶 \🂷 \🂸 \🂹 \🂺 \🂻 \🂽 \🂾] [ \🃁 \🃂 \🃃 \🃄 \🃅 \🃆 \🃇 \🃈 \🃉 \🃊 \🃋 \🃍 \🃎] [ \🃑 \🃒 \🃓 \🃔 \🃕 \🃖 \🃗 \🃘 \🃙 \🃚 \🃛 \🃝 \🃞]]
deck=[[0 0 false ] [0 1 2] [0 2 3]  [0 3 4] [0 4 5] [0 5 6] [0 6 7] [0 7 8] [0 8 9] [0 9 10] [0 10 10] [0 11 10] [0 12 10]  [1 0 false ] [1 1 2] [1 2 3]  [1 3 4] [1 4 5] [1 5 6] [1 6 7] [1 7 8] [1 8 9] [1 9 10] [1 10 10] [1 11 10] [1 12 10]  [2 0 false ] [2 1 2] [2 2 3]  [2 3 4] [2 4 5] [2 5 6] [2 6 7] [2 7 8] [2 8 9] [2 9 10] [2 10 10] [2 11 10] [2 12 10]  [3 0 false ] [3 1 2] [3 2 3] [3 3 4] [3 4 5] [3 5 6] [3 6 7] [3 7 8] [3 8 9] [3 9 10] [3 10 10] [3 11 10] [3 12 10]  ]
sdeck=JSON.parse JSON.stringify deck
shuffle = !->  for x,i in deck when (x=Math.floor(Math.random() * (i + 1));true)
        [deck[i],deck[x]] = [deck[x],deck[i]]
gid=(id) -> document.getElementById(id)
window.mca=mc=[];window.dca=dc=[];defbet=gid("defbet");m=gid("money");bet=gid("bet");mch=gid("mcards");dch=gid("dcards");l=gid("log")
tod = !-> dc.push (c=deck.pop!); dch.innerHTML+=cards[c[0]][c[1]]
log = (msg)!-> l.innerHTML=msg
window.more = tom = !->  mc.push (c=deck.pop!); mch.innerHTML+=cards[c[0]][c[1]]; summ(mc)>21 and (log "Перебор";gid("e").disabled=true;gid("g").disabled=false)
clear = !-> 
    gid("g").disabled=!(gid("e").disabled=false);log "";bet.innerHTML=0;mch.innerHTML=dch.innerHTML="";mc.length=0;dc.length=0;deck:=JSON.parse JSON.stringify sdeck;shuffle!
window.s=summ = (ar)->
    sum=0;tzs=0
    for c in ar 
        (c[2] and sum+=c[2]) or tzs++
    for i in [1 to tzs] 
        (sum+11>21 and sum+=1) or sum+=11
    sum
betbet = -> if +m.innerHTML<+defbet.value then log "У вас нет столько денег!"; false else bet.innerHTML=+defbet.value;m.innerHTML-=+defbet.value;true
window.dub = !-> if +m.innerHTML<+bet.innerHTML then log "У вас нет столько денег!" else m.innerHTML-=+bet.innerHTML;bet.innerHTML*=2;tom!
window.give = !-> (clear!; betbet!) and (tom!;tom!;tod!;true) or gid("g").disabled=false;!mc[0][2] and !mc[1][2] and (log "Вы выиграли!"; m.innerHTML = +m.innerHTML + +bet.innerHTML*3;gid("e").disabled=true;gid("g").disabled=false)
window.enough = !-> 
    win=true
    while summ(dc) < 17
        tod!
    log if summ(dc)>21 or summ(dc)<summ(mc)  then "Вы выиграли!" else (win=false; "Вы проиграли")
    gid("g").disabled=false
    gid("e").disabled=true
    win and m.innerHTML = +m.innerHTML + +bet.innerHTML*2

Y2FyZHM9W1sgXPCfgqEgXPCfgqIgXPCfgqMgXPCfgqQgXPCfgqUgXPCfgqYgXPCfgqcgXPCfgqggXPCfgqkgXPCfgqogXPCfgqsgXPCfgq0gXPCfgq5dIFsgXPCfgrEgXPCfgrIgXPCfgrMgXPCfgrQgXPCfgrUgXPCfgrYgXPCfgrcgXPCfgrggXPCfgrkgXPCfgrogXPCfgrsgXPCfgr0gXPCfgr5dIFsgXPCfg4EgXPCfg4IgXPCfg4MgXPCfg4QgXPCfg4UgXPCfg4YgXPCfg4cgXPCfg4ggXPCfg4kgXPCfg4ogXPCfg4sgXPCfg40gXPCfg45dIFsgXPCfg5EgXPCfg5IgXPCfg5MgXPCfg5QgXPCfg5UgXPCfg5YgXPCfg5cgXPCfg5ggXPCfg5kgXPCfg5ogXPCfg5sgXPCfg50gXPCfg55dXQpkZWNrPVtbMCAwIGZhbHNlIF0gWzAgMSAyXSBbMCAyIDNdICBbMCAzIDRdIFswIDQgNV0gWzAgNSA2XSBbMCA2IDddIFswIDcgOF0gWzAgOCA5XSBbMCA5IDEwXSBbMCAxMCAxMF0gWzAgMTEgMTBdIFswIDEyIDEwXSAgWzEgMCBmYWxzZSBdIFsxIDEgMl0gWzEgMiAzXSAgWzEgMyA0XSBbMSA0IDVdIFsxIDUgNl0gWzEgNiA3XSBbMSA3IDhdIFsxIDggOV0gWzEgOSAxMF0gWzEgMTAgMTBdIFsxIDExIDEwXSBbMSAxMiAxMF0gIFsyIDAgZmFsc2UgXSBbMiAxIDJdIFsyIDIgM10gIFsyIDMgNF0gWzIgNCA1XSBbMiA1IDZdIFsyIDYgN10gWzIgNyA4XSBbMiA4IDldIFsyIDkgMTBdIFsyIDEwIDEwXSBbMiAxMSAxMF0gWzIgMTIgMTBdICBbMyAwIGZhbHNlIF0gWzMgMSAyXSBbMyAyIDNdIFszIDMgNF0gWzMgNCA1XSBbMyA1IDZdIFszIDYgN10gWzMgNyA4XSBbMyA4IDldIFszIDkgMTBdIFszIDEwIDEwXSBbMyAxMSAxMF0gWzMgMTIgMTBdICBdCnNkZWNrPUpTT04ucGFyc2UgSlNPTi5zdHJpbmdpZnkgZGVjawpzaHVmZmxlID0gIS0+ICBmb3IgeCxpIGluIGRlY2sgd2hlbiAoeD1NYXRoLmZsb29yKE1hdGgucmFuZG9tKCkgKiAoaSArIDEpKTt0cnVlKQogICAgICAgIFtkZWNrW2ldLGRlY2tbeF1dID0gW2RlY2tbeF0sZGVja1tpXV0KZ2lkPShpZCkgLT4gZG9jdW1lbnQuZ2V0RWxlbWVudEJ5SWQoaWQpCndpbmRvdy5tY2E9bWM9W107d2luZG93LmRjYT1kYz1bXTtkZWZiZXQ9Z2lkKCJkZWZiZXQiKTttPWdpZCgibW9uZXkiKTtiZXQ9Z2lkKCJiZXQiKTttY2g9Z2lkKCJtY2FyZHMiKTtkY2g9Z2lkKCJkY2FyZHMiKTtsPWdpZCgibG9nIikKdG9kID0gIS0+IGRjLnB1c2ggKGM9ZGVjay5wb3AhKTsgZGNoLmlubmVySFRNTCs9Y2FyZHNbY1swXV1bY1sxXV0KbG9nID0gKG1zZykhLT4gbC5pbm5lckhUTUw9bXNnCndpbmRvdy5tb3JlID0gdG9tID0gIS0+ICBtYy5wdXNoIChjPWRlY2sucG9wISk7IG1jaC5pbm5lckhUTUwrPWNhcmRzW2NbMF1dW2NbMV1dOyBzdW1tKG1jKT4yMSBhbmQgKGxvZyAi0J/QtdGA0LXQsdC+0YAiO2dpZCgiZSIpLmRpc2FibGVkPXRydWU7Z2lkKCJnIikuZGlzYWJsZWQ9ZmFsc2UpCmNsZWFyID0gIS0+IAogICAgZ2lkKCJnIikuZGlzYWJsZWQ9IShnaWQoImUiKS5kaXNhYmxlZD1mYWxzZSk7bG9nICIiO2JldC5pbm5lckhUTUw9MDttY2guaW5uZXJIVE1MPWRjaC5pbm5lckhUTUw9IiI7bWMubGVuZ3RoPTA7ZGMubGVuZ3RoPTA7ZGVjazo9SlNPTi5wYXJzZSBKU09OLnN0cmluZ2lmeSBzZGVjaztzaHVmZmxlIQp3aW5kb3cucz1zdW1tID0gKGFyKS0+CiAgICBzdW09MDt0enM9MAogICAgZm9yIGMgaW4gYXIgCiAgICAgICAgKGNbMl0gYW5kIHN1bSs9Y1syXSkgb3IgdHpzKysKICAgIGZvciBpIGluIFsxIHRvIHR6c10gCiAgICAgICAgKHN1bSsxMT4yMSBhbmQgc3VtKz0xKSBvciBzdW0rPTExCiAgICBzdW0KYmV0YmV0ID0gLT4gaWYgK20uaW5uZXJIVE1MPCtkZWZiZXQudmFsdWUgdGhlbiBsb2cgItCjINCy0LDRgSDQvdC10YIg0YHRgtC+0LvRjNC60L4g0LTQtdC90LXQsyEiOyBmYWxzZSBlbHNlIGJldC5pbm5lckhUTUw9K2RlZmJldC52YWx1ZTttLmlubmVySFRNTC09K2RlZmJldC52YWx1ZTt0cnVlCndpbmRvdy5kdWIgPSAhLT4gaWYgK20uaW5uZXJIVE1MPCtiZXQuaW5uZXJIVE1MIHRoZW4gbG9nICLQoyDQstCw0YEg0L3QtdGCINGB0YLQvtC70YzQutC+INC00LXQvdC10LMhIiBlbHNlIG0uaW5uZXJIVE1MLT0rYmV0LmlubmVySFRNTDtiZXQuaW5uZXJIVE1MKj0yO3RvbSEKd2luZG93LmdpdmUgPSAhLT4gKGNsZWFyITsgYmV0YmV0ISkgYW5kICh0b20hO3RvbSE7dG9kITt0cnVlKSBvciBnaWQoImciKS5kaXNhYmxlZD1mYWxzZTshbWNbMF1bMl0gYW5kICFtY1sxXVsyXSBhbmQgKGxvZyAi0JLRiyDQstGL0LjQs9GA0LDQu9C4ISI7IG0uaW5uZXJIVE1MID0gK20uaW5uZXJIVE1MICsgK2JldC5pbm5lckhUTUwqMztnaWQoImUiKS5kaXNhYmxlZD10cnVlO2dpZCgiZyIpLmRpc2FibGVkPWZhbHNlKQp3aW5kb3cuZW5vdWdoID0gIS0+IAogICAgd2luPXRydWUKICAgIHdoaWxlIHN1bW0oZGMpIDwgMTcKICAgICAgICB0b2QhCiAgICBsb2cgaWYgc3VtbShkYyk+MjEgb3Igc3VtbShkYyk8c3VtbShtYykgIHRoZW4gItCS0Ysg0LLRi9C40LPRgNCw0LvQuCEiIGVsc2UgKHdpbj1mYWxzZTsgItCS0Ysg0L/RgNC+0LjQs9GA0LDQu9C4IikKICAgIGdpZCgiZyIpLmRpc2FibGVkPWZhbHNlCiAgICBnaWQoImUiKS5kaXNhYmxlZD10cnVlCiAgICB3aW4gYW5kIG0uaW5uZXJIVE1MID0gK20uaW5uZXJIVE1MICsgK2JldC5pbm5lckhUTUwqMg==