fortunes_foundation/cursor.lua

91 lines
2.0 KiB
Lua
Raw Normal View History

2024-02-05 04:55:56 +00:00
acceptance_state={
not_grabbed=0,
would_accept=1,
would_not_accept=2,
no_move=3
}
cursor=klass()
function cursor:init(board)
self.board=board
self.hover_x=0
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()
if acc==acceptance_state.not_grabbed then
self.grabbed=self:hover_slot()
elseif acc==acceptance_state.would_accept then
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
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%=11 -- 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 12
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(x,y)
local card=self:grabbed_card()
local acc=self:acceptance_state()
if card and acc!=acceptance_state.would_accept and acc!=acceptance_state.no_move then
x+=sin(time()/2)*2+0.5
y+=sin(time()/4)+0.5+1
end
if card then
local card_fg=deck:draw_card(x,y,card,false)
local fg=card_fg
if (acc==acceptance_state.would_accept) fg=9
if (fg) rect(x-1,y-1,x+9,y+16,fg)
else
rectfill(x,y,x+8,y+15,9)
end
end