Forums Feature Suggestions Irc key

alias chatzone {
  join #chatzone key
}

 
raw 475:*:{
  .timer 1 1 chanislocked $2
  haltdef
}

alias chanislocked {
  if ($($+(%,chan.,$1),2) == $null || $($+(%,chan.,$1),2) == "") {
    set %tempkey $?="The $1 is locked with a key. $ctrl $+ If you know the kay $ctrl $+ please enter it:"
    if (%tempkey != $null && %tempkey != "") {
      set $+(%,chan.,$1) %tempkey
      set %lastchanusedkey $1
      .timer 1 10 unset %lastchanusedkey
      join $1 %tempkey
    }
  }
  else {
    if (%lastchanusedkey == $1) {
      set %tempkey $?="The $1 key ( $+ $($+(%,chan.,$1),2) $+ ) is not correct, please enter another key:"
      if (%tempkey != $null && %tempkey != "") {
        set $+(%,chan.,$1) %tempkey
        set %lastchanusedkey $1
        .timer 1 10 unset %lastchanusedkey
        join $1 %tempkey
      }
    }
    else {
      set %lastchanusedkey $1
      .timer 1 10 unset %lastchanusedkey
      join $1 $($+(%,chan.,$1),2)
    }
  }
  unset %tempkey
}