Stuff

on *:TEXT: ;grats *:#: /msg $chan 3ô1,3ô9,3ô3,9ô0,9ô9,0ô0,0-15,0ô0,15ô14,15ô15,14ô1,14ô14,1ô1,1-9,1  Congratulations $nick on $2-  14,1ô1,14ô15,14ô14,15ô0,15ô15,0ô0,0-9,0ô0,9ô3,9ô9,3ô1,3ô3,1ô
on *:TEXT:*!ok*:#: { if ($nick == [ID2|Aimy]) { /timerpills off } } 
on *:TEXT:*!gratz*:#: { /msg $chan 4,0'%0,4%,5,4'%4,5%,6,5'%5,6%,1,6'%6,1%, 4,1Gratz on level $2 $3 $nick !!! 6,1'%1,6%,5,6'%6,5%,4,5'%5,4%,0,4'%4,0%, } }
menu channel,menubar,nicklist {
  Address Tracking
  .$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: {
    var %status = $iif($group(#Addtrack) == on,Disable,Enable)
    $+(.,%status) #Addtrack
    echo 7 -at * Users previous nicks will $iif(%status == Disable,no longer,now) be shown when they join
  }
  .-
  .$iif($1,Check nicks for $1):CheckNicks $1
  .Check nicks for an address: {
    CheckNicks $+(*!,$$?="Enter the hostmask you want to check in the format NICK!IDENT@HOST*")
  }
}

on *:start: {
  hmake Addtrack 100
  if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh
}
on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh

#Addtrack on
on *:join:#: {
  if ($wildsite iswm $address($me,5)) return
  var %mask = $mask($fulladdress,3)
  if ($hget(Addtrack,%mask)) {
    var %usednicks = $ifmatch
    if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 10 -t $chan [Nick Tracking] $nick has also used the nicks: $remtok(%usednicks,$nick,1,44)
    if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44)
    if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  }
  else {
    hadd -m Addtrack %mask $nick
  }
}
on *:nick: {
  if ($wildsite iswm $address($me,5)) return
  var %mask = $mask($fulladdress,3)
  if ($hget(Addtrack,%mask)) {
    var %usednicks = $ifmatch
    if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44)
    if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  }
  else {
    hadd -m Addtrack %mask $newnick
  }
}
#addtrack end

alias CheckNicks {
  if (*!*@* iswm $1) {
    var %mask = $mask($1,3)
    if (!$hget(Addtrack,%mask)) echo 4 -ta No entry found for $1
    else echo 10 -ta Address $1 has used the nicks: $hget(Addtrack,$1)
  }
  elseif (!$hget(Addtrack,$address($1,3))) echo 4 -ta No Entry found for $1
  elseif ($hget(Addtrack,$address($1,3)) != $1) {
    var %usednicks = $ifmatch
    echo 10 -ta $1 has also used the nicks $remtok(%usednicks,$1,1,43)
  }
  else echo 10 -ta $1 has not been seen on any other nicks
}
alias power {
  set %Power1 0
  set %Power2 $comchan($me,0)
  set %opchans 0
  set %halfopchans 0
  set %voicechans 0
  set %total $comchan($me,0)
  goto start
  :start
  while (%Power1 < %Power2) {
    inc %Power1 1
    if ($comchan($me,%Power1).op == $true) { inc %opchans 1 | goto start }
    if ($comchan($me,%Power1).help == $true) { inc %halfopchans 1 | goto start }
    if ($comchan($me,%Power1).voice == $true) { inc %voicechans 1 | goto start }
  }
  unset %power.*
  %power.n = 0
  while (%power.n < $chan(0)) {
    inc %power.n
    inc %power.people $nick($chan(%power.n),0)
    if ($me isop $chan(%power.n)) { 
      inc %power.chan 
      %power.ppl = $calc(%power.ppl + $nick($chan(%power.n),0))
    }
  }
  %power.ppl = $calc(%power.ppl - 2)
  %power.people = $calc(%power.people - 2)
  msg $active 8,1<15I0>12 am op in %opchans Channels! 8,1<15H0>13alfop in %halfopchans channels! 8,1<15V0>7oiced in %voicechans channels! 8,1<15C0>4hannel control over %power.ppl out of %power.people people ( $+ $round($calc((%power.ppl / %power.people) * 100),1) $+ $chr(37) $+ ) $+ ! 8,1<15O0>8perator status in %power.chan out of $chan(0) ( $+ $round($calc((%power.chan / $chan(0)) * 100),2) $+ $chr(37) $+ ) $+  8,1<15A0>12lso Aimy Owns (100.00%)! of People 
  unset %opchans |  unset %halfopchans |  unset %voicechans |  unset %Power1 |  unset %Power2
  alias afk {
    set %afk afk
  }
  alias back {
    unset %afk
  }
  on *:TEXT:**:*: { 
    if ($chan !== #idle && Aimy isin $1- && %afk) { msg $nick Hi, i'm currently afk. }
    if (aimy isin $1-99) { 
      set %aimywhat $1-
      set %aimytime $time
      set %aimychan $chan
      notice $me in %aimychan $+ , at %aimytime $+ , $nick said:
      notice $me %aimywhat
      unset %aimywhat
      unset %aimytime
      unset %aimychan
    }
  }