Code:

 #don't show greeting if the same user joins twice, thrice etc. if {[string equal -nocase $lastjoined $nick]} {    return } else {    set lastjoined $nick }

Code:

#!greet being the command to set greetingsbind pub - !greet tueb_write_greetingbind join - * tueb_on_joined#variablesvariable greetfile "greeting.txt"variable lastjoined ""proc tueb_on_joined {nick host handle channel} {global lastjoined greetfile #don't show greeting if the same user joins twice, thrice etc. if {[string equal -nocase $lastjoined $nick]} {    return } else {    set lastjoined $nick } #see, if greeting.txt exists: if {[file exists $greetfile]&& [file readable $greetfile]} {   #reading out greeting.txt   set fp [open $greetfile "r"]   set data [read -nonewline $fp]   close $fp   #only post, if greeting isnot ""   if {$data != ""} {      #posting greeting      putserv "PRIVMSG $channel :$data"   } }}proc tueb_write_greeting {nick host handle channel text} {global greetfile #only ops can set greeting: if {![isop $nick $channel]} {    #message: not accepted    set showtext "You need to be op to set a new greeting."    return } #writing greeting to greeting.txt, overwriting old greeting: set file [open $greetfile "w"] puts $file $text flush $file close $file #message: accepted set showtext "Set new greeting to: \002$showtext\002" putserv "PRIVMSG $channel :$showtext"}