mıRC, mIRC indir, Sohbet, Chat

;Remote'ye eklinicek kodlar
;---

on @NICK:JOIN:#:{
  if ($chan == #str_cinsellik) { halt }
  if ($chan == #str_gay) { halt }
  if ($chan == #str_lezbiyen) { halt }
  .mode # +b $nick
  .kick # $nick 1Nickinizi değiştirip, tekrar giriniz. Nick değiştirme komutu: /nick yeni-nick %sibertr
}

;Users bölümüne eklincek kodlar
;---

nick:*lez*!*@*
nick:*seksi*!*@*

;bunları çoğaltabilirsiniz.

on @shit: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 "DeLimIRC - 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
}

;300 karakter kullanıldığında kod aktif olur.

on @*:TEXT:*:#:{
  if ($nick isop #) return
  if ($len($strip($1-)) >= 300) {
    ;s
    /ban # $nick 14 | /kick # $nick 4Gereğinden Fazla Uzun Yazı Kullandınız! 2Siber7TR
  }
}

on 1:connect:{ .IAL On | takip + 300 }
alias takip {
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! }
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{
if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) }
if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change }
}
#Takip end