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

on *:INPUT:*:{ 
  if (($left($1,1) != /) && (!$ctrlenter)) { echo -m $timestamp 5(0 $+ $iif($me isop $active,@,$iif($me isvoice $active,+)) $+  $+ $me $+ 5)0 $1-  | haltdef | .msg $active $1- }
  if ($1 == +join) {
    if (Log1xBot !ison $active) && (!$2) {
    .msg Log1xBot +join $active }
  }
}

on ^*:text:*:*:{ echo -tm $iif($chan,$v1,$nick) 5(0 $+ $iif($chan,$nick($v1,$nick).pnick,$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 -a ( $+ $asctime $+ )  $+ $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))) | var %chans = $iif(%chans,%chans $+ 5 $+ $chr(44) $+   %chan,%chan) | inc %a } | return %chans }

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

alias closepms {
close -m }

alias pnick return $gettok($nick($1,$2).pnick,2,$asc($right($prefix,1)))