alias status {
  var %x = 1, %y = 0, %o = 0, %h = 0, %v = 0, %r = 0, %n = 0, %t = 0, %c = 0, %oo = 0, %hh = 0
  while ($scon(%x)) {
    scid $scon(%x)
    set %i 1
    while ($chan(%i)) {
      inc %t $nick($chan(%i),0)
      if ($me isop $chan(%i)) { inc %o | inc %n $nick($chan(%i),0,a,o) | inc %hh $nick($chan(%i),0,o) }
      elseif ($me ishop $chan(%i)) { inc %h | inc %n $nick($chan(%i),0,a,oh) | inc %hh $nick($chan(%i),0,h,o) | inc %oo $nick($chan(%i),0,o) }
      elseif ( $me isvoice $chan(%i) ) { inc %v | inc %n $nick($chan(%i),0,r) | inc %hh $nick($chan(%i),0,v,ho) | inc %oo $nick($chan(%i),0,oh) }
      elseif ($me isreg $chan(%i)) { inc %r | inc %hh $nick($chan(%i),0,r,ohv) | inc %oo $nick($chan(%i),0,a,r) }
      inc %y | inc %i | inc %c
    }
    inc %x
  }
  scon -r describe $active Is opped in04 %o  $+ $iif(%o > 1,channels,channel) ( $+ 12 $+ $ceil($calc(%o / %c * 100)) $+ 12%), Halfopped on04 %h ( $+ 12 $+ $ceil($calc(%h / %c * 100)) $+ 12%), Voiced on04 %v ( $+ 12 $+ $ceil($calc(%v / %c * 100)) $+ 12%), And regular on04 %r ( $+ 12 $+ $ceil($calc(%r / %c * 100)) $+ 12%). On a total of04 %c  $+ $iif(%c > 1,Channels,Channel) on04 $scon(0)  $+ $iif($scon(0) > 1,Networks,Network) $+ .
}



on *:TEXT:!kick *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop #) ($nick !ishop #) { halt }
  /kick $chan $2 $3-
}

on *:TEXT:!kickban *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop #) { halt }
  /mode # +b $address($2,2)
  /kick $chan $2 $3-
}

on *:TEXT:!ban *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop #) { halt }
  /mode $chan +bbbbb $address($2,2)
}

on *:TEXT:!unban *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop #) { halt }
  /mode $chan -bbbbb $address($2,2)
}

on *:TEXT:!Op *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop #) { halt }
  /mode $chan +ooooo $2-
}

on *:TEXT:!Deop *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop #) { halt }
  /mode $chan -ooooo $2-
}

on *:TEXT:!Halfop *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop # || $nick !ishop #) { halt }
  /mode $chan +hhhhh $2-
}

on *:TEXT:!Dehalfop *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop # || $nick !ishop #) { halt }
  /mode $chan -hhhhh $2-
}

on *:TEXT:!Voice *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop # || $nick !ishop #) { halt }
  /mode $chan +vvvvv $2-
}

on *:TEXT:!Devoice *:*: {
  if ($chan == #Mafiaway) { HALT }
  if ($nick !isop # || $nick !ishop #) { halt }
  /mode $chan -vvvvv $2-
}

on *:TEXT:!builder*:#: {
  notice $nick %een
  notice $nick %twee
  notice $nick %drie
  notice $nick %vier
}

on *:TEXT:!Commands*:#: {
  notice $nick %vijf
  notice $nick %zestien
  notice $nick %zes
  notice $nick %zeven
  notice $nick %acht
  notice $nick %negen
  notice $nick %tien
  notice $nick %elf
  notice $nick %twaalf
  notice $nick %dertien
  notice $nick %veertien
  notice $nick %vijftien
}

on *:TEXT:!manual*:#: {
  notice $nick %one
  notice $nick %two
  notice $nick %three
  notice $nick %four
  notice $nick %five
  notice $nick %six
  notice $nick %seven
}

