Something

on *:TEXT:@pm:#: {
  if %allpm [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan) || ($nick ishop $chan) {
      notice $nick 6¤12 Message Sent. Nicks:4 %PM [ $+ [ $chan ] ] 6¤
      /pmeges $chan
    }
  }
}
alias /pmeges {
  var %a = $nick($1,0)
  while ($nick($1,%a) isreg $1) {
    notice $nick($1,%a) 12Message4 %PM [ $+ [ $chan ] ] 12in RuneScape for AutoVoice on4 $chan 3
    dec %a
  }
}
on *:TEXT:!setpm*:#: { 
  if %allpm [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan || $nick ishop $chan) {
      if ($2 == $null) {
        halt
      }
      else { 
        set %PM [ $+ [ $chan ] ] $2-
      notice $nick 6¤ 12The PM List changed to4 %PM [ $+ [ $chan ] ] 6¤ } 
    }
  }
}
on *:TEXT:!delpm*:#: { 
  if %allpm [ $+ [ $chan ] ] == off { halt } {
    If ( $nick isop $chan || $nick ishop $chan) { 
      set %PM [ $+ [ $chan ] ] 4N/A
      notice $nick 6¤ 12You have erased the PM List in4 $chan 6¤ 
    }
  }
} 
on *:TEXT:!pm*:#: { 
  if %allpm [ $+ [ $chan ] ] == off { halt } {
    If ( $nick isop $chan || $nick ishop $chan) {  
      notice $nick 6¤ 12The PM list is:4 %PM [ $+ [ $chan ] ] 6¤ 
    }
  }
} 
on *:TEXT:!nopm*:#: { 
  if %allpm [ $+ [ $chan ] ] == off { halt } {
    if ($nick isop $chan || $nick ishop $chan) && ($2 isreg $chan) {
      mode $chan +b $address($2,2)
      timer 1 120 mode $chan -b $address($2,2)
      kick $chan $2 12For AutoVoice Message4 %PM [ $+ [ $chan ] ] 12in RuneScape3
    }
  }
}