How about something like this, with tolerance plus minus 5 and a SeedRandom to control the random numbers?
DynamicModule[{n, guess = 0}, {InputField[Dynamic[guess], Number],
Dynamic[Which[n == guess, "You won", guess < n - 5,
"Increase try again", guess > n + 5, "Decrease try again",
n - 5 <= guess <= n + 5, "you came close"]], Dynamic[n]},
Initialization :> (SeedRandom[32]; n = RandomInteger[{1, 99}])]
@Hazal: In your initial question you didn't say that you also want the inputs to be refreshed. For this requirement, I have used Manipulate and added a "New Game" button in order the user to be able to start a new game even in the middle of their current game
Manipulate[SeedRandom[36 + sr]; n = RandomInteger[{1, 99}];
Which[n == Guess, "You won", Guess < n - 5,
"Increase try again\nInput:" <> ToString[n], Guess > n + 5,
"Decrease try again\nInput:" <> ToString[n],
n - 5 <= Guess <= n + 5,
"you came close\nInput:" <> ToString[n]], {Guess, 0},
{sr, 0, ControlType -> None},
Button["New Game", sr = RandomInteger[{0, 10000000}]],
ControlType -> InputField]