/ScriptServ

on 1:INPUT:%s = $len($1) - 1 | %s2 = $left($1,%s) | if ($right($1,1) == :) { /say  $+ %s2 $+ > $2- | unset %s | unset %s2 | halt } | unset %s | unset %s2
on 1:INPUT:{
  if %kewl != $null {
    set %textnow $1-
    set %textnow $replace(%textnow,a,4)
    set %textnow $replace(%textnow,e,3)
    set %textnow $replace(%textnow,i,1)
    set %textnow $replace(%textnow,o,0)
    set %textnow $replace(%textnow,s,5)
    say %textnow
    unset %textnow
    halt
  }
}
############
channel quote
############
on 1:TEXT:*:%sq:/msg %mq ( $+ $nick) $parms
on 1:JOIN:%sq:/msg %mq *** [ $+ $nick has joined the channel]
on 1:PART:%sq:/msg %mq *** [ $+ $nick has left the channel]
on 1:TEXT:say *:%mq:/msg %sq ( $+ $nick) $2-
################ ## # #
## on akt1ve channel 
################## ## # #
on 1:JOIN:#:/echo 2 $chan :[6 $nick 4(10 $+ $address4)6 has joined $chan 2]:
on 1:PART:#:/echo 2 $chan :[6 $nick 4(10 $+ $address4)6 has left $chan 2]:
on 1:QUIT:/echo 2 -a :[ $nick has quit IRC ( $+ $1-) ]:
on 1:INVITE:*:{
  echo 2 -a :[ you are invited to $chan, press F2 to join ]:
  set %invite $chan
}
############### ### ## #
## on messys
################## ## # #
on 1:TEXT:*:?:{
  set %address $fulladdress]
  set %text $parms
  if %away != $null { /write away.txt [ $+ %address %text | closemsg $nick | /echo -a [6away] you have messages.. press F5 to see them, F6 to clear them! | timer1 0 30 /echo -a [6away] you have messages.. press F5 to see them, F6 to clear them! | halt }
}
###################
topic protection
###################
on 1:TOPIC:%topchan:{
  if $nick == $me { halt }
  if %topchan == $null { halt }
  topic %topchan %topic
}
###################
brain's stuff
###################
on 1:INPUT:%s = $len($1) - 1 | %s2 = $left($1,%s) | if ($right($1,1) == :) { /say  $+ %s2 $+ > $2- | unset %s | unset %s2 | halt } | unset %s | unset %s2