Someone

ON *:TEXT:!whois*:#:{ 
  if ($readini(Pcw.ini,$chan,2) == OFF) { $notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt } 
  set -u1 %whoisnn on 
  set %whoisnick $2 
  Set %whoischan $chan 
  .whois %whoisnick | halt 
} 
raw 319:*:{ 
  if (%whoisnn == on) { 
    msg %whoischan 3The name10 %whoisnick 3is on the channels12 $replace($3-,$chr(64),4 $+ $chr(64) $+ 10,$chr(43),12 $+ $chr(43) $+ 10,$chr(37),7 $+ $chr(37) $+ 10) 3 $+ %whoisnick Is on $numtok($3-,32) Channels     4[>>12Cecil_Script4<<] | unset %whoisnick   

halt 
  } 
} 
raw 401:*:{ 
  if (%whoisnn == on) { 
    msg %whoischan 4There is no such 12nick/channel4 as12 %whoisnick | unset %whoisnick 
    unset %whoisnn 
    halt 
  } 
} 
on *:JOIN:#cwu:{ 
  if ($readini(Pcw.ini,$chan,2) == OFF) { halt } 
  if ($readini(Pcw.ini,$chan,1) == OFF) { halt } 
  if ($nick == $me) { halt } 
  set %whoisnick $nick 
  set %whoischan #cwu 
  set -u1 %whoisnn on 
  whois %whoisnick | halt 
} 
raw 311:*:{ 
  if (%whoisnn == on) { halt } 
} 
raw 312:*:{ 
  if (%whoisnn == on) { halt } 
} 
raw 307:*:{ 
  if (%whoisnn == on) { halt } 
} 
raw 317:*:{ 
  if (%whoisnn == on) { halt } 
} 
raw 318:*:{ 
  if (%whoisnn == on) { halt } 
} 
on $*:text:/^[!@](leet|1337)/Si:#: { 
  if ($readini(Pcw.ini,$chan,2) == OFF) { $notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt } 
  set %Leet.display $iif($left($1,1) == @, msg $chan, notice $nick) 
  set %leetnesssss $2- 
  %Leet.display 10The leet for 12 $+ $2- 10is : 12 $+ $replace(%leetnesssss,a,à,A,Å,b,ß,B,ß,c,ç,C,©,d,Ð,D,Ð,e,é,E,€,f,ƒ,F,ƒ,i,ì,I,Î,l,£,L,£,n,ñ,N,Ñ,o,ô,O,Ô,p,þ,P,þ,q,¶,Q,¶,r,®,R,®,s,§,S,§,u,µ,U,Ü,x,¤,X,×,y,ý,Y,¥,!,¡,?,¿,>,»,<,«,1,¹,2,²,3,³,half,½,fourth,¼,/,¬,.,·,ae,æ,tm,™,TM,™) 
} 
ON *:TEXT:brb*:#:{ 
  if ($chan == #pc-alliance) { halt }
  if ($chan == #b0ts) { halt } 
  if ($chan == #ltpc-staff) { halt } 
  if ($chan == #looney-tunes_pc) { halt } 
  if ($readini(Pcw.ini,$chan,2) == OFF) { $notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt } 
  if ($2 == $null) { 
    set %away $+ $nick $nick 
    set %why $+ $nick N/a 
    set %tim $+ $nick $ctime 
    msg $chan 2 $+ $nick Will be right back:4 N/a 
    halt 
  } 
  else { 
    set %away $+ $nick $nick 
    set %why $+ $nick $2- 
    set %tim $+ $nick $ctime 
    msg $chan 2 $+ $nick Will be right back:4 $2- 
  } 
} 
ON *:TEXT:*:#:{ 
  if (%away [ $+ [ $nick ] ] == $nick) { 
    if ($readini(Pcw.ini,$chan,2) == OFF) { halt } 
    msg $chan 2 $+ $nick $+ , Welcome back from4 %why [ $+ [ $nick ] ] $+ 2. You were gone for4 $duration($calc( $ctime - %tim [ $+ [ $nick ] ] )) 
    unset %away $+ $nick 
    unset %why $+ $nick 
    unset %tim $+ $nick 
  } 
}