Compressed Bytes used
785

Source Code (OPTIONAL)
b=btnp
m=menuitem
nt=0
sw="⌂\vy🅾️"
sd="░\vz★□"
mi="\a..eg..a..b....c..ds4"
mr="\a..s4x5c1..x22eg..c3egc5..............s4x5c1"
pms="\a..s7d"
ms=pms
mw="\as6c1"
r=function(a)return rnd(a)\1 end
cls(9)
?"\fd⁘\vm⌂⁘",0,3
?sw..sd,0,16,7
memcpy(0,0x6000,0x1000)
cls()
repeat
pset(r(130),127,1)
circ(r(130),127,r(4),1)
?" dino trails!"..mi,r(99)
flip()
until b()>0
g=0
gg=0
ggg=0
o=0
x=150
t=split("food,dino,wagon")
h={food=20,dino=20,wagon=20}
function _draw()
cls(9)
rect(5,5,39,30,7)
spr(16,50,42,3,2)
?ggg.."m",1,123,7
?"press pause ◆",60,110,7
?"|\vq𝘷🅾️|\vu("..h.food,11,10,7
?sd.." "..h.dino
?sw.." "..h.wagon.."\n"
if b(6) then g+=1 end
if gg>0 then
for f=1,99 do
spr(0,172-f,49)
spr(16,50,42+r(2),3,2)
if r(20)<1 then
df(0,-r(3))
?d[3]..d[4]..mr
a()
ms=pms
if h.food<1 or h.dino<1 or h.wagon<1 then
repeat ?"lose",50,60,1
pal(7,1,1)
flip() until 0==1
end
end
flip()
end
g=0
gg=0
ggg+=r(99)+99
elseif g<1 then
df(r(8),r(8))
end
?d[1].." "..d[2].." for "..d[3].." "..d[4].."?"..ms,5,99,7
end

df=function(a,b)
d={a,t[r(#t)+1],b,t[r(#t)+1]}
end
a=function()
if nt<5 then
h[d[2]]-=d[1]
h[d[4]]+=d[3]
ms=""
end
end
m(1,"𝘮𝘢𝘬𝘦 𝘵𝘳𝘢𝘥𝘦 !!", function()
a()
nt+=1 end)
m(2,"𝘵𝘳𝘦𝘬 𝘰𝘯𝘸𝘢𝘳𝘥 >>", function()
gg=10
nt=0
end)