16 puzzle game: Difference between revisions
m
→{{header|Wren}}: Minor tidy
m (→{{header|Wren}}: Minor tidy) |
|||
| (3 intermediate revisions by one other user not shown) | |||
Line 192:
<syntaxhighlight lang="future basic">
begin enum
_new = 1▼
_restrt▼
_help▼
_end▼
_down = 1
_right
_up
_left
▲ _restrt
▲ _help
▲ _end
end enum
str63 board, startPos, winBoard
void local fn
window 1,,(0,0,340,340)
int x
Line 220:
button _restrt,,,@"Redo", (270,270,50,50),,NSBezelStyleTexturedSquare
button _help ,,,@"Help", (270, 20,50,50),,NSBezelStyleTexturedSquare
▲ for r = 1 to 16
▲ winBoard += chr$(r)
next
board = winBoard
end fn
Line 245 ⟶ 240:
void local fn move( tag as int )
int
select tag / 10
case
case
case else
▲ case _up : t = board[rc]
for r = rc to 12 step 4▼
board[r] = board[r+4]▼
next▼
end select
if board == winBoard then window 1, @"!!! YOU WON !!!" : text,,fn colorRed
fn drawBoard
Line 302 ⟶ 289:
void local fn doDialog(ev as long, tag as long)
select ev
case _btnClick : if tag
case _windowWillClose : end
end select
Line 2,146 ⟶ 2,133:
{{libheader|Wren-ioutil}}
{{libheader|Wren-str}}
<syntaxhighlight lang="
import "./iterate" for Stepped
import "./fmt" for Fmt
import "./ioutil" for Input
import "./str" for Str
var rand = Random.new()
| |||