194 lines
12 KiB
Lua
194 lines
12 KiB
Lua
-- 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>
|
|
|