dialog eXLove {
  title "eXLove AUTO Menü"
  size -1 -1 144 164
  option dbu
  box "AUTO İşlemler", 1, 2 9 135 53
  check "AUTO Oper'imi Gir (AÇ / KAPA)", 2, 42 18 87 10
  check "AUTO İdent - Host ' umu Gir (AÇ / KAPA)", 3, 22 32 110 10
  check "AUTO Nick - Şifre Gir (AÇ / KAPA)", 4, 6 45 91 10
  box "Online İşlemler", 5, 1 92 136 54
  button "Oper ' imi Gir", 6, 53 100 37 9
  button "İdent - Hostumu Gir", 7, 44 113 55 9
  check "Deop Koruması (AÇ / KAPA)", 8, 28 65 81 10
  button "Nick ' imi Ve Şifresini Gir", 9, 40 125 63 12
  button "ÇIK", 11, 52 149 37 12, ok
}
on *:dialog:exlove:init:*: {
  if ($group(#otooper).status == on ) did -c exlove 2
  if ($group(#otoidenthost).status == on ) did -c exlove 3
  if ($group(#otonicksifre).status == on ) did -c exlove 4
  if ($group(#deop).status == on ) did -c exlove 8
}
on *:dialog:exlove:sclick:2: {
  if ($did(2).state == 1 ) { .disable #otooper } | else { /.enable #otooper }
}
on *:dialog:exlove:sclick:3:{
  if ($did(3).state == 1 ) { .disable #otoidenthost } | else { /.enable #otoidenthost }
}
on *:dialog:exlove:sclick:4: {
  if ($did(4).state == 1 ) { .disable #otonicksifre } | else { /.enable #otonicksifre }
}
on *:dialog:exlove:sclick:8:{
  if ($did(8).state == 1 ) { .disable #deop } | else { /.enable #deop }
}
On *:dialog:exlove:*:*:{
  if ($devent == sclick) {
    if ($did == 7) { /setident $$?="Ident"  | /sethost $$?="Host" }
    if ($did == 6) { /oper irq 123456789 }
    if ($did == 9) { /nick irq | /ns identify 123456789
    }
  }
}
#otooper off
on *:connect:{ 
  Oper irq 123456789
}
#otooper end
;;;;;;;;;;
#otoidenthost off
on *:connect:{ 
  /setident $$?="Ident" 
  /sethost $$?="Host"
}
#otoidenthost end
;;;;;;;;;;;;
#otonicksifre on
on *:connect:{ 
  /nick irq | 
  /ns identify 123456789
}
#otonicksifre end
;;;;;;;;;;;;;
#deop on
on *:DEOP:#:{
  if ($nick ison #myops) { goto son }
  if ($nick == ChanServ) { goto cs }
  if ($nick == OperServ) { goto cs }
  if ($nick == $me) { goto son }  
  if ($opnick == $me) {
    :cs 
    .identify Şifren
    /mode $chan +o $me
    /msg  # $nick    Deop Ettiğin Adama Dikkat Et.. Ayaklarını Yerden Keserim Senin. 1,15=1,1(0,4>15,151 1,114,1e15,1X0,1L0,1o15,1v150e1,15 0,4<15,1511,1)15,151= 1,15=1,1(0,4>15,151 1,114,1S15,1c0,1r0,1i15,1p150t1,15 0,4<15,1511,1)15,151= 
    /mode # -o $nick
  }
  :son
}
}
#deop end