GrimReaper

; TechnoIRC Official Staff Script for mIRC - Version 1
; Written: 08 February 2010
; Written GrimReaper
on *:LOAD:{
  echo -at 4TechnoIRC Staff Script loaded 12- 4Copyright TechnoIRC IRC Network 2010 - All Rights Reserved
  echo -at 4Setting Up Variables

  ; ---- Set Variables ----
  ; ---- Bans ----
  ; --- Appealing Methods ---
  set %TechnoIRC.appealurl (If you feel this ban was an error you may appeal at http://www.TechnoIRC.net/bans/ )
  ; --- Glines ---
  set %TechnoIRC.g.flood Flooding is not permitted on TechnoIRC.
  set %TechnoIRC.g.baneva Attempting to evade a ban is a serious infraction and only results for a longer ban.
  set %TechnoIRC.g.hatesp Hate speech is not tolerated on TechnoIRC.
  set %TechnoIRC.g.pmflood Don't PM/Query/DCC/CTCP or /invite anyone without first asking their permission in the channel.
  set %TechnoIRC.g.bots This network does not permit clones, trojan bots, spam bots, xdcc/fserves/leech bots, zombies, or drones.
  set %TechnoIRC.g.attitude You have displayed conduct that is not suitable for the TechnoIRC environment.
  set %TechnoIRC.g.pornlink Inappropriate or pornographic links displayed in public channels are not tolerated here.
  set %TechnoIRC.g.proxies The use of an open proxy to connect to the network is not allowed.
  set %TechnoIRC.g.amsg AMSGs considered to be spam are not allowed.
  ; ---- End Set Variables ----
  echo -at Set Variables Complete - TechnoIRC Staff Script fully loaded and ready to use
}

menu status,channel,nicklist,query {
  TechnoIRC Commands
  .-
  .Modes and Changes
  ..SetHost:/sethost $$?="new host <Example:microsoft.com>:"
  ..SetIdent:/setident $$?="new ident <Example:Bubba>:"
  ..CHGhost:/chghost $$?="nick and newhost <Example:Bubba code.slashdot.org>:"
  ..chgname:/chgname $$?="nick and name <Example:Bubba TechAdmin on SomeNet>:"
  ..chgIdent:/chgident $$?="nick and ident <Example:Bubba NotBubba>:"
  .-
  .UserKills
  ..DNS Lookup:/dns -c $1
  ..Shun
  ...$1
  ....Flood:/shun $1 $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.flood
  ....Spam/Bots/Trojans:/shun $1 $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.bots
  ....Attitude:/shun $1 $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.attitude
  ....Ban Evasion:/shun $1 $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.baneva
  ....Hate speech:/shun $1 $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.hatesp
  ....PM Spam:/shun $1 $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.pmflood
  ....Other reason:/shun $1 $$?="Shun Time (2w,3d,60m,30s):" $$?="Reason:"
  ...Other hostmask
  ....Flood:/shun $$?="Hostmask:" $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.flood
  ....Spam/Bots/Trojans:/shun $$?="Hostmask:" $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.bots
  ....Attitude:/shun $$?="Hostmask:" $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.attitude
  ....Ban Evasion:/shun $$?="Hostmask:" $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.baneva
  ....Hate speech:/shun $$?="Hostmask:" $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.hatesp
  ....PM Spam:/shun $$?="Hostmask:" $$?="Shun Time (2w,3d,60m,30s):" %TechnoIRC.g.pmflood
  ....Other reason:/shun $$?="Hostmask:" $$?="Shun Time (2w,3d,60m,30s):" $$?="Reason:"
  ...Undo Nickname:/shun - $+ $1
  ..Kill
  ...$1
  ....Flood:/kill $1 %TechnoIRC.g.flood
  ....Spam/Bots/Trojans:/kill $1 %TechnoIRC.g.bots
  ....Attitude:/kill $1 %TechnoIRC.g.attitude
  ....Ban Evasion:/kill $1 %TechnoIRC.g.baneva
  ....Hate speech:/kill $1 %TechnoIRC.g.hatesp
  ....PM Spam:/kill $1 %TechnoIRC.g.pmflood
  ....Amsg:/kill $1 %TechnoIRC.g.amsg
  ....Proxies:/kill $1 %TechnoIRC.g.proxies
  ....Other reason:/kill $1 $$?="Reason:"
  ..Gline
  ...$1
  ....Flood:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.flood %TechnoIRC.appealurl
  ....Spam/Bots/Trojans:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.bots %TechnoIRC.appealurl
  ....Attitude:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.attitude %TechnoIRC.appealurl
  ....Ban Evasion:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.baneva %TechnoIRC.appealurl
  ....Hate speech:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.hatesp %TechnoIRC.appealurl
  ....PM Spam:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pmflood %TechnoIRC.appealurl
  ....Porn links:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pornlink %TechnoIRC.appealurl
  ....Proxies:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.proxies %TechnoIRC.appealurl
  ....Other reason:/gline $1 $$?="Ban Time (2w,3d,60m,30s):" $$?="Reason:" %TechnoIRC.appealurl
  ...Other hostmask
  ....Flood:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.flood %TechnoIRC.appealurl
  ....Spam/Bots/Trojans:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.bots %TechnoIRC.appealurl
  ....Attitude:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.attitude %TechnoIRC.appealurl
  ....Ban Evasion:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.baneva %TechnoIRC.appealurl
  ....Hate speech:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.hatesp %TechnoIRC.appealurl
  ....PM Spam:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pmflood %TechnoIRC.appealurl
  ....Porn links:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pornlink %TechnoIRC.appealurl
  ....Proxies:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.proxies %TechnoIRC.appealurl
  ....Other reason:/gline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" $$?="Reason:" %TechnoIRC.appealurl
  ..GZLine
  ...$1
  ....Flood:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.flood %TechnoIRC.appealurl
  ....Spam/Bots/Trojans:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.bots %TechnoIRC.appealurl
  ....Attitude:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.attitude %TechnoIRC.appealurl
  ....Ban Evasion:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.baneva %TechnoIRC.appealurl
  ....Hate speech:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.hatesp %TechnoIRC.appealurl
  ....PM Spam:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pmflood %TechnoIRC.appealurl
  ....Porn links:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pornlink %TechnoIRC.appealurl
  ....Proxies:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.proxies %TechnoIRC.appealurl
  ....Other reason:/gzline $1 $$?="Ban Time (2w,3d,60m,30s):" $$?="Reason:" %TechnoIRC.appealurl
  ...Other hostmask
  ....Flood:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.flood %TechnoIRC.appealurl
  ....Spam/Bots/Trojans:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.bots %TechnoIRC.appealurl
  ....Attitude:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.attitude %TechnoIRC.appealurl
  ....Ban Evasion:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.baneva %TechnoIRC.appealurl
  ....Hate speech:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.hatesp %TechnoIRC.appealurl
  ....PM Spam:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pmflood %TechnoIRC.appealurl
  ....Porn links:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.pornlink %TechnoIRC.appealurl
  ....Proxies:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" %TechnoIRC.g.proxies %TechnoIRC.appealurl
  ....Other reason:/gzline $$?="Hostmask:" $$?="Ban Time (2w,3d,60m,30s):" $$?="Reason:" %TechnoIRC.appealurl
  .-
  ..Removing UserKills
  ...Removing GLine:/gline -$$?="Hostmask To Remove. *@HOSTMASK or *@IP.Address"
  ...Removing GZLine:/gzline -$$?="Hostmask To Remove. *@HOSTMASK or *@IP.Address"
  ...Removing Shun:/shun -$$?="Nick To Remove Shun From"
  .-
  .ServerAdmin(DANGER)
  ..DCCDeny:/dccdeny $$?="Filename mask and reason:"
  ..UnDCCDeny:/undccdeny $$?="Filename mask:"
  ..EncryptedPasswords
  ...Crypt:/mkpasswd crypt $$?="Password:"
  ...Sha1SSL:/mkpasswd sha1 $$?="Password:"
  ...MD5SSL:/mkpasswd md5 $$?="Password:"
  .-
  .ServerStats
  ..KZElines(Banned hosts/IP):/stats k
  ..Glines(Banned hosts&Shuns):/stats g
  ..Elines(K:Line Exceptions):/stats E
  ..Flines(Filename masks on DCCDENY):/stats f
  ..OLines(IRC Operator Lines):/stats O
  ..Qlines(Forbidden Nicks):/stats Q
  ..CNlines(Serversconnect or acceptfrom):/stats C
  ..HLlines(Hub and Leaf Lines):/stats H
  ..nLines(GECOS Deny):/stats n
  ..VHostLines:/stats V
  ..Tlines(Specific MOTD/Rules Lines):/stats T
  ..Ulines(Usually Services):/stats U
  ..Vlines(Version Deny):/stats v
  ..Dlines(Disallow Lines-Oper & Server Orig Connects):/stats D
  ..dLINES(Disallow Lines-Autoconnects):/stats d
  ..eLInes(Proxy scan exempt IPs):/stats e
  ..ILines(Client auth Lines):/stats I
  ..Flines(DCCDENY Lines):/stats F
  ..Ylines(Connection classes):/stats Y
  ..lLines(Client auth Lines):/stats l
  ..ChanRestric:/stats r
  ..NetConfig:/stats N
  ..DynamConfig:/stats S
  ..ServerLoad:/stats W
  ..SQLineReport:/stats q
  ..ServerUpTime:/stats u
  ..ServCmdList:/stats m
  ..MiscSErv:/stats z
  ..ServerCAcheNS:/stats s
  ..MiscINfo:/stats t
  ..SerVConnt:/stats L
  ..StatsCommands:/stats ?
  .-
  .Server Performance and Info
  ..Trace:/trace $$?="Server Name:"
  ..Lag:/lag $$?="Server Name:"
  ..Links:/links
  ..Version:/version
  ..Map:/map
  ..Rules:/rules
  ..AdminList:/admin $$?="Server Name:"
  .-
  .UserInfo and Changes
  ..Names:/names #$$?="Channel:"
  ..NickIsOn:/ison $$?="Nickname:"
  ..Who:/who $$?="Nickname or Mask:"
  ..WhoWas:/whowas $$?="Nickname:"
  ..IRC Op Who:/who O o
  ..Who On Channel:/who $chan
  ..DNS Lookup:/dns -c $1
  .-
  .User and Channel Info Modes
  ..UserMode:/helpop ?umodes
  ..ChannelMode:/helpop ?chmodes
  .-
  .OperServ (All Uses Logged)
  ..GlobalMessage:/msg operserv global $$?="Message for all channels:"
  ..Stats:/msg operserv stats
  ..Op List:/msg operserv oper list
  ..Admin List:/msg operserv admin list
  ..Staff:/msg operserv staff
  ..News
  ...Logon News:/msg operserv logonnews add $$?="Enter Logon Msg:  Only the most recent 3 items will be sent."
  ...Random News:/msg operserv randomnews add $$?="Enter Random Entry Msg:"
  ...Oper News:/msg operserv opernews add $$?="Enter Oper News:  Only the most recent 3 items will be sent."
  ..Chankill (Akills all users on Chan):/msg operserv chankill $$?="Enter Channel" $$?="Enter Reason"
  ..SuperAdmin
  ...On:/msg operserv set superadmin on
  ...Off:/msg operserv set superadmin off
  ..Kill Clones:/msg operserv killclones $$?="Enter Nick:"
  ..Session Exceptions:/msg operserv exception add $$?="Enter Host: Portion after @" $$?="Enter # of Sessions:" $$?="Enter Reason:"
  -

}

;%%%%%%%%%%% MASS KILL %%%%%%%%%%%%
alias masskill {
  var %reason = $input(Reason,eog,Kill Masivo)
  var %victims $snick($active)
  var %i 1
  while ($gettok(%victims,%i,44)) {
    if ($address($gettok(%victims,%i,44),2)) {

      if (!%reason) { var %reason Cloning }
      kill $gettok(%victims,%i,44) %reason
    }
    :nokill
    inc %i
  }
}

menu nicklist {
  -
  Kill multiple:masskill
  -
}

;%%%%%%%%%%% MASS GLINE AND GZLINE %%%%%%%%%%%
alias massgline {
  var %reason = $input(Reason,eog,Kill Masivo)
  var %time = $input(Time(s,m,d, or 0 for perm),eog,Gline Time)
  var %victims $snick($active)
  var %i 1
  set %appeal If you feel this ban is in error, you may appeal it by visiting: http://www.TechnoIRC.net/bans )
  while ($gettok(%victims,%i,44)) {
    if ($address($gettok(%victims,%i,44),2)) {

      if (!%reason) { var %reason Cloning }
      gline $gettok(%victims,%i,44) %time %reason %appeal
    }
    :nokill
    inc %i
  }
}
alias massgzline {
  var %reason = $input(Reason,eog,Kill Masivo)
  var %time = $input(Time(s,m,d, or 0 for perm),eog,Gline Time)
  var %victims $snick($active)
  var %i 1
  set %appeal If you feel this ban is in error, you may appeal it by visiting: http://www.TechnoIRC.net/bans )
}