Am observat ca sunt probleme cu multigreet, adauga {} in greet si altele...
Poftim un greet fara aceasta problema.
Code:
####################################################################
# Author: StarteR2                                                 #
# Email: starter2@sympatico.ca                                     #
# Description: Greet, on join, user will receive channel's greet.  #
# Version: Stable                                                  #
#                                                                  #
# Usage:							                               #			 	
#       !greet -add <greet>				                     	   #		 
#       !greet -remove					                    	   #		 
#       !greet -verify                                             #					 
#								                                   #			 	
# Install:						                            	   #			 
#								                                   #			 	
#       1) Creat an empty file name greet.db in the eggdrops main  #
#       dir.					                        		   #		 	
#       Default: ~/eggdrop				                     	   #		 
#   								                               #			 		
#       2) Load the script. (i.e. source greet.tcl)                #      
####################################################################

proc greet:check {chan} {
set file "greet.db"
                         set fd [open $file r]
				         set cont [read $fd]
			             close $fd
	set g 0
			       foreach abuse [split $cont \n] {
				   if {[string match -nocase "$chan *" $abuse]} {
                  	set g 1}
					}
	return $g
					}

a:command -add greet    pub:greet   1099 593 N
proc pub:greet {hand chan args x mix} {
global settings
	set file "greet.db"
	set aqwzsx       [lindex $args 0]   ;#option
      set greet      [join [lrange $args 1 end]]   ;#reason

if {$aqwzsx == ""} {
                   putquick "privmsg $chan :Usage:\0032 !greet -add <greet> \0034To add a greet to your channel"
                   putquick "privmsg $chan :Usage:\0032 !greet -remove\0034 To remove the greet from the channel"
				return
     }
		        
	switch  -- $aqwzsx {         
		
             -add {
                        if {[greet:check $chan]} {
                        puthelp "PRIVMSG $chan :\002GREET\002 Failed to add greeting as one already exists. If you wish to remove the existing one try \0034.greet -remove"
                        return 
                        }
			set fd [open $file a+]
			puts $fd "$chan $greet\n"
			close $fd
			puthelp "PRIVMSG $chan :\002GREET\002 Added greeting \0032$greet\0031 to channel \0034$chan"
		}           
		-remove {
                        if {![greet:check $chan]} {
                        puthelp "PRIVMSG $chan :\002GREET\002 Failed to remove greeting as no greeting exists."
                        return
                        }

			set fd [open $file r]
			set reads [read $fd]
			close $fd
			set data ""
			
			if {[llength $reads]} {
				set fd [open $file w]
			        foreach line [split $reads \n] {
					if {![string match -nocase "$chan*" $line]} {
						if {[llength $line]} {puts $fd "$line"}
					}
				puthelp "PRIVMSG $chan :\002GREET\002 Removed greet from channel \0032$chan"
				}
				close $fd
				}
			}
			
               -verify {
                         set fd [open $file r]
				         set cont [read $fd]
			             close $fd
			       foreach abuse [split $cont \n] {if {[string match -nocase "$chan *" $abuse]} {
                  	set a1       [lindex $abuse 0]   		;#chan
                        set b2       [join [lrange $abuse 1 end]]	;#greet
				putquick "PRIVMSG $chan :Greet for channel \0034$chan\0031 is \0032$b2"}
					}
                       }
			}
		
}


bind join -|- * greetnote
proc greetnote {nick uhost hand chan} {
set file "greet.db"
			set fd [open $file r]
			set cont [read $fd]
			close $fd
			foreach abuse [split $cont \n] {if {[string match -nocase "$chan*" $abuse]} {
                  	set a1       [lindex $abuse 0]   		;#chan
                        set b2       [join [lrange $abuse 1 end]]	;#greet
				putquick "NOTICE $nick :$b2"}
			}
                  return
		}


putlog "Greet by StarteR2 @ elmtbots.info Loaded"