So, it's not much. But it's my theme.
Any corrections you can see please let me know..
I already posted the screenshot before, but I know with the snippet people are going to want to see it.

alias msg { 
  if ($me isop $1) { 
    echo $1 $timestamp 2|1(12@1)14 $me 2| $2- 
    goto end 
  } 
  if ($me isvoice $1) { 
    echo $1 $timestamp 2|1(3+1)14 $me 2| $2- 
    goto end 
  } 
  else { 
    echo $1 $timestamp 2|14 $me 2| $2- 
    goto end 
  } 
  :end 
  .privmsg $1 $2- 
  haltdef 
} 
on &^*:TEXT:*:?:{ 
  HALTDEF 
  echo $query($nick) $timestamp 12|14 $+ $nick $+ 12| $1- 
} 

On &^*:Text:*:#:{ 
  If ($nick Isop $chan) { 
    Echo $chan $Timestamp 12| $+ 1(2@1) $+ 14 $nick $+ 12| $1- 
    Halt 
  } 
  If ($nick Isvoice $chan) { 
    Echo $chan $Timestamp 12| $+ 1(3+1) $+ 14 $nick $+ 12| $1- 
    Goto End 
    Halt 
  } 
  Else { 
    echo $chan $timestamp 12|14 $+ $nick $+ 12| $1- 
    Goto End 
    Halt 
  } 
  :End 
  Haltdef 
} 

#text on
On *:Input:*: { 
  If ($Left($1,1) != /) && (!$Ctrlenter) { msg $active  $replace(14 $+ $1-,*, 12*14,\, 12\14,|, 12|14,@, 12@14,%, 12%14,&, 12&14,^, 12^14,-, 12-14,?, 12?14,!, 12!14,., 12.14,', 12'14,=, 12=14,<, 12<14,-, 12-14,>, 12>14,:, 12:14,;, 12;14,`, 12`14,", 12"14,/, 12/14))  | halt } 
} 

#text end 

menu Chan { 
  .Text 
  ..On:/enable #text 
  ..Off:/disable #text 
} 

alias Ts {
  .timestamp -f 12|14h12:14nnt12| $str($chr(160),10)
}
alias hop {
  if ($chan != $null) {
    echo -a 14° 1Hopping12:0 $chan 
    /.hop
    halt
  }
  if ($chan == $null) {
    echo -a 14° 1Error12:0You are not in this room.
    halt
  }
}
on ^*:JOIN:#:{  
  echo $Chan 14° 1Join12:1 $nick 12/1 $address($nick,1) 12/1 $chan   
  haltdef
}
on ^*:part:#:{ 
  if ($nick == $me) { halt }
  if ($1-) { 
    echo $chan 14° 1Part12: 1 $nick 12/1Reason12: 1 $iif($1- == $null || $1 == quit:,No Reason Specified.,$1-) 12/1 $chan 
  }
  if (!$1-) { 
    echo $chan 14° 1Part12: 1 $nick 12/1Reason12: 1 $iif($1- == $null || $1 == quit:,No Reason Specified.,$1-) 12/1 $chan 
  }
  haltdef
}
on ^*:KICK:#:{  
  echo $Chan 14° 1Kicked12:1 $knick 12/1 $chan 12/1 $left($nick,1) $+  $+ $right($nick,$calc($len($nick) -1))) 12/1 $1- 
  haltdef
}
on ^*:RAWMODE:#:{
  echo $chan 14° 1Mode12:1 $nick set mode $1- $chan 
  haltdef
}
on ^*:QUIT:{
  var %p = 0 | while (%p < $comchan($nick,0)) { inc %p | echo $comchan($nick,%p) 14° 1Quit12: $remove($nick,$mid($1,1, $+ $pos($1,~,2))) 1Reason12:1 $iif($1- == $null || $1 == quit:,No Reason Specified.,$1-) 
    haltdef
  }  
}
on ^*:NICK:{
  var %i = 0 | while (%i < $comchan($newnick,0)) { inc %i | echo $comchan($newnick,%i) 14° 1 $nick 12/1 $+($newnick,.)
    haltdef
  }
}
on ^*:NOTICE:*:*:{
  if ($activecid == $cid) {
    if ([Welcome* iswm $1) echo $remove($1,$chr(91),Welcome,$chr(45),$chr(93)) 12--->1Greet12:14 - $2-
    if ([Welcome- !isin $1-) echo -a 12<---1Notice From12:14 $nick 1on14 $server 12 - 14 $1-
    haltdef
  }
  if ($activecid != $cid) {
    if ([Welcome* iswm $1) echo $remove($1,$chr(91),Welcome,$chr(45),$chr(93)) 12--->1Greet12:14 - $2-
    if ([Welcome- !isin $1-) { echo -a  12<---1Notice From12:14 $nick 12 - 14 $1-
    }
    haltdef
  }
}
alias notice {
  echo -a 12--->1Notice To12:14 $1 12-14 $2-
  .notice $1 $2-
  haltdef
}
on ^*:INVITE:*:{
  if ($activecid == $cid) {
    echo -a 12<---1Invite12:14 $nick 12-14 has invited you to 12-14 $chan
    haltdef
  }
  if ($activecid != $cid) {
    echo -a 12<---1Invite12:14 $nick 12-14 has invited you to 12-14 $chan
    haltdef
  }
}
on ^*:TOPIC:*:{
  if ($1-) {
    echo $chan $timestsmp($chan) 12--->1Topic12:14 $nick 12-14 Changed Topic To.. 12-14 $1-
  }
  if (!$1-) {
    echo $chan $timestamp($chan) 12--->1Topic12:14 $nick 12-14 Changed Topic To.. 12-14 $1-
  }
  haltdef
}
on ^*:snotice:*:{
  echo -s  12--->1Snotice12:14 $+ $server $+ 12-14 $2-
  haltdef
}
on ^*:WALLOPS:*:{
  echo -s  12--->1Wallops12:14 $+ $server $+ 12-14 $1-
  haltdef
}
on ^*:ACTION:*:*:{
  echo $chan $timestamp($chan) 1Action12:14 $nick 12-14 $1- 
  halt
} 
else {
  echo $query($nick) $timestamp 12|14 $+ $nick $+ 12| $1- 
} 

alias me {
  echo $chan $timestamp($chan) 1Action12:14 $me 12-14 $1-
  .me $1-
  haltdef
}