mirrors/parin
1
0
Fork 0
mirror of https://github.com/Kapendev/parin.git synced 2025-04-26 13:09:56 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed SKIP bug, more ops and example.

Browse source
This commit is contained in:
Kapendev 2025-01-22 05:50:37 +02:00
parent d53b929dcb
commit 17c7b00e72
2 changed files with 132 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

59
assets/shape.rin Normal file
View file

@ -0,0 +1,59 @@
## A script that draws a shape on the terminal.
# Create the constants.
$ 8 row_count SET
$ 8 col_count SET
$ row_count GET col_count GET * count SET
$ 0 on SET
$ _ off SET
# Create the board.
$ i INIT
*
$ off GET i GET x CAT SET
$ count GET i INC < IF LOOP THEN
# Add the shape on the board.
$ on GET 1 col_count GET 1 * + x CAT SET
$ on GET 2 col_count GET 1 * + x CAT SET
$ on GET 5 col_count GET 1 * + x CAT SET
$ on GET 6 col_count GET 1 * + x CAT SET
$ 0 i SET
*
$ on GET i GET col_count GET 2 * + x CAT SET
$ 7 0 i INC RANGE IF LOOP THEN
$ 0 i SET
*
$ on GET i GET col_count GET 3 * + x CAT SET
$ 7 0 i INC RANGE IF LOOP THEN
$ 0 i SET
*
$ on GET i GET col_count GET 4 * + x CAT SET
$ 7 0 i INC RANGE IF LOOP THEN
$ 1 i SET
*
$ on GET i GET col_count GET 5 * + x CAT SET
$ 6 1 i INC RANGE IF LOOP THEN
$ 2 i SET
*
$ on GET i GET col_count GET 6 * + x CAT SET
$ 5 2 i INC RANGE IF LOOP THEN
$ 3 i SET
*
$ on GET i GET col_count GET 7 * + x CAT SET
$ 4 3 i INC RANGE IF LOOP THEN
## Draw the board.
$ i INIT
*
$ i GET x CAT item SET
$ col_count GET i GET % 1 col_count GET - = is_last SET
$ item GET GET is_last GET IF ECHO ELSE ECHON THEN
$ off GET i GET x CAT SET
$ count GET i INC < IF LOOP THEN