alias status {
  var %total_users = 0, %oped = 0, %hoped = 0, %voice = 0, %reg = 0, %s = 1, %net = $network, %channels, %y, %nicks
  while $scon(%s) {
    var %b = $ifmatch, %i = 1
    scid %b
    if ($network == %net) {
      %nicks = %nicks $me
      var %nks = $replace(%nicks,$chr(32),$chr(46))
      %i = 1
      inc %y
      inc %channels $chan(0)
      while (%i <= $chan(0)) {
        %total_users = %total_users + $nick($chan(%i),0)
        if ($me isop $chan(%i)) inc %oped
        if ($me ishop $chan(%i)) inc %hoped
        if ($me isvoice $chan(%i)) inc %voice
        if ($me isreg $chan(%i)) inc %reg
        inc %i
      }
    }
    inc %s
  }
  scid -r
  if ($gettok(%nks,5,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) $+ , $gettok(%nks,3,46) $+ , $gettok(%nks,4,46) & $gettok(%nks,2,46) }
  elseif ($gettok(%nks,4,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) $+ , $gettok(%nks,3,46) & $gettok(%nks,4,46) }
  elseif ($gettok(%nks,3,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) & $gettok(%nks,3,46) }
  elseif ($gettok(%nks,2,46) != $null) { var %nicks = $gettok(%nks,1,46) & $gettok(%nks,2,46) }
  else { var %nicks = $gettok(%nks,1,46) }
  say I am on4 %channels Channels (4@ in %oped $+ ,7 $chr(37) in %hoped $+ , 2+ in %voice $+ ) with %total_users total people on network
}
elseif ($regex($1,/^([!@])?status/Si)) var %style status




-----------------------------------------------------------


