Something

	    setdj {
		putquick "privmsg $nick :New DJ set"
		if {[lindex $streamdata 15] == 1} {
		    set tmp [open $sc::vars(file) w+]
		    puts $tmp $streamdata
		    puts $tmp $songdata
		    puts $tmp "$nick [expr {([lindex $args 0] == "{}") ? $nick : [lindex [lindex $args 0] 0]}] [lrange [lindex $args 0] 1 end]"
		    close $tmp
		    if {$sc::sets(anndj) == 1} {
			sc::post privmsg none all "$sc::texts(djchg)"
		    }
		    if {$sc::sets(djtopchg) == 1} {
			sc::post topic none all "$sc::texts(djtopic)"
		    }
		}
	    }