Mine

on *:TEXT:!setpm*:#:{
  if ($2 == $null) {
    msg $chan 4You need to specify a username 
  }
  elseif ($nick isop $chan) || ($nick ishop $chan) || ($nick == Rangedboyke) { 
    set %2 [ $+ [ $chan ] ] $2
    msg $chan 12 %2 [ $+ [ $chan ] ] has been set for the username to Pm
  }
}
on *:TEXT:@pm*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == rangedboyke) {
    msg $chan 12Please all unvoiced users Pm4 ?? %2 [ $+ [ $chan ] ]  ?? 12in Runescape to get voiced!
    else {
    }
  }
}
on *:TEXT:!pm on*:#:{ if ($nick isop $chan) || ($nick ishop $chan) || ($nick == rangedboyke) {
    if (*on* iswm $2) { writeini pm.ini $chan status on | msg $chan 12PM unvoiced users is now on. | halt }
    if (*off* iswm $2) { remini pm.ini $chan | msg $chan 12PM unvoiced users is now off | halt }
  }
}

on *:JOIN:#:{ if ($nick == $me) { HALT }
  if ($readini(pm.ini,$chan,status) == on) {
    msg $nick 12?4?12?4?12?4?12 Please PM 4?? %2 [ $+ [ $chan ] ] ?? 12 In Runescape to get voiced[+v] 4?12?4?12?4?12?
    /notice $nick 12?4?12?4?12?4?12 Please PM 4?? %2 [ $+ [ $chan ] ] ?? 12 In Runescape to get voiced[+v] 4?12?4?12?4?12?
  }
}


on *:TEXT:!rsn*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    ban -ku5 $chan $2 $c2 $+ Please rejoin using your $c3 $+ R $+ $c2 $+ unescape $c3 $+ N $+ $c2 $+ ame. $c3 $+ 5 sec ban.
  }
}

on *:TEXT:!mk:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick === Curt) {
    /kreges $chan
  }
}

alias kreges {
  mode #pest-time +i
  timer 1 3 /mode #pest-time -i
  var %a = $nick($1,0)
  while ($nick($1,%a) isreg $1) {
    kick $1 $nick($1,%a) $c2 $+ For auto-voice message %2 [ $+ [ $chan ] ] in runescape
    dec %a
  }
}


on *:TEXT:!av*:#: {
  if ($nick isop $chan || $nick ishop $chan) {
    writeini autovoices.ini $2 autovoice on
    /mode $chan +v $2
    /msg $chan 7 $2 14has been added to 7AutoVoice list14 by7 $nick $+ 14.
  } 
}

on *:TEXT:!delav*:#: {
  if ($nick isop $chan || $nick ishop $chan) {
    remini autovoices.ini $2
    /mode $chan -v $2
    /msg $chan 7 $2 14has been deleted from 7AutoVoice list14 by7 $nick $+ 14.
  } 
}

on *:JOIN:#:{ 
  if ($readini(autovoices.ini,$nick,autovoice == on)) mode $chan +v $nick
}


alias wc1 { return $+(14,$1-) } 
alias wc2 { return $+(04,$1-) }
alias wc3 { return $+(07,$1-) }
on *:TEXT:!whois on*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (%whois) {
      notice $nick $wc1 Whois check is already on for $wc2 $+ $chan
    }
    else {
      set %whois $addtok(%channel,$chan,44)
      msg $chan $wc1 $+ Whois check is now 4 on 15 for $wc2 $+ $chan
    }
  }
}
on *:TEXT:!whois off*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (%whois) { 
      set %whois $remtok(%channel,$chan,1,44)
      msg $chan $wc1 $+ Whois check is 4 now off 15 for $wc2 $+ $chan
    }     
    else { 
      notice $nick $wc1 $+ Whois check is 4 not on 15 for $wc2 $+ $chan    
    }  
  }
}
on *:JOIN:%whois: {
  whois $nick
  set %msgchan msg $chan
  set %nick $nick
}
raw 319:*:{
  %msgchan $wc1 $+ %nick is on: - $wc3 $+ $replace($3-,$chr(43),$chr(32))
  unset %chan
  unset %nick
}