elseif (%style == status) {
  var %x = $chan(0),%o = 0,%h = 0,%v = 0,%r = 0,%p = 0,%t = 0 
  while (%x) { 
    if (($me isop $chan(%x)) || ($me ishop $chan(%x))) { 
      inc $+(%,$iif($me isop $chan(%x),o,h)) 
      inc %p $iif($me isop $chan(%x),$nick($chan(%x),0),$nick($chan(%x),0,v,r)) 
    } 
    elseif ($me isvoice $chan(%x)) { inc %v } 
    elseif ($me isreg $chan(%x)) { inc %r } 
    inc %t $nick($chan(%x),0) 
    dec %x 
  } 
  /send $c1(***) $+($c1,$chr(40),$c2,$upper(status),$c1,$chr(41),$c1,:) $c2($me) $c1(Is currently on) $c2($chan(0)) $c1($iif($chan(0) iswm 1,channel,channels)) $+ $c1(.) $c2($me) $c1(is an op on) $c2(%o) $+ $c1(, halfop on) $c2(%h) $+ $c1(, voiced on) $c2(%v) $+ $c1(, and a regular user on) $c2(%r) $+ $c1(.) $c2($me) $c1(has power over) $+($c2,%p,/,%t) $c1($chr(40)) $+ $c2($round($calc(%p / %t * 100),2) $+ $chr(37) $+ $c1($chr(41))) $c1(users.) 
}
menu channel,status { 
  PM Accepter/Blocker: { pmd } 
} 
alias pmd { 
  dialog -m pmd pmd 
} 
dialog pmd { 
  title "Pro PM Blocker" 
  size -1 -1 250 120 
  option dbu 
  box "PM Accepter" 1, 5 2 140 56 
  text "Received Message:" 2, 10 10 47 8 
  edit "PM Received - Please Wait...", 3, 58 9 80 8 
  text "Accept Message:" 4, 10 21 45 8 
  edit "[Accepted]" 5, 52 19 86 9 
  text "Decline Message:" 6, 10 32 46 8 
  edit "[Declined]" 7, 52 32 86 9 
  button "Turn ON" 8, 68 43 35 12 
  button "Turn OFF" 9, 103 43 35 12 
  box "PM Blocker" 10, 5 57 140 36 
  text "Block Message:" 11, 10 68 45 8 
  edit "I am [Blocking] all PMs" 12, 47 66 92 9 
  button "Block ON" 13, 63 77 38 13 
  button "Block OFF" 14, 101 77 38 13 
  box "Status" 15, 20 95 110 20 
  text "Status:" 16, 25 103 20 8 
  text "" 17, 45 103 80 9 
  box "Exceptions List" 18, 155 3 90 112 
  list 19, 165 12 70 70, size 
  text "Add Nick:" 20, 158 87 25 10 
  edit "", 21, 181 85 54 10 
  button "Add", 22, 165 98 35 13 
  button "Delete", 23, 201 98 35 13 
  text "Enable Excepts:", 24, 10 45 39 10 
  check "", 25, 52 45 8 8 
  text "Enable Excepts:" 26, 10 80 39 10 
  check "", 27, 52 80 8 8 
} 
on *:DIALOG:pmd:init:0: { 
  var %y 1 
  while (%y <= $ini(allow.ini,AllowList,0)) { 
    did -a $dname 19 $ini(allow.ini,AllowList,%y) 
    inc %y 
  } 
  if (%accept != on || %blocker != on) { 
    did -r $dname 17 
    did -a $dname 17 PM Accepter/Blocker is DISABLED 
  } 
  if (%accept == on) { 
    did -r $dname 17 
    did -a $dname 17 PM Accepter is ENABLED 
  } 
  if (%blocker == on) { 
    did -r $dname 17 
    did -a $dname 17 PM Blocker is ENABLED 
  } 
  if (%exaccept == on) { 
    did -c $dname 25 
  } 
  if (%exblock == on) { 
    did -c $dname 27 
  } 
} 
on *:DIALOG:pmd:sclick:8: { 
  if (%accept != on && %blocker != on) { 
    set %received $did(3) 
    set %accepted $did(5) 
    set %declined $did(7) 
    set %accept on 
    echo -at PM Accepter is now ON 
    dialog -x pmd 
  } 
  elseif (%accept == on || %blocker == on) { 
    did -a $dname 17 PM Accept/Blocker is already ON 
  } 
} 
on *:DIALOG:pmd:sclick:9: { 
  if (%accept == on) { 
    unset %accept 
    unset %received 
    unset %accepted 
    unset %declined 
    echo -at PM Accepter is now OFF 
    dialog -x pmd 
  } 
  else { 
    did -a $dname 17 PM Accepter is DISABLED 
  } 
} 
on *:DIALOG:pmd:sclick:13: { 
  if (%accept != on && %blocker != on) { 
    set %blocked $did(12) 
    set %blocker on 
    echo -at PM Blocker is now ON 
    dialog -x pmd 
  } 
  elseif (%accept == on || %blocker == on) { 
    did -a $dname 17 PM Accept/Blocker is already ON 
  } 
} 
on *:DIALOG:pmd:sclick:14: { 
  if (%blocker == on) { 
    unset %blocker 
    unset %blocked 
    echo -at PM Blocker is now OFF 
    dialog -x pmd 
  } 
  else { 
    did -a $dname 17 PM Blocker is DISABLED 
  } 
} 
on *:OPEN:?: { 
  if (%accept == on) { 
    if ($nick iswm $readini(Allow.ini,AllowList,$nick) && %exaccept == on) { 
      halt 
    } 
    else { 
      msg $nick %received 
      .timer 1 0 accepter $nick 
    } 
  } 
  if (%blocker == on) { 
    if ($nick iswm $readini(Allow.ini,AllowList,$nick) && %exblock == on) { 
      halt 
    } 
    else { 
      msg $nick %blocked 
      ignore -pu300 $nick 
      window -c $nick 
    } 
  } 
} 
alias accepter { 
  set %accepter $input(Accept query from $1 $+ ?,y) 
  answer $1 
} 
alias answer { 
  if (%accepter == $true) { 
    msg $1 %accepted 
    window -a $1 
  } 
  if (%accepter == $false) { 
    msg $1 %declined 
    ignore -pu300 $1 
    window -c $1 
  } 
  unset %accepter 
} 
on *:DIALOG:pmd:sclick:22: { 
  if ($did(21) == $null) { 
    did -a $dname 17 Please specify a NAME! 
  } 
  else { 
    writeini Allow.ini AllowList $did(21) $did(21) 
    did -a $dname 19 $did(21) 
    did -r $dname 21 
  } 
} 
on *:DIALOG:pmd:sclick:23: { 
  if ($did($dname,19).seltext == $null) { 
    did -a $dname 17 Please Highlight a NAME! 
  } 
  else { 
    remini Allow.ini AllowList $did($dname,19).seltext 
    did -d $dname 19 $did($dname,19).sel 
  } 
} 
on *:DIALOG:pmd:sclick:25: { 
  if (%exaccept != on) { 
    did -a $dname 17 Accepter w. Excepts is ON 
    set %exaccept on 
  } 
  elseif (%exaccept == on) { 
    did -a $dname 17 Accepter w. Excepts is OFF 
    unset %exaccept 
  } 
} 
on *:DIALOG:pmd:sclick:27: { 
  if (%exblock != on) { 
    did -a $dname 17 Blocker w. Excepts is ON 
    set %exblock on 
  } 
  elseif (%exblock == on) { 
    did -a $dname 17 Blocker w. Excepts is OFF 
    unset %exblock 
  } 
}
on *:INPUT:#: {
  if ($1 == .eI) && (!$2) {
  mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)  } 
  if ($2) && ($1 == .deleI) {
  mode $chan -eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)   }
  if ($1 == .add) || ($1 == .del) || ($1 == .list) {
    cs access $chan $remove($1,.) $2-
  }
  if ($1 == .add) && ($3 isnum) {
    mode $chan $iif($3 == 3,+v)  $iif($3 == 4,+h-v) $iif($3 isnum 5-9,+o-hv) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5)
  }
  if ($left($1,1) == +) || ($left($1,1) == -) {
    $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2))
  }
  if ($1 == .mode) && (!$2) {
  mode $chan $2-   } 
  if ($2) && ($1 == !mode)  {
  mode $chan $2-   }
  if ( $1 == .cb ) mode $chan +b ~c: $+ $2
  if ( $1 == -cb ) mode $chan -b ~c: $+ $2
  if ( $1 == !mutename ) mode $chan +b ~q: $+ $address($2,2)
  if ( $1 == !unmutename ) mode $chan -b ~q: $+ $address($2,2)
  if ( $1 == .v ) mode $chan +v $$2
  if ( $1 == -v ) mode $chan -v $$2
  if ( $1 == .h ) mode $chan +h $$2
  if ( $1 == -h ) mode $chan -h $$2
  if ( $1 == .o ) mode $chan +o $$2
  if ( $1 == -o ) mode $chan -o $$2
  if ( $1 == .i ) invite $$2 $chan
  if ( $1 == .eI ) mode $chan +eI $address($me,2) $address($me,2)
  if ( $1 == -eI ) mode $chan -eI $address($me,2) $address($me,2)
  if ( $1 == .rem ) cs access $chan del $$2
  if ( $1 == .list ) cs access $chan list
  if ( $1 == .alist ) ns alist
  if ( $1 == .regchan ) cs register $chan $2 $3
  if ( $1 == .topic ) topic $chan $2-
  if ( $1 == .akick ) cs akick $chan add $2 $3-
  if ( $1 == .delakick ) cs akick $chan del $2
  if ( $1 == .delchanakick ) cs akick $chan clear
  if ( $1 == .setgreet ) ns set greet $2-
  if ( $1 == !rape ) inc %rape /cs kick # $2 4U 11FKN 12GOT 9RAPED 7by 2$me1 Peeps raped: %rape 8Original 10reason: 13 $3-
  if ( $1 == !nick ) /nick $2
  if ( $1 == !ban ) !kb $2 reason: $3-
  if ( $1 == !akick ) /cs akick $chan add $2 $3-
  if ( $1 == .away ) /gmsg 11[4Away11]7 $me is now away. reason: $2-  
  if ( $1 == !msg ) msg $chan 11[4An message -- By $me 11]7 $me has msged: $2-
  if ( $1 == .msg ) msg $chan 11[4An message -- By $me 11]7 $me has msged: $2-
  if ( $1 == !amsg ) gmsg $chan 11[4An message -- By $me 11]7 $me has amsged: $2-
  if ( $1 == .amsg ) gmsg $chan 11[4An message -- By $me 11]7 $me has amsged: $2-
  if ( $1 == !gayalert ) msg $chan 11[4GAY ALART 11]7 $me has found a gay guy named $2-
  if ( $1 == !id ) /ns id kraxzetjepasswordhier
  if ( $1 == !update ) /ns update
  if ( $1 == .update ) /ns update
  if ( $1 == !check ) /whois $2
  if ( $1 == !whois ) /whois $2
  if ( $1 == !msg ) msg $chan 4[10Msg4]7 $2-