Recent Posts

41

NOT BASIC / Re: Using 8th programming language and RPI based solution to save on electric bill

« Last post by John on July 30, 2023, 09:45:02 AM »

My home automation system is based on Alexa with multiple WIFI enabled controllers. My heating / AC has an IR based remote but no WIFI control. That feature only exists in the Asian market. I was thinking of using a RPi Zero to do the interface to Alexa.

42

NOT BASIC / Using 8th programming language and RPI based solution to save on electric bill

« Last post by jalih on July 30, 2023, 04:51:30 AM »

I wrote a home automation software using 8th to save on my electric bills. Currently it optimizes water heating to be on for wanted amount of the cheapest consecutive hours of the day. It also switches water heating on when solar forecast shows there is enough solar power. Software integrates web server that can be scripted directly and safely using the 8th programming language.

I have a version that implements publisher/subscriber pattern on top of the WebSocket interface coming soon. It then allows simple realtime monitoring and control.

43

Off Topic / Re: Raspberry Pi forums is a joke

« Last post by John on July 23, 2023, 10:35:32 PM »

That is why I like ScriptBasic. You don't have to declare anything and that includes arrays.

44

Off Topic / Re: Raspberry Pi forums is a joke

« Last post by jalih on July 23, 2023, 02:25:51 PM »

Obviously, the original poster didn't want to do the work.  He wanted you to do it for him.

He/She would have been better served if they showed (based on the link you provided) what they had attempted; THEN others could have chimed in with suggestions on making it actually work.

I get the distinct feeling that their so-called 'code' is a bunch of copy-paste from examples etc, with no time/effort put in towards actually understanding how and why it works.

I think so, too! Just for fun, I registered another forum account and rewrote almost all of the the tutorial code. If I can take the time to download and install the behemoth called Qt Creator and learn enough C++ to write a simple game, why that user can't take the time to learn anything beyond copy paste coding?

Here is what I was able write without any C++ skills

45

Off Topic / Re: Raspberry Pi forums is a joke

« Last post by AIR on July 15, 2023, 08:27:00 AM »

I got banned from RPI forums when I just tried to give advice about how keyboard input should be handled. User could not understand that keyboard state should be tested inside the game loop to make game run at constant speed. Key events can occur outside the game loop making player move when it's not supposed to. That can be solved easily by making key events update key state table and using that table to get the current key state inside the game loop. I can't really understand how I managed to offend someone... 

Obviously, the original poster didn't want to do the work.  He wanted you to do it for him.

He/She would have been better served if they showed (based on the link you provided) what they had attempted; THEN others could have chimed in with suggestions on making it actually work.

I get the distinct feeling that their so-called 'code' is a bunch of copy-paste from examples etc, with no time/effort put in towards actually understanding how and why it works.

Just my two cents...

AIR.

46

Off Topic / Re: Raspberry Pi forums is a joke

« Last post by John on July 14, 2023, 09:09:44 AM »

I would be happy to register you on the RaspberryBASIC.org forum if you like.

The moderators on the RPi forum are power tripping Aholes.

47

Off Topic / Raspberry Pi forums is a joke

« Last post by jalih on July 14, 2023, 07:33:10 AM »

I got banned from RPI forums when I just tried to give advice about how keyboard input should be handled. User could not understand that keyboard state should be tested inside the game loop to make game run at constant speed. Key events can occur outside the game loop making player move when it's not supposed to. That can be solved easily by making key events update key state table and using that table to get the current key state inside the game loop. I can't really understand how I managed to offend someone... 

48

Code Repository / Re: 2048 Challenge

« Last post by jalih on July 14, 2023, 07:14:20 AM »

Here is the full 8th source code for my game:

Code: [Select]

\
\ 2048 game for the 8th programming language
\
needs[ nk/gui nk/buttons nk/keyboard ]
needs stack/rstack

22 font:system font:new "font1" font:atlas! drop
42 font:system font:new "font2" font:atlas! drop
84 font:system font:new "font3" font:atlas! drop

\ Game states
0 constant PLAY
1 constant WON
2 constant GAMEOVER

[ @scan:LEFT, @scan:RIGHT, @scan:UP, @scan:DOWN ] constant CURSOR-KEYS

: key-state-changed?   \  s a -- a
  nk:scancode?
  ( if 1 else 0 then ) a:map over nk:get over ?:
  rot 2 pick nk:set
  ' n:cmp a:2map ;

