IRCop Script

Platform: mIRC

Published Dec 28, 2007

Updated Dec 28, 2007

2,954 6

o.o

on *:load:{

  if ($version >= 5.90) {

    echo -a Successfully Loaded IRCop Script [Version 1.0]

    echo -a To open, use Right-Click Pop-ups or type /ircop in any window.

  }

  if ($version < 5.8) { 

    echo -a Your mIRC is too old, IRCop only works with mIRC 5.9 or later.

    unload -rs $script

  } 

}



menu channel,status,menubar {

  -

  IRCOP

  .Run IRCop: /ircop

  .Look for Updates: /run http://ircop.scriptmania.com

  .Advertise: /msg $chan 2 $+ $me is using 5[2IRCop Addon Version 1.05]2 by Shynx.  Download at http://ircop.scriptmania.com

  -

}

; Aliases

alias IRCop { dialog -mo IRCoper IRCoper }

alias serverhasher { dialog -mo serverhash serverhash }

alias serverconnecter { dialog -mo serverconnect serverconnect }

alias serverakiller { dialog -mo serverakill serverakill }

alias serversquiter { dialog -mo serversquit serversquit }



; Main Menu System

dialog IRCoper {

  title "IRCop Helper v1.1"

  option dbu

  size -1 -1 112 100



  box "User Action",1,1 3 55 42

  button "Kill User", 2,4 11 51 8

  button "KLine User", 3,4 19 51 8

  button "UnKLine User", 4,4 27 51 8

  button "ZLine", 5,4 35 51 8



  box "Message IRCop",6,1 45 55 42

  button "WallOps", 7,4 53 51 8

  button "LocOps", 8,4 61 51 8

  button "GlobOps", 9,4 69 51 8

  button "ChatOps", 10,4 77 51 8



  box "Server Related", 11,57 3 52 42

  button "Rehash", 12,58 11 51 8

  button "Connect", 13,58 19 51 8

  button "Squit", 14,58 27 51 8

  button "Restart", 15,58 35 51 8



  box "Operserv", 16,57 45 52 42

  button "Global Message", 17,58 53 51 8

  button "Chg Channel Mode", 18,58 61 51 8

  button "Kick User", 19,58 69 51 8

  button "Akill (Mask)", 20,58 77 51 8

  button "Close", 21,4 90 105 8,cancel

}



