How do I set my text to be evaluated as an integer? ie. 10 is now 2?

Question

I'm trying to duplicate a game in AppleScript that I made in BasicA back when I was eight years old.
This works pretty well. When I guess 10 though, it says that I need to guess a higher number - the number can't be above 10. I realize that it's doing alphabetical order rather than number order, but can't figure out what to do to fix it.
Help... please. Here is my code:
set PlayerName to text returned of (display dialog "Please type your name in the box and click continue." default answer "" buttons {"Continue"} default button "continue") as text
set PlayerScore to 0
set ComputerScore to 0
repeat
set SecretNumber to (random number from 1 to 10) as text
set TheGuess to text returned of (display dialog ("Computer's Score: " & (ComputerScore as integer) & return & PlayerName & ":" & PlayerScore & return & return & "Guess a number 1-10." & return) default answer "" buttons {"cancel", "continue"} default button "continue")
if TheGuess ≠ SecretNumber then
repeat
set ComputerScore to (ComputerScore + 0.3333)
if TheGuess > SecretNumber then
set TheHint to "Hint: Try guessing lower."
else if TheGuess < SecretNumber then
set TheHint to "Hint: Try guessing higher."
else
set TheHint to "Hint: you must guess a number between 1 and 10."
end if
set TheGuess to text returned of (display dialog "Computer's Score: " & (ComputerScore as integer) & return & PlayerName & ":" & PlayerScore & return & return & "Guess a number 1-10." & return & return & "Nope. Try again." & return & return & TheHint default answer "" buttons {"cancel", "continue"} default button "continue")
if TheGuess = SecretNumber then
exit repeat
end if
end repeat
end if
set PlayerScore to (PlayerScore + 1)
display dialog "Computer's Score: " & (ComputerScore as integer) & return & PlayerName & ":" & PlayerScore & return & return & "Congratulations! Play again?" buttons {"exit", "Play again"} default button "Play again"
end repeat
------------------

Answer 1

Use the following:
set PlayerName to text returned of (display dialog "Please type your name in the box and click continue." default answer "" buttons {"Continue"} default button "continue") as text
set PlayerScore to 0
set ComputerScore to 0
repeat
set SecretNumber to (random number from 1 to 10)
set TheGuess to text returned of (display dialog ("Computer's Score: " & (ComputerScore as integer) & return & PlayerName & ":" & PlayerScore & return & return & "Guess a number 1-10." & return) default answer "" buttons {"cancel", "continue"} default button "continue") as number
if TheGuess ≠ SecretNumber then
repeat
set ComputerScore to (ComputerScore + 0.3333)
if TheGuess > SecretNumber then
set TheHint to "Hint: Try guessing lower."
else if TheGuess < SecretNumber then
set TheHint to "Hint: Try guessing higher."
else
set TheHint to "Hint: you must guess a number between 1 and 10."
end if
set TheGuess to text returned of (display dialog "Computer's Score: " & (ComputerScore as integer) & return & PlayerName & ":" & PlayerScore & return & return & "Guess a number 1-10." & return & return & "Nope. Try again." & return & return & TheHint default answer "" buttons {"cancel", "continue"} default button "continue") as number
if TheGuess = SecretNumber then
exit repeat
end if
end repeat
end if
set PlayerScore to (PlayerScore + 1)
display dialog "Computer's Score: " & (ComputerScore as integer) & return & PlayerName & ":" & PlayerScore & return & return & "Congratulations! Play again?" buttons {"exit", "Play again"} default button "Play again"
if button returned of the result is "exit" then exit repeat
end repeat
(42537)