#####################################################################################
# autohi.tcl 1.0
#
# Описание:
#    Рандомно приветствует входящих на канал
#
# Автор: CkpoMHuk <voxckpomhuk@mail.ru>
#
# Флаги: .chanset #chan +nopubautohi - отключено
#        .chanset #chan -nopubautohi - включено
#####################################################################################

setudef flag nopubautohi

bind part - * part:autohi
bind join - * join:autohi

proc join:autohi {nick uhost hand chan} {

    if {[channel get $chan nopubautohi]} {return}
    if {[isbotnick $nick]} {return}

    switch [rand 16] {
        0 { set message "\00307>>> \00310На коленях вползает на канал \00304$nick \00307<<<" }
        1 { set message "\00307>>> \00310В усмерть пьяный заползает на канал \00304$nick \00307<<<" }
        2 { set message "\00307>>> \00310Откуда не возмись появляется \00304$nick \00307<<<" }
        3 { set message "\00307>>> \00310С сумасшедшим взглядом тащит на канал свою задницу \00304$nick \00307<<<" }
        4 { set message "\00307>>> \00310Хлопая ушами и моргая глазами приходит \00304$nick \00307<<<" }
        5 { set message "\00307>>> \00310С улыбкой до ушей заходит \00304$nick \00307<<<" }
        6 { set message "\00307>>> \00310Ехидно хихикая появляется \00304$nick \00307<<<" }
        7 { set message "\00307>>> \00310С кислой миной на лице появляется \00304$nick \00307<<<" }
        8 { set message "\00307>>> \00310Весь довольн(ая,ый) собой приходит  \00304$nick \00307<<<" }
        9 { set message "\00307>>> \00310Заходит скрипя зумами \00304$nick \00307<<<" }
        10 { set message "\00307>>> \00310Виляя задницей появляется \00304$nick \00307<<<" }
        11 { set message "\00307>>> \00310Просто так решил зайти на канал \00304$nick \00307<<<" }
        12 { set message "\00307>>> \00310Ни чего на подозревая на канал вваливается \00304$nick \00307<<<" }
        13 { set message "\00307>>> \00310Ползя на пузе заползает в канал \00304$nick \00307<<<" }
        14 { set message "\00307>>> \00310Чуть под шафе появляется на канале \00304$nick \00307<<<" }
        15 { set message "\00307>>> \00310С хорошим настроением появляется \00304$nick \00307<<<" }
    }
    putserv "PRIVMSG $chan :$message"

}

proc part:autohi {nick uhost hand chan} {

    if {[channel get $chan nopubautohi]} {return}
    if {[isbotnick $nick]} {return}

    switch [rand 16] {
        0 { set message "\00307>>> \00310На коленях вползает на канал \00304$nick \00307<<<" }
        1 { set message "\00307>>> \00310В усмерть пьяный заползает на канал \00304$nick \00307<<<" }
        2 { set message "\00307>>> \00310Откуда не возмись появляется \00304$nick \00307<<<" }
        3 { set message "\00307>>> \00310С сумасшедшим взглядом тащит на канал свою задницу \00304$nick \00307<<<" }
        4 { set message "\00307>>> \00310Хлопая ушами и моргая глазами приходит \00304$nick \00307<<<" }
        5 { set message "\00307>>> \00310С улыбкой до ушей заходит \00304$nick \00307<<<" }
        6 { set message "\00307>>> \00310Ехидно хихикая появляется \00304$nick \00307<<<" }
        7 { set message "\00307>>> \00310С кислой миной на лице появляется \00304$nick \00307<<<" }
        8 { set message "\00307>>> \00310Весь довольн(ая,ый) собой приходит  \00304$nick \00307<<<" }
        9 { set message "\00307>>> \00310Заходит скрипя зумами \00304$nick \00307<<<" }
        10 { set message "\00307>>> \00310Виляя задницей появляется \00304$nick \00307<<<" }
        11 { set message "\00307>>> \00310Просто так решил зайти на канал \00304$nick \00307<<<" }
        12 { set message "\00307>>> \00310Ни чего на подозревая на канал вваливается \00304$nick \00307<<<" }
        13 { set message "\00307>>> \00310Ползя на пузе заползает в канал \00304$nick \00307<<<" }
        14 { set message "\00307>>> \00310Чуть под шафе появляется на канале \00304$nick \00307<<<" }
        15 { set message "\00307>>> \00310С хорошим настроением появляется \00304$nick \00307<<<" }
    }
    putserv "PRIVMSG $nick :$message"

}