Compressed Bytes used
1022

Source Code (OPTIONAL)
function _init()
h=10
mh=10
e=0
ne=3
l=1
a=1
r={}
rd={
{"grass path",
"",
{{"goblin",3,3,2},{"blob",1,1,1}}
},
{"forest path",
"",
{{"deer",6,6,3},{"bear",12,12,6}}
},
{"mountain path",
"",
{{"griffin",15,15,9},{"fighter",8,8,2}}
},
{"castle path",
"",
{{"skeleton",5,10,1},{"zombie",7,12,3}}
},
{"cavern path",
"",
{{"bat",1,1,1},{"golem",15,15,8}}
},
{"lair path",
"",
{{"dragon",100,100,30},{"kobold",30,30,12}}
},
}
enemy={}
op={"spar","find","travel"}
o=1
t=""
q=1
travel()
stravel="\asffcdedca"
ssparwin="\as4x5gfedcba"
sspar="\as6x5dcdcd"
sfind="\as3dcdcge"
?stravel
intro=0
end
function _update()
if (intro==0 and btnp(5)) then
intro=1
return
end
if ((intro>1)) return
roll()
if (btnp(2)) o-=1
if (btnp(3)) o+=1
o=mid(1,3,o)
if (btnp(5)) then
if (o==1) spar()
if (o==2) find()
if ((o==3)) travel()
end
end
function roll()
q=flr(rnd(6)+1)
end
function spar()
if (enemy[2]<1) then
find()
return
end
atk=a+q
enemy[2]-=atk
t=q.."+atk "..a.."="..atk
if (enemy[2]<1) then
t=t.." ko"
e+=enemy[4]
?ssparwin
if ((enemy[1]=="dragon")) intro=3
if (e>=ne) then
e=0
ne+=3
a+=enemy[4]
l+=1
mh+=2
h=mh
t=t.." lvl up! atk+"..enemy[4]
end
else
?sspar
h-=enemy[4]
t=t.."\n".."enemy atk:"..enemy[4]
if ((h<1)) intro=2
end
end
function find()
?sfind
q=flr(rnd(2)+1)
for k,v in pairs(r[3][q]) do
enemy[k]=v
end
t="new enemy"
end
function travel()
?stravel
for k,v in pairs(rd[q]) do
r[k]=v
end
find()
t="traveled"
end
function _draw()
cls(0)
if (intro==0) then
?[[you seek strength to
be a new dragon fighter.

press ❎ to start]]
return
end
if (intro==2) then
?[[tired, you return home
try again.]]
return
end
if (intro==3) then
?[[the dragon admires your
strength.
you are a dragon fighter.
you win!]]
return
end

s="dragon fighter\nhealth: "..h.."/"..mh.."\natk: "..a.." level: "..l.." exp: "..e.."/"..ne
?s
rs="\n"..r[1].."\n"
for k,v in pairs(r[3]) do
rs=rs..v[1]..v[4]
if (k<count(r[3])) rs=rs.." and "
end
rs=rs.." spar.\n"
?rs
os="enemy\n"
if (enemy[2]>0) then
os=os..enemy[1].." h:"..enemy[2].."/"..enemy[3]
end
os=os.."\n"
for k,v in pairs(op) do
os=os.."\n"
if k==o then
os=os..">"..v
else
os=os..v
end
end
?os
?"\n"..t
end

Link to Commented Source Code (OPTIONAL)
https://darkgriffin.itch.io/small-adventure