Computer Science Canada Tic Tak Toe help |
| Author: | notleetprogrammer [ Thu May 25, 2006 4:26 pm ] |
| Post subject: | Tic Tak Toe help |
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 |
|
| Author: | TheOneTrueGod [ Thu May 25, 2006 4:31 pm ] |
| Post subject: | |
Yarr, you posted in both places... Go see my post in the source code section... |
|