###################################
#            User Modes           #
#     Scriptor : Anthrophobic     #
# Email : anthrophobic1@yahoo.com #
###################################
menu nicklist {
  Whois: /whois $$1
  -
  Info
  .Nickname $chr(160) $$1:halt
  .Hostname $chr(160) $remove($address($$1,2),*!*@):halt
  .Idle $chr(160) $duration($nick($chan,$$1).idle):halt
  .-
  .UCentral:uwho $$1
  .DNS:.dns $$1
  .Trace:trace $$1
  .Userhost:userhost $$1
  Notice
  .Private:notice.p $$1 $$?="Notice to $$1 :"
  .-
  .Op Notice:onot
  .Op && Voice Notice $chr(160) F9:ovnot
  .Voice Notice:vnot
  .-
  .Channel Notice:gnot
  Msg && Query
  .Msg:msg $1 $$?="Message to $1 :"
  .Query:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { query $snick(#,%t2) | inc %t2 1 } }
  .-
  .Op Message:PRIVMSG @ $+ # (Op $+ $nick(#,0,o) $+ ( $+ $round($calc($nick(#,0,o) / $nick(#,0) * 100),0) $+ % $+ )) $$?="Op( $+ $opnick(#,0) $+ ) Message to $chan :"
  .Op && Voice Message:PRIVMSG @ $+ + $+ # (Op $+ $nick(#,0,o) $+ ( $+ $round($calc($nick(#,0,o) / $nick(#,0) * 100),0) $+ % $+ )Vo $+ $nick(#,0,v) $+ ( $+ $round($calc($nick(#,0,v) / $nick(#,0) * 100),0) $+ % $+ )) $$?="Op( $+ $opnick(#,0) $+ ) & Voice( $+ $vnick(#,0) $+ ) Message to $chan :"
  .Voice Message:PRIVMSG + $+ # (Vo $+ $nick(#,0,v) $+ ( $+ $round($calc($nick(#,0,v) / $nick(#,0) * 100),0) $+ % $+ )) $$?="Voice( $+ $vnick(#,0) $+ ) Message to $chan :"
  -
  Chanserv Control
  .Owner { cs owner $chan $1 }
  .De-Owner { cs deowner $chan $1 }
  ..-
  .Protect { cs protect $chan $1 }
  .De-Protect { cs deprotect $chan $1 }
  ..-
  .OP { cs op $chan $1 }
  .De-OP { cs deop $chan $1 }
  ..-
  .HOP { cs halfop $chan $1 }
  .De-HOP { cs dehalfop $chan $1 }
  ..-
  .Voice { cs voice $chan $1 }
  .De-Voice { cs devoice $chan $1 }
  User Control
  .Owner { mode $chan +q $1 }
  .De-Owner { mode $chan -q $1 }
  ..-
  .Protect { mode $chan +a $1 }
  .De-Protect { mode $chan -a $1 }
  ..-
  .OP { mode $chan +o $1 }
  .De-OP { mode $chan -o $1 }
  ..-
  .HOP { mode $chan +h $1 }
  .De-HOP { mode $chan -h $1 }
  ..-
  .Voice { mode $chan +v $1 }
  .De-Voice { mode $chan -v $1 }
  Access Control
  .Add sop { cs sop $chan add $1 }
  .Del sop { cs sop $chan del $1 }
  ..-
  .Add aop { cs aop $chan add $1 }
  .Del aop { cs aop $chan del $1 }
  ..-
  .Add hop { cs hop $chan add $1 }
  .Del hop { cs hop $chan del $1 }
  ..-
  .Add vop { cs vop $chan add $1 }
  .Del vop { cs vop $chan del $1 }
}
alias npm {
  if ($me !isop $chan) { echo -a $+(you,need,+q,+a,+o,to,perform,these,modes) | .return }
  var %1 = $numtok($replace($snicks,$chr(44),$chr(32)),32),%2 = $replace($snicks,$chr(44),$chr(32)),%3 = $remove($1,+,-),%4 = $remove($1,q,a,o,h)
  %2 = $remove(%2,$me)
  .raw mode # %4 $+ $str(%3,%1) %2
}
###################################
#          IRCop Control          #
#     Scriptor : Anthrophobic     #
# Email : anthrophobic1@yahoo.com #
###################################
menu nicklist {
  IRCop Control
  .G-Line User (No Reason):/gline $$1 $$?="Please enter a VAILD time limit (in server ban format)"
  .G-Line User (Custom):/gline $$1 $$?="Please enter a VAILD time limit" $$?="Enter Your Reason"
  .G-Line User (Predefined Reasons)
  ..Ban Walking:/gline $$1 $$?="Please enter a VAILD time limit (in server ban format)" Ban Walking. This is prohibited.
  ..Botnet:/gline $$1 $$?="Please enter a VALID time limit (in server ban format)" Botnets are prohibited.
  ..Harassing Users://gline $$1 $$?="Please enter a VALID time limit (in server ban format)" Harassing users, and/or network staff is prohibited on $network $+ .
  ..Breaking the rules:/gline $$1 $$?="Please enter a VALID time limit (in server ban format)" You must abide by server rules.
  ..Disobeying network staff:/gline $$1 $$?="Please enter a VALID time limit (in server ban format)" Disobeying network staff.
  .-
  .Z-Line User (No Reason):/gzline $$1 $$?="Please enter a VAILD time limit (in server ban format)"
  .Z-Line User (Custom):/gzline $$1 $$?="Please enter a VAILD time limit" $$?="Enter Your Reason"
  .Z-Line User (Predefined Reasons)
  ..Ban Walking:/gzline $$1 $$?="Please enter a VAILD time limit (in server ban format)" Ban Walking. This is prohibited.
  ..Botnet:/gzline $$1 $$?="Please enter a VALID time limit (in server ban format)" Botnets are prohibited.
  ..Harassing Users://gzline $$1 $$?="Please enter a VALID time limit (in server ban format)" Harassing users, and/or network staff is prohibited on $network $+ .
  ..Breaking the rules:/gzline $$1 $$?="Please enter a VALID time limit (in server ban format)" You must abide by server rules.
  ..Disobeying network staff:/gzline $$1 $$?="Please enter a VALID time limit (in server ban format)" Disobeying network staff.
  .-
  .K-Line User (No Reason):/kline $$1 $$?="Please enter a VAILD time limit ((in server ban format)"
  .K-Line User (Custom):/kline $$1 $$?="Please enter a VAILD time limit" $$?="Enter Your Reason"
  .K-Line User (Predefined Reasons)
  ..Ban Walking:/kline $$1 $$?="Please enter a VAILD time limit (in server ban format)" Ban Walking. This is prohibited.
  ..Botnet:/kline $$1 $$?="Please enter a VALID time limit (in server ban format)" Botnets are prohibited.
  ..Harassing Users://kline $$1 $$?="Please enter a VALID time limit (in server ban format)" Harassing users, and/or network staff is prohibited on $network $+ .
  ..Breaking the rules:/kline $$1 $$?="Please enter a VALID time limit (in server ban format)" You must abide by server rules.
  ..Disobeying network staff:/kline $$1 $$?="Please enter a VALID time limit (in server ban format)" Disobeying network staff.
  .-
  .Kill User (No Reason):/Kill $$1 [ $+ $me $+ ] - No Reason
  .Kill User (Custom):/Kill $$1 $$?="Enter your reason"
  .Kill User (Predefined Reasons)
  ..Ban Walking:/Kill $$1 Ban Walking. This is prohibited.
  ..Botnet:/Kill $$1 Botnets are prohibited.
  ..Harassing Users://Kill $$1 Harassing users, and/or network staff is prohibited on $network $+ .
  ..Breaking the rules:/Kill $$1 You must abide by server rules.
  ..Disobeying network staff:/Kill $$1 Disobeying network staff.
}
###################################
#         Kick/Ban Control        #
#     Scriptor : Anthrophobic     #
# Email : anthrophobic1@yahoo.com #
###################################
menu nicklist {
  -
  $iif($me !isop #,$style(2)) Kicks
  .Kick Only:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { kick # $snick(#,%t2) - %name | inc %t2 1 } }
  .Kick Why:kick # $$1 $$?="Kick reason to $$1 :" - %name
  .-
  .Specified
  ..Advertising:kick # $$1 %kix.ad - %name
  ..Flood:kick # $$1 %kix.fl - %name
  ..Repeat:kick # $$1 %kix.re - %name
  ..Begging:kick # $$1 %kix.be - %name
  ..Idling:kick # $$1 %kix.id - %name
  ..Bad Language:kick # $$1 %kix.la - %name
  ..Bad Nickname:kick # $$1 %kix.ni - %name
  ..Bad Ident:kick # $$1 %kix.idt - %name
  ..Bad Script:kick # $$1 %kix.sc - %name
  ..Clones:kick # $$1 %kix.cl - %name
  ..Infected:kick # $$1 %kix.in - %name
  ..Harrassment:kick # $$1 %kix.ha - %name
  ..Annoying:kick # $$1 %kix.an - %name
  ..Swearing:kick # $$1 %kix.sw - %name
  ..Lamer:kick # $$1 %kix.lam - %name
  ..Warned:kick # $$1 %kix.wa - %name
  ..Inviting:kick # $$1 %kix.inv - %name
  ..-
  ..Setup:kixset
  $iif($me !isop #,$style(2)) Bans
  .Ban Only:/ban $$1 3
  .Ban Kick Why:/ban $$1 3 | .timer 1 1 /kick # $$1 $$?=" Kickban reason to $$1 :" - %name
  .-
  .Timed Bans
  ..Specified:{
    set %tis.ban $?="Seconds For Ban :"
    ban -u $+ %tis.ban $$1 3
    kick $chan $$1 %tis.ban Secs Ban - %name
    unset %tis.ban
  }
  ..-
  ..3 Mins:/ban -u180 $$1 | kick # $$1 3 Mins Ban - %name
  ..5 Mins:/ban -u300 $$1 | kick # $$1 5 Mins Ban - %name
  ..15 Mins:/ban -u900 $$1 | kick # $$1 15 Mins Ban - %name
  ..30 Mins:/ban -u1800 $$1 | kick # $$1 30 Mins Ban - %name
  ..1 Hour:/ban -u3600 $$1 | kick # $$1 1 Hour Ban - %name
  ..3 Hours:/ban -u10800 $$1 | kick # $$1 3 Hours Ban - %name
  ..6 Hours:/ban -u21600 $$1 | kick # $$1 6 Hours Ban - %name
  ..12 Hours:/ban -u43200 $$1 | kick # $$1 12 Hours Ban - %name
  ..1 Day:/ban -u86400 $$1 | kick # $$1 1 Day Ban - %name
  ..3 Days:/ban -u259200 $$1 | kick # $$1 3 Days Ban - %name
  ..1 Week:/ban -u604800 $$1 | kick # $$1 1 Week Ban - %name
  ..1 Month:/ban -u2419200 $$1 | kick # $$1 1 Month Ban - %name
  .Specified
  ..Advertising:ban $$1 3 | kick # $$1 %kix.ad - %name
  ..Flood:ban $$1 3 | kick # $$1 %kix.fl - %name
  ..Repeat:ban $$1 3 | kick # $$1 %kix.re - %name
  ..Begging:ban $$1 3 | kick # $$1 %kix.be  - %name
  ..Idling:ban $$1 3 | kick # $$1 %kix.id - %name
  ..Bad Language:ban $$1 3 | kick # $$1 %kix.la - %name
  ..Bad Nickname:ban $$1 3 | kick # $$1 %kix.ni - %name
  ..Bad Ident:ban $$1 3 | kick # $$1 %kix.idt - %name
  ..Bad Script:ban $$1 3 | kick # $$1 %kix.sc - %name
  ..Clones:ban $$1 3 | kick # $$1 %kix.cl - %name
  ..Infected:ban $$1 3 | kick # $$1 %kix.in - %name
  ..Harrassment:ban $$1 3 | kick # $$1 %kix.ha - %name
  ..Annoying:ban $$1 3 | kick # $$1 %kix.an - %name
  ..Swearing:ban $$1 3 | kick # $$1 %kix.sw - %name
  ..Lamer:ban $$1 3 | kick # $$1 %kix.lam - %name
  ..Warned:ban $$1 3 | kick # $$1 %kix.wa - %name
  ..Inviting:ban $$1 3 | kick # $$1 %kix.inv - %name
  ..-
  ..Setup:kixset
  .Triple Bans Kick
  ..Triple Bans Only:tb $1
  ..Triple Bans Kick:tbk $1 %name
  $iif($me !isop #,$style(2)) Instant Kick:kick # $$1 Instant Kick - %name
  $iif($me !isop #,$style(2)) Instant Kick Ban $chr(160) F4:mode $chan -o+b $1 $address($1,2) | kick $chan $1 Instant Kick Ban - %name
}
###################################
#         Control/DCC/CTCP        #
#     Scriptor : Anthrophobic     #
# Email : anthrophobic1@yahoo.com #
###################################
menu nicklist {
  -
  Control
  .$iif($1 == $me,$style(2)) Ignores
  ..All:.ignore $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (All)
  ..-
  ..All But Channel:.ignore -pnti $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (All but channel)
  ..Query:.ignore -p $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (Query)
  ..Ctcp:.ignore -t $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (CTCP)
  ..Dcc:.ignore -d $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (DCC)
  ..Channels:.ignore -c $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (Channel)
  ..Notice:.ignore -n $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (Notice)
  ..Invite:.ignore -i $$1 3 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to ignore list (Invite)
  ..-
  ..Unignore:.ignore -r $$1 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Removed $+ $cxs(1) $1  $+ $cxs(2) $+ from ignore list
  .$iif($1 == $me,$style(2)) Silence
  ..Silence:.silence + $+ $1 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to silence list
  ..Unsilence:.silence - $+ $1 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Removed $+ $cxs(1) $1  $+ $cxs(2) $+ from silence list
  .Notify
  ..Add:.notify $1 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ too notify list
  ..Remove:.notify -r $1 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Removed $+ $cxs(1) $1  $+ $cxs(2) $+ from notify list
  ..-
  ..Make Note For $snick(#,1):.notify -r $1 | .notify $1 $?"Notify note to $1 :" | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to notify list $cxs(3) $+ ( $+ $cxs(2) $+ Note $+ $cxs(3) $+ )
  ..Whois On Notify $snick(#,1):.notify -r $1 | .notify + $+ $1 | echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Added $+ $cxs(1) $1  $+ $cxs(2) $+ to notify list $cxs(3) $+ ( $+ $cxs(2) $+ Whois on notify $+ $cxs(3) $+ )
  ..-
  ..Show Notify List:/notify -s
  ..Echo Notify List:/notify -h
  .-
  .Invite:invite $* $$?="Invite to channel :"
  CTCP
  .Ping:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) ping | inc %t2 1 } }
  .Chat:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) chat | inc %t2 1 } }
  .Page:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) page | inc %t2 1 } }
  .-
  .Time:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) time | inc %t2 1 } }
  .Version:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) version | inc %t2 1 } }
  .Userinfo:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) userinfo | inc %t2 1 } }
  .Clientinfo:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) clientinfo | inc %t2 1 } }
  .Finger:{ var %t = $snick(#,0) | var %t2 = 1 | while (%t2 <= %t) { ctcb $snick(#,%t2) finger | inc %t2 1 } }
  .-
  .Custom:ctcp $1 $$?="CTCP to $$1 :"
  $iif($1 == $me,$style(2)) DCC
  .Send:dcc send $$*
  .Chat:dcc chat $$*
  .-
  .Allow:dccallow + $+ $$1
  .Disallow:dccallow - $+ $$1
  $iif(.dal.net isin $server,DALnet)
  -
  Slap!:/me slaps $$1 around a bit with a large trout
  Scan: var %pl $r(1,10000) | me scans $$1 $+ 's Power Level... | .timer 1 3 say $iif($1 !ison $chan,$1 is out of range.,$iif(%pl > 9000,its... ITS... ITS OVER 9000!!!!!!!( $+ %pl $+ ),$1 $+ 's Power Level is %pl))
  -
}