Consolle ircop

#############################################################
## ##
## COMMANDE /super ##
## ##
#############################################################


alias super {
if ( $dialog(super) == $null ) {
dialog -md super super
}
else {
did -r super 2
did -ra super 29 Il y a 0 Users.
did -b super 5 | did -b super 6 | did -b super 7 | did -b super 8 | did -b super 9
did -b super 10 | did -b super 11 | did -b super 12 | did -b super 13 | did -b super 14
did -b super 15 | did -b super 16 | did -b super 17 | did -b super 18 | did -b super 19
did -b super 20 | did -b super 21 | did -b super 22 | did -b super 23 | did -b super 24
did -b super 25 | did -b super 3 | did -b super 26 | did -b super 27 | did -b super 31
did -b super 32 | did -b super 33 | did -b super 34 | did -b super 35 | did -b super 39
did -b super 40
did -ra super 42 Veuillez selectionner un ou des users
}
set %u 0
set %admin on
//who
}
raw 352:*:{
if ( %admin == on ) {
//did -a super 2 $6 ( $+ $4 $+ ) ident: $3
inc %u
did -ra super 29 Il y a %u Users.
}
haltdef
}
raw 315:*: {
unset %admin
unset %u
haltdef
}
dialog super {
title "Administration - Commande /Super"
size -1 -1 450 250
option dbu
list 2, 8 10 239 200, size extsel vsbar
button "Killer", 3, 397 38 45 10, disable flat
edit "aucune raison", 4, 298 49 145 10, autohs
button "Gliner sans durée", 5, 298 60 48 13, disable flat
button "GLiner 1 Mois", 6, 298 74 48 13, disable flat
button "GLiner 1 Semaine", 7, 298 88 48 13, disable flat
button "GLiner 1 Jours", 8, 298 102 48 12, disable flat
button "GLiner 1 Heure", 9, 298 115 48 13, disable flat
button "GLiner 1 Minute", 10, 298 129 48 12, disable flat
button "GLiner 1 Seconde", 11, 298 142 48 12, disable flat
button "Shun sans durée", 12, 347 60 47 13, disable flat
button "Shun 1 Mois", 13, 347 74 47 13, disable flat
button "Shun 1 Semaine", 14, 347 88 47 13, disable flat
button "Shun 1 Jours", 15, 347 102 47 13, disable flat
button "Shun 1 Heure", 16, 347 116 47 12, disable flat
button "Shun 1 Minute", 17, 347 129 47 12, disable flat
button "UnShun", 18, 347 142 47 12, disable flat
button "KLine sans durée", 19, 396 60 47 13, disable flat
button "KLine 1 Mois", 20, 396 74 47 13, disable flat
button "KLine 1 semaine", 21, 396 88 47 13, disable flat
button "KLine1 Jours", 22, 396 102 47 13, disable flat
button "KLine 1 Heure", 23, 396 116 47 12, disable flat
button "Kline 1 Minute", 24, 396 129 47 13, disable flat
button "Kline 1 Seconde", 25, 396 143 47 11, disable flat
button "Whois", 26, 298 155 71 10, disable flat
button "Privé", 27, 372 155 71 10, disable flat
button "RAFRAICHIR", 28, 8 231 89 15, flat
edit "Il y a 0 Users.", 29, 8 221 89 10
edit "Arretez cette dispute ou je serais obligé de vous sanctionner tous autant que vous etes !", 30, 298 165 145 11, autohs
button "MSG", 31, 299 176 72 13, disable flat
button "Notice", 32, 371 176 71 13, disable flat
button "CTCP TIME", 33, 299 190 47 12, disable flat
button "CTCP PING", 34, 347 190 47 12, disable flat
button "CTCP VERSION", 35, 395 190 48 12, disable flat
button "FERMER", 37, 405 237 39 10, flat ok
edit "#Cannal", 38, 299 203 144 10, autohs
button "Sajoin", 39, 299 213 75 10, disable flat
button "Sapart", 40, 376 213 67 10, disable flat
button "Memoriser les parametres", 41, 369 226 75 10, flat
edit "Veuillez selectionner un ou des users", 42, 298 38 98 10, read
}
on *:dialog:super:init:*: {
if ( %super.save.raison != $null ) did -ra super 4 %super.save.raison
if ( %super.save.msg != $null ) did -ra super 30 %super.save.msg
if ( %super.save.chan != $null ) did -ra super 38 %super.save.chan
}
on *:dialog:super:sclick:*: {
if ( $did == 2 ) {
if ( $did(super,2).sel != $null ) {
if ( $did(super,2,0).sel == 1 ) {
did -ra super 42 Cliquez une action pour cet user
}
else {
did -ra super 42 Cliquez une action pour ces $did(super,2,0).sel users
}
did -e super 5 | did -e super 6 | did -e super 7 | did -e super 8 | did -e super 9
did -e super 10 | did -e super 11 | did -e super 12 | did -e super 13 | did -e super 14
did -e super 15 | did -e super 16 | did -e super 17 | did -e super 18 | did -e super 19
did -e super 20 | did -e super 21 | did -e super 22 | did -e super 23 | did -e super 24
did -e super 25 | did -e super 3 | did -e super 26 | did -e super 27 | did -e super 31
did -e super 32 | did -e super 33 | did -e super 34 | did -e super 35 | did -e super 39
did -e super 40
}
else {
did -b super 5 | did -b super 6 | did -b super 7 | did -b super 8 | did -b super 9
did -b super 10 | did -b super 11 | did -b super 12 | did -b super 13 | did -b super 14
did -b super 15 | did -b super 16 | did -b super 17 | did -b super 18 | did -b super 19
did -b super 20 | did -b super 21 | did -b super 22 | did -b super 23 | did -b super 24
did -b super 25 | did -b super 3 | did -b super 26 | did -b super 27 | did -b super 31
did -b super 32 | did -b super 33 | did -b super 34 | did -b super 35 | did -b super 39
did -b super 40
}
}
if ( $did == 28 ) super
if ( $did == 3 ) killalls
if ( $did == 26 ) whoisalls
if ( $did == 27 ) queryalls
if ( $did == 11) { set %tgline 1 | /Glinealls }
if ( $did == 10) { set %tgline 60 | /Glinealls }
if ( $did == 9) { set %tgline 3600 | /Glinealls }
if ( $did == { set %tgline 86400 | /Glinealls }
if ( $did == 7) { set %tgline 604800 | /Glinealls }
if ( $did == 6) { set %tgline 2592000 | /Glinealls }
if ( $did == 5) { set %tgline 0 | /Glinealls }
if ( $did == 18) { set %tgline 1 | /unshunalls }
if ( $did == 17) { set %tgline 60 | /shunalls }
if ( $did == 16) { set %tgline 3600 | /shunalls }
if ( $did == 15) { set %tgline 86400 | /shunalls }
if ( $did == 14) { set %tgline 604800 | /shunalls }
if ( $did == 13) { set %tgline 2592000 | /shunalls }
if ( $did == 12) { set %tgline 0 | /shunalls }
if ( $did == 25) { set %tgline 1 | /klinealls }
if ( $did == 24) { set %tgline 60 | /klinealls }
if ( $did == 23) { set %tgline 3600 | /klinealls }
if ( $did == 22) { set %tgline 86400 | /klinealls }
if ( $did == 21) { set %tgline 604800 | /klinealls }
if ( $did == 20) { set %tgline 2592000 | /klinealls }
if ( $did == 19) { set %tgline 0 | /klinealls }
if ( $did == 31) /msgalls
if ( $did == 32) /noticealls
if ( $did == 33) /ctcpalls time
if ( $did == 34) /ctcpalls ping
if ( $did == 35) /ctcpalls version
if ( $did == 39) /sajoinalls
if ( $did == 40) /sapartalls
if ( $did == 41) {
set %super.save.raison $did(super,4)
set %super.save.msg $did(super,30)
set %super.save.chan $did(super,38)
}
}
alias killalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.kill $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) Super command by $me ( $+ $did(super,4) $+ )
if ( %1.1 == %2.2 ) {
unset %3.3
//.timer 1 2 /super
}
}
}
}
alias glinealls {
echo -A GLINES ALL !!!
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.gline $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) %tgline :Super command by $me ( $+ $did(super,4) $+ )
if ( %1.1 == %2.2 ) {
//.timer 1 2 /super
unset %3.3
}
}
}
}
alias klinealls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.kline $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) %tgline :Super command by $me ( $+ $did(super,4) $+ )
if ( %1.1 == %2.2 ) {
//.timer 1 2 /super
unset %3.3
/super
}
}
}
}
alias shunalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.shun $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) %tgline :Super command by $me ( $+ $did(super,4) $+ )
if ( %1.1 == %2.2 ) {
//.timer 1 2 /super
unset %3.3
/super
}
}
}
}
alias unshunalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.shun - $+ $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) %tgline :Super command by $me ( $+ $did(super,4) $+ )
if ( %1.1 == %2.2 ) {
//.timer 1 2 /super
unset %3.3
/super
}
}
}
}
alias whoisalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /whois $gettok($did(super,2,$did(super,2,%1.1).sel),1,32)
if ( %1.1 == %2.2 ) {
unset %3.3
}
}
}
}
alias queryalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.query $gettok($did(super,2,$did(super,2,%1.1).sel),1,32)
if ( %1.1 == %2.2 ) {
unset %3.3
}
}
}
}
alias msgalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.msg $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) $did(super,30)
if ( %1.1 == %2.2 ) {
unset %3.3
}
}
}
}
alias noticealls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.notice $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) $did(super,30)
if ( %1.1 == %2.2 ) {
unset %3.3
}
}
}
}
alias ctcpalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.ctcp $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) $1
if ( %1.1 == %2.2 ) {
unset %3.3
}
}
}
}
alias sajoinalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.sajoin $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) $did(super,38)
if ( %1.1 == %2.2 ) {
unset %3.3
}
}
}
}
alias sapartalls {
var %1.1 0
var %2.2 $did(super,2,0).sel
if ( %2.2 > 0 ) {
set %3.3 on
while ( %3.3 == on ) {
inc %1.1
/.timer 1 1 /.sapart $gettok($did(super,2,$did(super,2,%1.1).sel),1,32) $did(super,38)
if ( %1.1 == %2.2 ) {
unset %3.3
}
}
}
}