On $*:TEXT:/^[!@]Bl/Si:#:{
set %blist $2
set %reason $3-
set %by $nick
.msg $chan %blist has been Blacklisted by --> %by <-- Reason: %reason }
}

on :JOIN:#:
if $nick ison %blist -ku $+ $calc( 20 * 60),-k) You are on the black list REASON: %reason You were added by %by
}