<%@ LANGUAGE = VBScript%><%
Dim thePath
thePath = "D:\inetpub\wwwroot\cyberoculus.com\"
Sub Startup()
Response.Write "" & chr(13)
Response.Write " " & chr(13)
Response.Write " Checkboxes" & chr(13)
Response.Write " " & chr(13)
If request("Action")="Play" Then
Response.Write " " & chr(13)
End If
Response.Write " " & chr(13)
Response.Write " " & chr(13)
Response.Write " Check-Boxes
" & chr(13)
Response.Write "
" & chr(13)
End Sub
Sub Gameboard()
Dim Rows, Columns 'Variables for building the gameboard
Dim Counter 'Variable for counting the box number
Counter = 0
Response.Write " " & chr(13)
Response.Write "
" & chr(13)
End Sub
Sub Rules()
Response.Write " The rules are rather simple. The game board consists of 144" & chr(13)
Response.Write " boxes, a 12 by 12 matrix. When you press a mouse button the game"
Response.Write " will begin.
" & chr(13)
Response.Write " You want to try to click as many squares as you can before your time"
Response.Write " runs out.
" & chr(13)
Response.Write " After your time is up your statistics will be shown.
" & chr(13)
Response.Write "
" & chr(13)
End Sub
Sub Scores()
Response.Write " " & chr(13)
Response.Write " " & chr(13)
Response.Write " High Scores | " & chr(13)
Response.Write "
" & chr(13)
Response.Write " " & chr(13)
Dim counter, fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(thePath & "data\checkboxes.dat", 1)
For counter = 1 to 10
Response.Write "
" & chr(13)
Response.Write " | " & f.Read(3) & " Boxes | " & chr(13)
f.Read(1)
Response.Write " " & f.Read(3) & "% | " & chr(13)
f.Read(1)
Response.Write " " & f.ReadLine & " | " & chr(13)
Response.Write "
" & chr(13)
Next
f.close
Response.Write "
" & chr(13)
Response.Write "
" & chr(13)
End Sub
Function SortArray(Items)
Dim CurrentItem, LargestItem, ItemNumber, NumberOfItems, TransientItem, fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(thePath & "data\checkboxes.dat", 2, True)
CurrentItem = 1
LargestItem = 1
NumberOfItems = Ubound(Items)
For CurrentItem = 1 To NumberOfItems
LargestItem = CurrentItem
For ItemNumber = CurrentItem + 1 To NumberOfItems
If Items(ItemNumber) > Items(LargestItem) Then LargestItem = ItemNumber
Next
TransientItem=Items(CurrentItem)
Items(CurrentItem)=Items(LargestItem)
Items(LargestItem)=TransientItem
Next
For CurrentItem = 1 to 10
f.WriteLine Items(CurrentItem)
Next
Response.Write " " & chr(13)
End Function
Sub HighScore()
Dim NumOfBoxes, NumOfClicks
NumOfBoxes = Request.Form("boxes")
NumOfClicks = Request.Form("clicks")
Response.Write " " & chr(13)
Response.Write " " & chr(13)
End Sub
Sub CheckScore(usersScore)
Dim counter, fso, f, scores(11), AHighScore
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(thePath & "data\checkboxes.dat", 1)
scores(11) = ""
AHighScore = false
For counter = 1 to 10
scores(counter) = f.ReadLine
If usersScore >= scores(counter) Then
AHighScore = true
End If
Next
f.close
If AHighScore then
If Request.Form("name") = "" Then
HighScore()
Else
NumOfBoxes = Request.Form("boxes")
Percent = Request.Form("percent")
If NumOfBoxes < 100 then Scores(11) = Scores(11) + "0"
If NumOfBoxes < 10 then Scores(11) = Scores(11) + "0"
scores(11) = scores(11) + NumOfBoxes & "-"
If Percent < 100 then scores(11) = scores(11) + "0"
If Percent < 10 then scores(11) = scores(11) + "0"
scores(11) = scores(11) + Percent & "-"
scores(11) = scores(11) + Request.Form("name")
End If
Else
Response.Write " " & chr(13)
End If
SortArray(scores)
End Sub
Sub ShutDown()
Response.Write " [ Main Menu | Play | Rules | Scores ]
" & chr(13)
%><%
Response.Write " " & chr(13)
Response.Write "" & chr(13)
End Sub
StartUp()
If Request.Form("boxes") <> "" then CheckScore Request.Form("boxes")
Select Case Request("Action")
Case "Play" GameBoard()
Case "Rules" Rules()
Case "Scores" Scores()
End Select
ShutDown()%>