Her:
----------------------------------
<%
\'--------------------------------------------------------------
\' ASP TicTacToe v1.0
\' (x) Ugh!! 2000 - 18/10/2000
\'
\' based on Javascript TicTacToe by
\' Maximilian Stocker (maxstocker@reallyusefulcomputing.com)
\'
\' Written fOR
http://www.only-netwORk.com/games Any comments,
\' flames, requests, postcards etc to owen@cutajar.net
\'--------------------------------------------------------------
Option Explicit
\' -- Set up images to use ---
Const IMGx = \"x.gif\"
Const IMGo = \"o.gif\"
Const IMGblank = \"blank.gIf\"
\' -- Set up game States ---
Const END_Not_Yet = 0
Const END_You_Win = 1
Const END_Computer_Win = 2
Const END_Tie = 3
\' Read in board OR Initialise
Dim Gameboard
Dim wl1,wl2,wl3,wl4,wl5,wl6,wl7,wl8
If Session(\"GameBoard\") & \"\" = \"\" OR Request(\"PlayAgain\") = \"Yes\" Then
PlayAgain
End If
GameBoard = Split(Session(\"GameBoard\"),\"_\")
Function GameState()
wl1 = GameBoard(0) & GameBoard(1) & GameBoard(2)
wl2 = GameBoard(0) & GameBoard(3) & GameBoard(6)
wl3 = GameBoard(0) & GameBoard(4) & GameBoard(8)
wl4 = GameBoard(1) & GameBoard(4) & GameBoard(7)
wl5 = GameBoard(3) & GameBoard(4) & GameBoard(5)
wl6 = GameBoard(6) & GameBoard(7) & GameBoard(8)
wl7 = GameBoard(2) & GameBoard(5) & GameBoard(8)
wl8 = GameBoard(6) & GameBoard(4) & GameBoard(2)
If wl1=\"XXX\" OR wl2=\"XXX\" OR wl3=\"XXX\" OR wl4=\"XXX\" OR wl5=\"XXX\" OR wl6=\"XXX\" OR wl7=\"XXX\" OR wl8=\"XXX\" Then
GameState = END_You_Win
ElseIf wl1=\"OOO\" OR wl2=\"OOO\" OR wl3=\"OOO\" OR wl4=\"OOO\" OR wl5=\"OOO\" OR wl6=\"OOO\" OR wl7=\"OOO\" OR wl8=\"OOO\" Then
GameState = END_Computer_Win
ElseIf Instr ( wl1 & wl5 & wl6 ,\"B\" ) = 0 then
GameState = END_Tie
Else
GameState = END_Not_Yet
End If
End Function
Function Suggest()
If wl1 = \"XXB\" OR wl1 = \"OOB\" Then
Suggest = 2
ElseIf wl1 = \"XBX\" OR wl1 = \"OBO\" Then
Suggest = 1
ElseIf wl1 = \"BXX\" OR wl1 = \"BOO\" Then
Suggest = 0
ElseIf wl2 = \"XXB\" OR wl2 = \"OOB\" Then
Suggest = 6
ElseIf wl2 = \"XBX\" OR wl2 = \"OBO\" Then
Suggest = 3
ElseIf wl2 = \"BXX\" OR wl2 = \"BOO\" Then
Suggest = 0
ElseIf wl3 = \"XXB\" OR wl3 = \"OOB\" Then
Suggest = 8
ElseIf wl3 = \"XBX\" OR wl3 = \"OBO\" Then
Suggest = 4
ElseIf wl3 = \"BXX\" OR wl3 = \"BOO\" Then
Suggest = 0
ElseIf wl4 = \"XXB\" OR wl4 = \"OOB\" Then
Suggest = 7
ElseIf wl4 = \"XBX\" OR wl4 = \"OBO\" Then
Suggest = 4
ElseIf wl4 = \"BXX\" OR wl4 = \"BOO\" Then
Suggest = 1
ElseIf wl5 = \"XXB\" OR wl5 = \"OOB\" Then
Suggest = 5
ElseIf wl5 = \"XBX\" OR wl5 = \"OBO\" Then
Suggest = 4
ElseIf wl5 = \"BXX\" OR wl5 = \"BOO\" Then
Suggest = 3
ElseIf wl6 = \"XXB\" OR wl6 = \"OOB\" Then
Suggest = 8
ElseIf wl6 = \"XBX\" OR wl6 = \"OBO\" Then
Suggest = 7
ElseIf wl6 = \"BXX\" OR wl6 = \"BOO\" Then
Suggest = 6
ElseIf wl7 = \"XXB\" OR wl7 = \"OOB\" Then
Suggest = 8
ElseIf wl7 = \"XBX\" OR wl7 = \"OBO\" Then
Suggest = 5
ElseIf wl7 = \"BXX\" OR wl7 = \"BOO\" Then
Suggest = 2
ElseIf wl8 = \"XXB\" OR wl8 = \"OOB\" Then
Suggest = 2
ElseIf wl8 = \"XBX\" OR wl8 = \"OBO\" Then
Suggest = 4
ElseIf wl8 = \"BXX\" OR wl8 = \"BOO\" Then
Suggest = 6
Else
Suggest = -1
End If
End Function
Sub yourChoice(Position)
If Session(\"State\") = \"Dead\" Then
RepORtEnded
Else
If GameBoard(Position) <> \"B\" Then
RepORtTaken
Else
GameBoard(Position) = \"X\"
End If
End If
End Sub
Sub RepORtTaken()
Response.Write \"<center><H2>Feltet er allered valgt, vælg venligst et andet!</H2></center>\"
End Sub
Sub RepORtEnded()
Response.Write \"<center><H2>Spillet er slut. Start spillet ved at klikke på knappen Play Again!</H2></center>\"
End Sub
Sub myChoice()
Dim NewMove
NewMove = Suggest()
While NewMove = -1
Randomize
NewMove=int(rnd*9)
If GameBoard(NewMove) <> \"B\" Then
NewMove = -1
End If
Wend
GameBoard(NewMove) = \"O\"
End Sub
Sub ProcessBoard()
If Session(\"State\") = \"Alive\" Then
Select Case GameState()
Case END_You_Win
Response.Write \"<center><H2>Du vandt, tillykke!</H2></center>\"
Session(\"you\") = Session(\"you\") + 1
Session(\"State\") = \"Dead\"
Case END_Computer_Win
Response.Write \"<center><H2>Computeren vinder!</H2></center>\"
Session(\"computer\") = Session(\"computer\") + 1
Session(\"State\") = \"Dead\"
Case END_Tie
Response.Write \"<center><H2>Vi spillede uafgjort!</H2></center>\"
Session(\"ties\") = Session(\"ties\") + 1
Session(\"State\") = \"Dead\"
End Select
End If
End Sub
Sub playAgain()
Session(\"GameBoard\") = \"B_B_B_B_B_B_B_B_B\"
Session(\"State\") = \"Alive\"
End Sub
Sub Display(CellNum)
If GameBoard(CellNum) = \"B\" Then
Response.Write \"<form action=\"\"tictactoe.asp\"\" method=\"\"post\"\">\"
Response.Write \"<input type=\"\"hidden\"\" name=\"\"pressed\"\" value=\"\"\"& CellNum &\"\"\">\"
Response.Write \"<input type=\"\"image\"\" src=\"\"\"& IMGblank &\"\"\" border=\"\"0\"\" height=\"\"30\"\" width=\"\"30\"\">\"
Response.Write \"</form>\"
ElseIf GameBoard(CellNum) = \"O\" Then
Response.Write \"<img src=\"\"\" & IMGo & \"\"\" border=\"\"0\"\" height=\"\"30\"\" width=\"\"30\"\">\"
ElseIf GameBoard(CellNum) = \"X\" Then
Response.Write \"<img src=\"\"\" & IMGx & \"\"\" border=\"\"0\"\" height=\"\"30\"\" width=\"\"30\"\">\"
End If
End Sub
\' Main Code
If Request(\"Pressed\") & \"\" <> \"\" Then
YourChoice(Request(\"Pressed\"))
ProcessBoard
If GameState() = END_Not_Yet Then
myChoice
End If
ProcessBoard
\' Save Game State
Session(\"GameBoard\") = Join(GameBoard,\"_\")
End If
%>
<html><head>
<title>Kryds og bolle</title>
</head><body>
<center>
<p>Velkommen til <b>Kryds og bolle!</b><br>Du spiller X og computeren spiller O. Vælg det felt som du vil sætte det første X ved at klikke i det. Du kan ikke vælge et felt der allerede er valgt. Den første spiller som får tre på en række (enten lodret, vandret, diagonalt) vinner. Held og lykke :-)</p>
<form name=\"game\" action=\"tictactoe.asp\">
<table border=\"0\">
<tr><td>
<table border=\"1\" bordercolor=\"#000000\">
<tr>
<td width=\"30\" height=\"30\"><% Display(0) %></td>
<td width=\"30\" height=\"30\"><% Display(1) %></td>
<td width=\"30\" height=\"30\"><% Display(2) %></td>
</tr>
<tr>
<td width=\"30\" height=\"30\"><% Display(3) %></td>
<td width=\"30\" height=\"30\"><% Display(4) %></td>
<td width=\"30\" height=\"30\"><% Display(5) %></td>
</tr>
<tr>
<td width=\"30\" height=\"30\"><% Display(6) %></td>
<td width=\"30\" height=\"30\"><% Display(7) %></td>
<td width=\"30\" height=\"30\"><% Display(8) %></td>
</tr>
</table>
</td><td>
<table>
<tr><td><input type=\"text\" size=\"5\" name=\"you\" value=\"<%=Session(\"you\")%>\"></td><td>Dig</td></tr>
<tr><td><input type=\"text\" size=\"5\" name=\"computer\" value=\"<%=Session(\"computer\")%>\"></td><td>Computer</td></tr>
<tr><td><input type=\"text\" size=\"5\" name=\"ties\" value=\"<%=Session(\"ties\")%>\"></td><td>Uafgjort</td></tr>
</table>
</td></tr>
</table>
<form action=\"tictactoe.asp\">
<input type=\"hidden\" name=\"PlayAgain\" value=\"Yes\">
<input type=\"Submit\" value=\"Play Again\">
</form>
</center>
</body></html>
----------------------------------
/MadD
