Code:

can't read "argv": no such variable    while executing"lindex $argv 1"    (file "scripts/welcome.tcl" line 56)    invoked from within"source scripts/welcome.tcl"

Code:

# Script to greet new users and count their visits# Path to the counter fileset contadorFile "scripts/Lobby.txt"# Define a function to greet new users and count their visitsproc greetAndCount {nick chan} {    # Get the current date and time    set fecha [clock format [clock seconds] -format "%Y-%m-%d"]    set hora [clock format [clock seconds] -format "%H:%M:%S"]    # Increment the counter    set contador [expr {file exists $contadorFile ? [readfile $contadorFile] + 1 : 1}]    # Save the counter    writefile $contadorFile $contador    # Build the greeting message with colors and bold    set saludo "Hello, \002$nick\002! Welcome to channel \002$chan\002. The current date is: \002$fecha\002, and the current time is: \002$hora\002. This is visit number \002$contador\002 to the channel."    # Send the message to the channel    putquick "PRIVMSG $chan :$saludo"}# Function to read a fileproc readfile {filename} {    set file [open $filename]    set content [read $file]    close $file    return $content}# Function to write to a fileproc writefile {filename content} {    set file [open $filename w]    puts -nonewline $file $content    close $file}# Bind the join event to the greetAndCount function for the #Lobby channelbind join - "chan #Lobby greetAndCount"# Define the global variable `argv`global argv# Check for errors in the counter fileif {![file exists $contadorFile]} {    set contador 1}# Initialize the global variable `nick`global nickset nick ""# Assign the value of the first element of the `argv` list to the `nick` variableset nick [lindex $argv 1]putlog "=== #Lobby @ Count ==="