Improve code

This commit is contained in:
Rampoina 2023-01-03 22:42:12 +01:00
parent 82a6de5fa2
commit 4d01cdbe75
1 changed files with 23 additions and 20 deletions

View File

@ -7,31 +7,34 @@
Merge{𝕩 0/ m<`=«𝕩 4(¬»m)/𝕩×1+m} # Merge a single row to the right
StepMerge˘ # Merges each row of the board
UpStep() # Each direction merges the board
DownStep # by rotating it to the correct orientation, merging the rows and reversing the rotation
RightStep
DownStep # by rotating it to the correct orientation, merging the rows
RightStep # and reversing the rotation
LeftStep(˘)
Spawn{i•rand.Range(0= / )𝕩 (•rand.Range91/24)(i) 𝕩} # Spawns a 2 or a 4 (10% chance) at a random empty position
# Spawns a 2 or a 4 (10% chance) at a random empty position
Spawn{i•rand.Range(0= / )𝕩 (•rand.Range91/24)(i) 𝕩}
LoseLeftRightDownUp # Losing condition, no moves change the board
Win´·˝2048= # Winning condition, 2048!
boardSpawn 440
e@+27
•term.RawMode 1
Quit{•Out e"[?12l"e"[?25h" •Exit 𝕩} # Restores the terminal and exits
Display{ # Displays the board, score and controls
•Out e"[H"e"[2J" # Cursor to origin and clear screen
•Out "Controls: h: left, j: down, k: up, l: right, q: quit"
•Show 𝕩
•Out "score: "•Repr ´˝ 𝕩
}
boardSpawn 440
e@+27 # Escape character for the ANSI escape codes
•term.RawMode 1
•Out e"[?25l"e"[2J"e"[H" # Cursor to origin, hide it and clear screen
{𝕤
•Out e"[H"e"[2J" # Cursor to origin
•Out "Controls: h: left, j: down, k: up, l: right, q: quit"
•Show board
key•term.CharB @ # Read key
key"hjklq"? # Valid key?
{𝕤•Out e"[?12l"e"[?25h" Quit 0}(key='q')@ # Quit key?
move(key="hjkl")/LeftDownUpRight # Get movement function from the key
{𝕤boardSpawnMove 𝕩}(Move) board # Generate the next board if the move is valid
•Out e"[H" # Cursor to origin
•Show board
{𝕤•Out "You win!" Quit 0}Win board
{𝕤•Out "You lose!" Quit 1}Lose board
; @
Display board
{𝕤•Out "You win!" Quit 0}Win board
{𝕤•Out "You lose!" Quit 1}Lose board
key•term.CharB @ # Read key
key"hjklq"? # Valid key?
{𝕤 Quit 0}(key='q')@ # Quit key?
move(key="hjkl")/LeftDownUpRight # Get movement function from the key
{𝕤boardSpawnMove 𝕩}(Move) board # Generate the next board if the move is valid
; @
}•_While_{𝕤1}@