pyrex/chameleonic
1
1
Fork 1
Code Issues Pull Requests 2 Packages Projects Releases Wiki Activity

Implement hint system and music mute. #18

Merged
pyrex merged 3 commits from kistaro/chameleonic:hintsystem into main 2023-01-01 07:56:38 +00:00
Conversation 1 Commits 3 Files Changed 1 +19 -11
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 8a192f87a2 - Show all commits

30
chameleonic.p8
View File

@ -26,6 +26,13 @@ function music_off()
menuitem(3, "music: off", music_on)
end
function gsv(s)
local ret=split(s,"\n")
for i,v in ipairs(ret) do
ret[i] = type(v) == "string" and split(v,"`") or {v} end
return ret
end
mnames={}
function names(root)
local n=mnames[root]
@ -1728,13 +1735,6 @@ end
-->8
--hint system
function gsv(s)
local ret=split(s,"\n")
for i,v in ipairs(ret) do
ret[i] = type(v) == "string" and split(v,"`") or {v} end
return ret
end
function rot13(s)
local sord = pack(ord(s,1,#s))
for i,c in ipairs(sord) do
@ -1758,21 +1758,29 @@ function hints:init()
for rec in all(h) do
rec[4]=rot13(rec[4])
local lh = self[rec[1]]
if not lh then
lh = {rec}
self[rec[1]] = lh
else
if lh then
add(lh,rec)
else
kistaro marked this conversation as resolved Outdated
pyrex commented 2023-01-01 07:43:10 +00:00
Outdated
Review
Copy Link

This bit can be golfed more but I don't care.

This bit can be golfed more but I don't care.
kistaro commented 2023-01-01 07:51:31 +00:00
Outdated
Review
Copy Link

Trimmed

Trimmed
self[rec[1]] = {rec}
end
end
menuitem(1,"get hint",function() level.hintlevel+=1 end)
menuitem(2,"hide hints",function() level.hintlevel=0 end)
-- debug mode: enable mouse
poke(0x5f2d,1)
end
hintflicker={7,10,9,8,8,9,10,7}
function hints:draw2()
pal()
local c=hintflicker[t()%1*#hintflicker\1+1]
-- debug mode: mouse coord display
if stat(34) != 0 then
local mousex, mousey = stat(32), stat(33)
print("x ("..mousex..", "..mousey..")",mousex,mousey,c)
end
for i,h in ipairs(self[level.ix]) do
if (i > level.hintlevel) return
local _,x,y,txt=unpack(h)