rendered paste bodyalias operd dialog -m oper oper
menu channel,nicklist {
-
$iif(*o* iswm $usermode,owwScript)
.$iif(*o* iswm $usermode,Oper Dialog):operd
-
}
dialog oper {
title "Oper [/oper]"
size -1 -1 110 194
option dbu
tab "common", 8, 2 11 105 154
check "Kill", 1, 10 38 20 10, tab 8
check "Akill", 2, 32 38 26 10, tab 8
check "G-line", 3, 59 38 24 10, tab 8
text "Reason:", 4, 10 60 25 8, tab 8
edit "", 5, 10 69 92 10, tab 8 autohs
text "Time (dhms [G-line] or days [Akill]):", 6, 10 80 92 8, tab 8
edit "", 7, 10 90 92 10, tab 8 autohs
check "Remove Akill", 13, 10 48 48 10, tab 8
check "Remove G-line", 14, 59 48 46 10, tab 8
box "Server kick/bans", 15, 5 29 101 73, tab 8
box "Dicipline", 12, 5 105 101 59, tab 8
check "Shun", 10, 10 115 39 10, tab 8
check "Un-shun", 11, 50 115 35 10, tab 8
check "Force Join", 16, 9 128 39 10, tab 8
check "Force Part", 17, 50 128 37 10, tab 8
text "Reason:", 18, 10 140 25 8, tab 8
edit "", 19, 10 150 92 10, tab 8 autohs
tab "slightly used", 9
button "Change vhost", 24, 5 29 49 12, tab 9
button "Change name", 25, 56 29 49 12, tab 9
button "Change ident", 26, 5 43 49 12, tab 9
button "Change host", 27, 56 43 49 12, tab 9
button "Change own ident", 28, 5 58 49 12, tab 9
button "Change own host", 29, 56 58 49 12, tab 9
icon 30, 5 72 100 90, pimpmobile license.png, 0, tab 9 noborder
button "OK", 20, 2 168 50 12
button "Cancle", 21, 57 168 50 12
button "Change Name", 22, 2 181 105 12
edit "", 31, 2 2 105 10, read center
}
dialog oper_c {
title "Oper [/operd]"
size -1 -1 154 43
option dbu
text "Do you really want to <blank> to <whore>?", 1, 2 2 150 8
button "Yes", 2, 2 11 75 30
button "No", 3, 78 11 75 30
}
dialog oper_host {
title "Oper [/operd]"
size -1 -1 103 35
option dbu
text "Change <old> to:", 1, 2 2 100 8
edit "", 2, 2 11 100 10
button "OK", 3, 2 22 49 12
button "Cancel", 4, 52 22 49 12
}
dialog Oper_n {
title "Oper [/operd]"
size -1 -1 118 70
option dbu
combo 1, 2 2 75 67, size
button "Ok", 2, 79 2 37 31
button "Cancel", 3, 79 37 37 31
}
dialog operc {
title "Oper"
size -1 -1 79 36
option dbu
text "Enter channels:", 1, 2 2 39 8
edit "", 2, 2 11 75 10, autohs
button "OK", 3, 2 22 37 12
button "Cancel", 4, 40 22 37 12
}
dialog Oper_name {
title "Oper"
size -1 -1 78 37
option dbu
text "Change", 1, 2 2 75 8
edit "", 2, 2 12 75 10, autohs
button "OK", 3, 2 23 37 12
button "Cancel", 4, 40 23 37 12
}
on *:dialog:oper:*:*:{
if ($devent == init) {
set %oper.action,%oper.open,%oper.p,%oper.h,%oper.ci
did -m $dname 5,7,19
did -b $dname 20
if ($snick($active,1)) {
did -a $dname 31 Options for $snick($active,1)
set %oper.n $snick($active,1)
}
else dialog -m oper_n oper_n
}
if ($devent == sclick) {
;----------------------
;------checkboxes------
;----------------------
if ($did == 1) { ;kill checkbox
did -u $dname 2,3
did $iif($did(1).state == 1,-n,-b) $dname 5
did $iif($did(1).state == 1,-e,-b) $dname 20
if ($did(1).state == 1) {
%oper.action = kill %oper.n $iif($did(5),$did(5),No reason given)
%oper.c = Kill %oper.n $+ ?
}
}
if ($did == 2) { ;Akill checkbox
did -u $dname 1,3,13
did $iif($did(2).state == 1,-n,-m) $dname 5,7
did $iif($did(2).state == 1,-e,-b) $dname 20
var %t $did(7),%i 1
%oper.action = os akill add + $+ %t %oper.n $iif($did(5),$did(5),No reason was given)
%oper.c = Akill %oper.n $+ ?
}
if ($did == 3) { ;Gline checkbox
did -u $dname 1,2,14
did $iif($did(3).state == 1,-n,-m) $dname 5,7
did $iif($did(3).state == 1,-e,-b) $dname 20
%oper_action = gline %oper_n $&
$iif($left($did(7),1) == p || $did(5) == $null,0,$iif($did(5),$did(5),No reason given)
%oper.c = Gline %oper.n $+ ?
}
if ($did == 13) { ;Remove Akill checkbox
did -u $dname 2
%oper.open $iif($did(14).state == 1,1,0)
%oper.c = Remove Akill for %oper.n $+ ?
}
if ($did == 14) { ;Remove Gline checkbox
did -u $dname 3
%oper.open $iif($did(14).state == 1,1,0)
%oper.c Remove Gline %oper.n $+ ?
}
if ($did == 10) { ;Shun checkbox
did -u $dname 11
did $iif($did(10).state == 1,-n,-m) $dname 19
did $iif($did(10).state == 1,-e,-b) $dname 20
%oper.action = shun + $+ %oper.n 0 $chr(58) $+ $did(19)
%oper.p = You have been Shunned
%oper.c = Shun %oper.n $+ ?
}
if ($did == 11) { ;un-shun checkbox
did -u $dname 10
did $iif($did(11).state == 1,-e,-b) $dname 20
%oper.action = shun - $+ %oper.n
%oper.p = You have been Un-shunned
%oper.c = Un-Shun %oper.n $+ ?
}
if ($did == 16) { ;Force join
did -u $dname 17
did $iif($did(16).state == 1,-e,-b) $dname 20
%oper.action = sajoin %oper.n
%oper.p = You have been forced to join
%oper.c = SAjoin %oper.n $+ ?
%oper.h = $iif($did(16).state == 1,1,0)
}
if ($did == 17) { ;Force part
did -u $dname 16
did $iif($did(17).state == 1,-e,-b) $dname 20
%oper.action = sapart %oper.n
%oper.p = You have been forced to part
%oper.c = SApart %oper.n $+ ?
%oper.h = $iif($did(17).state == 1,1,0)
}
if ($did == 24) {
dialog -m oper_host oper_host
}
if ($did == 21) {
dialog -x $dname
unset %oper.*
}
if ($did == 22) {
%oper.ci = name
%oper.omg = name
dialog -m oper_name oper_name
}
if ($did == 25) {
%oper.ci = iname
%oper.omg = name
%oper.p = Your name has been changed to
%oper.c = change %oper.n $+ 's name?
dialog -m oper_name oper_name
}
if ($did == 26) {
%oper.ci = ident
%oper.omg = ident
%oper.p = Your ident has been changed to
%oper.c = change %oper.n $+ 's ident?
dialog -m oper_name oper_name
}
if ($did == 27) {
%oper.ci = host
%oper.omg = host
%oper.p = Your host has been changed to
%oper.c = change %oper.n $+ 's host?
dialog -m oper_name oper_name
}
if ($did == 28) {
%oper.ci = oident
%oper.omg = ident
%oper.p = Your ident has been changed to
%oper.c = change %oper.n $+ 's ident?
dialog -m oper_name oper_name
}
if ($did == 29) {
%oper.ci = ohost
%oper.omg = host
%oper.p = Your host has been changed to
%oper.c = change %oper.n $+ 's host?
dialog -m oper_name oper_name
}
if ($did == 24) {
%oper.p = Your vhost has been changed to
%oper.c = change %oper.n $+ 's vhost
dialog -m oper_host oper_host
}
if ($did == 20) { ;ok button
$iif(%oper.open == 1,dialog -m oper_n oper_n)
if (%oper.h == 1) {
dialog -m operc operc
}
$iif(%oper.h != 1,dialog -m oper_c oper_c)
}
}
}
on *:dialog:oper_name:*:*:{
if ($devent == init) {
did -ra $dname 1 Change %oper.omg
}
if ($devent == sclick) {
if ($did == 3) {
if (%oper.ci == name) {
%oper.n = $did(2)
did -ra oper 31 Options for $did(2)
dialog -x $dname
}
elseif (%oper.ci == iname) {
%oper.action = chgname %oper.n $did(2)
dialog -m oper_c oper_c
dialog -x $dname
}
elseif (%oper.ci == ident) {
%oper.action = chgident %oper.n $did(2)
dialog -m oper_c oper_c
dialog -x $dname
}
elseif (%oper.ci == host) {
%oper.action = chghost %oper.n $did(2)
dialog -m oper_c oper_c
dialog -x $dname
}
elseif (%oper.ci == oident) {
%oper.action = setident $did(2)
dialog -m oper_c oper_c
dialog -x $dname
}
elseif (%oper.ci == ohost) {
%oper.action = sethost $did(2)
dialog -m oper_c oper_c
dialog -x $dname
}
}
if ($did == 4) {
dialog -x $dname
}
}
}
on *:DIALOG:oper_c:*:*:{
if ($devent == init) {
did -ra $dname 1 Do you really want to %oper.c
}
if ($devent == sclick) {
if ($did == 2) {
%oper.action
$iif(%oper.p,msg %oper.n %oper.p)
dialog -x $dname
dialog -x oper
unset %oper
}
if ($did == 3) {
dialog -x $dname
dialog -x oper
unset %oper.*
}
}
}
on *:dialog:operc:*:*:{
if ($devent == sclick) {
if ($did == 3) {
%oper.action = %oper.action $did(2) $iif($did(oper,19),$did(oper,19))
dialog -x $dname
%oper.p = %oper.p $did(2)
dialog -m oper_c oper_c
}
if ($did == 4) {
dialog -x $dname
}
}
}
on *:dialog:oper_host:*:*:{
if ($devent == init) {
did -ra $dname 1 Change %oper.n $+ 's vhost to...
}
if ($devent == sclick) {
if ($did == 3) {
%oper.action = hs set %oper.n $did(2)
nndlg -m oper_c
%oper.p = %oper.p $did(2)
dialog -x $dname
}
if ($did == 4) {
dialog -x $dname
}
}
}