status=/lusers
query=/whois $$1 $$1
channel=/channel
nicklist=/query $$1
notify=/whois $$1
message=/whois $$1


burson *:NOTICE:*Ifthis*is*your*nickname*:?: {
  if ($nick == NS) { .m ns id [password] }
}

on *:notice:*recognized*:?:{
  if ($nick == ns) { .msg ms list }
}

alias noidle .timerIDLE 0 34 ping

alias noidleoff .timerIDLE off 

alias F11 noidle | /echo -ti6 14:10:11:15NoIdle ON.

alias F12 noidleoff | /echo -ti6 14:10:11:15NoIdle OFF.

on 1:input:?: {
  if ($left($1,1) == /) || ($1 == $null) return
  if ($server == $null) halt
  else say $1- | halt
}

alias say {
  if (Status Window == $active) return
  if ($left($active,1) == $chr(61)) { .msg $active $$1- | halt }
  if ($1 != $null) {
    .raw -q privmsg $active : $+ $1-
    echo $colour(own) -t # 4<15 $+ $me $+ 4> $1-
  }
}

on 1:input:#: { 
  if ($left($1,1) == /) || ($1 == $null) return {
    echo # $timestamp 4<15 $+ $nick $+ 4> $- $1-
    .msg $chan $1- 
    haltdef
    halt
  }
}

