tclscripts-BlackTools-TCL/BlackTools2.5/BlackTools/Modules/BT.GreetLeave.tcl

#########################################################################
##          BlackTools - The Ultimate Channel Control Script           ##
##                    One TCL. One smart Eggdrop                       ##
#########################################################################
########################   GREET & LEAVE TCL   ##########################
#########################################################################
##						                       ##
##     BlackTools  : http://blacktools.tclscripts.net	               ##
##     Bugs report : http://www.tclscripts.net/	                       ##
##     Online Help : irc://irc.undernet.org/tcl-help 	               ##
##                   #TCL-HELP / UnderNet                              ##
##                   You can ask in english or romanian                ##
##					                               ##
#########################################################################

proc greetpublic {nick host hand chan arg} {
	global black lastbind
	set who [lindex [split $arg] 0]
	set modul "greet"
	set type 0
	set chan1 $chan
	set greet [join [lrange [split $arg] 1 end]]
if {[regexp {^[&#]} $who] && [matchattr $hand nmo|M $who]} {
	set chan $who
	set who [lindex [split $arg] 1]
	set greet [join [lrange [split $arg] 2 end]]
	}
	set return [blacktools:mychar $lastbind $hand]
if {$return == "0"} {
		return
}
	othermodule:process $nick $host $hand $chan $chan1 $who $greet $type $modul	
}

proc leavepublic {nick host hand chan arg} {
	global black lastbind
	set who [lindex [split $arg] 0]
	set modul "leave"
	set type 0
	set chan1 $chan
	set leave [join [lrange [split $arg] 1 end]]
if {[regexp {^[&#]} $who] && [matchattr $hand nmo|M $who]} {
	set chan $who
	set who [lindex [split $arg] 1]
	set leave [join [lrange [split $arg] 2 end]]
	}
	set return [blacktools:mychar $lastbind $hand]
if {$return == "0"} {
		return
}
	othermodule:process $nick $host $hand $chan $chan1 $who $leave $type $modul	
}

proc greetpublic:join {nick host hand chan} {
	global black
if {[setting:get $chan greet]} {
if {[info exists black(turnOnFlood:$chan)]} {
	return
}
	set getgreet ""
	set get_time [setting:get $chan jointime]
if {$get_time == ""} { set jointime [unixtime] }
	set replace(%nick%) $nick
	set replace(%chan%) $chan
	set replace(%count%) [setting:get $chan joincount]
	set replace(%time%) [clock format $get_time -format %D-%H:%M:%S]
	set greet_method [string toupper [setting:get $chan greet-method]]
if {$greet_method == ""} {
	set greet_method $black(greet:method)
}
	set file [open $black(join_file) r]
while {[gets $file line] != -1} {
	set read_modul [lindex [split $line] 0]
	set read_chan [lindex [split $line] 1]
	set enc_chan [encoding convertfrom utf-8 $read_chan]
if {[string equal -nocase $read_modul "greet"] && [string equal -nocase $chan $enc_chan]} {	
	set read_msg [lrange [split $line] 2 end]
	set getgreet [encoding convertfrom utf-8 $read_msg]
	}
}
	close $file
if {$getgreet != ""} {
	set split_greet [split $getgreet "~"]
	foreach line $split_greet {
	set line [string map [array get replace] $line]
if {$greet_method == "NOTICE"} {
	putserv "NOTICE $nick :[join $line]"
				} else { putserv "PRIVMSG $nick :[join $line]" }
			}
		}
	}
}

proc leavepublic:part {nick host hand chan args} {
	global black
	set number [scan $black(leaveflood) %\[^:\]]
	set time [scan $black(leaveflood) %*\[^:\]:%s]
	if {[isbotnick $nick]} { return }
if {[setting:get $chan leave]} {
	set getleave ""
foreach tmr [utimers] {
if {[string match "*black(leaveflood:$chan)*" [join [lindex $tmr 1]]]} {
	killutimer [lindex $tmr 2]
	}
}
if {[info exists black(leavestopped:$chan)]} {
	return
}

if {![info exists black(leaveflood:$chan)]} { 
	set black(leaveflood:$chan) 0 
}
	set black(leaveflood:$chan) [expr $black(leaveflood:$chan) + 1]
	utimer $time [list unset black(leaveflood:$chan)]

if {$black(leaveflood:$chan) >= $number} {
	set black(leavestopped:$chan) 1
	utimer 60 [list unset black(leavestopped:$chan)]
	return
}
	set replace(%nick%) $nick
	set replace(%chan%) $chan
	set leave_method [string toupper [setting:get $chan leave-method]]
if {$leave_method == ""} {
	set leave_method "NOTICE"
}
	set file [open $black(join_file) r]
while {[gets $file line] != -1} {
	set read_modul [lindex [split $line] 0]
	set read_chan [lindex [split $line] 1]
	set enc_chan [encoding convertfrom utf-8 $read_chan]
if {[string equal -nocase $read_modul "leave"] && [string equal -nocase $chan $enc_chan]} {	
	set read_msg [lrange [split $line] 2 end]
	set getleave [encoding convertfrom utf-8 $read_msg]
	}
}
	close $file
if {$getleave != ""} {
	set split_leave	[split $getleave "~"]
	foreach line $split_leave {
	set line [string map [array get replace] $line]
if {$leave_method == "NOTICE"} {
	putserv "NOTICE $nick :[join $line]"
				} else { putserv "PRIVMSG $nick :[join $line]" }
			}
		}
	}
}

##############
#########################################################################
##   END                                                               ##
#########################################################################