################### ## page ... set dernier_bip "hum" bind dcc p bip page_aide proc page_aide {hand idx args} { global dernier_bip set args [lindex $args 0] set nick [lindex $args 0] set notice [lrange $args 1 end] set le_bip [getuser $hand xtra vrainick] set type "" if {$le_bip == $dernier_bip} { boot $hand "Avalanche de .bip!? Argh!" bootbot $hand return 0 } if [matchattr $nick b] { boot $hand "Encore un qui tente des expériences sur mon dos, non mais! bip toi-même espèce de ... " bootbot $hand return 0 } if [validuser $nick] { if {[hand2idx $nick] != "-1"} { putdcc [hand2idx $nick] "\001SOUND pageaide.wav te signale que $hand veut te parler !!! * ($notice)\001" putdcc $idx "$nick a été appelé[mf $nick "" "e"] sur AideBot" } else { set nickirc "" foreach canal [split [channels] ] { if {$nickirc == ""} { set nickirc [hand2nick $nick $canal] } } if {$nickirc == ""} { set nickirc $nick } putbot Aide "msg $nickirc \001SOUND pageaide.wav te signale que $hand veut te parler !!! * ($notice)\001" putdcc $idx "$nick a été appelé[mf $nick "" "e"] sur IRC par le nom $nickirc" } set dernier_bip $le_bip timer 1 timer_bip putlog "#$hand# bip $nick ..." return 0 } elseif {[string tolower $nick] == "admins"} { set type "A" set message "\001SOUND pageaide.wav te signale que $hand veut parler à un admin!!! * ($notice)\001" putdcc $idx "Les admins présents sur AideBot ont été appelés" } elseif {[string tolower $nick] == "ops"} { set type "OJ" set message "\001SOUND pageaide.wav te signale que $hand veut parler à un op!!! * ($notice)\001" putdcc $idx "Les opérateurs ou opérateurs adjoints présents sur AideBot ont été appelés" } elseif {[string tolower $nick] == "parrains"} { set type "E" set message "\001SOUND pageaide.wav te signale que $hand veut parler à un parrain!!! * ($notice)\001" putdcc $idx "Les parrains présents sur AideBot ont été appelés" } elseif {[string index $nick 0] == "+"} { set type [string toupper [string range $nick 1 end]] if {($type == "A") | ($type == "G") | ($type == "C") | ($type == "T")} { set message "\001SOUND pageaide.wav te signale que $hand veut parler à un admin (+$type) !!! * ($notice)\001" putdcc $idx "Les admins (+$type) présents sur AideBot ont été appelés" } elseif {$type == "E"} { set message "\001SOUND pageaide.wav te signale que $hand veut parler à un parrain !!! * ($notice)\001" putdcc $idx "Les parrains présents sur AideBot ont été appelés" } else { set type "" } } else { } if {$type != ""} { foreach user [userlist $type] { if {([hand2idx $user] != "-1") & ([hand2idx $user] != $idx)} { putdcc [hand2idx $user] $message } } putlog "#$hand# bip $nick ..." return 0 } else { putdcc $idx "## Usage: .bip \[notice\]" return 0 } } proc timer_bip {} { global dernier_bip set dernier_bip "" }