class GuessingGame
{
static void Main()
{
Random random = new Random();
int numberToGuess = random.Next(1, 101);
int userGuess = 0;
int attempts = 0;

Console.WriteLine(“Welcome to the Number Guessing Game!”);
Console.WriteLine(“I have selected a random number between 1 and 100.”);
Console.WriteLine(“Can you guess the number?”);

while (userGuess != numberToGuess)
{
Console.Write(“Enter your guess: “);
userGuess = Convert.ToInt32(Console.ReadLine());
attempts++;

if (userGuess < numberToGuess) { Console.WriteLine("Too low! Try again."); } else if (userGuess > numberToGuess)
{
Console.WriteLine(“Too high! Try again.”);
}
else
{
Console.WriteLine($”Congratulations! You’ve guessed the number {numberToGuess} correctly in {attempts} attempts.”);
}
}
}
}

: guessing-game ( — )
random to number-to-guess
0 to user-guess
0 to attempts

.” Welcome to the Number Guessing Game!” cr
.” I have selected a random number between 1 and 100.” cr
.” Can you guess the number?” cr

begin
.” Enter your guess: ” 0 listen-stdin user-guess !
attempts @ 1+ to attempts

user-guess @ number-to-guess @ < if ." Too low! Try again." cr else user-guess @ number-to-guess @ > if
.” Too high! Try again.” cr
else
.” Congratulations! You’ve guessed the number ” number-to-guess @ .
.” correctly in ” attempts @ . .” attempts.” cr
then
then
user-guess @ number-to-guess @ <>
again
;

: main ( — ) guessing-game ;

class Program
{
static void Main(string[] args)
{
Game game = new Game();
game.Start();
}
}

class Game
{
private Player player;
private Dictionary rooms;

public Game()
{
player = new Player();
rooms = new Dictionary
{
{ “Hall”, new Room(“Hall”, “You are in a grand hall with portraits on the walls.”, new List { “key” }) },
{ “Kitchen”, new Room(“Kitchen”, “You are in a kitchen filled with the smell of spices.”, new List { “potion” }) },
{ “Library”, new Room(“Library”, “You are surrounded by towering bookshelves filled with dusty tomes.”, new List { “book” }) }
};

rooms[“Hall”].AddConnection(“Kitchen”);
rooms[“Hall”].AddConnection(“Library”);
rooms[“Kitchen”].AddConnection(“Hall”);
rooms[“Library”].AddConnection(“Hall”);
}

public void Start()
{
string currentRoom = “Hall”;
while (true)
{
Console.Clear();
Console.WriteLine(rooms[currentRoom].Description);
Console.WriteLine(“You see: ” + string.Join(“, “, rooms[currentRoom].Items));
Console.WriteLine(“Available exits: ” + string.Join(“, “, rooms[currentRoom].Connections));

Console.WriteLine(“What do you want to do? (move, take, exit)”);
string input = Console.ReadLine().ToLower();

if (input.StartsWith(“move”))
{
string direction = input.Substring(5);
if (rooms[currentRoom].Connections.Contains(direction))
{
currentRoom = direction;
}
else
{
Console.WriteLine(“You can’t go that way!”);
}
}
else if (input.StartsWith(“take”))
{
string item = input.Substring(5);
if (rooms[currentRoom].Items.Contains(item))
{
player.AddItem(item);
rooms[currentRoom].RemoveItem(item);
Console.WriteLine($”You took the {item}.”);
}
else
{
Console.WriteLine($”There’s no {item} here.”);
}
}
else if (input.StartsWith(“exit”))
{
Console.WriteLine(“Thanks for playing!”);
break;
}
else
{
Console.WriteLine(“Invalid command.”);
}

Console.WriteLine(“Press any key to continue…”);
Console.ReadKey();
}
}
}

class Player
{
private List inventory;

public Player()
{
inventory = new List();
}

public void AddItem(string item)
{
inventory.Add(item);
}
}

class Room
{
public string Name { get; private set; }
public string Description { get; private set; }
public List Items { get; private set; }
public List Connections { get; private set; }

public Room(string name, string description, List items)
{
Name = name;
Description = description;
Items = items;
Connections = new List();
}

public void AddConnection(string roomName)
{
Connections.Add(roomName);
}

public void RemoveItem(string item)
{
Items.Remove(item);
}
}

: Player-AddItem ( c-addr u — )
inventory @ , dup @ + , ! Add item to inventory
;

: Room ( c-addr u c-addr u c-addr — )
CREATE Name 32 allocate, Allocate space for name
Name swap move, Set name
CREATE Description 256 allocate, Allocate space for description
Description swap move, Set description
CREATE Items 32 allocate, Allocate space for items
Items swap move, Set items
CREATE Connections 32 allocate, Allocate space for connections
Connections @ 0 , Initialize connections count
;

: Room-AddConnection ( c-addr u — )
Connections @ 1 + , Increase connections count
Connections ! Store updated count
;

: Room-RemoveItem ( c-addr u — )
Code to remove item from Items
;

: Game ( — )
Player new, Create a new player
Create rooms
CREATE rooms 3 allot, Allocate space for 3 rooms
Initialize rooms with their respective names, descriptions, and items
;

: Game-Start ( — )
Initialize game state
s” Hall” Set initial room
BEGIN
Display current room’s description and items
Get user input for actions
CASE
of
s” move” ( — )
Code for moving between rooms
endof
s” take” ( — )
Code for taking items
endof
s” exit” ( — )
“Thanks for playing!” .
LEAVE
endof
Invalid command response
ENDCASE
“Press any key to continue…” .
AGAIN
;

: Main ( — )
Game new,
Game-Start
;

Invoke Main function to start the game
Main