SysOp IRC Services — File Browser
SysOpIRCServicesv0.1 / SysOpIRCServicesv0.1 / system / oper.mrc
oper.mrc — 67.11 KB — Download this file
; Copying or editing of any of the scripts included in this module is strictly prohibited, you may distribute the package
; in its entireity un edited in any form. Support can only be given to those who do not edit these files please do not ask
; if you plan to edit them yourself. Credits and links back to us must remain in the script we do not advertise using your
; network unless the .VERSION command is triggered. You must also agree when connecting the service to any IRC net
; that you have the correct permission to connect the service, you MUST NOT connect the service to Digi-Net and you
; connect the service at your own risk. For support see http://www.digi-net.org
alias system.globalnotice {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :4,4. $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) || ($readnick($1,operlevel) < $netconf(opercmds,global)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Message Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP GLOBALNOTICE
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;send global notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Sending Global Notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Sending Global Notice To All Clients
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
var %x = 1
while ($ini(data/clients.db,%x)) {
.sockwrite -tn serv $+(:,$netconf(system,service2)) NOTICE $ini(data/clients.db,%x) [ $+ $1 $+ $+ ] $2-
inc %x
}
}
alias system.purgeseen {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,purgeseen)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;send global notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ PurgeSeen In Progress
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Removing any un-registered nickname from the seen database.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color There are currently $+ $ini(data/seen.db,seen,0) $+ records in the database
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
var %x = 1
var %count = 0
while ($ini(data/seen.db,seen,%x)) {
if (!$readnick($ini(data/seen.db,seen,%x),nickname)) {
remini data/seen.db seen $ini(data/seen.db,seen,%x)
inc %count
}
inc %x
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ PurgeSeen Complete
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Removed $+ %count $+ records from the seen database.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color There are now $+ $ini(data/seen.db,seen,0) $+ records in the database
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
alias system.operabuse {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < 500 {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Nickname is required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP OPERABUSE
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;send global notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Blacklisting IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 will be blacklisted untill removed.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
writeini data/blacklist.db opers $2 Added By $1
report OPERABUSE: Blacklisting $2 requested by $1
}
alias system.jupe {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,jupe)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Server Name Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP JUPE
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;send global notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Creating Jupiter Server
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $lower($2) server being created. simply SQUIT it to remove it
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
.sockwrite -tn serv SERVER $lower($2) 1 : $+ Jupe By $1
report JUPE: $1 used jupe to create $lower($2)
}
alias system.badwords {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,badwords)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($2 == add) {
if (!$3) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Cannot Complete
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You must specify a bad word
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ /msg $netconf(system,nickname) HELP BADWORDS
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
set %bwords %bwords $+ $lower($3) $+ $chr(44)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Added New Bad Word
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lower($3) $+ has been added to the badword database
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;send global notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Listing System Filtered Bad Words
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color
var %x = 1
while ($gettok(%bwords,%x,44)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $gettok(%bwords,%x,44)
inc %x
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ End Of List
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
alias system.pending {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,pending)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($ini(data/pending.db,0) < 1) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Not Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color There are no pending items.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($2 == reject) {
if (!$3) || (!$4) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Cannot Complete
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You must specify a nickname and item
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ /msg $netconf(system,nickname) HELP PENDING
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readini(data/pending.db,$3,$4)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Cannot Complete
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color There is no pending item matching that request
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ /msg $netconf(system,nickname) PENDING
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($4 == vhost) {
addnick $3 vhostactive no
}
delpending $3 $4
if ($ini(data/pending.db,$3,0) < 1) { remini data/pending.db $3 }
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Rejected Pending Item
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $+ $3 $+ 's $lower($4) $+ has been rejected and removed as pending
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($2 == accept) {
if (!$3) || (!$4) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Cannot Complete
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You must specify a nickname and item
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ /msg $netconf(system,nickname) HELP PENDING
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readini(data/pending.db,$3,$4)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Cannot Complete
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color There is no pending item matching that request
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ /msg $netconf(system,nickname) PENDING
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($4 == vhost) {
addnick $3 vhost $readnick($3,newvhost)
addnick $3 vhostactive yes
remini data/nicknames.db $3 newvhost
if ($readclient($3,nickname)) { sockwrite -tn serv $+(:,$netconf(server,server)) CHGHOST $3 $readnick($3,vhost) }
}
delpending $3 $4
if ($ini(data/pending.db,$3,0) < 1) { remini data/pending.db $3 }
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Approved Pending Item
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $+ $3 $+ 's $lower($4) $+ has been accepted and removed as pending
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;send global notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Listing System Pending Items
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color [nickname] - [item] - [data]
var %x = 1
while ($ini(data/pending.db,%x)) {
var %x2 = 1
while ($ini(data/pending.db,$ini(data/pending.db,%x),%x2)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $ini(data/pending.db,%x) - 12 $+ $ini(data/pending.db,$ini(data/pending.db,%x),%x2) - $readini(data/pending.db,$ini(data/pending.db,%x),$ini(data/pending.db,$ini(data/pending.db,%x),%x2))
inc %x2
}
inc %x
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color To Edit An Item:
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ /msg $netconf(system,nickname) PENDING [accept/reject] <nickname> <item>
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ End Of Pending List
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
alias system.channelnotice {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,channotice}) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Message Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP CHANNOTICE
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;send global notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Sending Channel Notice
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Sending Channel Notice To All Channels
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
var %x = 1
while ($ini(data/activechans.db,%x)) {
.sockwrite -tn serv :Global PRIVMSG $ini(data/activechans.db,%x) [ $+ $1 $+ $+ ] $2-
inc %x
}
}
alias system.randomnews {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,news)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sysnotice2 $1 Displaying All Random News
var %x = 1
while ($ini(data/news.db,random,%x)) {
sysnotice2 $1 * $+ $ini(data/news.db,random,%x) $+ * $readini(data/news.db,random,$ini(data/news.db,random,%x))
inc %x
}
halt
}
;save ranodm news
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Saved Random News
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Random News Item $+ $calc($ini(data/news.db,random,0) + 1) $+ added.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
writeini data/news.db random $calc($ini(data/news.db,random,0) + 1) $2-
}
alias system.opernews {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,news)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sysnotice2 $1 Displaying All Oper News
var %x = 1
while ($ini(data/news.db,oper,%x)) {
sysnotice2 $1 * $+ $ini(data/news.db,oper,%x) $+ * $readini(data/news.db,oper,$ini(data/news.db,oper,%x))
inc %x
}
halt
}
;save ranodm news
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Saved Oper News
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Oper News Item $+ $calc($ini(data/news.db,oper,0) + 1) $+ added.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
writeini data/news.db oper $calc($ini(data/news.db,oper,0) + 1) $2-
}
alias system.logonnews {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,news)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sysnotice2 $1 Displaying All Logon News
var %x = 1
while ($ini(data/news.db,logon,%x)) {
sysnotice2 $1 * $+ $ini(data/news.db,logon,%x) $+ * $readini(data/news.db,logon,$ini(data/news.db,logon,%x))
inc %x
}
halt
}
;save ranodm news
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Saved Logon News
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Logon News Item $+ $calc($ini(data/news.db,logon,0) + 1) $+ added.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
writeini data/news.db logon $calc($ini(data/news.db,logon,0) + 1) $2-
}
alias system.kill {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,kill)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Nickname Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP KILL
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readclient($2,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ User Not Found
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color 12 $+ $2 $+ doesnt seem to be online
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Killing User From IRC
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Killing user 12 $+ $2 $+ as requested
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
if (!$3) { .sockwrite -tn serv $+(:,$netconf(system,nickname)) KILL $2 Requested By $1 }
else { .sockwrite -tn serv $+(:,$netconf(system,nickname)) KILL $2 $3- }
}
}
alias system.gline {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,gline)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) || (!$3) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Nickname and timw value required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP GLINE
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($readadmin($2,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Cannot GLINE another IRC operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readclient($2,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ User Not Found
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color 12 $+ $2 $+ doesnt seem to be online
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Banning User From IRC
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Banning (gline) user 12 $+ $2 $+ as requested
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
if (!$4) { .sockwrite -tn serv $+(:,$netconf(system,nickname)) GLINE $2 $3 Requested By $1 }
else { .sockwrite -tn serv $+(:,$netconf(system,nickname)) GLINE $2 $3 $4- }
}
}
alias system.operaccess {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,operacces)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) || (!$3) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Nickname & Level Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP OPERACCESS
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($2,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ User Not Found
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color 12 $+ $2 $+ doesnt seem to be registered
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Editing OPER access to $netconf(system,nickname))
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color 12 $+ $2 $+ now has level 12 $+ $3 $+ access
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
addnick $2 operlevel $3
}
}
alias system.renick {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,renick)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) || (!$3) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Nickname and new nickname Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP RENICK
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Forcing Nickname Change
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 will now be changed to $+ $3
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
.sockwrite -tn serv :SysOp SVSNICK $2 $3 $ctime
}
alias system.xset {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) || ($readnick($1,operlevel) < $netconf(opercmds,xsetview)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($readadmin($addy($1),nickname) == $1) && (!$2) || (!$3) || (!$4) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $netconf(system,nickname) Service XSET
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Server Configuration:
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Server : $netconf(server,server)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Domain : $netconf(server,domain)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color IP : $netconf(server,ip)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Port : $netconf(server,port)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Nickname : $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ System Configuration:
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Main Channel : $netconf(system,mainchan)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Log Channel : $netconf(system,report)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Help Channel : $netconf(system,helpchan)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Search IRC Det : $netconf(system,searchirc)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Note Quota : $netconf(system,pmquota)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Unique Email : $netconf(system,uniqueemail)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Registration Configuration:
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Nick Registrations : $netconf(system,nickreg)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Channel Registrations : $netconf(system,chanreg)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Max Chans Per Nick : $netconf(system,maxchans)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ System Statistics:
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Registered Nicks : $ini(data/nicknames.db,0)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Registered Chans : $ini(data/channels.db,0)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Active Channels : $ini(data/activechans.db,0)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Active Users : $ini(data/clients.db,0)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Seen Entries : $ini(data/seen.db,seen,0)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
if ($readnick($1,operlevel) < $netconf(opercmd,xset)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($readadmin($addy($1),nickname) == $1) && (!$netconf($2,$3)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Error in XSET
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Cannot Find the setting $+ $2 $+ , $+ $3
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
writeconf $2 $3 $lower($4)
report XSET: $upper($2) $upper($3) = $lower($4) By $+ $1 $+
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Changing XSET Configuration
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Setting : $+ $2 $+ , $+ $3
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Now : $netconf($2,$3)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
}
}
alias system.reconnect {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($addy($1))) && ($readnick($1,operlevel) < $netconf(opercmds,restart)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Services Reconecting
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color The service will now reconnect to the uplink
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
var %x = 1
while ($ini(data/activechans.db,%x)) {
.sockwrite -tn serv :Global PRIVMSG $ini(data/activechans.db,%x) [ $+ Restarting $+ $+ ] The services are restarting, your connections will not be effected.
inc %x
}
timerstart 1 5 /start
/stop
}
alias system.opercmd {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) || ($readnick($1,operlevel) < $netconf(opercmds,modcmdview)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Listing all available 12 $+ OPERCMD
var %x = 1
while ($ini(services.conf,opercmds,%x)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color [12 $+ $netconf(opercmds,$ini(services.conf,opercmds,%x)) $+ $+ ] $ini(services.conf,opercmds,%x)
inc %x
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ OPERCMD <command> for more information on a command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($2) && (!$3) {
;show command information
if (!$netconf(opercmds,$2)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Command Not Found
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Cannot find $+ $2 $+ in the MODCMD database.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Displaying Information on 12 $+ $2
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Operator Level Required: 12 $+ $netconf(opercmds,$2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ See: HELP FLAGS, HELP OPERLEVELS
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
}
if ($2) && ($3) {
if ($readnick($1,operlevel) < $netconf(opercmd,modcmd)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;check $4 and $3
if ($3 > $readnick($1,operlevel)) || ($3 < 0) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Data
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please enter a LEVEL between 0 and $readnick($1,operlevel)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ OPERCMD $2 <level>
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$netconf(opercmds,$2)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Command Not Found
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Cannot find $+ $2 $+ in the OPERCMD database.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
writeconf opercmds $2 $3
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Setting Information on 12 $+ $2
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Operator Level Required: 12 $+ $netconf(opercmds,$2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ See: HELP FLAGS, HELP OPERLEVELS
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
}
;modcmd features in here
}
alias system.chancmd {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) || ($readnick($1,operlevel) < $netconf(opercmds,modcmdview)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Listing all available 12 $+ CHANCMD
var %x = 1
while ($ini(services.conf,chanlevel,%x)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color [12 $+ $netconf(chanlevel,$ini(services.conf,chanlevel,%x)) $+ $+ ] $ini(services.conf,chanlevel,%x)
inc %x
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ CHANCMD <command> for more information on a command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if ($2) && (!$3) {
;show command information
if (!$netconf(chanlevel,$2)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Command Not Found
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Cannot find $+ $2 $+ in the MODCMD database.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Displaying Information on 12 $+ $2
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Level Required: 12 $+ $netconf(chanlevel,$2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ See: HELP FLAGS, HELP OPERLEVELS
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
}
if ($2) && ($3) {
if ($readnick($1,operlevel) < $netconf(opercmd,modcmd)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
;check $4 and $3
if ($3 > $readnick($1,operlevel)) || ($3 < 0) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Data
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please enter a LEVEL between 0 and $readnick($1,operlevel)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ CHANCMD $2 <level>
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$netconf(chanlevel,$2)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Command Not Found
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Cannot find $+ $2 $+ in the CHANCMD database.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
else {
writeconf chanlevel $2 $3
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Setting Information on 12 $+ $2
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Level Required: 12 $+ $netconf(chanlevel,$2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ See: HELP FLAGS, HELP USERLEVELS
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}
}
;modcmd features in here
}
alias system.whois {
if (!$addy($1)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Please IDENTIFY to use this command.
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You Are Not An IRC Operator
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readnick($addy($1),operlevel)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $lang($1,oper,2)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color You have no IRCop access to $netconf(system,nickname)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$readadmin($1,nickname)) && ($readnick($1,operlevel) < $netconf(opercmds,whois)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Access Denied
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Insufficient access to use this command
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
if (!$2) || (!$readclient($2,nickname)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Incorrect Usage
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Online User Required
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color try /msg SysOp HELP WHOIS
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
halt
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Whois Information For 12 $+ $2 $+
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Ident : $readclient($2,ident)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Host : $readclient($2,host)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Server : $readclient($2,server)
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color Logged on : $asctime($readclient($2,time))
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Channels $2 is in now:
var %x = 1
while ($ini(data/activechans.db,%x)) {
if ($readison($ini(data/activechans.db,%x),$2)) {
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ $axs.levels.name($readaccess($2,$ini(data/activechans.db,%x),level)) $+ - 12 $+ $ini(data/activechans.db,%x) $+ - $left($remove($read(data/set_topics.txt, s, $ini(data/activechans.db,%x) $+ :),$ini(data/activechans.db,%x) $+ :),40) $+ ...
}
inc %x
}
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $+ Nickname Information:
if ($readnick($2,nickname)) { sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 Is using a registered nickname }
else { sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 Is not registered }
if ($addy($2)) { sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 Is Logged in as $2 }
else { sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 Is not logged in yet }
if ($readadmin($2,nickname)) { sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 Is a $readadmin($2,rank) }
if ($readnick($2,operlevel)) { sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 has oper access 12 $+ $readnick($2,operlevel) }
if ($readclient($2,awaymsg)) { sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 : $+ %color $2 is set away - 12 $+ $readclient($2,awaymsg) }
sockwrite -tn serv $+(:,$netconf(system,nickname)) NOTICE $1 :-
}