Tekil Mesaj gösterimi
  #10  
Alt 07 Ekim 2011, 13:28
Avatar Yok
L4roXyL L4roXyL isimli Üye şimdilik offline konumundadır
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 05-01-2008, 01:08

Kanala giren guest takılı kullanıcılara işlev(uyarı, 2. uyarı ve ban) yapmak için hazırlamış olduğum bir kod.

Kod:
on *:join:#:$iif($nick == $me,.timerkntrl 0 60 guest #,$iif(guest* iswm $nick,$+(.timer,$v2) 1 30 msg # $+($chr(22),$v2,$chr(22)) nick değiştiriniz vs.))
alias guest {
  if $ialchan(Guest*,$1,0) >= 2 {
    var %t = 1,%y 
     while %t <= $ialchan(Guest*,$1,0) {
      %y = $addtok(%y,$+($chr(22),$gettok($ialchan(Guest*,$1,%t),1,33),$chr(22)),32)
      $iif($hmatch(nick,$gettok($ialchan(Guest*,$1,%t),1,33)),hinc -m nick $gettok($ialchan(Guest*,$1,%t),1,33) 1,hadd -m nick $gettok($ialchan(Guest*,$1,%t),1,33) 1)
      if $hget(nick,$gettok($ialchan(Guest*,$1,%t),1,33)) >= 3 {
        ban -k $1 $gettok($ialchan(Guest*,$1,%t),1,33) 2 Sebeb. 
        $+(.timer,$gettok($ialchan(Guest*,$1,%t),1,33)) off
        hdel -s nick $gettok($ialchan(Guest*,$1,%t),1,33) 
      }
      inc %t
    }
    msg $1 %y nick değişiniz vs.
  }
}
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76