: cursor-key?  \ -- n | null
  null "keystates" CURSOR-KEYS key-state-changed?
  (
    swap a:pop -1 n:= if
      rot drop break
    else
      nip
    then
  ) 0 2 pick a:len nip n:1- loop- drop ;

4 constant GRID-SIZE
GRID-SIZE n:sqr constant GRID-SIZE-SQUARED

[[204,192,179,255],[238,228,218,255],[237,224,200,255],[242,177,121,255],
 [245,149,99,255],[246,124,95,255],[246,94,59,255],[237,207,114,255],
 [237,204,97,255],[237,200,80,255],[237,197,63,255],[237,194,46,255]] constant bg-colors

[[249,246,242,255],[119,110,101,255]] constant fg-colors

var empty-cells
nullvar tile-items
nullvar block-list

: update-empty-cells
  a:new
  ( tile-items @ over a:_@ null? if
      drop a:push
     else
       2drop
     then
  ) 0 GRID-SIZE-SQUARED n:1- loop
  empty-cells ! ;

: random-tile
  [1,1,1,1,1,1,1,1,1,2] a:len rand-pcg swap n:mod a:_@ ;

: create-new-tile
  empty-cells @
  a:len rand-pcg swap n:mod dup>r a:@ tile-items @ swap random-tile a:! drop r> a:- drop ;

: get-row-at  \ n -- a
  a:new
  ( >r tile-items @
    2 pick GRID-SIZE n:* r@ n:+ a:_@ null? if
      drop 0 a:push
    else
      a:push
    then rdrop
  ) 0 GRID-SIZE n:1- loop nip ;

: get-column-at  \ n -- a
  a:new
  ( >r tile-items @
    r@ GRID-SIZE n:* 3 pick n:+ a:_@ null? if
      drop 0 a:push
    else
      a:push
    then rdrop
  ) 0 GRID-SIZE n:1- loop nip ;

: merge   \ source-row -- indices merged-row
  a:new   \ source-row non-empty-tiles
  a:new   \ source-row non-empty-tiles indices

  ( dup>r 2 pick a:len nip a:!
    2 pick r@ a:_@ dup 0 n:> if
      2 pick swap a:push drop
    else
      drop
    then
    rdrop
  ) 0 4 pick a:len nip n:1- loop
 
  a:new
  \ source-row non-empty-tiles indices merged-row

  ( dup>r 3 pick a:len nip n:1- n:= if
      2 pick r@ a:_@ a:push
    else
      2 pick r@ dup n:1+ 2 a:close a:_@ a:open n:= if
        ( >r over r@ a:_@ over a:len nip n:> if
            over r@ a:@ n:1- r@ swap a:! drop
          then
          rdrop
        ) 0 5 pick a:len nip n:1- loop
        2 pick r@ a:_@ n:1+ a:push
        2 step
      else
        2 pick r@ a:_@ a:push
      then
    then
    rdrop
  ) 0 4 pick a:len nip n:1- loop

  ( 0 a:! ) over a:len nip 5 pick a:len nip n:1- loop 2swap 2drop ;

\ block format: [index,value,target,merged,LERP]
: build-block-list
  a:new
  tile-items @
  ( null? !if
      2dup 0 5 a:close a:push
    else
      2drop
    then
  ) a:each drop
  block-list ! ;

