IRCop Script

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	1.0
Scores Submitted	1
Date Added	Dec 28, 2007
Last Updated	Dec 28, 2007
Tags	ircop script

Introduction

o.o

Grab the Code

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

(6) RSS

Go to Bottom

Taylor49808

Comments: 1

mIRC Snippet: IRCop Script
Posted on Dec 28, 2007 2:21 pm

So what are the commands?

mountaindew

Comments: 1,548

mIRC Snippet: IRCop Script
Posted on Dec 28, 2007 2:23 pm

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 }

Scakk

Comments: 218

mIRC Snippet: IRCop Script
Posted on Dec 28, 2007 3:05 pm

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

SLS10

Comments: 35

mIRC Snippet: IRCop Script
Posted on Dec 28, 2007 3:47 pm

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

Noa Destiny

Comments: 29

mIRC Snippet: IRCop Script
Posted on Dec 30, 2007 9:31 am

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

LucSatise

Comments: 120

mIRC Snippet: IRCop Script
Posted on Dec 30, 2007 1:49 pm

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
}

IRCop Script

Introduction

Grab the Code

Comments

Noa Destiny

My Snippet Tags

Contact

Friends (8)

Sponsors


Last seen: May 22, 2008 Profile Friends (8) Snippets (29) Images (2) Comments Received (114) Comments Submitted (29)