2048: Difference between revisions
m
→{{header|FutureBasic}}: Remove FutureBasic 'Output' label
m (→{{header|FutureBasic}}: Remove FutureBasic 'Output' label) |
|||
| (9 intermediate revisions by 3 users not shown) | |||
Line 11:
:* All tiles move as far as possible in that direction, some move more than others.
:* Two adjacent tiles (in that direction only) with matching numbers combine into one bearing the sum of those numbers.
:* A move is valid when at least one tile can be moved,
:* A new tile
:*
:* To win,
:* The player loses if no valid moves are possible.
Line 22:
;Requirements:
* "Non-greedy" movement.
<big><big> [2][2][2][2] </big></big>
Line 34:
<big><big> .........[8] </big></big>
* "Move direction priority".
<big><big> ...[2][2][2] </big></big>
Line 48:
* Check for valid moves.
* Check for a
* Check for a lose condition.
<br><br>
Line 8,137:
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">
begin enum 123
_lf
Line 8,153 ⟶ 8,151:
void local fn initialize
subclass window 1, @"2048",(0,0,438,
fn WindowSetBackgroundColor( 1, fn ColorBlack )
color(0) = fn ColorDarkGray
color(1) = fn ColorGray
color(2) = fn ColorLightGray
color(3) = fn
color(4) = fn
color(5) = fn ColorCyan
color(6) = fn ColorGreen
Line 8,225 ⟶ 8,223:
short a, b, c, t, moved = 0
// SHIFT▼
for a = st to st + rd * 3 step rd
▲ // SHIFT
t = a
for b = a to a + cd * 3 step cd
Line 8,234 ⟶ 8,232:
end if
next
// MERGE▼
▲ // MERGE
for b = a to a + cd * 2 step cd
if bd[b] > 0 && bd[b] == bd[b+cd]
bd[b]++ : c = b + cd
// FILL IN
while c <> a+cd*3
bd[c] = bd[c+cd] : c += cd
wend
bd[c] = 0
// CHECK FOR WIN
if bd[b] == 11 then fn drawBoard : fn finish( yes ) : exit fn
zs ++ : moved ++
Line 8,252 ⟶ 8,247:
next
next
fn drawBoard▼
if moved == 0 then exit fn
Line 8,262 ⟶ 8,259:
if rnd(10) - 1 then bd[b]++ else bd[b] = 2
zs--
timerbegin 0.25
▲ fn drawBoard
fn drawBoard
timerend
if zs then exit fn
Line 8,301 ⟶ 8,300:
handleevents
</syntaxhighlight>
▲[[File:2048 Game Window.png]]
=={{header|Go}}==
Line 16,704 ⟶ 16,702:
{{libheader|Wren-fmt}}
{{libheader|Wren-str}}
<syntaxhighlight lang="
import "random" for Random
import "./ioutil" for Input
import "./fmt" for Fmt
import "./str" for Str
var MoveDirection = Enum.create("MoveDirection", ["up", "down", "left", "right"])
| |||