Tcl error [flames]: wrong # args: should be "flames nick1 nick2"

Active 4 Replies 191 Views 2022-12-18 02:29:25 TCL Support
here's my code

# Bind the !flames command to the flames proc
bind pub -|- !flames flames

# Define the flames proc
proc flames {nick1 nick2} {
    # Convert the nicknames to lowercase
    set nick [string tolower $nick1]
    set nick [string tolower $nick2]

    # Initialize a counter to zero
    set count 0

    # Iterate through the letters in the first nickname
    for {set i 0} {$i < [string length $nick1]} {incr i} {
        # Get the current letter
        set c1 [string index $nick1 $i]
        # Check if the letter is not present in the second nickname
        if {[string first $c1 $nick2] == -1} {
            # If the letter is not present, increment the counter
            incr count
        }
    }

    # Iterate through the letters in the second nickname
    for {set i 0} {$i < [string length $nick2]} {incr i} {
        # Get the current letter
        set c2 [string index $nick2 $i]
        # Check if the letter is not present in the first nickname
        if {[string first $c2 $nick1] == -1} {
            # If the letter is not present, increment the counter
            incr count
        }
    }

    # Determine the result based on the value of count
    if {$count == 0 || $count == 1} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Friends."
} elseif {$count >= 2 && $count <= 3} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Lovers."
} elseif {$count >= 4 && $count <= 5} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Affectionate."
} elseif {$count >= 6 && $count <= 7} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Marriage."
} elseif {$count >= 8 && $count <= 9} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Enemies."
} else {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Sister/Brother."
}
}
ventura.kevin52844 replied
1 Month
Hi Sir!
I did to work on your compatibility with my flames. and can you help me on how to put emoji like this? 

[code]
BLaCkShaDoW replied
1 Month
Quoting ventura.kevin52844 Hi Sir,
How to apply compatability bar? can you put it Sir?

The compatibility bar script is based on other type of calculations. It can't be merged with yours, they are different.
ventura.kevin52844 replied
1 Month
Hi Sir,

How to apply compatability bar? can you put it Sir?
BLaCkShaDoW replied
1 Month
try it.

# Bind the !flames command to the flames proc
bind pub -|- !flames flames

# Define the flames proc
proc flames {nick host hand channel arg} {
    # Convert the nicknames to lowercase
    set nick1 [string tolower [lindex [split $arg] 0]]
    set nick2 [string tolower [lindex [split $arg] 1]]
if {$nick1 == "" || $nick2 == ""} {
    putserv "NOTICE $nick :Use !flames "
    return
}
    # Initialize a counter to zero
    set count 0

    # Iterate through the letters in the first nickname
    for {set i 0} {$i < [string length $nick1]} {incr i} {
        # Get the current letter
        set c1 [string index $nick1 $i]
        # Check if the letter is not present in the second nickname
        if {[string first $c1 $nick2] == -1} {
            # If the letter is not present, increment the counter
            incr count
        }
    }

    # Iterate through the letters in the second nickname
    for {set i 0} {$i < [string length $nick2]} {incr i} {
        # Get the current letter
        set c2 [string index $nick2 $i]
        # Check if the letter is not present in the first nickname
        if {[string first $c2 $nick1] == -1} {
            # If the letter is not present, increment the counter
            incr count
        }
    }

    # Determine the result based on the value of count
    if {$count == 0 || $count == 1} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Friends."
} elseif {$count >= 2 && $count <= 3} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Lovers."
} elseif {$count >= 4 && $count <= 5} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Affectionate."
} elseif {$count >= 6 && $count <= 7} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Marriage."
} elseif {$count >= 8 && $count <= 9} {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Enemies."
} else {
putserv "PRIVMSG $channel :$nick1 and $nick2 = Sister/Brother."
}
}
loading...