Mine

on 1:TEXT:!setrsn*:#:{
  if ($2 !== $null) { 
    /writeini rsn.ini RSNs $address($nick, 3) $2 
  /notice $nick Your RSN has been set to $2 $+ . }
  else { /msg $chan Please state a rsn. }
}
on 1:TEXT:!rsn*:#:{
  if  ($2 !== $null) {
  /msg $chan [4 $+ $2 $+ 1] $readini(rsn.ini,RSNs,$address($2, 3)) }
  elseif ($2 == $null) {
  /msg $chan [4 $+ $nick $+ 1] $readini(rsn.ini,RSNs,$address($nick, 3)) }
}
on 1:text:!whois*:#:{
  if (%whois == 1) {
    if ($2 == $null) { set %whoised $nick  | /whois $nick }
  else { set %whoised $nick | /whois $2 } }
else { halt } }
raw 311:*:/notice %whoised $2 is  $3 $+ @ $+ $4 * $6- | halt
raw 319:*:/notice %whoised $2 on $3- | halt
raw 312:*:/notice %whoised $2 using: $3- | halt
raw 307:*:/notice %whoised $2 $3- | halt
raw 317:*:/notice %whoised $2 has been idle $duration($3-) $+ sec | halt
raw 401:*:/notice %whoised $2 $3- | halt
raw 313:*:/notice %whoised $2 $3- | halt
raw 301:*:/notice %whoised $2 away: $3- | halt
raw 310:*:/notice %whoised $2 $3- | halt
raw 335:*:/notice %whoised $2 is $3- | halt
raw 318:*:{
  /notice %whoised $2 $3- 
  %whois = 2
  timerwhois 1 15 set %whois 1 
  set %whoised $me
  halt
}