Techmino/parts/scenes/app_UTTT.lua

local gc=love.graphics
local int=math.floor

local lines={
	{1,2,3},
	{4,5,6},
	{7,8,9},
	{1,4,7},
	{2,5,8},
	{3,6,9},
	{1,5,9},
	{3,5,7},
}

local board={{},{},{},{},{},{},{},{},{}}
local score={}

local lastX,lastx
local curX,curx
local round
local target
local placeTime
local gameover

local function restart()
	lastX,lastx=false,false
	curX,curx=nil
	round=0
	target=false
	placeTime=TIME()
	gameover=false
	for X=1,9 do
		score[X]=false
		for x=1,9 do
			board[X][x]=false
		end
	end
end
local function checkBoard(b,p)
	for i=1,8 do
		for j=1,3 do
			if b[lines[i][j]]~=p then
				goto CONTINUE_testNextLine
			end
		end
		do return true end
		::CONTINUE_testNextLine::
	end
end
local function full(L)
	for i=1,9 do
		if not L[i]then
			return false
		end
	end
	return true
end
local function place(X,x)
	board[X][x]=round
	SFX.play("move")
	lastX,lastx=X,x
	curX,curx=nil
	placeTime=TIME()
	if checkBoard(board[X],round)then
		score[X]=round
		if checkBoard(score,round)then
			gameover=round
			SFX.play("win")
			return
		else
			if full(score)then
				gameover=true
				return
			end
		end
		SFX.play("reach")
	else
		if full(board[X])then
			SFX.play("emit")
			score[X]=true
			if full(score)then
				gameover=true
				return
			end
		end
	end
	if score[x]then
		target=false
	else
		target=x
	end
	round=1-round
end

local scene={}

function scene.sceneInit()
	restart()
	BGM.play("truth")
	BG.set("rainbow")
end

function scene.draw()
	gc.push("transform")
	--origin pos:0,140; scale:4
	gc.translate(280,0)
	gc.scale(8)

	--Draw board
	gc.setColor(0,0,0,.4)
	gc.rectangle("fill",0,0,90,90)

	--Draw target area
	gc.setColor(1,1,1,math.sin((TIME()-placeTime)*5)/5+.2)
	if target then
		gc.rectangle("fill",(target-1)%3*30,int((target-1)/3)*30,30,30)
	elseif not gameover then
		gc.rectangle("fill",0,0,90,90)
	end

	--Draw cursor
	if curX then
		gc.setColor(1,1,1,.3)
		gc.rectangle("fill",(curX-1)%3*30+(curx-1)%3*10-.5,int((curX-1)/3)*30+int((curx-1)/3)*10-.5,11,11)
	end

	gc.setLineWidth(.8)
	for X=1,9 do
		if score[X]then
			if score[X]==0 then
				gc.setColor(.5,0,0)
			elseif score[X]==1 then
				gc.setColor(0,0,.5)
			else
				gc.setColor(0,0,0)
			end
			gc.rectangle("fill",(X-1)%3*30,int((X-1)/3)*30,30,30)
		end
		for x=1,9 do
			local c=board[X][x]
			if c then
				local _x=(X-1)%3*30+(x-1)%3*10
				local _y=int((X-1)/3)*30+int((x-1)/3)*10
				if c==0 then
					gc.setColor(1,.2,.2)
					gc.rectangle("line",_x+2.25,_y+2.25,5.5,5.5)
				else
					gc.setColor(.3,.3,1)
					gc.line(_x+2,_y+2,_x+8,_y+8)
					gc.line(_x+2,_y+8,_x+8,_y+2)
				end
			end
		end
	end

	--Draw board line
	gc.setLineWidth(.8)
	for x=0,9 do
		gc.setColor(1,1,1,x%3==0 and 1 or .3)
		gc.line(10*x,0,10*x,90)
		gc.line(0,10*x,90,10*x)
	end

	--Draw last pos
	if lastX then
		gc.setColor(.5,1,.4,.8)
		local r=.5+.5*math.sin(TIME()*6.26)
		gc.rectangle("line",(lastX-1)%3*30+(lastx-1)%3*10-r,int((lastX-1)/3)*30+int((lastx-1)/3)*10-r,10+2*r,10+2*r)
	end
	gc.pop()

	if gameover then
		--Draw result
		setFont(60)
		if gameover==0 then
			gc.setColor(1,.6,.6)
			mStr("RED\nWON",1140,200)
		elseif gameover==1 then
			gc.setColor(.6,.6,1)
			mStr("BLUE\nWON",1140,200)
		else
			gc.setColor(.8,.8,.8)
			mStr("TIE",1140,240)
		end
	else
		--Draw current round mark
		gc.setColor(.8,.8,.8,.8)
		gc.rectangle("fill",80,80,160,160)
		gc.setColor(1,1,1)
		gc.setLineWidth(6)
		gc.rectangle("line",80,80,160,160)

		gc.setLineWidth(10)
		if round==0 then
			gc.setColor(1,0,0)
			gc.rectangle("line",160-40,160-40,80,80)
		else
			gc.setColor(0,0,1)
			gc.line(160-45,160-45,160+45,160+45)
			gc.line(160-45,160+45,160+45,160-45)
		end
	end
end

function scene.touchDown(x,y)
	scene.mouseMove(x,y)
end

function scene.touchMove(x,y)
	scene.mouseMove(x,y)
end

function scene.touchUp(x,y)
	scene.mouseDown(x,y)
end

function scene.mouseMove(x,y)
	x,y=int((x-280)/80),int(y/80)
	curX,curx=int(x/3)+int(y/3)*3+1,x%3+y%3*3+1
	if
		curX<1 or curX>9 or
		curx<1 or curx>9 or
		score[curX]or
		not(target==curX or not target)or
		board[curX][curx]or
		gameover
	then
		curX,curx=nil
	end
end

function scene.mouseDown(x,y)
	scene.mouseMove(x,y)
	if curX then place(curX,curx)end
end

scene.widgetList={
	WIDGET.newButton{name="reset",x=1140,y=540,w=170,h=80,font=40,color="lGreen",code=restart},
	WIDGET.newButton{name="back",x=1140,y=640,w=170,h=80,font=40,code=backScene},
}

return scene