#----------------------
#nickregister SCAN SCRIPT -
#--------------------
# absolu [creation]		14/07/2009
#			:raw311 : whois
#			: raw307: nickregister
#			: envois du message sur opchan avec le salon ou se trouve le nick detecté
#			: mise en place un  message  en  mp à l'user.
#	commandes:
#			!mpcount affiche total de mp sur nombre de whois
#			!mpreset remet a zero le compteur
 
set count_whois 0
set count_mp 0
#------->> request registernick <<-----
set badr(list) {
"*n'est pas enregistré.*"
"*not reg*"
 
}
#----->> Info chan <<-----
set opchan "#log-chan"
#----->> Chan à Scanner, seperé par un  espace <<-----
set badr(chan) "#channel1 #channel2" 
#binds
bind join - "$badr(chan) *" brealname:join
bind raw - 311 brealname:check
bind PUB - !compte mp_count
bind PUB - !reset mp_reset
# join
proc brealname:join {nick host hand chan} { 
	global WhoisNick WhoisNickWarn
	if {[strlwr $nick] == [strlwr $::botnick] || [matchattr $hand of|fo $chan]} {
		return 0
	} 
	if {([info exists WhoisNickWarn($host)] == 1)} {
		return 0
	}
	set WhoisNickWarn($host) 1
	timer 2 "unset WhoisNickWarn($host)"
	if {([info exists WhoisNick] == 1)} {
		if {$WhoisNick == 5} {
			putlog "$WhoisNick Whois max"
			return 0
		}
		incr WhoisNick
	} else {
		set WhoisNick 1
		utimer 2 "unset WhoisNick"
	}
	putserv "WHOIS $nick" 
}
# check
proc brealname:check {from key arg} { 
	global opchan count_whois count_mp
	incr count_whois
	set realname [ctrl:filter [string range $arg [expr [string first : $arg]+1] end] ]
	foreach bla $::badr(list) {
		if {![string match -nocase $bla $realname]} {
			continue
		}
	putserv "PRIVMSG $opchan :ACTION 4 Info nickerv :4 [lindex [split $arg] 1] n'estpas enregistré sur $::badr(chan)  0 - PV informatif eFFectué - $count_whois "
	putserv "PRIVMSG [lindex [split $arg] 1] : STP,pour une meilleure gestion du salon Mercid'enregistrer  ton pseudo :lis ceci : http://XXXXXX.nickserv.htm " 
		incr count_mp
	    	break
	}
}
proc mp_count {nick host hand chan text} { 
	global opchan count_whois count_mp
	if {[string match -nocase $chan $opchan] && ([isvoice $nick $chan] || [ishalfop $nick $chan] || [isop $nick $chan])} {
		putserv "PRIVMSG $chan : Total de $count_mp MP pour $count_whois join " 
	}
}
proc mp_reset {nick host hand chan text} { 
	global opchan count_whois count_mp
	if {[string match -nocase $chan $opchan] && [isop  $nick $chan]} {
		set count_mp 0
		set count_whois 0
		putserv "PRIVMSG $chan : Compteur de mp remis à zero :) merci de me soulager $nick" 
	}		
}
#ppslim's filter
proc ctrl:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}
putlog  " \0034Register tcl V1.1a  chargé - Register tcl v1.1a -- scan sur: $badr(chan) / report: $opchan\003"
putserv " privmsg #chan-log : \0034 Register tcl V1.1a  chargé\003 -- scan sur: $badr(chan) / report: $opchan\003 "
############################# fin du TCL ####################

###########################
# Nick-Register.tcl
###########################
set proprio "Votre nick"
set register_version "2.1a"
set foo "#salon1 #salon2 #saon3"
bind join - * foo 
proc foo {n u h c} { 
   puthelp "whois $n" 
} 
bind raw - 311 got311 ;# first WHOIS reply 
bind raw - 307 got307 ;# nick has identified (registered) 
bind raw - 318 got318 ;# End of /WHOIS list 
proc got311 {f k t} { 
   set n [lindex [split $t] 1] 
   set ::whoised($n) 0 
} 
proc got307 {f k t} { 
   set n [lindex [split $t] 1] 
   incr ::whoised($n) 
} 
proc got318 {f k t} { 
   set n [lindex [split $t] 1] 
   if {$::whoised($n) == 0} { 
      puthelp "privmsg $n :Hello \00304$n\003 et bienvenue.Il est préfèrable d'être enregistré pour plus de securité et garder  ton pseudo. \00304 /msg nickserv REGISTER \003 \037\00304 <password> <ton@email> \003 \003 (ce qui est entre < > est à modifier).Un email valide. Si  pb pour t'enregistrer,  vois sur \00304#salon-aide\003" 
	  putquick "PRIVMSG #Salon-DE-log : \037\00303$n\003\ \003 ne semble pas être enregistré.Pv envoyé -> $n <- "
   } 
}  
# on ban apres combien  de secondes ?
set banafter(j:s) 3:60 
 
bind join - * kick:unreg 
 
foreach {banafter(j) banafter(s)} [split $banafter(j:s) :] {break} 
 
proc kick:unreg {nick uhost hand chan} { 
 global banafter whoised rejoins 
 if {![info exists rejoins([set n [string tolower $nick]])]} { set rejoins($n) 0 } 
 if {!$whoised($nick)} { 
    puthelp " mode $chan -v $nick "
#~~~~ On peux bbanir l'user ~~~~~~~~
  #newchanban $chan *!*@[lindex [split $uhost @] 1] unreg "STP , identifies ( /ns identify <ton_password> ) toi ou enregistres toi.Tu est bannis 5 mn. ban.Reviens quand ceci seras fait Merci.Si tu as un soucis vois sur #salon-aide" 5 
  utimer $banafter(s) [list incr rejoins($n) -1] 
  if {[incr rejoins($n)] >= $banafter(j)} { 
   puthelp " mode $chan -v $nick "
#~~~~~~decommanté si l'on  veux débannir (si l'option  ban à ete mise en place) ~~~~~~
#   puthelp "MODE $chan +b *!*@[lindex [split $uhost @] 1]" 
  } 
 } 
} 
putlog "©Nick-REgister.tcl.tcl $register_version Script par  $proprio chargé  "
putserv "PRIVMSG #salon-log : \037\002©Nick-REgister.tcl $register_version Script par  ©cestlemien chargé \037\002 "

bind join - * foo
proc foo {n u h c} {
   utimer 30 [puthelp "whois $n"]
}