2 # Copyright (C) 2012 Jason Woofenden
4 # This program is free software: you can redistribute it and/or modify
5 # it under the terms of the GNU Affero General Public License as published by
6 # the Free Software Foundation, either version 3 of the License, or
7 # (at your option) any later version.
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU Affero General Public License for more details.
14 # You should have received a copy of the GNU Affero General Public License
15 # along with this program. If not, see <http://www.gnu.org/licenses/>.
17 ##############################################
18 ############## settings ################
19 ##############################################
22 tile_width = tile_radius * 2
28 { height: 5, spaces: [], fader_count: 0 }
29 { height: 6, spaces: [], fader_count: 0 }
30 { height: 7, spaces: [], fader_count: 0 }
31 { height: 8, spaces: [], fader_count: 0 }
32 { height: 7, spaces: [], fader_count: 0 }
33 { height: 6, spaces: [], fader_count: 0 }
34 { height: 5, spaces: [], fader_count: 0 }
37 # code and css will need adjusting if you change HP_MAX
40 ##############################################################
41 ############## fix javascript some more ################
42 ##############################################################
44 # so annoying that setTimeout has its arguments in the wrong order
45 timeout = (ms, callback) ->
46 setTimeout callback, ms
48 # warning: it's shalow (sub-elements are not cloned)
54 ret += i for i in this
58 return this[this.length - 1]
61 ##############################################################
62 ############## cookies (auto-save game) ################
63 ##############################################################
65 set_cookie = (name, value, days) ->
67 date.setTime date.getTime()+(days*24*60*60*1000)
68 cookie = "#{name}=#{value}; expires=#{date.toGMTString()}; path=/"
69 document.cookie = cookie
70 window.sc = set_cookie
72 get_cookie = (name) ->
74 for c in document.cookie.split /; */
76 return c.substr key.length
79 delete_cookie = (name) ->
80 set_cookie name, '', -1
81 window.dc = delete_cookie
85 num_spaces += column.height for column in columns
87 spaces = new Array(num_spaces)
91 letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
92 letter_distribution = [
122 letter_distribution_total = 175973 # letter_distribution.sum()
125 new_letter_queue = []
127 if new_letter_queue.length
128 l = new_letter_queue.shift()
129 l.letter = l.letter.toUpperCase()
133 hp = 1 + Math.floor(Math.random() * (HP_MAX - 1))
134 r = Math.floor Math.random() * (letter_distribution_total + 1)
136 r -= letter_distribution[i]
139 return letter: 'Qu', hp: hp
140 return letter: letters[i], hp: hp
141 return letter: 'Z', hp: hp # just in case
145 # in memory it's layed out like this:
150 # for display, columns are slid vertically like so:
159 # work out which grid spaces are connected
160 init_board_layout = () ->
162 middle_col_num = (columns.length - 1) / 2
166 for column, col_num in columns
167 if col_num < middle_col_num
172 if col_num > middle_col_num
177 is_first_col = col_num is 0
178 is_last_col = col_num is columns.length - 1
181 # neighbors are integers for now, but get dereferenced later, after we've created all the spaces
183 neighbors.push col_offset + offset
185 col_top_px = Math.abs col_num - middle_col_num
186 col_top_px *= tile_radius
189 for i in [0 ... column.height]
190 space = { id: space_num }
191 spaces[space_num] = space
193 column.spaces.push space
194 space.column = column
197 is_bottom_tile = i is column.height - 1
199 # link tile number to pixel "top" and "left" of containing column
200 space.top_px = col_top_px + i * tile_width
201 space.left_px = col_num * tile_width
203 # aboves: array of spaces, top to bottom
204 space.aboves = above.clone()
207 # below: SINGLE tile below
209 spaces[space.id - 1].below = space
211 # neighbors (array of tile numbers "next to" this one)
213 unless is_top_tile # upward link
215 unless is_bottom_tile # downward links
217 unless is_first_col # leftward links
218 unless is_bottom_tile and bw_other is -1
219 push i - columns[col_num - 1].height
220 unless is_top_tile and bw_other is -1
221 push i - columns[col_num - 1].height + bw_other
222 unless is_last_col # rightward links
223 unless is_bottom_tile and fw_other is -1
224 push i + columns[col_num].height
225 unless is_top_tile and fw_other is -1
226 push i + columns[col_num].height + fw_other
227 # will be dereferenced later
228 space.neighbors = neighbors.clone() # FIXME ?remove ``.clone()``
229 col_offset += column.height
230 # convert all space.neighbors arrays from containing space ids to referencing the space
232 for id, key in s.neighbors
233 s.neighbors[key] = spaces[id]
235 # support obsolete save data format
236 load_game_0 = (encoded) ->
237 letters = (encoded.substr 0, num_spaces).split ''
239 new_letter_queue.push {
241 hp: 1 + Math.floor(Math.random() * (HP_MAX - 1))
243 score = parseInt(encoded.substr(num_spaces), 10)
245 load_game_1 = (encoded) ->
247 encoded = encoded.substr 1
248 score = parseInt(encoded.substr(num_spaces * 3 / 2), 10)
249 for t in [0...(spaces.length * 3 / 2)] by 3
253 char = encoded[t + 2 - d]
254 int += save_charset.indexOf(char)
256 int = Math.floor(int / 11)
257 t2letter = String.fromCharCode(char_a + (int % 26))
258 int = Math.floor(int / 26)
260 int = Math.floor(int / 11)
261 t1letter = String.fromCharCode(char_a + (int % 26))
262 new_letter_queue.push {
266 new_letter_queue.push {
271 load_game = (encoded) ->
272 switch encoded.substr 0, 1
279 encoded = window.location.hash
280 if encoded? and encoded.charAt 0 is '#'
281 encoded = encoded.substr 1
282 unless encoded? and encoded.length > num_spaces
283 encoded = get_cookie 'hexbog'
284 if encoded? and encoded.length > num_spaces
287 # work out which grid spaces are connected
288 # (neighbors, above, down)
291 $big_tip = null # initialized by init_html_board
292 $little_tip = null # initialized by init_html_board
293 $score_display = null # initialized by init_html_board
294 $definition_body = null # initialized by init_html_board
295 update_selection_display = ->
296 word = selected_word()
297 $big_tip.removeClass('good')
301 $little_tip.html "Click more tiles (3 minimum)"
304 if word.indexOf(word.substr(word.length - 1)) < word.length - 1
308 $little_tip.html "Click the #{last}\"#{word.substr(word.length - 1)}\" for #{score_for word} points"
309 $big_tip.html "<a href=\"http://en.wiktionary.org/wiki/#{word}\" target=\"_blank\" title=\"click for definition\">#{word}</a>"
310 $big_tip.addClass('good')
313 $little_tip.html "\"#{word}\" is not in the word list."
315 $big_tip.html "← Click a word"
316 $little_tip.html "(tiles must be touching)"
318 # color the selected tiles according to whether they're a word or not
320 classes = ['selected_word', 'selected']
326 tile.dom.addClass classes[c]
327 tile.dom.removeClass classes[1 - c]
329 # unselects the last tile of the selecetion
332 update_selection_display()
335 html_tile = selected.pop().dom
336 html_tile.removeClass 'selected_word'
337 html_tile.removeClass 'selected'
340 while selected.length
342 update_selection_display()
346 word += tile.text for tile in selected
347 return word.toLowerCase()
349 save_charset = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQR'
350 char_a = "a".charCodeAt(0)
352 encoded = '1' # save format
353 for i in [0...spaces.length] by 2
354 int = spaces[i].tile.text.toLowerCase().charCodeAt(0) - char_a
356 int += spaces[i].tile.hp
358 int += spaces[i+1].tile.text.toLowerCase().charCodeAt(0) - char_a
360 int += spaces[i+1].tile.hp
362 encoded += save_charset.substr(int % 44, 1)
363 int = Math.floor(int / 44)
365 set_cookie 'hexbog', encoded, 365
366 window.location.hash = encoded
370 tile.text = new_letter().letter
371 tile.dom.html tile.text
373 # remove the selected tiles from the board, create new tiles, and slide everything into place
375 word_length = selected_word().length
378 update_selection_display()
382 tile.dom.unbind('click').fadeOut fade_ms
383 tile.new_hp = tile.hp
384 for n in tile.space.neighbors
385 neighbors[n.id] = n.tile
386 for nn in n.neighbors
387 nneighbors[nn.id] = nn.tile
388 # fix overlaps of faders, neighors, nneighbors
390 delete nneighbors[tile.space.id]
391 delete neighbors[tile.space.id]
392 for k, v of neighbors
394 # convert to arrays so we can sort, etc
395 nneighbors = (v for k, v of nneighbors)
396 neighbors = (v for k, v of neighbors)
422 boom[0].flips = 'all'
427 boom[0].flips = 'all'
432 boom[0].flips = 'all'
437 boom[0].flips = 'all'
439 boom[1].flips = 'all'
446 # unsink/heal the whole board
453 if b.flips is 'all' or b.flips >= b.down.length
457 down_count = b.down.length
458 while b.flips > 0 and down_count
460 flipper = Math.floor(Math.random() * down_count)
461 unsink b.down[flipper]
463 # move the last tile back into range
464 b.down[flipper] = b.down[down_count]
467 t.new_hp = t.hp + b.force
469 s.tile.new_hp ?= s.tile.hp - 1
472 else if s.tile.new_hp > HP_MAX
473 s.tile.new_hp = HP_MAX
474 if s.tile.new_hp isnt s.tile.hp
475 s.tile.dom.removeClass "hp#{s.tile.hp}"
476 s.tile.dom.addClass "hp#{s.tile.new_hp}"
477 s.tile.hp = s.tile.new_hp
479 timeout fade_ms + 1, ->
480 # delete old tiles, mark where tiles are moving
482 fader.space.column.fader_count += 1
485 for above in fader.space.aboves
489 above.tile.dest = above.id + 1
491 # move tiles down (graphically and in data structure)
497 if tile.dest? and not (tile.removed?)
498 dest_space = spaces[tile.dest]
500 tile.dom.animate {top: "#{dest_space.top_px}px"}, slide_ms
501 tile.space = dest_space
502 dest_space.tile = tile
505 for column in columns
507 while column.fader_count > 0
508 column.fader_count -= 1
509 slide_from = -10 - tile_width
510 slide_from -= (50 + tile_width) * column.fader_count
511 space = column.spaces[dest++]
512 tile = new_tile space, slide_from
513 tile.dom.animate {top: "#{space.top_px}px"}, slide_ms
517 score_for = (word) -> Math.round(Math.pow(1.7, word.length))
519 activate_selection = ->
520 word = selected_word()
522 # FIXME make this a hint
523 log "Too short: \"#{word}\""
526 # FIXME make this automatically part of the selection display
527 log "Not on word list: \"#{word}\""
529 word_score = score_for word
531 $score_display.html score
532 # FIXME make some kind of animation showing score gain
534 look_up_definition word
535 $('#definition').click()
538 show_definition = (word, type, definition, language) ->
539 html = "<a href=\"http://en.wiktionary.org/wiki/#{word}\" target=\"_blank\">"
540 html += "#{word.substr(0, 1).toUpperCase() + word.substr(1)}</a>, #{type}"
541 if language isnt 'English'
542 html += " (#{language})"
545 html += '<div id="definition_credit">Definition ©<a href="http://en.wiktionary.org/" target="_blank">wiktionary.org</a> CC-BY-SA</div>'
546 $definition_body.html html
549 select_tile = (tile) ->
551 update_selection_display()
553 new_tile = (space, y) ->
559 html_tile = $("<div class=\"tile hp#{hp}\" style=\"left: #{x}px; top: #{y}px\" unselectable=\"on\">#{letter}</div>")
560 $board.append(html_tile)
572 return if tile.hp < 1
573 word = selected_word()
575 if selected_word().length > 2 and is_word(word) and tile is selected.last()
578 if selected.length is 1
583 else # clicked a non-selected tile
584 if selected.length > 0 and not (tile.space in selected.last().space.neighbors)
591 $('#loading').remove()
592 $big_tip = $('#big_tip')
593 $little_tip = $('#little_tip')
594 $score_display = $('#score')
595 $score_display.html score
596 $definition_body = $('#definition_body')
598 # make html for board
602 word_bins = []; word_bins.push(',') for [0...997]
603 hash_word = (word) ->
605 for i in [0...word.length]
606 h ^= word.charCodeAt(i) << ((i*3) % 21)
609 word_bins[hash_word str].indexOf(",#{str},") > -1
611 # this is called automatically by the compressed wordlist
612 parse_word_list = (compressed) ->
614 cap_a = "A".charCodeAt 0
617 chunk = compressed[i]
618 for word in chunk.match(/[a-z]*[A-Z]/g)
619 # the capital letter (at the end of the match) says how many characters
620 # from the end of the previous word should be removed to create the prefix
621 # for the next word. "A" for 0, "B" for 1, "C" for 2, etc
622 bs = word[word.length - 1].charCodeAt(0) - cap_a
623 word = prefix + word[0 ... word.length - 1]
624 word_bins[hash_word word] += word + ','
625 prefix = word[0 ... word.length - bs]
626 if ++i is compressed.length
629 timeout 1, next_chunk
630 timeout 1, next_chunk
632 extract_wiktionary_definiton = (html) ->
640 # when we instantiate the html so we can use dom traversal, the browser
641 # will start loading images and such. This section attempts to mangle the
642 # html so no resources are loaded when the html is parsed.
645 # src: <img>, <audio>, etc
646 # onload: only <body>?
647 # archive,codebase,data,usemap: <object>
649 # id,class,style: background: url(foo.png), etc
650 html = html.replace /[ ]?[a-z]+=['"][^"']*['"]/ig, '', html
651 html = html.replace /<\/?(audio|source|a|span|table|tr|td|table)>/ig, '', html
652 html = html.replace /\[edit\]/ig, '', html
656 valid_parts = ["Abbreviation", "Adjective", "Adverb", "Article", "Cardinal number", "Conjunction", "Determiner", "Interjection", "Noun", "Numeral", "Particle", "Preposition", "Pronoun", "Verb"]
658 elements.each (i, el) ->
659 #which tag: el.tagName
660 if el.tagName is 'H2'
661 # if we found a definition in the previous language section, run with it
662 # (we only stop for verbs, in hopes of finding one in english)
665 part = false # mark us not being in a definition section unless the next section finds a part of speach header
666 language = $(el).text()
667 if language and el.tagName is 'H3' or el.tagName is 'H4' # eg yak def uses one for english and one for dutch
672 part = p.toLowerCase()
674 if part and el.tagName is 'OL'
675 $(el).children().each (i, el) ->
676 new_def = $(el).text()
677 if new_def.substr(0, 9) is '(obsolete' or new_def.substr(0, 8) is "(archaic" or new_def.substr(0, 20) is "Alternative form of " or new_def.substr(0, 24) is "Alternative spelling of "
684 finds[key] ?= [part, new_def, language]
687 # verbs are the best! stop scanning when we find one
692 part_defs = (finds[i] for i in ['verb', 'nonverb', 'lame'] when finds[i])
693 unless part_defs.length
699 look_up_definition = (word) ->
700 $definition_body.html "Looking up definition for \"#{word}\"..."
702 url: "http://en.wiktionary.org/w/api.php?action=parse&format=json&page=#{word}"
703 jsonpCallback: "lud_#{word}" # always use the same callback for the same word so it's cacheable
706 success: (data, error_msg, xhr) ->
707 if data?.parse?.text?['*']?
708 tdl = extract_wiktionary_definiton data.parse.text['*']
710 show_definition word, tdl[0], tdl[1], tdl[2]
712 $definition_body.html "Oops, could't find a definition for \"#{word}\"."
714 $definition_body.html "Sorry, couldn't find a definition for \"#{word}\"."
720 $score_display.html score
725 init_start_over_link = ->
726 $('#start-over').click (event) ->
727 event.preventDefault()
728 if confirm "Are you sure you want to start over? There is no undo."
731 cur_tab = 'instructions'
736 return if t is cur_tab
737 $('#' + cur_tab).removeClass('selected-tab').addClass('tab').animate({height: tabtab_height}, 1000)
738 $('#' + t).removeClass('tab').addClass('selected-tab').animate({height: tab_height}, 1000)
741 for t in ['instructions', 'definition', 'donate', 'restart']
745 $(window).keydown (e) ->
753 console.log args... if console?.log?
756 if $(window).height() >= 440
757 $('#centerer').css('margin-top', '25px')
762 init_start_over_link()
763 update_selection_display()