locals:
: move-left
  false "moved?" w:!
  a:new "blocks" w:!
  ( dup>r get-row-at dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      ( >r "source-row" w:@ r@ a:_@ 0 n:> "indices" w:@ r@ a:_@ r@ n:= not and if
          \ checks if a merge has happened and at what position
          "merged-row" w:@ "indices" w:@ r@ a:_@  a:_@
           "source-row" w:@ r@ a:_@ n:>
           tile-items @ GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+ a:_@ null? if
             drop false
           else
             drop true
           then
           and if
             \ move and merge
             "blocks" w:@
             GRID-SIZE 1 rpick n:* r@ n:+
             tile-items @ over a:_@
             GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+
             over n:1+
             1
             5 a:close a:push drop

             tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:@ n:1+
             GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+ swap a:! drop
           else
             \ move
              "blocks" w:@
              GRID-SIZE 1 rpick n:* r@ n:+
              tile-items @ over a:_@
              GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+
              over
              1
              5 a:close a:push drop

              tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:@
              GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+ swap a:! drop             
           then
           tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ null a:! drop
        else
          tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:_@ null? !if             
            drop
            "blocks" w:@
            GRID-SIZE 1 rpick n:* r@ n:+
            tile-items @ over a:_@
            2dup
            0
            5 a:close a:push drop
          else
            drop
          then
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    else
      ( >r
        tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:_@ null? !if             
          drop
          "blocks" w:@
          GRID-SIZE 1 rpick n:* r@ n:+
          tile-items @ over a:_@
          2dup
          0
          5 a:close a:push drop
        else
          drop
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ if
    update-empty-cells
    create-new-tile
  then

  "blocks" w:@ block-list ! ;

locals:
: move-right
  false "moved?" w:!
  a:new "blocks" w:!
  ( dup>r get-row-at a:rev dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      "source-row" w:@ a:rev "source-row" w:!
      "merged-row" w:@ a:rev "merged-row" w:!
      "indices" w:@ a:rev "indices" w:!
     
      \ recalculate the indices from the end to the start
      ( "indices" w:@ swap GRID-SIZE n:1- 2 pick 2 pick a:_@ n:- a:! drop
      ) 0 GRID-SIZE n:1- loop

      ( "source-row" w:@ a:len nip n:1- swap n:- >r
        "source-row" w:@ r@ a:_@ 0 n:> "indices" w:@ r@ a:_@ r@ n:= not and if
        \ checks if a merge has happened and at what position
        "merged-row" w:@ "indices" w:@ r@ a:_@  a:_@
         "source-row" w:@ r@ a:_@ n:>
         tile-items @ GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+ a:_@ null? if
           drop false
         else
           drop true
         then
         and if
           \ move and merge
             "blocks" w:@
             GRID-SIZE 1 rpick n:* r@ n:+
             tile-items @ over a:_@
             GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+
             over n:1+
             1
             5 a:close a:push drop

             tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:@ n:1+
             GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+ swap a:! drop
           else
             \ move
              "blocks" w:@
              GRID-SIZE 1 rpick n:* r@ n:+
              tile-items @ over a:_@
              GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+
              over
              1
              5 a:close a:push drop

              tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:@
              GRID-SIZE 1 rpick n:* "indices" w:@ r@ a:_@ n:+ swap a:! drop             
           then
           tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ null a:! drop
        else
          tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:_@ null? !if             
            drop
            "blocks" w:@
            GRID-SIZE 1 rpick n:* r@ n:+
            tile-items @ over a:_@
            2dup
            0
            5 a:close a:push drop
          else
            drop
          then
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    else
      ( "source-row" w:@ a:len nip n:1- swap n:- >r
        tile-items @ GRID-SIZE 1 rpick n:* r@ n:+ a:_@ null? !if             
          drop
          "blocks" w:@
          GRID-SIZE 1 rpick n:* r@ n:+
          tile-items @ over a:_@
          2dup
          0
          5 a:close a:push drop
        else
          drop
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ if
    update-empty-cells
    create-new-tile
  then

  "blocks" w:@ block-list ! ;

locals:
: move-up
  false "moved?" w:!
  a:new "blocks" w:!
  ( dup>r get-column-at dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      ( >r "source-row" w:@ r@ a:_@ 0 n:> "indices" w:@ r@ a:_@ r@ n:= not and if
          \ checks if a merge has happened and at what position
          "merged-row" w:@ "indices" w:@ r@ a:_@  a:_@
           "source-row" w:@ r@ a:_@ n:>
           tile-items @ GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+ a:_@ null? if
             drop false
           else
             drop true
           then
           and if
             \ move and merge
             "blocks" w:@
             GRID-SIZE r@ n:* 1 rpick n:+
             tile-items @ over a:_@
             GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+
             over n:1+
             1
             5 a:close a:push drop

             tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:@ n:1+
             GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+ swap a:! drop
           else
             \ move
              "blocks" w:@
              GRID-SIZE r@ n:* 1 rpick n:+
              tile-items @ over a:_@
              GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+
              over
              1
              5 a:close a:push drop

              tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:@
              GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+ swap a:! drop             
           then
           tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ null a:! drop
        else
          tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:_@ null? !if             
            drop
            "blocks" w:@
            GRID-SIZE r@ n:* 1 rpick n:+
            tile-items @ over a:_@
            2dup
            0
            5 a:close a:push drop
          else
            drop
          then
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    else
      ( >r
        tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:_@ null? !if             
          drop
          "blocks" w:@
          GRID-SIZE r@ n:* 1 rpick n:+
          tile-items @ over a:_@
          2dup
          0
          5 a:close a:push drop
        else
          drop
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ if
    update-empty-cells
    create-new-tile
  then

  "blocks" w:@ block-list ! ;

locals:
: move-down
  false "moved?" w:!
  a:new "blocks" w:!
  ( dup>r get-column-at a:rev dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      "source-row" w:@ a:rev "source-row" w:!
      "merged-row" w:@ a:rev "merged-row" w:!
      "indices" w:@ a:rev "indices" w:!
     
      \ recalculate the indices from the end to the start
      ( "indices" w:@ swap GRID-SIZE n:1- 2 pick 2 pick a:_@ n:- a:! drop
      ) 0 GRID-SIZE n:1- loop

      ( "source-row" w:@ a:len nip n:1- swap n:- >r
        "source-row" w:@ r@ a:_@ 0 n:> "indices" w:@ r@ a:_@ r@ n:= not and if
        \ checks if a merge has happened and at what position
        "merged-row" w:@ "indices" w:@ r@ a:_@  a:_@
         "source-row" w:@ r@ a:_@ n:>
         tile-items @ GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+ a:_@ null? if
           drop false
         else
           drop true
         then
         and if
             \ move and merge
             "blocks" w:@
             GRID-SIZE r@ n:* 1 rpick n:+
             tile-items @ over a:_@
             GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+
             over n:1+
             1
             5 a:close a:push drop

             tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:@ n:1+
             GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+ swap a:! drop
           else
             \ move
              "blocks" w:@
              GRID-SIZE r@ n:* 1 rpick n:+
              tile-items @ over a:_@
              GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+
              over
              1
              5 a:close a:push drop

              tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:@
              GRID-SIZE "indices" w:@ r@ a:_@ n:* 1 rpick n:+ swap a:! drop             
           then
           tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ null a:! drop
        else
          tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:_@ null? !if             
            drop
            "blocks" w:@
            GRID-SIZE r@ n:* 1 rpick n:+
            tile-items @ over a:_@
            2dup
            0
            5 a:close a:push drop
          else
            drop
          then
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    else
      ( >r
        tile-items @ GRID-SIZE r@ n:* 1 rpick n:+ a:_@ null? !if             
          drop
          "blocks" w:@
          GRID-SIZE r@ n:* 1 rpick n:+
          tile-items @ over a:_@
          2dup
          0
          5 a:close a:push drop
        else
          drop
        then
        rdrop
      ) 0 "source-row" w:@ a:len nip n:1- loop
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ if
    update-empty-cells
    create-new-tile
  then

  "blocks" w:@ block-list ! ;

locals:
: test-left
  false "moved?" w:!
  ( dup>r get-row-at dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      break
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ ;

locals:
: test-right
  false "moved?" w:!
  ( dup>r get-row-at a:rev dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      break
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ ;

locals:
: test-up
  false "moved?" w:!
  ( dup>r get-column-at dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      break
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ ;

locals:
: test-down
  false "moved?" w:!
  ( dup>r get-column-at a:rev dup "source-row" w:!
    merge "merged-row" w:! "indices" w:!
    "source-row" w:@ "merged-row" w:@ ' n:= a:= 2nip !if
      true "moved?" w:!
      break
    then
    rdrop
  ) 0 GRID-SIZE n:1- loop
 
  "moved?" w:@ ;

: can-move?
  test-left test-right or
  test-up or test-down or ;

: won?
  0
  tile-items @
  ( null? !if
      11 n:= if
        1 n:bor
      then
    else
      drop
    then
   ) a:each! drop ;

: new-win
  {
    name: "main",
    wide: 512,
    high: 512,
    resizable: false,
    bg: "white",
    title: "2048"
  } nk:win ;

: init
  a:new tile-items !
  ( update-empty-cells
      create-new-tile ) 2 times

  build-block-list ;

\ t should be between 0 to 1 range
: lerp \ a b t -- n
  0 1 n:clamp >r over n:- r> n:* n:+ ;

\ draws text centered inside rectangle
: centered-text  \ rect s font bg-color fg-color -- 
  3 pick 3 pick nk:measure-font nk:pt>rect 5 roll swap nk:center-rect -4 roll nk:draw-text ;

: index>rect  \ n -- rect
  dup GRID-SIZE n:/ n:int swap
  GRID-SIZE n:mod
  1 tuck nk:grid ;

: draw-blocks
  block-list @
  ( -1 a:@ >r
    2 a:@ index>rect nk:rect>pos nk:x>pt
    over 0 a:_@ index>rect tuck nk:rect>pos x>pt
    ( r@ lerp ) a:2map rdrop
    2 pick [1,3,4] a:_@ a:open 0 n:= if
      nip
    else
      drop
    then
    >r swap nk:rect>size nk:pt>rect swap nk:rect-ofs dup 4 bg-colors r@ a:_@ nk:fill-rect
    2 r@ n:^ >s "font2" bg-colors r@ a:_@ fg-colors r> 3 n:< >n a:_@ centered-text
    drop
  ) a:each! drop ;

: game-over
  0 1 0 1 nk:grid "Game Over" "font3" [238,228,218,128] fg-colors 1 a:_@ centered-text ;

: won
  0 1 0 1 nk:grid "You Won!" "font3" [238,228,218,128] fg-colors 1 a:_@ centered-text ;
 
: 2048
  nk:widget if
    1 1 nk:layout-grid-begin
      0 1 0 1 nk:grid
        4 [119,110,101,255] nk:fill-rect
      0 1 0 1 nk:grid { rows: 4, cols: 4, rgap: 8, cgap: 8, margin: 8 } nk:layout-grid-begin   
        ( >r
          ( 1 r@ 1 nk:grid
            4 bg-colors 0 a:_@ nk:fill-rect
          ) 0 3 loop rdrop
        ) 0 3 loop

        "game-state" nk:get !if
          0  \ blocks moving? flag
          block-list @
          ( -1 a:@ dup if
              0.1 n:- 0 1 n:clamp -1 swap a:! drop
              1 n:bor
            else
              2drop
            then
          ) a:each! drop
          !if
            build-block-list
            cursor-key? null? !if
              [ ' move-left , ' move-right , ' move-up , ' move-down ] case
              won? if
                build-block-list
                "game-state" WON nk:set
              else
                can-move? !if
                  build-block-list
                  "game-state" GAMEOVER nk:set
                then
              then
              null nk:do
            else
              drop
            then
          else
            null nk:do     
          then
        then

        draw-blocks
         
      nk:layout-grid-end
      [ ' noop , ' won , ' game-over ]
      "game-state" nk:get case
    nk:layout-grid-end
  else
    drop
  then ;

: top
  nk:widget if
    1 1 nk:layout-grid-begin
      0 1 0 1 nk:grid
        4 [119,110,101,255] nk:fill-rect
      0 1 0 1 nk:grid { rows: 1, cols: 1, cgap: 8, margin: 8 } nk:layout-grid-begin   
        0 1 0 1 nk:grid nk:rect>local nk:grid-push
          "Restart" ( init "game-state" PLAY nk:set ) nk:button-label
      nk:layout-grid-end
    nk:layout-grid-end
  else
    drop
  then ;

: main-render
  {
    bg: "white",
    flags: [ @nk:WINDOW_NO_SCROLLBAR ],
    game-state: @PLAY
  }
  nk:begin
    null { rows: [0.1,0.9], cols: 1, rgap: 4, margin: 0 } nk:layout-grid-begin
      0 1 0 1 nk:grid nk:rect>local nk:grid-push
        top
      1 1 0 1 nk:grid nk:rect>local nk:grid-push
        2048
    nk:layout-grid-end
  nk:end ;

: app:main
  init 
  new-win ' main-render -1 nk:render-loop ;


49

Code Repository / Re: 2048 Challenge

« Last post by John on July 12, 2023, 01:42:00 PM »

Does it animate sliding blocks?

Yes, but not as smooth as yours.

I attached the compiled 2048.exe file.

50

Code Repository / Re: 2048 Challenge

« Last post by jalih on July 12, 2023, 09:46:05 AM »

This is a VB6 version I found. I had to replace the StatusBar with a Label to get it to compile. StatusBar doesn't seem to be a valid common control in later updates of the library.

Does it animate sliding blocks?

I was able to complete my 8th version.