Rampoina
/
Arc
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Clear screen when changing level

This commit is contained in:
Rampoina 2023-03-04 19:13:53 +01:00
parent b5b64f70a1
commit 8abdfce09b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
arc.bqn
View File

@ -97,7 +97,12 @@ clear←""
{𝕤⋄•Out "Invalid key: (hjkl or wasd) to move, u to undo, r to reset level"}⍟(¬⊑key∊"wasdhjkluqr")@
•Out¨ (currentLevel⊑levels) Draw moves
•Out "Moves: "∾•Repr ¯1+≠moves
{𝕤⋄•Out "Good job!, press any key to continue to the next level"⋄•term.CharB @⋄e∾"[H"⋄currentLevel↩currentLevel+1⋄moves↩⟨0‿0⟩}⍟(Win (currentLevel⊑levels) Step´⌽moves)@
{𝕤
•Out "Good job!, press any key to continue to the next level"
•term.CharB @
•Out e∾"[H"∾e∾"[0J"
currentLevel↩currentLevel+1⋄moves↩⟨0‿0⟩
}⍟(Win (currentLevel⊑levels) Step´⌽moves)@
}•_While_{𝕤⋄currentLevel<≠levels}@
•Out "Well played, you win!"
•Out e∾"[?12l"∾e∾"[?25h"