 |
 Tak and the Guardians of Gross Wii 2008 Shipped the same day $10.95 Time Remaining: 6d 18h 30m Buy It Now for only: $10.95 |
 Tak The Great Juju Challenge Nintendo Gameboy Advance GBA No instr box $0.75 Time Remaining: 1h 12m Buy It Now for only: $0.99 |
 Tak and the Power of Juju Nintendo GameCube 2003 No Manual $6.50 Time Remaining: 29d 45m Buy It Now for only: $6.50 |
 Xbox Games Lot of 5 Tak 2 TAZ Burger King Promo Games x 3 No Reserve $0.99 Time Remaining: 5d 17m |
 Tak and the Power of Juju Nintendo GameCube 2003 $7.45 Time Remaining: 27d 5h 59m Buy It Now for only: $7.45 |
 TAK AND THE GUARDIANS OF GROSS NEW FACTORY SEALED SONY PS2 $3.35 Time Remaining: 13d 1h 57m Buy It Now for only: $3.35 |
 Tak Mojo Mistake Nintendo DS 2008 $6.99 Time Remaining: 2h 54m Buy It Now for only: $12.99 |
 TAK GREAT JUJU CHALLENGE GAME BOY ADVANCE GBA SP DS $4.32 Time Remaining: 12d 1h 14m Buy It Now for only: $4.32 |
 Tak and the Guardians of Gross Wii 2008 complete excellent THQ $9.99 Time Remaining: 4h 33m Buy It Now for only: $11.99 |
 TAK 2 THE STAFF OF DREAMS NINTENDO GAMECUBE $5.59 Time Remaining: 1d 22h 18m Buy It Now for only: $5.59 |
 Tak 2 The Staff of Dreams PS2 $4.99 Time Remaining: 15d 22h Buy It Now for only: $4.99 |
 Tak The Great Juju Challenge Sony PlayStation 2 2005 $0.99 Time Remaining: 2h 24m |
 Tak Mojo Mistake Nintendo DS 2008 $4.95 Time Remaining: 20d 18h 1m Buy It Now for only: $4.95 |
 LOT OF 12 XBOX GAMES MALICE I NINJA X MEN SPORTS SPYRO TAK BREAKDOWN NR $10.00 Time Remaining: 18h 22m |
 Tak and the Power of Juju Nintendo GameCube 2003 $4.99 Time Remaining: 27d 19h 46m Buy It Now for only: $4.99 |
 Tak The Great Juju Challenge for GBAPLEASE READ DESCRIPTION $5.99 Time Remaining: 20d 3h 26m Buy It Now for only: $5.99 |
 Tak The Great Juju Challenge Nintendo DS 2005 $0.01 (1 Bid) Time Remaining: 1d 6m |
 Gamecube Wii Tak and the Power of Juju COMPLETE MINT Low Ship $5.99 Time Remaining: 13d 21h 35m Buy It Now for only: $5.99 |
 9 Playstation 2 PS2 Games including Harry Potter Tak and Shrek $30.00 Time Remaining: 3d 15h 56m |
 Tak and the Power of Juju Nintendo Game Boy Advance 2003 FREE S H $4.25 Time Remaining: 8d 23h 44m Buy It Now for only: $4.25 |
 Tak 2 The Staff of Dreams Xbox 2004 $7.85 Time Remaining: 11d 23h 44m Buy It Now for only: $7.85 |
 Tak and the Guardians of Gross Wii 2008 Great Game $6.99 Time Remaining: 15h 26m |
 Tak 2 The Staff of Dreams Sony PlayStation 2 Game complete $4.99 Time Remaining: 26d 20h 34m Buy It Now for only: $4.99 |
 Tak and the Power of Juju Sony PlayStation 2 Game $4.99 Time Remaining: 26d 21h 22m Buy It Now for only: $4.99 |
 PS2 Game Tak and the Power of Juju PlayStation 2 $5.99 Time Remaining: 18h 25m |
 Tak The Great Juju Challenge Nintendo DS 2005 $9.29 Time Remaining: 28d 20h 28m Buy It Now for only: $9.29 |
 Lot Of 10 Gameboy Games Frogger Lion King Tak Simpsons Nintendo Lot Rated E $0.02 Time Remaining: 2d 17h 52m |
 TAK AND THE POWER OF JUJU Gamecube $7.70 Time Remaining: 28d 16h 15m Buy It Now for only: $7.70 |
 Tak 2 The Staff of Dreams GameCube Game Complete Resurfaced Tested $2.99 Time Remaining: 19d 18h 43m Buy It Now for only: $2.99 |
 Tak 2 The Staff of Dreams Nintendo Game Boy Advance 2004 $0.01 Time Remaining: 1d 1h 21m |
 Tak and the Guardians of Gross Wii 2008 $7.79 Time Remaining: 2d 19h 15m Buy It Now for only: $7.79 |
 Tak 2 The Staff of Dreams for Nintendo Game Boy Advance GBA ds lite $0.99 (1 Bid) Time Remaining: 3d 1h 36m |
 Tak The Great Juju Challenge Nintendo DS Game Game Only $6.94 Time Remaining: 14d 23h 8m Buy It Now for only: $6.94 |
 Tak 2 The Staff of Dreams Playstation 2 PS2 NO BOOK $5.36 Time Remaining: 5d 22h 14m Buy It Now for only: $5.36 |
 Tak and the Power of Juju Sony PlayStation 2 2003 $3.99 Time Remaining: 17h 59m |
 TAK AND THE POWER OF JUJU Gamecube Complete w Box + Manual $8.45 Time Remaining: 28d 16h 15m Buy It Now for only: $8.45 |
 Tak 2 The Staff of Dreams USED Cartridge Only $0.99 Time Remaining: 1d 19h 53m |
 Tak 2 The Staff of Dreams Xbox 2004 MINT CONDITION COMPLETE $7.00 Time Remaining: 27d 19h 44m Buy It Now for only: $7.00 |
 Tak The Great Juju Challenge Sony PlayStation 2 2005 Disc+Booklet $3.99 Time Remaining: 29d 20h 34m Buy It Now for only: $3.99 |
 NEW GAMEBOY ADVANCE GBA TAK GREAT JUJU $13.99 Time Remaining: 1d 1h 51m Buy It Now for only: $16.99 |
 Tak Mojo Mistake Nintendo DS 2008 REGION FREE Everyone $9.75 Time Remaining: 15d 2h 9m Buy It Now for only: $9.75 |
 TAK THE GREAT JUJU CHALLENGE PLAYSTATION 2 PS2 VIDEO GAME BRAND NEW $21.99 Time Remaining: 24d 2h 52m Buy It Now for only: $21.99 |
 Tak The Great Juju Challenge Sony PlayStation 2 2005 $1.99 Time Remaining: 21h 43m |
 TAK AND THE POWER OF JUJU Playstation 2 Complete w Box + Manual GREAT GIFT $6.05 Time Remaining: 28d 16h 15m Buy It Now for only: $6.05 |
 Tak and the Guardians of Gross Wii 2008 $3.99 Time Remaining: 3d 17h 15m |
 Tak 2 The Staff of Dreams Xbox FACTORY SEALED BRAND NEW $14.99 Time Remaining: 29d 19h 57m Buy It Now for only: $14.99 |
 Tak The Great Juju Challenge Nintendo DS DSi Complete $4.99 Time Remaining: 22d 17h 25m Buy It Now for only: $4.99 |
 Tak 2 The Staff of Dreams Nintendo Game Boy Advance 2004 $0.99 Time Remaining: 11h 38m Buy It Now for only: $5.00 |
 TAK 2 THE STAFF OF DREAMS Gamecube w Box $6.35 Time Remaining: 8d 15h 49m Buy It Now for only: $6.35 |
 Tak and the Power of Juju Sony PlayStation 2 game $2.99 Time Remaining: 1d 4h 52m |
 Tak 2 The Staff of Dreams PlayStation 2 PS2 $5.99 Time Remaining: 21d 2h 4m Buy It Now for only: $5.99 |
 Tak and the Power of Juju PlayStation 2 PS2 $4.39 Time Remaining: 6d 5h 39m Buy It Now for only: $4.39 |
 Tak and the Power of Juju Nintendo GameCube 2003 $0.99 Time Remaining: 3d 21h 5m |
 Tak and the Power of Juju PS2 complete $4.99 Time Remaining: 10d 20h 23m Buy It Now for only: $4.99 |
 Nintendo Gamecube System Wireless Controller Lot Game Tak Great Juju Challenge $24.99 Time Remaining: 2d 4h 5m Buy It Now for only: $41.99 |
 TAK GREAT JUJU CHALLENGE NINTENDO GAMECUBE $5.58 Time Remaining: 1d 20h 48m Buy It Now for only: $5.58 |
 Tak The Great Juju Challenge Sony PlayStation 2 2005 $6.99 Time Remaining: 6d 1h 16m Buy It Now for only: $6.99 |
 Tak 2 The Staff of Dreams Sony PlayStation 2 2004 $0.50 Time Remaining: 2d 18h 30m |
 Tak Mojo Mistake Complete Nintendo DS Game $9.97 Time Remaining: 16d 16h 17m Buy It Now for only: $9.97 |
 Tak The Great Juju Challenge Nintendo GameCube 2005 $4.99 Time Remaining: 2d 15h 26m |
 Complete Tak 2 The Staff of Dreams Sony PlayStation 2 2004 $8.96 Time Remaining: 13d 21h 56m Buy It Now for only: $8.96 |
 Tak 2 The Staff of Dreams Nintendo GameCube 2004 $4.99 Time Remaining: 5d 7h 15m Buy It Now for only: $4.99 |
 Tak The Great Juju Challenge Nintendo DS 2005 tested in very good condition $0.99 Time Remaining: 2d 11h 33m |
 TAK 2 THE STAFF OF DREAMS NINTENDO GAMECUBE GAME COMPLETE $6.99 Time Remaining: 26d 1h 15m Buy It Now for only: $6.99 |
 TAK AND THE POWER OF JUJU NINTENDO GAMECUBE $6.99 Time Remaining: 26d 1h 17m Buy It Now for only: $6.99 |
 Tak and the Power of Juju PlayStation 2 PS2 2003 BRAND NEW $9.99 Time Remaining: 5d 1h 18m |
 Tak and the Power of Juju Sony PlayStation 2 2003 Missing Booklet $1.13 Time Remaining: 20d 34m Buy It Now for only: $1.13 |
 Tak 2 The Staff of Dreams Nintendo GameCube 2004 $5.99 Time Remaining: 3d 23h 2m |
 Tak and the Power of Juju Nintendo Game Boy Advance 2003 Game Only $2.99 Time Remaining: 24d 18h 25m Buy It Now for only: $2.99 |
 Tak 2 The Staff of Dreams Xbox NEW $18.00 Time Remaining: 28d 19h 5m Buy It Now for only: $18.00 |
 Tak and the Power of Juju Sony PlayStation 2 2003 $4.99 Time Remaining: 2d 23h 44m |
 Tak Mojo Mistake Nintendo DS Game Game Only $7.98 Time Remaining: 25d 53m Buy It Now for only: $7.98 |
 Tak 2 The Staff of Dreams Sony PlayStation 2 2004 $0.50 Time Remaining: 3d 12h 21m |
 Tak and the Guardians of Gross Wii 2008 $12.00 Time Remaining: 28d 23h 15m Buy It Now for only: $12.00 |
 Tak and the Power of Juju Nintendo Gamecube Game $4.95 Time Remaining: 26d 18h 31m Buy It Now for only: $4.95 |
 TAK AND THE POWER OF JUJU Sony PlayStation 2 2003 GREATEST HITS $0.99 Time Remaining: 6d 3m |
 Tak 2 The Staff of Dreams GBA Game Cartridge Only $4.99 Time Remaining: 3d 22h 27m Buy It Now for only: $4.99 |
 Tak GameCube Lot All 3 Power of JuJu Great JuJu Challenge Staff of Dreams $17.00 Time Remaining: 4d 1h 50m Buy It Now for only: $20.00 |
 PS2 Tak 2 The Staff of Dreams COMPLETE VERY GOOD Low Ship $5.99 Time Remaining: 22d 21m Buy It Now for only: $5.99 |
 Tak and the Power of Juju Sony PlayStation 2 2003 Complete Mint $8.55 Time Remaining: 24d 21h 28m Buy It Now for only: $8.55 |
 Tak 2 The Staff of Dreams Sony PlayStation 2 2004 $1.99 Time Remaining: 5d 22h 11m |
 TAK 2 THE STAFF OF DREAMS SONY PLAYSTATION 2 PS2 COMPLETE BLACK LABEL $12.00 Time Remaining: 11d 21h 46m Buy It Now for only: $12.00 |
 Ps2 Tak Big Dose Of Gross 2008 Used Playstation 2 $1.99 Time Remaining: 13d 4h 43m Buy It Now for only: $1.99 |
 Tak The Great Juju Challenge Nintendo Game Boy Advance 2005 $0.99 Time Remaining: 5d 5h 8m |
 Tak 2 and the Staff of Dreams Nintendo Gamecube Wii Complete $8.49 Time Remaining: 17d 20h 8m Buy It Now for only: $8.49 |
 Tak Mojo Mistake Nintendo DS 2008 $4.35 Time Remaining: 6d 12h 37m Buy It Now for only: $5.50 |
 TAK and the Power of JUJU Sony PlayStation 2 2003 Game Disc Case NO manual $4.29 Time Remaining: 15d 1h 2m Buy It Now for only: $4.29 |
 Tak and the Guardians of Gross PS2 Sony PLAYSTATION 2 COMPLETE Case Manual Disc $7.00 Time Remaining: 26d 20h 48m Buy It Now for only: $7.00 |
 Tak The Great Juju Challenge Sony PlayStation 2 2005 $5.99 Time Remaining: 5d 17h 48m Buy It Now for only: $7.99 |
 Tak 2 The Staff Of Dreams Playstation 2 Game Complete $2.99 Time Remaining: 16d 1h 43m Buy It Now for only: $2.99 |
 Tak and the Power of Juju Nintendo GameCube 2003 $0.99 Time Remaining: 6d 2h 47m Buy It Now for only: $6.99 |
 Tak The Great Juju Challenge Nintendo Game Boy Advance 2005 GBA Cartridge $3.99 Time Remaining: 24d 16h 55m Buy It Now for only: $3.99 |
 NEW Game Boy Advance Tak 2 Staff Of Dreams GBA Nintendo Action Adventure Game $7.75 Time Remaining: 4d 16h 45m Buy It Now for only: $7.75 |
 Tak and the Power of Juju Nintendo GameCube 2003 $3.00 Time Remaining: 6d 13m Buy It Now for only: $5.00 |
 Nintendo GBA Gameboy Advance Tak The Power of Juju DS DS Lite Free Shipping $5.95 Time Remaining: 20d 10h 50m Buy It Now for only: $5.95 |
 Tak 2 The Staff of Dreams Nintendo Game Boy Advance 2004 $0.99 Time Remaining: 6d 16h 47m Buy It Now for only: $2.99 |
 Tak 2 The Staff of Dreams for GC PLEASE READ DESCRIPTIONCIB $5.99 Time Remaining: 15d 15h 18m Buy It Now for only: $5.99 |
 Tak The Great Juju Challenge Sony PlayStation 2 2005 $3.99 Time Remaining: 29d 11h 29m Buy It Now for only: $3.99 |
 Tak 2 The Staff of Dreams Nintendo GameCube 2004 $4.99 Time Remaining: 1d 19h 56m |
 Tak and the Power of Juju game only GBA DS $2.99 Time Remaining: 19d 17h 28m Buy It Now for only: $2.99 |
