-- title: The Right Coin
-- author: Fabien Freling, Pascal Batty
-- desc: Ludum Dare 44
-- script: lua
t=0
s=8 -- sprite/cell size
w=240
mw=w/s
h=136
mh=h/s
GameState = { start=0, game=1, gameover=2, market=3 }
currentState = GameState.game
life=100
coinBlue=5
valueBlue=1.0
coinRed=2
valueRed=5.0
coinYellow=21
valueYellow=0.8
MarketOptions = { blue=0, red=1, yellow=2, all=3, done=4 }
marketSelection = MarketOptions.blue
solids={}
do
local sols={1, 2, 3, 17}
for i,v in pairs(sols) do
solids[v]=true
end
end
function sol(x,y) return solids[mget(x//8,y//8)] end
g = .3
j = -4
anis={
idle={257},
run={273,274},
jump={289},
fall={290}
}
do -- Player
Player = {
spr=0,
ani=anis.idle,
x=8,y=120,
w=8,h=8,
vx=0,vy=0,
isFlipped=false
}
function Player:direct()
if btn(2) then
self.vx = -2
self.isFlipped = true
elseif btn(3) then
self.vx = 2
self.isFlipped = false
else self.vx = 0
end
if btnp(0) and self.vy == 0 then self.vy = j end
end
function Player:update()
self:resolve()
self.x = self.x + self.vx
self.y = self.y + self.vy
end
function Player:resolve()
if sol(self.x + self.vx, self.y + self.h-1) or sol(self.x + self.vx + self.w-1, self.y + self.h-1) then
self.vx = 0
end
local roof = self:distanceToRoof()
local floor = self:distanceToFloor()
if self.vy < roof then
self.vy = roof
end
if self.vy >= floor then self.vy = floor
else self.vy = self.vy + g
end
if self.vy < 0 then
self.ani = anis.jump
elseif self.vy > 0 then
self.ani = anis.fall
elseif not (self.vx == 0) then
self.ani = anis.run
else
self.ani = anis.idle
end
end
function Player:distanceToFloor()
local y = 0
while (not sol(self.x + self.vx, self.y + y + self.h))
and (not sol(self.x + self.vx + self.w-1, self.y + y + self.h))
and (self.y + y < 128) do
y = y + 1
end
return y
end
function Player:distanceToRoof()
local y = 0
while (not sol(self.x + self.vx, self.y + y - 1))
and (not sol(self.x + self.vx + self.w-1, self.y + y - 1))
and (self.y + y > 0) do
y = y - 1
end
return y
end
function Player:draw()
self.spr=self.ani[(((t)//3)% #self.ani)+1]
local flip
if self.isFlipped then flip = 1 else flip = 0 end
spr(self.spr, self.x, self.y, 1, 1, flip)
end
end
function drawStart()
cls(1)
print("The Right Coin",80,24)
spr(80, 20, 30, 0, 3)
spr(81, 50, 50, 0, 2)
spr(82, 40, 70, 0, 1)
print("You're dying, and medicine",130,40,15,false,1,true)
print("ain't cheap. Exchange your",130,50,15,false,1,true)
print("most valuable coins for life.",130,60,15,false,1,true)
if t%60 > 20 then
print("Press Z to start",75,100)
end
print("Fabien Freling & Pascal Batty", 65, 128, 15, false, 1, true)
end
function drawGameOver()
cls(1)
print("You died",80,36,6)
print("Press Z",75,96,15)
end
function drawGame()
map(0,0,30,17)
p:draw()
-- Life
spr(83,0,0)
local color=11 -- green
if life < 25 then
color=6 -- red
elseif life < 50 then
color=9 -- orange
end
-- from x=11 to 106
local lifeLimit=(106-11)*life/100+11
for i=lifeLimit,106 do
pix(i,1,0)
pix(i,2,0)
pix(i,3,0)
pix(i,4,0)
pix(i,5,0)
pix(i,6,0)
end
for i=11,lifeLimit do
pix(i,1,color)
pix(i,2,color)
pix(i,3,color)
pix(i,4,color)
pix(i,5,color)
pix(i,6,color)
end
spr(85,10,0,0)
for i=18,100,8 do
spr(86,i,0,0)
end
spr(85,100,0,0,1,1)
-- Coins / market
local coinsOff=110
spr(80,coinsOff,0)
print("x"..coinBlue,coinsOff+s,2)
spr(81,coinsOff+25,0)
print("x"..coinRed,coinsOff+25+s,2)
spr(82,coinsOff+50,0)
print("x"..coinYellow,coinsOff+50+s,2)
-- spr(84,190,0)
print(valueBlue,190,2,8)
print(valueRed,206,2,12)
print(valueYellow,222,2,14)
end
function drawMarket()
-- Background
xOff=2
yOff=2
for i=xOff+1, mw-2-xOff do
spr(64,i*s,yOff*s,0,1,0,1)
spr(64,i*s,(mh-1-yOff)*s,0,1,2,1)
end
for j=yOff+1, mh-2-xOff do
spr(64,xOff*s,j*s,0,1,0,0)
spr(64,(mw-1-xOff)*s,j*s,0,1,1,0)
end
spr(65,xOff*s,yOff*s,0,1,0,1)
spr(65,(mw-1-xOff)*s,yOff*s,0,1,0,2)
spr(65,(mw-1-xOff)*s,(mh-1-yOff)*s,0,1,0,3)
spr(65,xOff*s,(mh-1-yOff)*s,0,1,0,0)
for i=xOff+1, mw-2-xOff do
for j=yOff+1, mh-2-xOff do
spr(66,i*s,j*s,0,1,0,1)
end
end
-- Coins
spr(80,4*s,4*s,0)
print("x"..coinBlue,5*s+4,4*s+2)
print("x"..valueBlue,8*s+4,4*s+2,8)
print("= "..math.floor(coinBlue*valueBlue),12*s,4*s+2)
spr(83,15*s,4*s,0)
print("Buy",20*s,4*s+2)
spr(81,4*s,6*s,0)
print("x"..coinRed,5*s+4,6*s+2)
print("x"..valueRed,8*s+4,6*s+2,12)
print("= "..math.floor(coinRed*valueRed),12*s,6*s+2)
spr(83,15*s,6*s,0)
print("Buy",20*s,6*s+2)
spr(82,4*s,8*s,0)
print("x"..coinYellow,5*s+4,8*s+2)
print("x"..valueYellow,8*s+4,8*s+2,14)
print("= "..math.floor(coinYellow*valueYellow),12*s,8*s+2)
spr(83,15*s,8*s,0)
print("Buy",20*s,8*s+2)
print("Buy all",19*s,10*s+2)
print("Done",20*s,12*s+2)
-- Selection
if marketSelection == MarketOptions.blue then
spr(97,19*s,4*s+1,0)
spr(97,22*s,4*s+1,0,1,1)
elseif marketSelection == MarketOptions.red then
spr(97,19*s,6*s+1,0)
spr(97,22*s,6*s+1,0,1,1)
elseif marketSelection == MarketOptions.yellow then
spr(97,19*s,8*s+1,0)
spr(97,22*s,8*s+1,0,1,1)
elseif marketSelection == MarketOptions.all then
spr(97,18*s,10*s+1,0)
spr(97,24*s,10*s+1,0,1,1)
elseif marketSelection == MarketOptions.done then
spr(97,19*s,12*s+1,0)
spr(97,23*s,12*s+1,0,1,1)
end
end
function draw(state)
if currentState == GameState.start then
drawStart()
elseif currentState == GameState.game then
drawGame()
elseif currentState == GameState.market then
drawGame()
drawMarket()
elseif currentState == GameState.gameover then
drawGameOver()
end
end
function update(state)
if currentState == GameState.start then
if btnp(4) then -- A (Z key)
currentState = GameState.game
life=100
end
elseif currentState == GameState.game then
updateGame()
elseif currentState == GameState.market then
updateMarket()
elseif currentState == GameState.gameover then
if btnp(4) then -- A (Z key)
currentState = GameState.start
end
end
end
function updateGame()
if life == 0 then
currentState = GameState.gameover
return
end
if t%10 ==0 then
life=life-1
end
if btnp(4) then -- A (Z key)
currentState = GameState.market
end
if btnp(5) then -- B (X key)
currentState = GameState.gameover
end
p:direct()
p:update()
end
function updateMarket()
if btnp(0) then -- Up
if marketSelection ~= MarketOptions.blue then
marketSelection = marketSelection - 1
end
elseif btnp(1) then -- Down
if marketSelection ~= MarketOptions.done then
marketSelection = marketSelection + 1
end
elseif btnp(4) then -- A (Z key)
if marketSelection == MarketOptions.blue then
life = life + math.floor(coinBlue*valueBlue)
coinBlue=0
elseif marketSelection == MarketOptions.red then
life = life + math.floor(coinRed*valueRed)
coinRed=0
elseif marketSelection == MarketOptions.yellow then
life = life + math.floor(coinYellow*valueYellow)
coinYellow=0
elseif marketSelection == MarketOptions.all then
life = life + math.floor(coinBlue*valueBlue)
life = life + math.floor(coinRed*valueRed)
life = life + math.floor(coinYellow*valueYellow)
coinBlue=0
coinRed=0
coinYellow=0
elseif marketSelection == MarketOptions.done then
currentState = GameState.game
end
life=math.min(life,100)
elseif btnp(5) then -- B (X key)
currentState = GameState.game
end
end
p=Player
function TIC()
update(currentState)
draw(currentState)
t=t+1
end
--
-- 001:0bbbbbbbbb5b55b5b54544545444444444444444444444c44c44444444444444
-- 002:bbbbbbbb5b55b55b454454454444444444444444444444c44c44444444444444
-- 003:bbbbbbb0b55b555b544544554444444544444444444444c44c44444444444444
-- 017:444444444444c4444c444444444444c444444444444444c444c4444444444444
-- 064:03aaaa3703aaaa3703aa3a3703aaaa3703aaaa3703aaaa3703a3aa3703aaaa37
-- 065:03aaaa3703aa3a3303aaaaaa03aaaaaa03aaaa3a033aaaaa0033333300000000
-- 066:7777777777777777777777777777777777777777777777777777777777777777
-- 080:0088880008822880082882800828828008288280082882800882288000888800
-- 081:00cccc000cc66cc00c6cc6c00c6cc6c00c6cc6c00c6cc6c00cc66cc000cccc00
-- 082:00eeee000ee99ee00e9ee9e00e9ee9e00e9ee9e00e9ee9e00ee99ee000eeee00
-- 083:0660066066666666666666666666666666666666066666600066660000066000
-- 084:000008880000880000880000008eeeee08ee00008ee666608666006680000000
-- 085:0333333333000000300000003000000030000000300000003300000003333333
-- 086:3333333300000000000000000000000000000000000000000000000033333333
-- 096:7773377777733377777333373333333333333333777333377773337777733777
-- 097:0006660000660000066000000660000006600000066000000066000000066600
--
--
-- 001:00044000000cc000000cc000006666000606606000c88c000008080000080800
-- 017:00044000000cc000000cc0000006600000066c00000888000088080000000800
-- 018:00044000000cc000000cc000006666c000c66000000888800008008000880000
-- 033:00044000000cc0c0000cc060006666600066c600000888800888008000000080
-- 034:000440000c0cc0c0060cc0600666666000066600000888000080008008000008
--
--
--
-- 000:00000000ffffffff00000000ffffffff
-- 001:0123456789abcdeffedcba9876543210
-- 002:0123456789abcdef0123456789abcdef
--
--
-- 000:000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000304000000000
--
--
-- 000:140c1c44243430346d4e4a4e854c30346524d04648757161597dced27d2c8595a16daa2cd2aa996dc2cadad45edeeed6
--