Code:

set say [string map [list %n% \002$nk\002 %c% \002$ch\002] $got]

Code:

##################################################################### SayGreet  ver. 0.1  by SpiKe^^           www.mytclscripts.com ########################################################################################################################## 06/01/2019 ###                                                                 ## onjoin greeting script, with nick and/or chan specific greets.  ##                                                                 ## You Must create the file with all available greeting messages!  ## Each greeting message goes on its own file line.                ## The order of the lines doesn't matter. Blank lines are ignored. ## If the script finds multiple valid greets, picks one randomly.  ##                                                                 ## -Example- adding 2 script default greeting messages.            ##  Welcome to %c% : Stay & Play some Trivia with us.              ##  Welcome to %c% : Use .triv to start the Trivia game.           ##                                                                 ## You can also set Nick and/or Chan Specific greeting messages.   ## -Example- adding 2 nick specific greetings (both same nick).    ##  Houdini :: Welcome back %n% : Behave yourself:)                ##  houdini :: The king has returned. Welcome back %n%             ## -Example- adding 2 channel specific default greetings.          ##  #lamechat :: [%n%] Don't be Lame. Say something witty.         ##  #lameChat :: Welcome to %c% %n% : Don't be Lame:)              ## -Example- adding 2 nick and channel specific greetings.         ##  houdini@#trivial :: The king has returned. Top trivia champ!   ##  houdini@#Trivial :: Welcome back %n% : 99583 Points Last week! ##                                                                 ####################################################################namespace eval saygreet { variable greet######################################################### - Begin Script Settings - Begin Script Settings - ##########################################################  Set the channel(s) to run this script in.  #set greet(chans) ""   ;#   ("" = all channels)  ##  Set the route/file.name to the greetings file.  #set greet(file) "scripts/greets.txt"#  Set the file line divider between nick/chan and the message.  ##  Use any string that will Never be in a greeting message.  #set greet(fdiv) "::"#  1 = Send greets by message  #  2 = Send greets by notice  #set greet(how) "1"#  1 = Send greets to channel  #  2 = Send greets to nick  #set greet(who) "1"#  Prefix all greetings with the users nick??  (1+=yes 0=no)  ##  1 = Prefix all greetings with users nick.  ##  2 = Add users nick Only if no %n% in the greet message.  #set greet(unick) "2"########################################################### - End Script Settings - End Script Settings - ###########################################################bind join - * [namespace current]::saygreetset greet(chans) [string trim $greet(chans)]if {$greet(chans) eq "" || $greet(chans) eq "*"} { set greet(_chans) ""} else {  set greet(_chans) [split [string tolower $greet(chans)]]  }if {$greet(how) ne "2"} {  set greet(how) 1  }if {$greet(who) ne "2"} {  set greet(who) 1  }if {$greet(unick) ni {0 1}} {  set greet(unick) 2  }proc saygreet {nk uh hn ch} {  variable greet  set que "puthelp"  set nklo [string tolower $nk]  ;  set chlo [string tolower $ch]  if {$greet(_chans) ne "" && [lsearch -exact $greet(_chans) $chlo]<0} {    return 0  }  if {[isbotnick $nk] || ![file exists $greet(file)]} {  return 0  }  set open [open $greet(file) r]  set greets [split [string trim [read $open]] \n]  close $open  set defls "" ;  set cdefls "" ;  set sayls "" ;  set csayls ""  set divider $greet(fdiv)  foreach gr $greets {  set gr [string trim $gr]    if {$gr eq ""} {  continue  }    set rest [join [lassign [split $gr] nkch div]]    set nkch [string tolower $nkch]    if {$div eq $divider} {      if {$nkch eq "!def" || $nkch eq "!default"} {        lappend defls $rest      } elseif {[string match "*,${nklo}@${chlo},*" ",${nkch},"]} {        lappend csayls $rest      } elseif {[string match "*,${nklo},*" ",${nkch},"]} {        lappend sayls $rest      } elseif {[string match "*,${chlo},*" ",${nkch},"]} {        lappend cdefls $rest      } elseif {[string match "*,@${chlo},*" ",${nkch},"]} {        lappend cdefls $rest      }    } elseif {$nkch eq $divider} {      lappend defls "$div $rest"    } else {  lappend defls $gr  }  }  if {$csayls ne ""} {  set gotls $csayls  } elseif {$sayls ne ""} {  set gotls $sayls  } elseif {$cdefls ne ""} {  set gotls $cdefls  } elseif {$defls ne ""} {  set gotls $defls  } else {  set gotls ""  }  if {$gotls eq ""} {  return 0  }  set got [lindex $gotls [rand [llength $gotls]]]  set say [string map [list %n% $nk %c% $ch] $got]  if {$greet(unick)==2 && ![string match "*%n%*" $got]} {    set say "$nk : $say"  } elseif {$greet(unick)==1} {  set say "$nk : $say"  }  if {$greet(how)==2} { set how "NOTICE" } else { set how "PRIVMSG" }  if {$greet(who)==2} {  set who $nk  } else {  set who $ch  }  $que "$how $who :$say"}putlog "SayGreet ver. 0.1 Loaded."} ;## - End namespace eval - ##