set vhostniv0 {
	*@NetAdmin.Best-Friend-Chat.fr
	*@ChanAdmin.Best-Friend-Chat.fr
	*@ChanOp.Best-Friend-Chat.fr
	*@Op.Best-Friend-Chat.fr
	*@AnimPlus.Best-Friend-Chat.fr
	*@StaffPlus.Best-Friend-Chat.fr
	*@TechAdmin.Best-Friend-Chat.fr
	*@IrcOp.Best-Friend-Chat.fr
	*@global.Best-Friend-Chat.fr
	*@anim.Best-Friend-Chat.fr
}
 
set vhostplus {
	*@NetAdmin.Best-Friend-Chat.fr
	*@ChanAdmin.Best-Friend-Chat.fr
	*@ChanOp.Best-Friend-Chat.fr
	*@StaffPlus.Best-Friend-Chat.fr
	*@TechAdmin.Best-Friend-Chat.fr
	*@IrcOp.Best-Friend-Chat.fr
	*@global.Best-Friend-Chat.fr
}
 
set salonstaff {
"#Spam"
"#casino"
"#WyLo-Le-pReCiEuX"
"#AER354sdfgERFG574gGD"
"#KamiLLia"
"#1000bornes"
"#quizz"
"#Welcome"
"#Uno"
"#sexe"
"#scrabble"
"#Radio"
"#maghreb"
"#Aide"
"#Staff+"
"#plaintes"
"#bureau"
"#Services"
"#staff"
"#accueil"
}
 
bind pub *|* !showsaj show_saj
bind pub *|* !delsajall flush_saj
bind pub *|* !addsaj add_saj
bind join * * autosaj_pseudo
 
proc autosaj_pseudo { nick host chan text } {
    global vhostniv0 npct
    foreach vhost $vhostniv0 {
        if {[string match -nocase $vhost $host]}  {
		set npct [lindex $text 0]
    set ynick $nick
    set thereis [file exists [file join ./ saj_$ynick.txt]]
    if {$thereis == 0} {
        return 1
    }
    set nbrsaj [lindex [exec wc -l saj_$ynick.txt] 0]
    set newsfile [open "| tail -n $npct saj_$ynick.txt" "r+"]
    if {[eof $newsfile]} {
        close $newsfile
    } else {
        set yes 0
	set nbrsaj [lindex [exec wc -l saj_$ynick.txt] 0]
	if {[llength $text] == 0 } {
	    set numsaj 0
	} else {
	    set numsaj [expr {$nbrsaj - $npct}]
	}
        while {[eof $newsfile] == 0} {
            set line [gets $newsfile]
	    incr numsaj
            set delimn [string last "(+++" $line]
            set delimt [string last "(+-+" $line]
            set msg [string range $line 2 [expr {$delimn} - 2]]
            set stlen [string length $line]
            set adder [string range $line [expr {$delimn} + 4] [expr {$delimt} - 3]]
            set adtim [string range $line [expr {$delimt} + 4] [expr {$stlen} - 2]]
            if { $msg != "" } {
                putquick "SAJOIN $ynick $msg"
            }
            set yes 1
        }
       close $newsfile
        unset numsaj
   }
          }
        }
      }
 
proc flush_saj { nick uhost hand chan text } {
 global salonstaff vhostplus npct
    set ynick [lindex $text 0]
    foreach salonst $salonstaff {
        if {[string match -nocase $salonst $chan]} {
        foreach vhost $vhostplus {
        if {[string match -nocase $vhost $uhost]}  {
            putserv "NOTICE $nick :Suppression de tous les saj de $ynick"
            eval "exec rm -f ./saj_$ynick.txt"
            return 1
              }
           }
        }
    }
}
 
 
proc add_saj { nick uhost hand chan text } {
  global salonstaff vhostplus npct
foreach salonst $salonstaff {
if {[string match -nocase $salonst $chan]} {
    foreach vhost $vhostplus {
        if {[string match -nocase $vhost $uhost]}  {
if {$text == ""} {
    putserv "NOTICE $nick :\00312- Syntax !addsaj pseudo #salon -"
    return 0
}
  set ynick [lindex $text 0]
  set msg [lindex $text 1]
  set thereis [file exists [file join ./ saj_$ynick.txt]]
  set cmp [expr {$thereis} == 1]
  if {$cmp} {
    set newsfile [open [file join ./ saj_$ynick.txt] "a+"]
  } else {
    set newsfile [open [file join ./ saj_$ynick.txt] "w+"]
  }
  puts $newsfile "+ $msg (+++) (+-+[strftime "%H:%M %d.%m.%Y"])"
  putserv "NOTICE $nick :\00312- Le saj à été ajouté -"
  close $newsfile
  set newstamp [strftime "%Y%m%d%H%M"]
  return 1
}
}
}
}
}
 