on @1:ban:#:{
  if ($me isop $chan) {
    if ($banmask iswm $address($me,5) && $nick == $me) { mode $chan -b $banmask | halt }
    if ($banmask iswm $address($me,5)) { mode $chan -ob+bb $nick $banmask $address($nick,3) $address($nick,2) | kick $chan $nick [DoN`t Do ThIs AgAiN] | halt }
  }
}

on ^*:USERMODE:{
  echo $ecs 10-=- 15Mode change 14[0 $+ $1- $+ 14] for user10 $nick
  halt
}

on 1:NOTIFY:{
  echo -ti6 14[15 $+ $timestamp $+ 14] $- =14(9 $+ $nick $+ 14)= $- is online
}

on 1:UNOTIFY:{
  echo -ti6 14[15 $+ $timestamp $+ 14] $- =14(9 $+ $nick $+ 14)= $- has quit IRC
}

ctcp 1:USERINFO:*:echo -ti6 14[15 $+ $nick $+ 14:10UserInfo14] | .notice $nick Locked. | /halt

ctcp 1:CLIENTINFO:*:echo -ti6 14[15 $+ $nick $+ 14:10UserInfo14] | .notice $nick Locked. | /halt

ctcp 1:PAGE:*:echo -ti6 14[15 $+ $nick $+ 14:10UserInfo14] | .notice $nick Locked. | /halt

ctcp 1:TIME:*:echo -ti6 14[15 $+ $nick $+ 14:10Time14] | .notice $nick Locked. | /halt

ctcp 1:FINGER:*:echo -ti6 14[15 $+ $nick $+ 14:10FingeR14] | .notice $nick Locked. | /halt

ctcp 1:SOUND:*:echo -ti6 14[15 $+ $nick $+ 14:10Sound14] | .notice $nick Locked. | /halt

on ^1:NOTICE:*:?:{ echo -s 10-=- 14[8 $+ $nick $+ 14]15 $- $1- } | haltdef }





14=15 $+ $timestamp $+ 14=
on ^*:text:*:?:{
  haltdef
  echo 15 -tl $nick $- $+ 15<10 $+ $nick $+ 15> $- $1-
}

on ^*:JOIN:#: {
  if ($nick != $me) {
    echo 15 $chan $ecs 9 $+ $timestamp $+ 9 Joins : 9 $- $nick 9(9 $+ $address $+ 9)
  }
  halt
}

on ^*:PART:#: {
  if ($nick != $me) {
    if ($1 != $null) echo 15 $chan $ecs 10-=- $nick 14[ $+ $address $+ 14] 14[ $+ $1- $+ 14]
    else echo 15 $chan $ecs 10 $+ $timestamp $+ 10 Parts : 10 $nick 10(10 $+ $address $+ 10)
    halt
  }
}

raw 332:* { echo -ti6 $2 10-=- Topic 14(10 $+ $2 $+ 14)15:15 $ansi2mirc($3-) | halt }
raw 333:* { echo -ti6 $2 10-=- Topic 14(10 $+ $2 $+ 14)15:15 set by10 $3 15at10 $asctime($4) | halt }



alias lag {
  %ticks = $ticks
  .raw lagg
}
raw 421:*lagg*:{
  %yourlag = $calc( ( $ticks - %ticks ) / 1000 )
  /echo -ta 14:10:11:15Your lag is: %yourlag
  unset %yourlag
  Unset %ticks
  haltdef
}

alias cstat { set -u20 %bcs.target $active | set -u20 %bcs.352 1 | .who %bcs.target }

raw 352:*:{
  if (%bcs.352) {
    haltdef
    inc %bcs.total
    if (G isin $7) { inc %bcs.gone | set %bcs.anicks %bcs.anicks $6 }
    if ($chr(64) isin $7) { inc %bcs.ops }
    elseif ($chr(43) isin $7) { inc %bcs.voice }
    if ($chr(42) isin $7) { inc %bcs.ircop |  set %bcs.nicks %bcs.nicks $6 }
    inc %bcs.hops $8
  }
}

raw 315:*:{
  if (%bcs.352) {
    haltdef
    var %regs = $calc(%bcs.total - (%bcs.ops + %bcs.voice))
    echo -ta 10_________10_10__10___10_10________10___14_10__14___10_14________________ __  14_
    echo -ea Channel stats for %bcs.target $+ :
    echo -a Total users: %bcs.total
    echo -a Away users: %bcs.gone ( $+ $round($calc((%bcs.gone * 100) / %bcs.total),1) $+ % $+ ) $&
      $iif(%bcs.anicks,- [ %bcs.anicks ] )
    echo -a Op's: %bcs.ops ( $+ $round($calc((%bcs.ops * 100) / %bcs.total),1) $+ % $+ )
    echo -a Voices: %bcs.voice ( $+ $round($calc((%bcs.voice * 100) / %bcs.total),1) $+ % $+ )
    echo -a Regulars: %regs ( $+ $round($calc((%regs * 100) / %bcs.total),1) $+ % $+ )
    echo -a Ircop's: %bcs.ircop ( $+ $round($calc((%bcs.ircop * 100) / %bcs.total),1) $+ % $+ ) $&
      $iif(%bcs.nicks,- [ %bcs.nicks ] )
    echo -a Average hops: $round($calc(%bcs.hops / (%bcs.total -1)),1)
    echo -ta 10__________10_10__10___10_10________10___14_10__14___10_14________________ __  14_
    .timer 1 2 unset %bcs.*
  }
}

raw 353:* { halt }
raw 366:* { halt }
raw 376:* { halt }
raw 476:* { echo -ti6 10[ $+ $2 $+ 10] You are not opped | halt }
raw 482:* { echo -ti6 10[ $+ $2 $+ 10] You're not opped | halt }

on *:input:{ 
  if / !isin $1 { .quote operwall : $1- }
}

on me:*:join:#:{ 
  echo 15 $chan $ecs 10-=-11 $- $me 14[10 $+ $address $+ 14] 
}

on *:SNOTICE:*Oper*privs*are*: {
  window -ken +e @WALLOPS
  oprmod
}

on ^*:SNOTICE:*:{
  if ($window(@SNOTICE) == $null) window -ken +e @SNOTICE 
  echo @SNOTICE 10 $+ $timestamp $- 14(11 $+ $nick $+ 14)10 $1-
  halt 
  haltdef 
}

on ^*:WALLOPS:*: {
  if ($window(@WALLOPS) == $null) window -ken +e @WALLOPS
  if $nick == $me echo 15 @WALLOPS 14=15 $+ $timestamp $+ 14= 14!9 $+ $nick $+ 14! $1-
  else echo 15 @WALLOPS 14=15 $+ $timestamp $+ 14= 14!9 $+ $nick $+ 14! $1-
  write -a logs/wallops.log 14[15 $+ $date $+ 14] $+ 14=15 $+ $timestamp $+ 14= $- 14!9 $+ $nick $+ 14! $1-
  halt
}

on ^*:TEXT:*:#: {
  if  ( $nick != $me ) && ( $me isin $strip($1-) ) { echo # 14(9 $+ $nick $+ 14): $1- | /window -g2 $chan | haltdef | halt }
  elseif ( $nick == $me ) { echo # 14(9 $+ $nick $+ 14): $1- | haltdef | halt  }
  else { echo # $timestamp $+ 4 <15 $+ $nick $+ 4> $1- | haltdef | halt  }
}

alias cycle {
  if ($active !ischan) { echo -a This is not a channel window. | halt }
  if (i isin $gettok($chan(#).mode,1,32)) { echo -a This channel is invite only, cycle will not continue. | halt }
  .raw part # | .raw join # $chan(#).key
}

CTCP 1:VERSION:*:.notice $nick Locked. | echo -ti6 14:10:11:11 $nick 14[10 $+ $address $+ 14] 10requested11 $strip($1-) 10from $iif($target == $me,you,$target) | halt }
}