# slow join script

bind dcc n netdjoin delay_join
bind bot N djoin bot_delay_join

proc delay_join {hand idx text} {
	set window [lrange $text 0 0]
	set channel [lrange $text 1 1]
	foreach bot [bots] {
		putbot $bot "djoin $window $channel"
	}
	set ttj [rand $window]
	putlog $ttj
	utimer $ttj [list channel add $channel]
}

proc bot_delay_join {from cmd text} {
	set window [lrange $text 0 0]
	set channel [lrange $text 1 1]
	set ttj [rand $window]
	putlog $ttj
	utimer $ttj [list channel add $channel]
}