-- title:  Zetris
-- author: Pascal Batty
-- desc:   First training game
-- script: lua

blocksize=8
bgspriteof=-240

pieces = {
	t={sprite=256,
		{x=0, y=0},
		{x=-1, y=0},
		{x=1, y=0},
		{x=0, y=-1}
	}
}

-- GAME STATE
currentPiece = { piece = pieces.t,
	position = {x = 11, y = 2},
	rotation = 0
}

function rotatedpiece()
	points = {}
	if currentPiece.rotation == 0 then
		return currentPiece.piece
	elseif currentPiece.rotation == 1 then
		for i=1, 4 do
			points[i] = {x=0,y=0}
			points[i].x = currentPiece.piece[i].y * -1
			points[i].y = currentPiece.piece[i].x
		end
	elseif currentPiece.rotation == 2 then
		for i=1, 4 do
			points[i] = {x=0,y=0}
			points[i].x = currentPiece.piece[i].x * -1
			points[i].y = currentPiece.piece[i].y * -1
		end
	elseif currentPiece.rotation == 3 then
		for i=1, 4 do
			points[i] = {x=0,y=0}
			points[i].x = currentPiece.piece[i].y
			points[i].y = currentPiece.piece[i].x * -1
		end
 end
	return points
end

function piecedropped()
	piece = rotatedpiece()
	point = currentPiece.position
	for i=1, 4 do
		x=(point.x + piece[i].x)
		y=(point.y + piece[i].y)
		if mget(x, y+1) ~= 0 then
		  return true
		end
	end
	return false
end

function canmove(point)
	piece = rotatedpiece()
 for i=1, 4 do
	 x=(point.x + piece[i].x)
		y=(point.y + piece[i].y)
		if mget(x, y) ~= 0 then
		  return false
		end
	end
	return true
end

function droppiece()
	piece = rotatedpiece()
	point = currentPiece.position
	sprite = piece.sprite + bgspriteof
	for i=1, 4 do
	 x=(point.x + piece[i].x)
		y=(point.y + piece[i].y)
		mset(x, y, 16)
	end
end

function resetcurrent()
currentPiece = {
	piece = pieces.t,
	position = {x = 11, y = 2},
	rotation = 0
}
end

function drawpiece()
	piece = rotatedpiece()
	origin = currentPiece.position
	for i = 1, 4 do
		point = { x = (piece[i].x + origin.x) * blocksize, 
		          y = (piece[i].y + origin.y) * blocksize}
		
		spr(currentPiece.piece.sprite, point.x, point.y)
	end
end

function TIC()
	map(0,0,30,17)
	local newPosition = {
		x = currentPiece.position.x,
		y = currentPiece.position.y
	}
	if btnp(2) then
		newPosition.x = newPosition.x - 1
	elseif btnp(3) then
		newPosition.x = newPosition.x + 1
	elseif btnp(1) then
		newPosition.y = newPosition.y + 1
	elseif btnp(4) then
		r = currentPiece.rotation
		currentPiece.rotation = (r+1)%4
		rpiece = rotatedpiece()
		trace('position: '..currentPiece.position.x..', '..currentPiece.position.y)
		trace('sprite: '..currentPiece.piece.sprite)
		trace('rotation: '..currentPiece.rotation)
		for i = 1, 4 do
			trace(rpiece[i].x..', '..rpiece[i].y)
		end
	end
	
	if canmove(newPosition) then
		currentPiece.position = newPosition
	elseif piecedropped() then
		droppiece()
		resetcurrent()
	end
	
	drawpiece()
end

-- <TILES>
-- 001:0ffffff0ffffffffffffffffffffffffffffffffffffffffffffffff0ffffff0
-- 016:1111111190000001901111019019910190199101901111019000000199999999
-- 017:66666666e0000006e0666606e06ee606e06ee606e0666606e0000006eeeeeeee
-- 018:bbbbbbbb3000000b30bbbb0b30b33b0b30b33b0b30bbbb0b3000000b33333333
-- 019:22222222a0000002a0222202a02aa202a02aa202a0222202a0000002aaaaaaaa
-- 020:44444444c0000004c0444404c04cc404c04cc404c0444404c0000004cccccccc
-- 021:dddddddd5000000d50dddd0d50d55d0d50d55d0d50dddd0d5000000d55555555
-- 022:8888888870000008708888087087780870877808708888087000000877777777
-- </TILES>

-- <SPRITES>
-- 000:1111111190000001901111019019910190199101901111019000000199999999
-- 001:66666666e0000006e0666606e06ee606e06ee606e0666606e0000006eeeeeeee
-- 002:bbbbbbbb3000000b30bbbb0b30b33b0b30b33b0b30bbbb0b3000000b33333333
-- 003:22222222a0000002a0222202a02aa202a02aa202a0222202a0000002aaaaaaaa
-- 004:44444444c0000004c0444404c04cc404c04cc404c0444404c0000004cccccccc
-- 005:dddddddd5000000d50dddd0d50d55d0d50d55d0d50dddd0d5000000d55555555
-- 006:8888888870000008708888087087780870877808708888087000000877777777
-- </SPRITES>

-- <MAP>
-- 000:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 001:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 002:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 003:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 004:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 005:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 006:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 007:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 008:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 009:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 010:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 011:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 012:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 013:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 014:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 015:000000000000100000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- 016:000000000000101010101010101010101010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-- </MAP>

-- <WAVES>
-- 000:00000000ffffffff00000000ffffffff
-- 001:0123456789abcdeffedcba9876543210
-- 002:0123456789abcdef0123456789abcdef
-- </WAVES>

-- <SFX>
-- 000:000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000304000000000
-- </SFX>

-- <PALETTE>
-- 000:140c1ceaea30555dd64c794cc6810834a1a5d04648a5249dca71ced2ae2c3030956daa2c7555286dd6e2ba2418d6dad2
-- </PALETTE>