Alright, I'll try. I'm not too good myself, but I can offer a quick take on 2048
Then you can try merging in parts you like.
2048 is relatively simple, so I favour readability over optimization.
Please pardon me if my schematics or writing conventions are off, I don't know how to write tokens properly on this forum. And maybe it isn't allowed to use quote tags instead of code tags for code? (These code tags don't allow for any syntax highlighting rules )


Edit: I can see why I shouldn't have used quotes now (It's huge!). I hope the moderators are fine with this once in a while.
Edi2: Spoiler tags save the screen!

Alright, I'll try. I'm not too good myself, but I can offer a quick take on 2048
Then you can try merging in parts you like.
2048 is relatively simple, so I favour readability over optimization.
Please pardon me if my schematics or writing conventions are off, I don't know how to write tokens properly on this forum. And maybe it isn't allowed to use quote tags instead of code tags for code? (These code tags don't allow for any syntax highlighting rules )

Spoiler For Spoiler:

Quote

.Z2048B
........................
..Init
........................
Fix 5
DiagnosticOff
ClrHome:ClrDraw
1 -> Z
.This 'resets' L1
.(32 bytes because each element is 2 bytes,
.and we have 16 elements
.on a 4 by 4 array!)
Fill(L₁,32)
........................
..Main loop
........................
Repeat getKey(14)
.Input
If getKey<5
    1 -> Z
    If getKey(1)
        UP()
ElseIf getKey(2)
LEFT()
ElseIf getKey(3)
        RIGHT()
ElseIf getKey(4)
DOWN()
End
End

If Z
0 -> Z
UPDATE()
End

RENDER()
End
Return
........................
..Functions!
........................
..
Lbl UP
Return
Lbl CUP
Return

Lbl LEFT
Return
Lbl CLEFT
Return


Lbl RIGHT
Return
Lbl CRIGHT
Return
..
. !!! Just look at DOWN/CDOWN; Same concept. But you'll have to deal with rows/columns being transposed.
. *Omited for brevity


Lbl DOWN
    For(I, 0, 11)
If {I * 2 + L1)^r -> A
            CDOWN()
        End
    End
Return

Lbl CDOWN
    .For from one row past evaluated element until last row
    For(J, I / 4 + 1, 3)
        .Column
        I ^ 4 -> C
        .If value of next row element == value of evaluated cell
        If {J * 4 + C * 2 + L₁}^r -> V = A
            .Double of value is stored and evaluated cell is zero'd
            A * 2 -> {J * 4 + C * 2 + L₁}^r
            0 -> {I * 2 + L₁)^r
        Return
        ElseIf V = 0
        .If value of next row element != value of evaluated cell, but not equal to 0
        ElseIf
            .Cell is zero'd, and its value, still in A, is moved to one row before the evaluated cell
            0 -> {I * 2 + L₁}^r
            A -> {J * 4 + C * 2 - 8 + L₁}^r
            Return
        End
    End
    .If we're already here, that means none of the evaluated rows met our conditions.
    0 -> {I * 2 + L₁)r
    A -> {12 + C * 2 + L₁}r
Return

.Creates an array of every
.free address with a sum
.Writes '2' to a random free address
Lbl UPDATE
For(I, 0, 15)
    -1 -> A
    !If{I * 2 + L₁}^r
         I * 2 + L₁ -> {A * 2 + L₂}^r
         A++
    End
End
If A = -1
    Return
End
2 -> {{rand^A * 2 + L2}^r}^r
Return

Lbl RENDER
ClrDraw
For(I, 0, 15)
    Text(I / 4 * 32, I ^ 4 * 8, {I * 2 + L₁}^r
End
DispGraph

Edit: I can see why I shouldn't have used quotes now (It's huge!). I hope the moderators are fine with this once in a while.
Edi2: Spoiler tags save the screen!

Well, do you think I (or you) could change your algorithm a bit? I store the board as one-byte numbers that are THE powers of two that the blocks are (i.e. 2 is stored as 1, 4 as 2, 8 as 3, etc.).

I only ask Caustic: did you compile and test the code before giving it to me? Because no matter how I use it, it doesn't work.

I am honestly trying SO hard figuring out where the fault in my code is. Honestly, so hard. :\


I don't know if I'll be able to finish it (let alone get it off the ground), so hopefully someone can help.


My board data is stored as the power of 2 that the tile is (1 is 2, 2 is 4, 3 is 8, etc.). It starts at {L1} and ends at {L1+15}.

hey soulthym, you should introduce yourself here http://www.omnimaga.org/introduce-yourself!/
i forgot to do that when i was a noob (i eventually did it)

And test it?
But yeah, I really have been waiting for a working implementation. The sliding, for some reason, DOES NOT WORK, no matter how I try.

Hi!
I don't have enough time now to help you (I'll come back this afternoon) but you should check my topic about the 2048 I made, in the first post there's explanation about that (making it so that 8-4-4-0 changes to 0-0-8-8 and not 0-0-0-16). Basically you should have a variable pointing to the position before the last merge, where the blocks should stop.


Btw I can't really understand how your code works, could you add comments to it?