smb docs
This commit is contained in:
449
smbreplay/smbreplay.p8
Normal file
449
smbreplay/smbreplay.p8
Normal file
@@ -0,0 +1,449 @@
|
||||
pico-8 cartridge // http://www.pico-8.com
|
||||
version 42
|
||||
__lua__
|
||||
function _init()
|
||||
|
||||
for i=0,20 do
|
||||
printh("")
|
||||
end
|
||||
|
||||
printh("init")
|
||||
end
|
||||
|
||||
function _update60()
|
||||
if statechange then
|
||||
statechange=false
|
||||
states[state]:init()
|
||||
end
|
||||
states[state]:update()
|
||||
|
||||
end
|
||||
|
||||
function _draw()
|
||||
states[state]:draw()
|
||||
for r in all(states[state].routines) do
|
||||
if costatus(r) == "dead" then
|
||||
del(states[state].routines,r)
|
||||
else
|
||||
assert(coresume(r))
|
||||
end
|
||||
end
|
||||
end
|
||||
-->8
|
||||
--globals
|
||||
--global environment
|
||||
global=_ENV
|
||||
|
||||
--timer
|
||||
tim=0
|
||||
|
||||
--class
|
||||
class=setmetatable({
|
||||
new=function(_ENV,tbl)
|
||||
tbl=setmetatable(tbl or {},{
|
||||
__index=_ENV
|
||||
})
|
||||
|
||||
tbl:init()
|
||||
|
||||
return tbl
|
||||
end,
|
||||
init=function()end
|
||||
},{__index=_ENV})
|
||||
|
||||
|
||||
--states
|
||||
state="intro"
|
||||
statechange=true
|
||||
states={
|
||||
--state.intro
|
||||
intro={
|
||||
init=function(self)
|
||||
self.x=45
|
||||
self.y=128
|
||||
self.intro=cocreate(function()
|
||||
for i=80,30,-1 do
|
||||
self.y=i
|
||||
yield()
|
||||
end
|
||||
end)
|
||||
end,
|
||||
update=function(self)
|
||||
if btnp(🅾️) then
|
||||
statechange=true
|
||||
state="gameplay"
|
||||
end
|
||||
if costatus(self.intro)!="dead" then
|
||||
coresume(self.intro)
|
||||
end
|
||||
|
||||
end,
|
||||
draw=function(self)
|
||||
cls()
|
||||
cursor(self.x,self.y)
|
||||
print("welcome!")
|
||||
print("⬅️ left")
|
||||
print("➡️ right")
|
||||
print("❎ jump")
|
||||
print("🅾️ reset")
|
||||
print("press 🅾️ to continue")
|
||||
end
|
||||
},
|
||||
--state.gameplay
|
||||
gameplay={
|
||||
routines={}, --todo add death anims
|
||||
init=function()
|
||||
pl = player:new()
|
||||
tim=time()
|
||||
pl.x,pl.y=maps[currentmap]:init()
|
||||
add(entities,pl)
|
||||
end,
|
||||
update=function()
|
||||
buttons=btn()
|
||||
for entity in all(entities) do
|
||||
entity:update()
|
||||
end
|
||||
end,
|
||||
draw=function()
|
||||
cls()
|
||||
maps[currentmap]:draw()
|
||||
for e in all(entities) do
|
||||
e:draw()
|
||||
end
|
||||
cursor(0,100)
|
||||
color(7)
|
||||
print("time:"..time()-tim)
|
||||
print("attempts:"..count(replays))
|
||||
|
||||
end
|
||||
},
|
||||
--state.replay
|
||||
replay={
|
||||
routines={},
|
||||
init=function(self)
|
||||
printh(#replays)
|
||||
|
||||
end,
|
||||
update=function(self)
|
||||
for entity in all(entities) do
|
||||
entity:update()
|
||||
|
||||
end
|
||||
if #entities==0 then
|
||||
entities={}
|
||||
printh("replays:"..#replays)
|
||||
for a in all(replays) do
|
||||
t={}
|
||||
for item in all(a) do
|
||||
add(t,item)
|
||||
end
|
||||
rep=replayer:new({actions=t,c=rnd(16)})
|
||||
rep.x,rep.y=maps[currentmap]:init()
|
||||
add(entities,rep)
|
||||
end
|
||||
end
|
||||
end,
|
||||
draw=function(self)
|
||||
cls()
|
||||
maps[currentmap]:draw()
|
||||
for e in all(entities) do
|
||||
e:draw()
|
||||
end
|
||||
cursor(10,100)
|
||||
print("you won! in only "..#replays.." attempts!")
|
||||
print("press 🅾️ to go to next level")
|
||||
|
||||
end,
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
--entity
|
||||
entity=class:new({
|
||||
x=1,
|
||||
y=1,
|
||||
w=8,
|
||||
h=8,
|
||||
routines={},
|
||||
actions={},
|
||||
})
|
||||
entities={}
|
||||
|
||||
--btn
|
||||
buttons=0
|
||||
|
||||
--replays
|
||||
replays={}
|
||||
|
||||
--gravity
|
||||
gravity=.2
|
||||
|
||||
--helper functions
|
||||
function hitx(e)
|
||||
fl=0
|
||||
for x=0,e.w do
|
||||
x1,y1,y2=(e.x+x)/8,e.y-1/8,(e.y+e.h-1)/8
|
||||
fl=fl|fget(mget(x1,y1))|fget(mget(x1,y2))
|
||||
end
|
||||
return fl
|
||||
end
|
||||
|
||||
function hity(e)
|
||||
fl=0
|
||||
for y=0,e.h do
|
||||
x1,x2,y1=e.x/8,(e.x+e.w)/8,(e.y+y)/8
|
||||
fl=fl|fget(mget(x1,y1))|fget(mget(x2,y1))
|
||||
end
|
||||
return fl
|
||||
end
|
||||
|
||||
function hitbottom(obj)
|
||||
fl=0
|
||||
for x=0,obj.w,obj.w do
|
||||
x1,y1=(obj.x+x)/8,(obj.y+obj.h+1)/8 --1 below
|
||||
fl=fl|fget(mget(x1,y1))
|
||||
end
|
||||
return (fl==1)
|
||||
end
|
||||
|
||||
--restart(win?,actions)
|
||||
function restart(w,obj)
|
||||
add(replays,obj.actions)
|
||||
if w then
|
||||
sfx(10,1)
|
||||
entities={}
|
||||
tim=time()
|
||||
for a in all(replays) do
|
||||
t={}--this is necessary because it otherwise stores a ref, not a clone
|
||||
for item in all(a) do
|
||||
add(t,item)
|
||||
end
|
||||
rep=replayer:new({actions=t,c=rnd(16)})
|
||||
rep.x,rep.y=maps[currentmap]:init()
|
||||
add(entities,rep)
|
||||
end
|
||||
state="replay"
|
||||
statechange=true
|
||||
else
|
||||
sfx(9)
|
||||
add(states[state].routines,cocreate(function()
|
||||
a={16,16,32,32,48,48,48}
|
||||
bx,by=obj.x,obj.y
|
||||
for x in all(a) do
|
||||
printh(bx)
|
||||
spr(x,bx,by)
|
||||
yield()
|
||||
end
|
||||
end))
|
||||
entities,tim={},time()
|
||||
sx,sy=maps[currentmap]:init()
|
||||
add(entities,player:new({actions={},x=sx,y=sy}))
|
||||
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-->8
|
||||
--characters
|
||||
|
||||
--npc
|
||||
npc=entity:new({
|
||||
spd=.5,
|
||||
s=0,--sprite
|
||||
v=.5,
|
||||
c=8,
|
||||
f=false,
|
||||
update=function(_ENV)
|
||||
end,
|
||||
draw=function(_ENV)
|
||||
pal(8,c)
|
||||
spr(s,x-(8-w)/2,y-(8-h)/2,1,1,f)
|
||||
pal()
|
||||
end
|
||||
|
||||
})
|
||||
|
||||
player=npc:new({
|
||||
x=6,
|
||||
y=6,
|
||||
s=0,
|
||||
yv=0,
|
||||
xv=0,
|
||||
-- w=6,
|
||||
-- h=6,
|
||||
j=3, --jump height
|
||||
friction=.5,
|
||||
actions={},
|
||||
update=function(self)
|
||||
-- self.xv,self.yv=0,0 --l,r,u,d
|
||||
self.xv*=self.friction
|
||||
self:grav()
|
||||
self:move()
|
||||
self.x+=self.xv
|
||||
self.y+=self.yv
|
||||
if (self.xv>0) self.f=false
|
||||
if (self.xv<0) self.f=true
|
||||
end,
|
||||
grav=function(self)
|
||||
self.yv+=gravity
|
||||
end,
|
||||
jump=function(self)
|
||||
if (hitbottom(self)) then
|
||||
sfx(8,-1,0,rnd(16))
|
||||
self.yv-=self.j
|
||||
end
|
||||
end,
|
||||
move=function(self)
|
||||
local b=global.buttons
|
||||
if ((b&0b0001)!=0) self.xv-=self.v
|
||||
if ((b&0b0010)!=0) self.xv+=self.v
|
||||
if ((b&0x10)!=0) self:jump()
|
||||
if (btnp(❎)) restart(false,self)
|
||||
t=player:new({x=self.x+self.xv,y=self.y+self.yv})
|
||||
fx,fy=hitx(t),hity(t)
|
||||
if (((fx|fy)&0x4)!=0) restart(false,self)
|
||||
if (((fx|fy)&0x2)!=0) restart(true,self)
|
||||
-- if ((fx&0x1)!=0) self.xv=0
|
||||
if ((fy&0x1)!=0) self.yv=0
|
||||
|
||||
add(self.actions,b)
|
||||
end
|
||||
})
|
||||
|
||||
replayer=player:new({
|
||||
i=1,
|
||||
alive=true,
|
||||
c=8,
|
||||
move=function(self)
|
||||
local b = self.actions[1] or 0x0
|
||||
if ((b&0x1)!=0) self.xv-=self.v
|
||||
if ((b&0x2)!=0) self.xv+=self.v
|
||||
if ((b&0x10)!=0) self:jump()
|
||||
|
||||
t=player:new({x=self.x+self.xv,y=self.y+self.yv})
|
||||
fx,fy=hitx(t),hity(t)
|
||||
if ((fx&0x1)!=0) self.xv=0
|
||||
if ((fy&0x1)!=0) self.yv=0
|
||||
deli(self.actions,1)
|
||||
if (#self.actions==0) then
|
||||
del(entities,self)
|
||||
sfx(9)
|
||||
end
|
||||
|
||||
end
|
||||
})
|
||||
-->8
|
||||
--maps
|
||||
maps={
|
||||
forrest={
|
||||
x=0,
|
||||
y=0,
|
||||
pl={},
|
||||
init=function(self)
|
||||
map(self.x,self.y)
|
||||
for x=0,15 do
|
||||
for y=0,15 do
|
||||
if (mget(x,y)==0) then
|
||||
px,py=x*8,y*8
|
||||
end
|
||||
end
|
||||
end
|
||||
return px,py
|
||||
end,
|
||||
draw=function(self)
|
||||
pal(pl)
|
||||
map(self.x,self.y)
|
||||
|
||||
for x=0,128,8 do
|
||||
for y=0,128,8 do
|
||||
if fget(mget(x/8,y/8),0x0) then
|
||||
if (not fget(mget(x/8,y/8-1),0x0)) then
|
||||
sspr(16,8,8,2,x,y)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end,
|
||||
}
|
||||
}
|
||||
currentmap="forrest"
|
||||
__gfx__
|
||||
000000008888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
000000008888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
088888808888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
088080808888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
088080808888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
088888808888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
088888808888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
008008008888888855555555eeeeeeee000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000b3bb33bb00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000075503b00000b00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000005c00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00080000000005500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0000800000000bb00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000008b800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000080800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00008000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00008000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00888080000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00080000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00800800000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00808000000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00088800000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00808000000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00008800000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000009999999900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
__gff__
|
||||
0004010200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
__map__
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222220222222222032222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222220222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222020222220222222222222222220222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222220222220222022222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222202220222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222220222222222222202222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0222222222220222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0022220222220222022222022222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222220222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0022022222220222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0202020202020201010101010101010102222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
__sfx__
|
||||
000100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0001000029050340502f0502505016050090500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
0004000017750097500c750157502c750147501475014750057500a75005750057500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
000500001a2501e2501f2502325000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
Reference in New Issue
Block a user