dialog ADeop-Panel {
title "Auto Deop Panel"
size -1 -1 122 74
option dbu
combo 1, 5 16 53 45, size drop
box "XBC Help/Game Deop", 2, 2 8 59 55
box "XBC Opers Deop", 3, 61 8 59 55
combo 4, 64 16 52 45, size drop
button "OK", 5, 44 64 35 9, ok
text "Deop After?", 6, -1 0 123 8, center
}
alias Deop-Panel { dialog -mdro Adeop-panel adeop-panel }
on *:INPUT:#: {
if (*/* !iswm $left($1,1)) {
if ($chan == #xbca_opers) {
if ($timer(idle)) { timeridle off }
timeridle 0 2 idle-check-opers
}
if ($chan == #xbca_help) {
if ($timer(idle1)) { timeridle1 off }
timeridle1 0 2 idle-check-hg
}
}
}
alias idle-check-hg {
if (*mins* iswm $duration($nick(#xbc_help,$me).idle)) {
if (!$hget(Game/Help)) {
if ($left($duration($nick(#xbc_help,$me).idle),2) >= 5) {
if ($me isop #xbc_help) { cs deop #xbc_help .timeridle1 off }
if ($me ishop #xbc_help) { cs dehalfop #xbc_help .timeridle1 off }
if ($me isop #xbc_game) { cs deop #xbc_game .timeridle1 off }
if ($me ishop #xbc_game) { cs dehalfop #xbc_game .timeridle1 off }
}
}
if ($hget(Game/Help)) {
if ($left($duration($nick(#xbc_help,$me).idle),2) >= $hget(Game/Help,1).item) {
if ($me isop #xbc_help) { cs deop #xbc_help .timeridle1 off }
if ($me ishop #xbc_help) { cs dehalfop #xbc_help .timeridle1 off }
if ($me isop #xbc_game) { cs deop #xbc_game .timeridle1 off }
if ($me ishop #xbc_game) { cs dehalfop #xbc_game .timeridle1 off }
}
}
}
}
alias idle-check-opers {
if (*mins* iswm $duration($nick(#xbc_opers,$me).idle)) {
if (!$hget(Opers)) {
if ($left($duration($nick(#xbc_opers,$me).idle),2) >= 8) {
if ($me isop #xbc_opers) { cs deop #xbc_opers | .timeridle off }
if ($me ishop #xbc_opers) { cs dehalfop #xbc_opers | .timeridle off }
}
}
if ($hget(Opers)) {
if ($left($duration($nick(#xbc_opers,$me).idle),2) >= $hget(Opers,1).item) {
if ($me isop #xbc_opers) { cs deop #xbc_opers | .timeridle off }
if ($me ishop #xbc_opers) { cs dehalfop #xbc_opers | .timeridle off }
}
}
}
}
on *:Dialog:ADeop-Panel:*:*: {
if ($devent == sclick) {
if ($did == 1) {
if ($hget(Game/Help)) { hfree Game/Help }
hadd -m Game/Help $left($did($adp,1),1)
}
if ($did == 4) {
if ($hget(Opers)) { hfree Opers }
hadd -m Opers $left($did($adp,4),2)
}
}
if ($devent == init) {
var %x 5
var %y 15
while (%x <= %y) {
did -a $adp 4 %x Minutes
inc %x
}
var %x 2
var %y 8
while (%x <= %y) {
did -a $adp 1 %x Minutes
inc %x
}
if ($hget(Game/Help)) { did -c $adp 1 $didwm($adp,1,$hget(Game/Help,1).item Minutes) }
if (!$hget(Game/Help)) { did -c $adp 1 6 }
if ($hget(Opers)) { did -c $adp 4 $didwm($adp,4,$hget(Opers,1).item Minutes) }
if (!$hget(Opers)) { did -c $adp 4 4 }
}
}
alias adp { return ADeop-Panel }