alias 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
    } 
  }
}