on *:TEXT:*:?:{
  if ($1 == %trigger $+ winamp) msg $nick $winamp
  elseif ($1 == %trigger $+ power) msg $nick $power
  elseif ($1 == %trigger $+ status) {
    if ($away) msg $nick %left Status5:0 Away! %mid Reason5:0 $awaymsg %right
    else msg $nick %left Status %mid Here! %right
  }
  elseif ($1 == %trigger $+ channels) msg $nick %left Channels %mid $chans %right
  elseif ($1 == %trigger $+ contact) msg $nick %left Contact %mid AIM5:0 Lawjicks %mid mIRC5:0 #Log1x %mid Email5:0 Log1x@Log1x.com %right
}

alias pnick {
  var %a 1,%p $nick($1,$2).pnick
  while ($mid(%p,%a,1) isincs $prefix) inc %a
  dec %a
  return $iif(%a,$left(%p,1) $+ $right(%p,- $+ %a),%p)
}

alias msg {
  /.msg $1-
  echo -t $1 5(0 $+ $iif(#* iswm $1,$pnick($1,$me),$me) $+ 5)0 $2- 
}

alias say msg $active $1-

on *:INPUT:*:{
  if ($1 == +join) {
    if (Log1xBot !ison $active) && (!$2) msg Log1xBot +join $active
    haltdef
  }
  elseif (($left($1,1) != /) && (!$ctrlenter)) {
    msg $active $1- 
    haltdef 
  }
}

on ^*:text:*:*:{
  echo -tm $iif($chan,$v1,$nick) 5(0 $+ $iif($chan,$pnick($v1,$nick),$nick) $+ 5) $1-
  haltdef
}

on *:OPEN:?:{
  if ($nick !isop #support) && ($nick !isop #gamesurge) && ($nick !isop #registration) {
    msg $nick %left Auto Respond %mid Hello $nick $+ . Please type5 %trigger $+ 0Status5 %trigger $+ 0Contact5 %trigger $+ 0Winamp5 %trigger $+ 0Power or5 %trigger $+ 0Channels for more information. %right
    msg $nick %left Auto Respond %mid Idle5:0 $duration($idle) %mid Online5:0 $duration($uptime) %mid Queries5:0 $query(0) %right
  }
}

on *:TEXT:*:#:{
  if ($me isin $1-) {
    if ($nick != Log1xBot) && ($nick != professional) && ($nick != ChanServ) && ($nick != Anna^Boten) && ($nick != WBB) && ($nick != w4rc0rpz) && ($nick != m|bot) {
      beep 2
      echo -ta  $+ $nick $+  ( $+ $address($nick,2) $+ ) has mentioned $me in $chan on $server $+ .
    }
  }
}

alias winamp {
  if ($isdde(mPlug) == $false) return 10,1(15 Log1x's Winamp 10) (15 N/A 10)
  var %song = $dde(mPlug,format,"%name")
  if (!%song) return %left Log1x's Winamp %mid N/A %right
  var %time = $dde(mPlug,format,"%pm:%ps/%min:%sec~")
  var %percent = $dde(mPlug,format,"%prc")
  var %pos = $dde(mPlug,format,"~%pos~/~%ll~)")
  var %kbs = $dde(mPlug,format,"%br~Kbps/%sr~KHz")
  var %album = $dde(mPlug,format,"%4"),%album = $iif(%album,$v1,Not present.)
  return %left Log1x's Winamp %mid $replace(%song,-,5-0) %mid %time %mid %pos %mid %kbs %right
}

alias register {
  echo -a Username: Log1x
  echo -a Serial: 1259-90797
}

alias power { 
  set %power.chan.counter 0 
  set %power.powerover 0 
  set %power.opchans 0 
  set %power.totalnetworks $scon(0)
  set %power.totalnetworks.count 0
  set %power.total.channels 0
  set %power.max.chans 0 
  :connectionloop
  inc %power.totalnetworks.count
  if (%power.totalnetworks.count > %power.totalnetworks) goto end
  scon %power.totalnetworks.count
  set %power.total.channels %power.total.channels + $chan(0)
  set %power.max.chans $chan(0)
  set %power.chan.counter 0
  :loop
  if (%power.chan.counter > %power.max.chans) goto connectionloop
  set %power.chan.counter $calc(%power.chan.counter + 1)
  if ($me isop $chan(%power.chan.counter)) { 
    set %power.powerover %power.powerover + $nick($chan(%power.chan.counter),0)
    inc %power.opchans
  } 
  goto loop
  :end
  scon -r
  if (%power.total.channels = 1) var %power.chanword channel
  if (%power.total.channels > 1) var %power.chanword channels
  if (%power.totalnetworks = 1) var %power.netword network
  if (%power.totalnetworks > 1) var %power.netword different networks
  if (!$isid) say %left Power %mid I am currently a operator in %power.opchans $+ / $+ %power.total.channels %power.chanword on  $+ %power.totalnetworks $+  %power.netword $+ .  I control  %power.powerover IRC users. %right
  else return %left Power %mid I am currently a operator in %power.opchans $+ / $+ %power.total.channels %power.chanword on  $+ %power.totalnetworks $+  %power.netword $+ .  I control  %power.powerover IRC users. %right
  unset %power.*
}

alias chans {
  var %a 1 
  while ($chan(%a)) var %chan = $iif($me isop $chan(%a),@ $+ $chan(%a),$iif($me isvoice $chan(%a),+ $+ $chan(%a),$chan(%a))),%chans = $iif(%chans,%chans $+ 5 $+ $chr(44) $+   %chan,%chan),%a = %a + 1
  return %chans 
}

alias eval {
  var %ticks $ticks
  msg $active $($1-,1) --> $iif($($1-,2) != $null,$v1,$!null) - $calc($ticks - %ticks) $+ ms
  :error
  if ($error) msg $active $1- -->  $+ $gettok($gettok($gettok($error,1-,32),2,58),1,32) $+  - $remove($gettok($error,1,58),*)  - $calc($ticks - %ticks) $+ ms
  reseterror
}

alias closepms close -m