on *:TEXT:!Owners*:#: {
  notice $nick %aight
  notice $nick %nine
  notice $nick %ten
  notice $nick %eleven
  notice $nick %twelve
  notice $nick %thirteen
  notice $nick %fourteen
  notice $nick %fifteen
}

on *:JOIN:#: {
  if ($address($nick,2) == *!*Lotk_Upload@Helpdesk.mafiaway.nl) { mode # +o $nick | msg # Hoi Patrick! | HALT }
  if ($address($nick,2) == *!*@Lorenzoh.users.mafiaway.nl) { mode # +o $nick | msg # Hoi Lorenzoh! | HALT }
  if ($address($nick,1) == *!*DJJack@Helpdesk.mafiaway.nl) { mode # +o $nick | msg # Hoi DJJack! | HALT }
  if ($address($nick,2) == *!*@kellykeuh.users.mafiaway.nl) { mode # +h $nick | msg # Hoi Kelly! | HALT }
  if ($address($nick,1) == *!*Aylin@admin.mafiaway.nl) { mode # +h $nick | msg # Hoi Aylin! | HALT }
  if ($address($nick,2) == *!*@znc.just-smot.com) { mode # +h $nick | msg # Hoi Just-smot ZNC user! | HALT }
  if ($address($nick,2) == *!*@Zoep.users.mafiaway.nl) { mode # +h $nick | msg # Hoi Colin! | HALT }
  if ($address($nick,2) == *!*@Jorands.users.mafiaway.nl) { mode # +h $nick | msg # Hoi Joran! | HALT }
  if ($address($nick,1) == *!*perry@Oper.mafiaway.nl) { mode # +o $nick | msg # Hoi Perry! | HALT }
}

on *:TEXT:!info:#: {
  set %kip $nick
  set %u $replace($uptime(system,1),days,d,day,d,week,w,weeks,w,hrs,uren,hr,uur,mins,min,min,min,secs,sec,sec,sec) $+
  var %x = 1, %y = 0, %o = 0, %h = 0, %v = 0, %r = 0, %n = 0, %t = 0, %c = 0, %oo = 0, %hh = 0
  while ($scon(%x)) {
    scid $scon(%x)
    set %i 1
    while ($chan(%i)) {
      inc %t $nick($chan(%i),0)
      if ($me isop $chan(%i)) { inc %o | inc %n $nick($chan(%i),0,a,o) | inc %hh $nick($chan(%i),0,o) }
      elseif ($me ishop $chan(%i)) { inc %h | inc %n $nick($chan(%i),0,a,oh) | inc %hh $nick($chan(%i),0,h,o) | inc %oo $nick($chan(%i),0,o) }
      elseif ( $me isvoice $chan(%i) ) { inc %v | inc %n $nick($chan(%i),0,r) | inc %hh $nick($chan(%i),0,v,ho) | inc %oo $nick($chan(%i),0,oh) }
      elseif ($me isreg $chan(%i)) { inc %r | inc %hh $nick($chan(%i),0,r,ohv) | inc %oo $nick($chan(%i),0,a,r) }
      inc %y | inc %i | inc %c
    }
    inc %x
  }
  notice %kip ~_~ 2Info of $me on # 
  notice %kip ~_~ Main Channel - #Lorenzoh
  notice %kip ~_~ Team Channel - #Hyperbase
  notice %kip ~_~ Channels Count -  %c $+ $iif(%c > 1, Channels,Channel) on $scon(0)  $+ $iif($scon(0) > 1,Networks,Network) $+ 
  notice %kip ~_~ Version - mIRC $version 
  notice %kip ~_~ IRC Address -  $lower(irc. $+ $network $+ .nl) 
  notice %kip ~_~ Platform - Windows 7 
  notice %kip ~_~ IRC Client Uptime -  $replace($uptime(mirc,1),days,d,day,d,week,w,weeks,w,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s)
  notice %kip ~_~ Server Uptime - %u 
  notice %kip ~_~ Total Connect - $+ $duration($online)
}