[OkyAnuS]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;2006 Yılında Yapılan Helper Script'e Aittir.
;Bu Kod OkyAnuS tarafından yazılmıştır.
;coder@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].gen.tr


on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:join:#:{
  ban $chan $nick 2
  kick $chan $nick 4Düşman Listemdesin…!
  echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı. 
}

alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
  title “*Helper Script v.Beta® (v.1.2) 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
}