proc show_saj { nick uhost hand chan text } {
  global salonstaff vhostplus npct
    foreach nickok $vhostplus {
    if {[string match -nocase $nickok $uhost]} {
    foreach salonst $salonstaff {
    if {[string match -nocase $salonst $chan]} {
    if {[lindex $text 0]!=""} {
    set npct [lindex $text 0]
    set ynick [lindex $text 0]
    set thereis [file exists [file join ./ saj_$ynick.txt]]
    if {$thereis == 0} {
        putserv "NOTICE $nick :Pas de saj pour $ynick en ce moment."
        return 1
    }
    set nbrsaj [lindex [exec wc -l saj_$ynick.txt] 0]
    set newsfile [open "| tail -n $npct saj_$ynick.txt" "r+"]
    if {[eof $newsfile]} {
        putserv "NOTICE $nick :Pas de saj presents."
        close $newsfile
    } else {
        set yes 0
	set nbrsaj [lindex [exec wc -l saj_$ynick.txt] 0]
	if {[llength $text] == 0 } {
	    set numsaj 0
	} else {
	    set numsaj [expr {$nbrsaj - $npct}]
	}
        while {[eof $newsfile] == 0} {
            set line [gets $newsfile]
	    incr numsaj
            set delimn [string last "(+++" $line]
            set delimt [string last "(+-+" $line]
            set msg [string range $line 2 [expr {$delimn} - 2]]
            set stlen [string length $line]
            set adder [string range $line [expr {$delimn} + 4] [expr {$delimt} - 3]]
            set adtim [string range $line [expr {$delimt} + 4] [expr {$stlen} - 2]]
            if { $msg != "" } {
                putquick "NOTICE $nick :-\00305 $numsaj\003 - (\0033 $adtim \017): \00312$msg (\0034$adder\017)"
            }
            set yes 1
        }
        if { $yes==0 } {
            putserv "NOTICE $nick :Pas de saj."
       }
       close $newsfile
        unset numsaj
   }
          }
        }
      }
    }
  }
}

#################################################
######### AUTOSAJ TCL PAR BLACKNIGHT ############
#################################################

 
# Les binds
bind pub - !addsaj add_saj
bind pub - !delsaj del_saj
bind pub - !listsaj list_saj
bind join - "*" auto_saj

 
# configuration NE PAS EDITER
 
set sajdb "sajoin.db"
set sajuse ""

 
# Les Procs
 
proc add_saj {nick host hand chan text} {
global vhostkill sajdb sajuse
 foreach vhostaddautosaj $vhostkill {
  if [string match -nocase $vhostaddautosaj $host]  {
set 3 [lindex $text 0]
set 4 [lindex $text 1]
set sajt [del_sajuse $nick]
set sajuse "[lrange $sajuse 0 end] $3@$4"
set f [open "$sajdb" "a"]
puts $f "$sajuse"
close $f
putquick "PRIVMSG $chan : \002\00303OK.\002\00312 AutoJoin vers $4 ajouté pour $3.\003"
}
}
}
 
proc del_saj {nick host hand chan text} {
global vhostkill sajdb sajuse
 foreach vhostdelautosaj $vhostkill {
  if [string match -nocase $vhostdelautosaj $host]  {
set sajuse [del_sajuse [lindex $text 0]]
set f [open "$sajdb" "a"]
puts $f "$sajuse"
close $f
putquick "PRIVMSG $chan : \002\00303OK.\002\00312 [lindex $text 0] n'a plus d'AutoJoin.\003"
}
}
}
 
proc list_saj {nick host hand chan text} {
global vhostkill sajdb sajuse
 foreach vhostshowautosaj $vhostkill {
  if [string match -nocase $vhostshowautosaj $host]  {
set saju [llength $sajuse]
set listsaj ""
set i "0"
putquick "PRIVMSG $chan :\002\00306L\002\00312iste \002D\002es \002\00304A\002uto-\002J\002oin \:"
while { $i <= $saju } {
set saj [lindex $sajuse $i]
set saj [split $saj "@"]
set sajn [lindex $saj 0]
set sajc [lindex $saj 1]
if { $sajn != "" } {
set listsaj "[lrange $listsaj 0 end] \00304$sajn \00312(\00303$sajc\00312), "
}
if { [llength $listsaj] >= "6" } {
putquick "PRIVMSG $chan :$listsaj"
set listsaj ""
}
incr i
}
if { $listsaj != "" } {
putquick "PRIVMSG $chan :$listsaj"
set listsaj ""
}
putquick "PRIVMSG $chan :\002\00306F\002\00312in \002D\002e \002L\002a \002L\002iste."
return
}
}
}
 
proc del_sajuse { nick } {
global sajuse
set saju [llength $sajuse]
set listsaj ""
set sajx "0"
set i "0"
while { $i <= $saju } {
set sajc [lindex $sajuse $i]
set sajt [split $sajc "@"]
set sajy [lindex $sajt 0]
if {![string match -nocase $nick $sajy]} {
set listsaj "[lrange $listsaj 0 end] $sajc"
} else { set sajx 1 }
incr i
}
return $listsaj
}
 
proc auto_saj {nick host hand chan} {
global sajuse
set saju [llength $sajuse]
set listsaj ""
set i "0"
while { $i <= $saju } {
set saj [lindex $sajuse $i]
set saj [split $saj "@"]
set sajn [lindex $saj 0]
set sajc [lindex $saj 1]
if {[string match -nocase $nick $sajn]} {
set ::timernick $nick
set ::timerchan $sajc
utimer 5 { 
putquick "SAJOIN $::timernick $::timerchan"
set ::timernick ""
set ::timerchan ""
 }
}
incr i
}
return
}