on *:dialog:IRCoper:sclick:*:{

  if ($did == 2) { /echo 5[2INFO5]2: Disconnects user <nick> from the IRC server he/she is connected to with reason. | /kill $$?="Enter User" $$?="Enter Reason" }

  if ($did == 3) { /echo 5[2INFO5]2: Adds a KLINE to the ircd.conf or klines.conf file which will ban the specified user from using that server. | /kline $$?="Enter Kline Time" $$?="Enter Nick/User Host" : $+ $$?="Enter Reason" }

  if ($did == 4) { /echo 5[2INFO5]2: Will attempt to unkline the given <user@host> | /unkline $$?="Enter user@host" }

  if ($did == 5) { /echo 5[2INFO5]2: Adds a ZLINE to the ircd.conf or klines.conf file which will deny any connections from the IP address of the banned client. | /zline $$?="Enter Nick/IP" $$?="Enter Reason" }

  if ($did == 7) { /echo 5[2INFO5]2: Server sent wallops go to all users who are umode +w, oper or not. | /wallops $$?="Enter Message" }

  if ($did == 8) { /echo 5[2INFO5]2: Sends an LOCOPS message of <message> to all opers on local server who are umode +g | /locops $$?="Enter Message" }

  if ($did == 9) { /echo 5[2INFO5]2: Sends an GLOBOPS message of <message> to all opers on the network who are umode +g | /globops $$?="Enter Message" }

  if ($did == 10) { /echo 5[2INFO5]2: Sends an CHATOPS message of <message> to all opers on the network who are umode +b | /chatops $$?="Enter Message" }

  if ($did == 12) { /echo 5[2INFO5]2: Rehash's Server | /serverhasher }

  if ($did == 13) { /echo 5[2INFO5]2: Connects Server(s) | /serverconnecter }

  if ($did == 14) { /echo 5[2INFO5]2: Squits Server(s) | /serversquiter }

  if ($did == 15) { /echo 5[2INFO5]2: Restarts the Server (Password May be Required). | /restart $?="Enter Password" }

  if ($did == 17) { /echo 5[2INFO5]2: Allows IRCops to send messages to all users on the network. | /.msg OperServ GLOBAL $?="Enter Message" }

  if ($did == 18) { /echo 5[2INFO5]2: Allows Services operators to set channel modes for any channel. | /.msg OperServ MODE $?="Enter Channel (e.g #Chat)" $$?="Enter Modes (e.g +tn)" }

  if ($did == 19) { /echo 5[2INFO5]2: Allows IRCops to kick a user from any channel. | /.msg OperServ KICK $?="Enter Channel (e.g #Chat)" $$?="Enter User/Nick" $$?="Enter Reason" }

  if ($did == 20) { /echo 5[2INFO5]2: Allows Services operators to manipulate the autokill (AKILL) list.  If a user matching an AKILL mask attempts to connect, Services will issue a KILL for that user and, on supported  server types, will instruct all servers to add a ban (K-line) for the mask which the user matched. | /serverakiller }

  if ($did == 21) { /dialog -x IRCoper }

}



; Rehash Menu System

dialog serverhash {

  title "Rehasher"

  option dbu

  size -1 -1 58 70



  box "Server Rehasher",1,1 3 56 66

  button "Rehash IRCD", 2,4 11 51 8,default

  button "DNS", 3,4 19 51 8

  button "Temp KLines", 4,4 27 51 8

  button "Del Excess Memory", 5,4 35 51 8

  button "MOTD", 6,4 43 51 8

  button "Clears Throttles", 7,4 51 51 8

  button "- BACK -", 8,4 59 51 8,cancel

}



on *:dialog:serverhash:sclick:*:{

  if ($did == 2) { /rehash | /echo 5[2 $server is rehashing 5]2: Re-reading ircd.conf file }

  if ($did == 3) { /rehash DNS | /echo 5[2 $server is rehashing 5]2: Re-reading /etc/resolv.conf file }

  if ($did == 4) { /rehash TKLINES | /echo 5[2 $server is rehashing 5]2: Clearing Temp Klines }

  if ($did == 5) { /rehash GC | /echo 5[2 $server is rehashing 5]2: Collecting Excessive Memory }

  if ($did == 6) { /rehash MOTD | /echo 5[2 $server is rehashing 5]2: Re-reading MOTD file }

  if ($did == 7) { /rehash THROTTLES | /echo 5[2 $server is rehashing 5]2: Clearing Connection Throttles }

  if ($did == 8) { /dialog -x serverhash }

}



; Connect Menu System

dialog serverconnect {

  title "IRCop SubMenu"

  option dbu

  size -1 -1 100 105



  box "Connect Split Servers",1,5 3 90 59

  text "Server [A]:",2,7 11 51 10

  edit $server,3,7 19 51 10,autohs

  text "Server [B]:",4,7 30 51 10

  edit $network,5,7 38 51 10,autohs

  text "Port:                    (Default)",6,25 50 81 10

  edit "6667",7,38 50 20 9

  button "Connect",8,62 19 30 10,default

  button "BACK", 9,62 38 30 10,cancel



  box "Description:",10,5 63 90 40

  text "Server [A] is the server that tries to connect to Server [B]",11,6 69 99 20

  text "Server [B] is the server you wanna connect to.",12,6 84 99 20

} 



on *:dialog:serverconnect:sclick:*:{

  if ($did == 8) { /echo 5[2INFO5]2: Trying to connect $did(serverconnect,5) with $did(serverconnect,3) using port: $did(serverconnect,7) | /connect $did(serverconnect,5) $did(serverconnect,7) $did(serverconnect,3) }

  if ($did == 9) { /dialog -x serverconnect }

}



; AKILL Menu System

dialog serverakill {

  title "IRCop SubMenu"

  option dbu

  size -1 -1 100 165



  box "AKill Menu",1,5 3 92 65

  text "AKill Mask:",2,9 11 51 10

  edit "",3,7 19 51 10,autohs

  text "Time (Expiry):",4,9 30 51 10

  edit "+30m",5,7 37 51 10,autohs

  text "Reason:",6,9 48 51 10

  edit $me Says So,7,7 54 51 10,autohs



  button "Add",8,62 19 30 10

  button "Delete",9,62 37 30 10

  button "BACK",10,62 54 30 10



  box "Other Commands",11,5 68 92 43

  text "AKill Mask:",12,9 76 51 10

  edit "",13,7 84 51 10,autohs

  button "List",14,62 79 30 10

  button "View",15,62 89 30 10

  button "Count",16,62 99 30 10

  text "Does not use Mask <--",17,6 99 55 10



  box "Hints: (Expiry)",18,5 115 92 45

  text "+d [days] e.g +2d = 2 days",19,6 122 99 20

  text "+h [hours] e.g +12h = 12 hours",20,6 129 99 20

  text "+m [minutes] e.g +30m = 30 minutes",21,6 136 99 20

  text "Note: Combinations do not work!",22,6 143 99 20

  text "(e.g +1h30m)",23,21 150 99 20

} 



on *:dialog:serverakill:sclick:*:{

  if ($did == 8) { /echo 5[2INFO5]2: Adding akill for $did(serverakill,3) with time limit: $did(serverakill,5) with Reason: $did(serverakill,7) | /.msg operserv akill add $did(serverakill,5) $did(serverakill,3) $did(serverakill,7) }

  if ($did == 9) { /echo 5[2INFO5]2: Removing akill for $did(serverakill,3) | /.msg operserv akill del $did(serverakill,3) }

  if ($did == 10) { /dialog -x serverakill }

  if ($did == 14) { /echo 5[2INFO5]2: Akill List | /.msg operserv akill list $did(serverakill,13) }

  if ($did == 15) { /echo 5[2INFO5]2: Akill View | /.msg operserv akill view $did(serverakill,13) }

  if ($did == 16) { /echo 5[2INFO5]2: Akill Count | /.msg operserv akill count }

}



; Squit Menu System

dialog serversquit {

  title "IRCop SubMenu"

  option dbu

  size -1 -1 100 80



  box "Squit Server(s)",1,5 3 90 49

  text "Server:",2,7 11 51 10

  edit $network,3,7 19 51 10,autohs

  text "Reason:",4,7 30 51 10

  edit "Reconfiguration",5,7 38 51 10,autohs

  button "Squit",8,62 19 30 10,default

  button "BACK", 9,62 38 30 10,cancel



  box "Description:",10,5 53 90 22

  text "Splits <server> away from your side",11,6 59 99 20

  text "of the net with a <reason>",12,6 65 99 20

} 



on *:dialog:serversquit:sclick:*:{

  if ($did == 8) { /echo 5[2INFO5]2: Squit server: $did(serversquit,3) with Reason: $did(serversquit,5) | /squit $did(serversquit,3) $did(serversquit,5) }

  if ($did == 9) { /dialog -x serversquit }

}

Comments

LucSatise - Dec 30, 2007

This wuldn\'t work:

		Code 			
  if ($version < 5.8) { 
    echo -a Your mIRC is too old, IRCop only works with mIRC 5.9 or later.
    unload -rs $script
  }
	

Use This:

		Code 			
  if ($version < 5.9) { 
    echo -a Your mIRC is too old, IRCop only works with mIRC 5.9 or later.
    unload -rs $script
  }
	

Respond

Noa Destiny - Dec 30, 2007

sls10 it\'s me IDemon or ZZZ >_>

Respond

SLS10 - Dec 28, 2007

You need a better introduction, sir. So that I know what I\'m doing with this.

Respond

Scakk - Dec 28, 2007

I would suggest setting it to know what level of IRCop is needed for each command. The server I am on I can do all of the above ( I am a Global Op / Services Admin ) yet some of the commands are not avaialble to local ops. Ex: Akill and Squit

Respond

mountaindew - Dec 28, 2007

u use the aliases i think

		Code 			
alias IRCop { dialog -mo IRCoper IRCoper }
alias serverhasher { dialog -mo serverhash serverhash }
alias serverconnecter { dialog -mo serverconnect serverconnect }
alias serverakiller { dialog -mo serverakill serverakill }
alias serversquiter { dialog -mo serversquit serversquit }
	

Respond

Taylor49808 - Dec 28, 2007

So what are the commands?

Respond