+table_height = 0
+state = null
+server_url = null
+
+message = (txt) ->
+ # FIXME implement chat box or something
+
+# timeout function with args in convenient order
+timeout = (ms, func) -> setTimeout func, ms
+
+unless Array::shuffle?
+ Array::shuffle = ->
+ return if @length is 0
+ top = @length
+
+ while --top
+ current = Math.floor(Math.random() * (top + 1))
+ tmp = @[current]
+ @[current] = @[top]
+ @[top] = tmp
+ return
+
+new_button = (text) -> $ $ "<div class=\"button\">#{text}</div>"
+
+# transform coordinates from client-side coords to server-side coords (or back)
+# this makes it so p2 view everything upside down (mirrored), but still sends coords rightside up
+transform_coords = (coords) ->
+ ret = {left: coords.left, top: coords.top}
+ if state.agent is 'p2'
+ ret.top = table_height - ret.top
+ return ret
+
+instantiate_card = (card) ->
+ text = card.text
+ view_coords = transform_coords {left: card.x, top: card.y}
+ view = $ $ "<div class=\"card\" style=\"left: #{view_coords.left}px; top: #{view_coords.top}px\"><span class=\"cardtext\">#{text}</span></div>"
+ button_box = $ $ '<div/>'
+ flip_button = new_button "flip over"
+ mark_button = new_button "mark"
+ flip_button.bind 'click', ->
+ state.flip state.agent, card.number, ! view.hasClass 'flipped'
+ mark_button.bind 'click', ->
+ state.mark state.agent, card.number, ! view.hasClass 'marked'
+ button_box.append flip_button
+ button_box.append mark_button
+ view.append button_box
+ if card.marked
+ view.addClass 'marked'
+ if card.flipped
+ view.addClass 'flipped'
+ $table.append view
+ view.draggable stack: '.card'
+ view.bind 'dragstop', (event, ui) ->
+ p = transform_coords view.position()
+ state.move state.agent, card.number, p.left, p.top
+ card.view = view
+
+error_lag = 3
+
+outgoing_messages = []
+# message should be [agent, method, args...]
+# don't forget the agent (state.agent)
+tell_server = (message) ->
+ outgoing_messages.push message
+ send_updates()
+
+send_updates = ->
+ return if outgoing_messages.length is 0
+
+ messages = outgoing_messages
+ outgoing_messages = []
+
+ $.ajax "#{server_url}/set", {
+ cache: false
+ data: {
+ agent: state.agent
+ game: 'test' # FIXME, and it the /get call too
+ messages: JSON.stringify(messages)
+ }
+ type: 'POST'
+ dataType: 'json'
+ error: (xhr, status, error) ->
+ message "Network error while sending, you might want to refresh. Trying again in #{error_lag} seconds. (Status: #{status}, Error: #{error})"
+ for message in messages
+ outgoing_messages.unshift message
+ timeout error_lag * 1000, send_updates
+ error_lag *= 2
+ success: (data, status, xhr) ->
+ message "update sent"
+ error_lag = 3
+ }
+
+error_lag = 3
+poll_for_updates = ->
+ $.ajax "#{server_url}/get?agent=#{state.agent}&game=test", {
+ cache: false
+ type: 'GET'
+ dataType: 'json'
+ error: (xhr, status, error) ->
+ message "Network error, you might want to refresh. Trying again in #{error_lag} seconds. (Status: #{status}, Error: #{error})"
+ timeout error_lag * 1000, poll_for_updates
+ error_lag *= 2
+ success: (data, status, xhr) ->
+ state.process_messages data
+ timeout 100, poll_for_updates
+ error_lag = 3
+ }