fortunes_foundation/cursor.lua

acceptance_state={
 not_grabbed=0,
 would_accept=1,
 would_not_accept=2,
 no_move=3
}
cursor=klass()
function cursor:init(board)
 self.ruleset=board.ruleset
 self.board=board
 self.hover_x=self.ruleset.n_slots\2
 self.hover_y=1
 self.grabbed=nil
end

function cursor:acceptance_state()
 if self.grabbed then
  local hover=self:hover_slot()
  if hover==self.grabbed then
   return acceptance_state.no_move
  end
  local source=self.board.slots[self.grabbed]
  local target=self.board.slots[self:hover_slot()]
  local card=source:peek()
  if target:would_accept(card) then
   return acceptance_state.would_accept,source,target
  else
   return acceptance_state.would_not_accept
  end
 else
  return acceptance_state.not_grabbed
 end
end

function cursor:toggle_grab()
 local acc,src,tar=self:acceptance_state()
 local slot=self:hover_slot()
 if acc==acceptance_state.not_grabbed then
  if (not self.board.watcher:intercept("grab",slot)) return
  if (self.board.slots[slot]:peek()) self.grabbed=slot
 elseif acc==acceptance_state.would_accept then
  if (not self.board.watcher:intercept("drop",slot)) return
  self.board:pre_move(src:peek())
  local card=src:pop()
  tar:add(card)
  self.grabbed=nil
  self.board:on_move(card)
 elseif acc==acceptance_state.no_move or acc==acceptance_state.would_not_accept then
  if (not self.board.watcher:intercept("cancel")) return
  self.grabbed=nil
 else
  assert(false,"invalid acceptance state")
 end
end

function cursor:move_x(dx)
 if (self.hover_y==0) return
 self.hover_x+=dx
 self.hover_x%=self.ruleset.n_slots  -- TODO: Don't hard-code
end

function cursor:move_y(dy)
 if (self.hover_y==0 and dy==1) self.hover_y=1
 if (self.hover_y==1 and dy==-1) self.hover_y=0
end

function cursor:hover_slot()
 if (self.hover_y==0) return self.ruleset.n_slots+1
 return self.hover_x+1
end

function cursor:grabbed_card()
 if self.grabbed then
  local slot=self.board.slots[self.grabbed]
  return slot:peek()
 end
 return nil
end

function cursor:draw_at(l,i)
 local card=self:grabbed_card()
 local acc=self:acceptance_state()

 local dx,dy=0,0
 if card and acc!=acceptance_state.would_accept and acc!=acceptance_state.no_move then
  dx=flr(sin(time()/2)*2+0.5)
  dy=flr(sin(time()/4)+0.5+1)
 end

 if card then
  i+=1
  local x,y=l:place_card(i)
  local card_fg=self.ruleset.deck:draw_card(x+dx,y+dy,card,{rotate=l.rotated})
  local fg=card_fg
  if (acc==acceptance_state.would_accept) fg=9
  draw_layout_hint(l,i,fg,false,dx,dy)
 else
  local filled=false
  if (i<1) i=1 filled=true
  draw_layout_hint(l,i,9,filled,dx,dy)
 end
end