
alias shitlist {  
  if !$dialog(shitlist) { .dialog -m  shitlist shitlist }
  else { return }
}
dialog shitlist2 {
  title ".::[ AnlaSevgimi ScripT - Düşman Listesi ]::."
  size -1 -1 136 99
  option dbu
  box "Nick:", 6, 66 0 68 97
  button "Ekle(+)", 4, 82 25 39 11
  button "Kaldır(-)", 10, 82 41 39 11
  edit "", 1, 70 8 61 10, autohs
  button "&Tamam", 3, 82 70 39 18, ok default
  list 2, 5 3 57 83, size
  ; check "Düşman Listesi Aktif", 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
  unset %vo1
  shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
  .auser shit $did(1)
  did -a shitlist 2 $did(1) 
  ; shitkontrol
}

on 1:dialog:shitlist:sclick:10: {
  .ruser shit $did(2,$did(2).sel)
  did -r shitlist 2
  shitkontrol
}
alias shitkontrol {
  goto shitlist
  :shitlist
  inc %vo1
  if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
  did -a shitlist 2 $ulist(*,shit,%vo1)
  goto shitlist
}


alias autooplist  {  
  if !$dialog(autooplist ) { .dialog -m autooplist  autooplist  }
  else { return }
}
dialog autooplist {
  title ".::[ AnlaSevgimi ScripT - Auto-Op Listesi ]::."
  size -1 -1 136 99
  option dbu
  box "Nick:", 6, 66 0 68 97
  button "Ekle(+)", 4, 82 25 39 11
  button "Kaldır(-)", 10, 82 41 39 11
  edit "", 1, 70 8 61 10, autohs
  button "&Tamam", 3, 82 70 39 18, ok default
  list 2, 5 3 57 83, size
  ;check "Auto-Voice Listesi Aktif", 5, 5 90 57 6
}
on 1:dialog:autooplist:init:0: {
  unset %vo1
  listkontrol2
}
on 1:dialog:autooplist:sclick:4: {
  .auser aop $did(1)
  did -a autooplist 2 $did(1) 
  ; listkontrol2
}

on 1:dialog:autooplist:sclick:10: {
  .ruser aop $did(2,$did(2).sel)
  did -r autooplist 2
  listkontrol2
}
alias listkontrol2 {
  goto autoop
  :autoop
  inc %vo1
  if ($ulist(*,aop,%vo1) == $null) { unset %vo1 | halt }
  did -a autooplist 2 $ulist(*,aop,%vo1)
  goto autoop
}

alias autovoicelist  {  
  if !$dialog(autooplist ) { .dialog -m autovoicelist autovoicelist }
  else { return }
}
dialog autovoicelist {
  title ".::[ AnlaSevgimi ScripT - Auto-Voice Listesi ]::."
  size -1 -1 136 99
  option dbu
  box "Nick:", 6, 66 0 68 97
  button "Ekle(+)", 4, 82 25 39 11
  button "Kaldır(-)", 10, 82 41 39 11
  edit "", 1, 70 8 61 10, autohs
  button "&Tamam", 3, 82 70 39 18, ok default
  list 2, 5 3 57 83, size
  ; check "Auto-Voice Listesi Aktif", 5, 5 90 57 6
}
on 1:dialog:autovoicelist:init:0: {
  listkontrol
}
on 1:dialog:autovoicelist:sclick:4: {
  .auser avoice $did(1)
  did -a autovoicelist 2 $did(1) 
  ; listkontrol
}

on 1:dialog:autovoicelist:sclick:10: {
  .ruser avoice $did(2,$did(2).sel)
  did -r autovoicelist 2
  listkontrol
}
alias listkontrol {
  goto autovoice
  :autovoice
  inc %vo1
  if ($ulist(*,avoice,%vo1) == $null) { unset %vo1 | halt }
  did -a autovoicelist 2 $ulist(*,avoice,%vo1)
  goto autovoice
}
on @avoice:join:#:{
  mode $chan +v $nick
  echo -a 12*** Otomatik Voice Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi.
  .msg $nick 12Otomatik Voice Listemdesin.! %TRmirc
}
on @aop:join:#:{
  mode $chan +o $nick
  echo -a 12*** Otomatik Op Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi.
  .msg $nick 12Otomatik Op Listemdesin.! %TRmirc
}
on @shit:join:#:{
  ban $chan $nick  
  kick $chan $nick 0,6 Düşman listemdesin ( $+ $nick $+ ) !! Astalavista de bakiyim kanala :) 
  echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı. :)
}

