All pastes #493433 Raw Edit

Something

public text v1 · immutable
·published 2007-05-17 19:33 UTC
rendered paste body
############ Command Procs ###########################
proc pub:join {hand chan args x mix} {
        global settings

        if { [validchan $chan]} {a:tell $x 174 $chan ; return "FAILED: invalid chan specified ($chan)" }
        if { [llength [channels]] >= $settings(max_chans) } {a:tell $x 80; return "FAILED: channels limit reached" }

        ::stats::channel -add $chan {}
        ::stats::channel -set $chan jointime [unixtime]
        ::stats::channel -set $chan joinwhom $hand

        channel add $chan +secure
        pub:save

        a:announce -home 173 "$hand [lindex $x 0] [lindex $mix 0] $chan"
        return "$chan"
if {[llength [lindex $args 0]]} {
  utimer 10 [list pub:chattr $hand $chan "[lindex $args 0] +Nnf" $x $mix]
  utimer 15 [list putserv "PRIVMSG $chan :Eu am adaugat pe [lindex $args 0] ca Manager pe canalul $chan....."]
}
}