Блэкджек на LiveScript

в 12:12, , рубрики: 30 строк, 30строк, blackjack, javascript, livescript, Веб-разработка, ненормальное программирование, строк, метки: , , , , ,

Вероятно, многим уже надоели заголовки типа «ХХХ в 30 строк», но я рискну написать ещё один пост. Дабы хоть как-то сгладить злость отдельных хабралюдей, я расскажу что в этом скрипте делает каждая строка.
image

В качестве игры я выбрал Блэкджек. Напомню правила:

  • Игрок играет с дилером
  • Вначале игроку раздается 2 карты, а дилеру одна, все карты видны
  • Каждая карта даёт определенное количество очков (цифры согласно своему значению, картинки — 10, туз — 11 или 1, как выгоднее)
  • Задача набрать побольше очков, но не больше 21
  • Для увеличения очков нужно брать дополнительные карты

Ссылка на jsfiddle.
Ссылка на код (увы, в нём используются символы юникода, которые при сохранении превращаются на хабре в вопросики, причём весь текст после символа исчезает :(

Итак, рассмотрим код.

В первой строке, которую я как раз тут не могу показать инициализируется массив с «изображениями» карт.

Во второй строке инициализируется массив с картами, каждая карта представляет массив с тремя элементами: координаты изображения карты и её стоимость. При этом для тузов хранится false, так как он обрабатывается отдельно.

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]]

В шестой строке объявляется короткая функция для замены длинного document.getElementById.

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("d").disabled=gid("m").disabled=gid("e").disabled=true;gid("g").disabled=false)

11-12 строчки. Функция сброса для нового кона. У дилера и игрока забираются карты, создается и перемешивается новая колода, очищается окошко сообщений.

clear = !->
    gid("g").disabled=!(gid("d").disabled=gid("m").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!

13-19 строчки. Функция подсчета суммы. Суммируем все карты, считаем количество тузов, в конце считаем их, пытаясь уложиться в 21.

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)

23-30. Если карт достаточно, дилер набирает себе карты, после чего сравниваются очки.

window.enough = !-> 
    win=true;nothing=false
    while summ(dc) < 17
        tod!
    log if summ(dc)>21 or summ(dc)<summ(mc)  then "Вы выиграли!" else if summ(dc)==summ(mc) then (nothing=true; "Ничья") else (win=false; "Вы проиграли")
    gid("g").disabled=false
    gid("e").disabled=true
    m.innerHTML = +m.innerHTML + (+bet.innerHTML)*(if nothing then 1 else if win then 2 else 0)

Автор: alhimik45

Источник

* - обязательные к заполнению поля


https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js