Game Tak
Simple Tic-tac-toe Game Logic
n this article I will discuss about a very simple game. Yes, it is a Tic-Tak-Toe game of 3X3 dimension. It is a very simple game and I believe each and every one knows the rules of this game. So I am not going to mention anything about the game rules here. This article also gives you an idea about AI (Artificial Inelegancy) used in computer game. It is like giving thinking ability to you PC.
In this game you can play against computer. That is man vs. computer. The game is developed in VB6.0 and coded in very easy way to make the algorithm easy to understand. There are comments for each chunk of code which acts like a particular AI or games rule. I hope anyone can understand what I am going to do seeing the codes and comments. I used some Matrix formula to calculate/ find next move after a Human move.
Here is the complete listing of source code.
Private Sub Command1_Click(Index As Integer)
If Command1(Index).Caption = "" Then
Command1(Index).Caption = "X"
Call computer
Call win
Else
Beep
End If
End Sub
Public Sub computer()
Dim i, numb1, numb0, cou1, cou2 As Integer
'************CALCULATE THE NUMBER OF "X"************
For i = 0 To 8
If Command1(i).Caption = "X" Then
numb1 = numb1 + 1
End If
Next i
'*****************WIN OPPERTUNITY************
If (Command1(0).Caption = "O" And Command1(1).Caption = "O" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If
If (Command1(0).Caption = "O" And Command1(2).Caption = "O" And Command1(1).Caption = "") Then
Command1(1).Caption = "O"
Exit Sub
End If
If (Command1(0).Caption = "O" And Command1(3).Caption = "O" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If
If (Command1(0).Caption = "O" And Command1(6).Caption = "O" And Command1(3).Caption = "") Then
Command1(3).Caption = "O"
Exit Sub
End If
'****************************************
If (Command1(8).Caption = "O" And Command1(5).Caption = "O" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If
If (Command1(8).Caption = "O" And Command1(2).Caption = "O" And Command1(5).Caption = "") Then
Command1(5).Caption = "O"
Exit Sub
End If
If (Command1(8).Caption = "O" And Command1(7).Caption = "O" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If
If (Command1(8).Caption = "O" And Command1(6).Caption = "O" And Command1(7).Caption = "") Then
Command1(7).Caption = "O"
Exit Sub
End If
'********************************
If (Command1(6).Caption = "O" And Command1(7).Caption = "O" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If
If (Command1(6).Caption = "O" And Command1(3).Caption = "O" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If
'*****************************************
If (Command1(2).Caption = "O" And Command1(1).Caption = "O" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If
If (Command1(2).Caption = "O" And Command1(5).Caption = "O" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If
'***************LOGICS IF THE CENTER BOX CONTAIN "O"***********
If Command1(4).Caption = "O" Then
'*********************CROSS(X) LOGICS*****************
For q = 0 To 8 Step 2
If q = 4 Then
GoTo 2
End If
If Command1(q).Caption = "O" Then
n = 4 * 2 - q
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
2 Next q
'*********************PLUSE(+) LOGICS*****************
For w = 1 To 7 Step 2
If w = 4 Then
GoTo 4
End If
If Command1(w).Caption = "O" Then
n = 4 * 2 - w
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
4 Next w
End If
'************************PROCTECT GAME***********************
If (Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If
If (Command1(0).Caption = "X" And Command1(2).Caption = "X" And Command1(1).Caption = "") Then
Command1(1).Caption = "O"
Exit Sub
End If
If (Command1(0).Caption = "X" And Command1(3).Caption = "X" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If
If (Command1(0).Caption = "X" And Command1(6).Caption = "X" And Command1(3).Caption = "") Then
Command1(3).Caption = "O"
Exit Sub
End If
'****************************************
If (Command1(8).Caption = "X" And Command1(5).Caption = "X" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If
If (Command1(8).Caption = "X" And Command1(2).Caption = "X" And Command1(5).Caption = "") Then
Command1(5).Caption = "O"
Exit Sub
End If
If (Command1(8).Caption = "X" And Command1(7).Caption = "X" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If
If (Command1(8).Caption = "X" And Command1(6).Caption = "X" And Command1(7).Caption = "") Then
Command1(7).Caption = "O"
Exit Sub
End If
If (Command1(1).Caption = "X" And Command1(2).Caption = "X" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If
If (Command1(6).Caption = "X" And Command1(7).Caption = "X" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If
If (Command1(2).Caption = "X" And Command1(5).Caption = "X" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If
If (Command1(3).Caption = "X" And Command1(6).Caption = "X" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If
'**************PUT "O" IN CENTER BOX IF BLANK****************
If (numb1 = 1 And Command1(4).Caption = "") Then
Command1(4).Caption = "O"
Exit Sub
End If
'***************LOGICS IF THE CENTER BOX CONTAIN "X"***********
If Command1(4).Caption = "X" Then
'*********************CROSS(X) LOGICS*****************
For q = 0 To 8 Step 2
If q = 4 Then
GoTo 5
End If
If Command1(q).Caption = "X" Then
n = 4 * 2 - q
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
5 Next q
'*********************PLUSE(+) LOGICS*****************
For q = 1 To 7 Step 2
If q = 4 Then
GoTo 6
End If
If Command1(q).Caption = "X" Then
n = 4 * 2 - q
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
6 Next q
If Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If
If Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If
If Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If
If Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If
'*******************MASTER LOGICS(1)*********
If (Command1(3).Caption = "X" And Command1(1).Caption = "X") Then
If Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If
End If
If (Command1(1).Caption = "X" And Command1(5).Caption = "X") Then
If Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If
End If
If (Command1(5).Caption = "X" And Command1(7).Caption = "X") Then
If Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If
If (Command1(3).Caption = "X" And Command1(7).Caption = "X") Then
If Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If
End If
'************************master logics(2)***************
If (Command1(3).Caption = "X") Then
If Command1(2).Caption = "X" And Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If
If Command1(8).Caption = "X" And Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If
End If
If (Command1(5).Caption = "X") Then
If Command1(0).Caption = "X" And Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If
If Command1(6).Caption = "X" And Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If
If (Command1(7).Caption = "X") Then
If Command1(0).Caption = "X" And Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If
If Command1(2).Caption = "X" And Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If
If (Command1(1).Caption = "X") Then
If Command1(6).Caption = "X" And Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If
If Command1(8).Caption = "X" And Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If
End If
'**********************************************
If (numb1 = 5) Then
MsgBox "*****Game over*****"
Call newer
GoTo 10
End If
'*************Master Logics(1)*****************
For K = 1 To 7 Step 2
If Command1(4).Caption = "O" And Command1(K).Caption = "" Then
Command1(K).Caption = "O"
Exit Sub
End If
Next K
8 cou1 = Int(Rnd * 9)
If Command1(cou1).Caption = "" Then
Command1(cou1).Caption = "O"
Else
GoTo 8
End If
10 End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
Open "C:WIN.TXT" For Append As #1
Close #1
End Sub
Private Sub new_Click()
Call newer
End Sub
Public Sub win()
'**********************YOU WIN*************
If (Command1(1).Caption = "X" And Command1(0).Caption = "X" And Command1(2).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
If (Command1(0).Caption = "X" And Command1(4).Caption = "X" And Command1(8).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
If (Command1(0).Caption = "X" And Command1(3).Caption = "X" And Command1(6).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
If (Command1(1).Caption = "X" And Command1(4).Caption = "X" And Command1(7).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
If (Command1(2).Caption = "X" And Command1(5).Caption = "X" And Command1(8).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
If (Command1(3).Caption = "X" And Command1(4).Caption = "X" And Command1(5).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
If (Command1(6).Caption = "X" And Command1(7).Caption = "X" And Command1(8).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
If (Command1(6).Caption = "X" And Command1(4).Caption = "X" And Command1(2).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If
'*****************YOU LOST*************
If (Command1(1).Caption = "O" And Command1(0).Caption = "O" And Command1(2).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(4).Caption = "O" And Command1(0).Caption = "O" And Command1(8).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(3).Caption = "O" And Command1(0).Caption = "O" And Command1(6).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(1).Caption = "O" And Command1(4).Caption = "O" And Command1(7).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(2).Caption = "O" And Command1(5).Caption = "O" And Command1(8).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(3).Caption = "O" And Command1(4).Caption = "O" And Command1(5).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(6).Caption = "O" And Command1(7).Caption = "O" And Command1(8).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(6).Caption = "O" And Command1(4).Caption = "O" And Command1(2).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
End Sub
Public Sub newer()
For i = 0 To 8
Command1(i).Caption = ""
Next i
End Sub
Download the project from BD Experts site
About the Author
I am basically a Application/web developer. Microsoft technology is my working tool. I am interested with new advance technologies of programming and database. I am also running a website http://www.bd-experts.com which is mostly a article sharing website.
Tak and the Power of Juju game cheats?
Since the "collect 100 yorbels" quest is super hard I want to use the the cheat code to get them all. But no matter how many times I enter the code for my gamecube, I don't get the cheat. How do I enter it at the pause screen? Also, how do I know I have the cheat when I get it?
On the pause screen press left right left up.
German Military "Tak Tik" Game from World War 2 from Mike Mozart of TheToyChannel