;-----------------------------------------
alias scan { 
  if ($chan == $null) { echo -a Bir kanalda değilsiniz. ( Clone Tayıcısını kanalda kullanınız ) | halt }
  if ($server == $null) { echo -a Bir server'a bağlı değilsiniz. ( Clone Tayıcısı Kullanılamaz ) | halt }
  unset %cs.* 
  set %cs.chan # 
  window -hlns @.clonescan
  aline @.clonescan who #
  .echo -a 2***12 Clone Taraması Başlatıldı. Lütfen Bekleyiniz...
  .timer 1 4 /scan2
}

alias scan2 {
  set %cs.a $nick(#,0) 
  :goster
  if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) { 
    set %cs.d %cs.d $address($nick(#,%cs.a),2) 
    set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0) 
    :gosdvm 
    .window -c @.clonescan
    .window -l @Clones 20 30 700 300
    aline @clones 15 $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (0 $+ $address($nick(#,%cs.a),2) $+ 15) 
    dec %cs.c 1 
    if (%cs.c == 0) {  aline @clones  7 Clone Scanner   7 Clone Scanner  7 Clone Scanner  %TRmirc  | goto devam } 
    goto gosdvm 
  } 
  :devam
  dec %cs.a 1 
  if (%cs.a != 0) { goto goster }  
  if (%cs.d < 1) { aline @clones 14 Clone Scanner --  Mause un Sag ve Sol tuşlarını kullanarak gerekli işlemleri yapınız.. | aline @clones 14 Clone Scanner --  Pencereyi kapatmayı unutmayınız. }
  if (%cs.d == $null) { .echo -a  12*** 7Kanalda clone yok!.. (Bulunamadı.)   } 
  halt 
}   

menu @clones {
  Kick:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone Protection %TRmirc
  -
  Kick/Ban:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone Protection Find Out! %TRmirc | /mode %cs.chan +b $address($wildtok($sline(@clones,1), *, 1, 32),2) | /dline @clones $sline(@clones,1).ln
  -
  kapat:/window -c @clones
}



#shitlizt off
on @666:join:#:{
  if ($nick != $me) { 
    kick # $nick %shitkickmsg %TRmirc
    if (%banx == !) { mode # +b $address($nick,%mazk) }
  } 
}
#shitlizt end
dialog shitlist {
  title "«[ AnlaSevgimi ScripT - Düşman Listesi ]»"
  size -1 -1 385 340 
  button "&KAPAT", 1, 325 200 50 20,ok default
  list 2, 165 20 210 135, sort 
  box "Düşman Listen", 3, 160 5 220 145 
  edit "", 4, 165 165 210 20, autohs
  box "Eklenecek Nicki Yazınız", 5, 160 150 220 45
  button "Ekle", 6, 160 200 50 20
  box "Note:", 7, 160 225 220 35
  text "Nick Üzerinde Çift Tıklamak Siler", 8, 190 240 180 45  
  box "Ban Seçin", 9, 5 5 150 225
  radio " 0: *!user@host", 10, 20 20 120 20
  radio "1: *!*user@host", 11, 20 40 120 20
  radio "2: *!*@host", 12, 20 60 120 20
  radio "3: *!*user@*.host", 13, 20 80 120 20
  radio "4: *!*@*.host", 14, 20 100 120 20
  radio "5: nick!user@host", 15, 20 120 120 20
  radio "6: nick!*user@host", 16, 20 140 120 20
  radio "7: nick!*@host", 17, 20 160 120 20
  radio "8: nick!*user@*.host", 18, 20 180 120 20
  radio "9: nick!*@*.host", 19, 20 200 120 20
  box "Giriş Yaptığında:", 20, 5 235 150 75
  check "Sadece Kick", 21, 20 255 100 20 
  check "Kick+Ban", 22, 20 275 100 20 
  button "De&fault", 23, 215 200 50 20
  button "&Özellik", 24, 270 200 50 20
  edit "", 26, 165 280 210 20, autohs
  box "Kick Mesajınız", 25, 160 265 220 45
  button "Düşman Listesi Açık", 27, 5 315 180 20
  button "Düşman Listesi Kapalı", 28, 200 315 180 20

}
dialog s_about_s {
  title "Özellik"
  size -1 -1 270 140
  button "&Ok", 1, 100 190 80 20, ok
  box "Özellik", 2, 5 10 260 125
  text "AnlaSevgimi ScripT Düşman Listesi", 3, 25 30 270 20
  text "wWw.AnlaSevgimi.Com", 4, 25 45 200 20
  text "Email: info@AnlaSevgimi.Com", 5, 25 65 200 20
  text "Server: irc.AnlaSevgimi.Com", 6, 25 85 200 20
  text "AnlaSevgimi.Com", 7, 25 105 200 20
}
alias shitdefmsg { return 12Düşman Listemdesin %TRmirc }
alias shitsetup if $dialog(shitlist) == $null dialog -m shitlist shitlist
alias s_about_s if $dialog(sabout) == $null dialog -mo sabout sabout
on *:dialog:shitlist:dclick:2:{ .rlevel 666 $did(2).seltext | did -d shitlist 2 $did(2).sel }
on *:dialog:shitlist:sclick:6:{ if ($did(4) != $null) { did -a shitlist 2 $did(4) | .auser 666 $did(4) | did -fr shitlist 4 } }
on *:dialog:shitlist:sclick:10:{ set %mazk 0 }
on *:dialog:shitlist:sclick:11:{ set %mazk 1 }
on *:dialog:shitlist:sclick:12:{ set %mazk 2 }
on *:dialog:shitlist:sclick:13:{ set %mazk 3 }
on *:dialog:shitlist:sclick:14:{ set %mazk 4 }
on *:dialog:shitlist:sclick:15:{ set %mazk 5 }
on *:dialog:shitlist:sclick:16:{ set %mazk 6 }
on *:dialog:shitlist:sclick:17:{ set %mazk 7 }
on *:dialog:shitlist:sclick:18:{ set %mazk 8 }
on *:dialog:shitlist:sclick:19:{ set %mazk 9 }
on *:dialog:shitlist:sclick:21:{ if (%banx == !) { unset %banx | did -u shitlist 22  } | else { set %banx ! | did -c shitlist 22 } }
on *:dialog:shitlist:sclick:22:{ if (%banx == $null) { set %banx ! | did -u shitlist 21 } | else { unset %banx | did -c shitlist 21 } }
on *:dialog:shitlist:sclick:23:{ 
  set %banx ! | set %mazk 2 | set %shitkickmsg $shitdefmsg | did -c shitlist 12,22 
  did -a shitlist 26 %shitkickmsg | did -u shitlist 10,11,13,14,15,16,17,18,19,21
}
on *:dialog:shitlist:sclick:24:{ dialog -m s_about_s s_about_s }
on *:dialog:shitlist:edit:26:{ set %shitkickmsg $did(26) }
on *:dialog:shitlist:sclick:27:{ .enable #shitlizt | did -e shitlist 21,22 }
on *:dialog:shitlist:sclick:28:{ .disable #shitlizt | did -b shitlist 21,22 }
on *:dialog:shitlist:init:*:{ 
  if ($group(#shitlizt) == off) { did -b shitlist 21,22 }
  if (%mazk == 0) { did -c shitlist 10 }
  if (%mazk == 1) { did -c shitlist 11 }
  if (%mazk == 2) { did -c shitlist 12 }
  if (%mazk == 3) { did -c shitlist 13 }
  if (%mazk == 4) { did -c shitlist 14 }
  if (%mazk == 5) { did -c shitlist 15 }
  if (%mazk == 6) { did -c shitlist 16 }
  if (%mazk == 7) { did -c shitlist 17 }
  if (%mazk == 8) { did -c shitlist 18 }
  if (%mazk == 9) { did -c shitlist 19 }
  if (%banx == $null) { did -c shitlist 21 }
  if (%banx == !) { did -c shitlist 22 }
  did -a shitlist 26 %shitkickmsg
  if ($ulist(*,666,0) != $null) { 
    set %cnt.shit 0
    while (%cnt.shit < $ulist(*,666,0)) { 
      inc %cnt.shit 1 
      did -a shitlist 2 $ulist(*,666,%cnt.shit) 
    }  
    unset %cnt.shit 
  } 
}
