Tic-tac-toe: Difference between revisions

m (→‎{{header|Phix}}: made p2js compatible, added online link)
Line 2,838:
<lang>len f[] 9
state = 0
textsize 14
set_textsize 14
#
func init . .
set_linewidthlinewidth 2
clear
clear_screen
set_colorcolor 666
move_penmove 34 4
draw_lineline 34 80
move_penmove 62 4
draw_lineline 62 80
move_penmove 10 28
draw_lineline 86 28
move_penmove 10 56
draw_lineline 86 56
set_linewidthlinewidth 2.5
for i range 9
f[i] = 0
.
if state = 1
set_timertimer 0.2
.
.
Line 2,866:
y = r * 28 + 14
if f[ind] = 4
set_colorcolor 900
move_penmove x - 7 y - 7
draw_lineline x + 7 y + 7
move_penmove x + 7 y - 7
draw_lineline x - 7 y + 7
elif f[ind] = 1
set_colorcolor 009
move_penmove x y
draw_circlecircle 10
set_colorcolor -2
draw_circlecircle 7.5
.
.
Line 2,939:
.
func show_result val . .
set_colorcolor 555
move_penmove 16 84
if val < 0
# this never happens
draw_texttext "You won"
elif val > 0
draw_texttext "You lost"
else
draw_texttext "Tie"
.
state += 2
Line 2,966:
f[mov] = 1
call draw mov
call rate val done
state = 1
iftimer done = 10.5
call show_result val
else
set_timer 0.5
.
.
.
on timer
call computerrate val done
if done = 1
call rateshow_result val done
else
call computer
.
.
on mouse_down
2,056

edits