/ScriptServ

on ^*:JOIN:#:/echo # [2 $+ $asctime(hh:nn:sstt) $+ ] 3---> $nick ( $+ $remove($address($nick,1),*!*) $+ ) 1( $+ $nick(#,0) 4users) | halt
on ^*:PART:#:/echo # [2 $+ $asctime(hh:nn:sstt) $+ ] 2<--- $nick ( $+ $remove($address($nick,1),*!*) $+ ) 1( $+ $calc($nick(#,0) -1) 4users) (Part message: $1- $+ ) | halt
on ^*:TEXT:*:#:{
  if ($nick isop #) { .echo # [2 $+ $asctime(hh:nn:sstt) $+ ] (4@ $+ $nick $+ ): $1- | halt  }
  if ($nick isvoice #) { .echo # [2 $+ $asctime(hh:nn:sstt) $+ ] (3+ $+ $nick $+ ): $1- | halt  }
  else  { .echo # [2 $+ $asctime(hh:nn:sstt) $+ ] ( $+ $nick $+ ): $1- | halt  }
}
on ^*:TEXT:*:?:{ .echo $nick [2 $+ $asctime(hh:nn:sstt) $+ ] (12 $+ $nick $+ ): $1- | halt  }
on ^*:Quit:var %i = 1 | while ($comchan($nick,%i)) { echo $v1 [2 $+ $asctime(hh:nn:sstt) $+ ] 4<---2 $nick ( $+ $remove($address($nick,1),*!*) $+ )  1( $+ $calc($nick($v1,0) -1) 4users) ( $+ $1- $+ ) | inc %i } | halt