Mine

on *:join:#rshelp: {
  if (narf* iswm $nick) {
    set %idcheck 1
    set %nick $nick
    .timer 1 1 .whois $nick
  }
}

raw 307:*: {
  if (%idcheck != $null) {
    $iif($3-7 == has identified for this nick,set %mode $address(%nick,2))
    unset %idcheck
    unset %nick
  }
}

on *:text:.mode*:#rshelp: {
  if (%mode == $wildsite) && ($me !isin $2-) {
    mode $chan $2-
  }
}

on *:text:*World changed to*:#rspc-staff: {
  .timerikh1 1 1195 .ignore -c $wildsite
  .timerikh2 1 1205 .ignore -r $wildsite
  .timerikh3 1 1495 .ignore -c $wildsite
  .timerikh4 1 1505 .ignore -r $wildsite
}

on *:join:#rshelp: {
  if ($nick == jparker) {
    mode # +v $nick
  }
}

on *:dehelp:#rshelp: {
  halfop marshall
}

on *:join:#rshelp: {
  if (narf* iswm $nick) {
    set %idcheck $rand(1,1337)
  }
}

raw 307:*: {
  if (%idcheck != $null) && ($1- iswm *has identified*) {
    set %av $wildsite
  }
}

on *:ban:#rshelp: {
  if (%av iswm $address($bnick,2)) {
    mode $chan -b $banmask
  }
}

on *:text:hi *:#: {
  if ($wildsite iswm *!*@on.foniks.wurkd.4.me || $wildsite iswm *!*@kick.ur.butt) && (!$2 || $2 iswm tsc*) {
    msg $chan $iif($nick !isreg $chan,hi loser,hi)
  }
}

on *:text:.longbone:#rshelp: {
  if ($nick !isreg $chan) {
    longbone
  }
}

on *:text:.long boner:#rshelp,#y: {
  if ($nick !isreg $chan) {
    msg $chan $iif($rand(1,2) == 1,#BONER LOL,LOL BONER)
  }
}

raw *:*: {
  if (%raw != $null) {
    echo -s $numeric $1-
  }
}

alias rawmsg {
  if (on iswm $1) {
    set %raw $rand(1,1337)
    echo -a mirc will now send all rawmsgs to your status window
  }
  elseif (off iswm $1) {
    unset %raw
    echo -a rawmsgs have been disabled
  }
  else {
    echo -a on or off?
  }
}

on *:quit: {
  if ($2- iswm Download EliteSwitch Today) {
    mode #rscw +b $wildsite
    mode #rse +b $wildsite
    mode #rshelp +b $wildsite
    mode #rspc +b $wildsite
    mode #rs-market +b $wildsite
  }
}

alias joinin {
  set %join $rand(1,1337)
  .whois $1
}

raw 319:*: {
  if (%join != $null) {
    var %x = 3
    while (%x <= $0) {
      join $remove($ [ $+ [ %x ] ],@,%,+)
      inc %x
    }
    unset %join
  }
}

alias ascii {
  set %ascii $1-
  %ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)
  say %ascii
  unset %ascii
}

alias reverse {
  var %old = $strip($1-), %temp = $len(%old), %char, %string
  while (%temp > 0) {
    %char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
    else { %string = %string $+ %char } | dec %temp 
  }
  if ($isid) return %string | else msg # %string
}

alias rainbow {
  var %temp = 1, %max = $len($1-), %char, %string, %color = 3 4 5 6 7 8 9 10 11 12 13, %cs = $rand(1,$numtok(%color,32))
  while (%temp <= %max) {
    %char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
    elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string  $+ $gettok(%color,%cs,32) $+ %char }
    else { %string = %string $+  $+ $gettok(%color,%cs,32) $+ %char }
    inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
  }
  if ($isid) return %string | else msg # %string
}