Tic Tak Toe help

[notleetprogrammer]

made this game in about 10 min....so far it's pretty bad...umm i need this for school project along with another game that will probably be black jack..umm i need some help with having turing tell me which player has won or not..thnx

left click is x
right click is y


var x, y, button : int
var buttonnumber, buttonupdown : int
var font1 : int
var check : boolean := false
drawbox (300, 300, 100, 100, black)
drawline (235, 300, 235, 100, black)
drawline (160, 300, 160, 100, black)
drawline (300, 235, 100, 235, black)
drawline (300, 170, 100, 170, black)
font1 := Font.New ("serif:40:bold")
mousewhere (x, y, button)
buttonchoose ("multibutton")

loop
check := false
loop
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if buttonnumber = 1 and buttonupdown = 1 then
drawfilloval (x, y, 20, 20, black)
check := true
end if
exit when check = true
end loop
check := false
loop
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if buttonnumber = 3 and buttonupdown = 1 then
Font.Draw ("X", x, y, font1, red)
check := true
end if
exit when check = true
end loop
end loop

[TheOneTrueGod]

Yarr, you posted in both places... Go see my post in the source code section...