IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
;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

}