\ 2048 Game
\ Sliding squares game translated from XPL0 version.
\ This version adds score display and winning message.
\ \ Assumes ANSI colour terminal and 200x cursor keys
\ Tested on Gforth for Windows

Use ESC to quit

https://pastebin.com/4jJ0eec7

Le jeudi 29 juin 2023 à 16:34:45 UTC+2, dxforth a écrit :
> \ 2048 Game
> \ Sliding squares game translated from XPL0 version.
> \ This version adds score display and winning message.
> \
> \ Assumes ANSI colour terminal and 200x cursor keys
> \ Tested on Gforth for Windows
>
> Use ESC to quit
>
> https://pastebin.com/4jJ0eec7
you can inspire too from this one https://gitlab.com/goblinrieur/2048
with colors & score file too

On 30/06/2023 4:56 am, gobli...@gmail.com wrote:
> Le jeudi 29 juin 2023 à 16:34:45 UTC+2, dxforth a écrit :
>> \ 2048 Game
>> \ Sliding squares game translated from XPL0 version.
>> \ This version adds score display and winning message.
>> \
>> \ Assumes ANSI colour terminal and 200x cursor keys
>> \ Tested on Gforth for Windows
>>
>> Use ESC to quit
>>
>> https://pastebin.com/4jJ0eec7
> you can inspire too from this one https://gitlab.com/goblinrieur/2048
> with colors & score file too

Thanks for the link.

On Thursday, 29 June 2023 at 15:34:45 UTC+1, dxforth wrote:
> \ 2048 Game
> \ Sliding squares game translated from XPL0 version.
> \ This version adds score display and winning message.
> \
> \ Assumes ANSI colour terminal and 200x cursor keys
> \ Tested on Gforth for Windows
>
> Use ESC to quit
>
> https://pastebin.com/4jJ0eec7
That's really cool, what license is it released under?

On 6/07/2023 4:39 am, Richard Howe wrote:
> On Thursday, 29 June 2023 at 15:34:45 UTC+1, dxforth wrote:
>> \ 2048 Game
>> \ Sliding squares game translated from XPL0 version.
>> \ This version adds score display and winning message.
>> \
>> \ Assumes ANSI colour terminal and 200x cursor keys
>> \ Tested on Gforth for Windows
>>
>> Use ESC to quit
>>
>> https://pastebin.com/4jJ0eec7
> That's really cool, what license is it released under?

Credit for the original XPL0 implementation goes to Loren Blaney who
posted it on Rosetta Code. My Forth implementation is public domain.

The random number generator I used was for 16-bits and is noticeably
deficient at 64-bits. I suggest replacing it with:

\ Random number generator
1 cells 2 = [if] $3CBEC79D. [else]
1 cells 4 = [if] $7FACC0F7A00541BD. [else]
$96704A6BB5D2C4FB3AA645DF0540268D.
[then] [then] 2constant MULT

2variable Seed 1. seed 2!
: Random ( -- u ) seed 2@ mult d* 1. d+ tuck seed 2! ;
: Rand ( u -- 0..u-1 ) random um* nip ;

Ideally the initial seed value should be randomized.

torstai 29. kesäkuuta 2023 klo 17.34.45 UTC+3 dxforth kirjoitti:
> \ 2048 Game
> \ Sliding squares game translated from XPL0 version.
> \ This version adds score display and winning message.
> \
> \ Assumes ANSI colour terminal and 200x cursor keys
> \ Tested on Gforth for Windows
>
> Use ESC to quit
>
> https://pastebin.com/4jJ0eec7

You got me writing a 2048 game for the 8th. I just got figured out how to do sliding animations. I still need to add movement directions for right, up and down but that can be done easily. Also need to fix text drawing inside the blocks to be centered.

https://monosnap.com/file/uLRQgfSD2QIx7kKJC0kWyOCTZJxGFb

On 10/07/2023 4:59 pm, Jali Heinonen wrote:
> torstai 29. kesäkuuta 2023 klo 17.34.45 UTC+3 dxforth kirjoitti:
>> \ 2048 Game
>> \ Sliding squares game translated from XPL0 version.
>> \ This version adds score display and winning message.
>> \
>> \ Assumes ANSI colour terminal and 200x cursor keys
>> \ Tested on Gforth for Windows
>>
>> Use ESC to quit
>>
>> https://pastebin.com/4jJ0eec7
>
> You got me writing a 2048 game for the 8th. I just got figured out how to do sliding animations. I still need to add movement directions for right, up and down but that can be done easily. Also need to fix text drawing inside the blocks to be centered.
>
> https://monosnap.com/file/uLRQgfSD2QIx7kKJC0kWyOCTZJxGFb

The graphics is a nice touch. Needs a mode in which the computer
plays it. (Or perhaps not :)

maanantai 10. heinäkuuta 2023 klo 12.49.07 UTC+3 dxforth kirjoitti:
> The graphics is a nice touch. Needs a mode in which the computer
> plays it. (Or perhaps not :)

I was able to complete my game 2048 project. Thanks goes to Ron Aaron for making programming fun again and having the patience to answer my stupid questions.

Here is how it looks: https://monosnap.com/file/91Czk5jUVkhqJwm31hr1zRhOxz6ahW

Source code will be posted to 8th forums.

On 13/07/2023 2:36 am, Jali Heinonen wrote:
> maanantai 10. heinäkuuta 2023 klo 12.49.07 UTC+3 dxforth kirjoitti:
>> The graphics is a nice touch. Needs a mode in which the computer
>> plays it. (Or perhaps not :)
>
> I was able to complete my game 2048 project. Thanks goes to Ron Aaron for making programming fun again and having the patience to answer my stupid questions.
>
> Here is how it looks: https://monosnap.com/file/91Czk5jUVkhqJwm31hr1zRhOxz6ahW
>
> Source code will be posted to 8th forums.

Good work. I assume the final version will have a running score?

On 12/07/2023 19:36, Jali Heinonen wrote:
> maanantai 10. heinäkuuta 2023 klo 12.49.07 UTC+3 dxforth kirjoitti:
>> The graphics is a nice touch. Needs a mode in which the computer
>> plays it. (Or perhaps not :)
>
> I was able to complete my game 2048 project. Thanks goes to Ron Aaron for making programming fun again and having the patience to answer my stupid questions.
>
> Here is how it looks: https://monosnap.com/file/91Czk5jUVkhqJwm31hr1zRhOxz6ahW
>
> Source code will be posted to 8th forums.

Looks really nice. And kind words, as always, appreciated.