otomatik cevaplama

Ekim 2, 2008 at 12:03 am Yorum bırakın

;kanalda yazılan mesaj kısmı özelede yazılabilir rahatlıkla😀
on *:text:*:#: {
  if $noflood($+($chan,-,$nick),selam) && ($regex($1-,sell*amm*) || $regex($1-,slm) || $regex($1-,s\.a$) || $regex($1-,s\.a\.)) {
    if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) && $noflood($+($chan,-,$nick),nassin) {
      msg $chan selam $nick $+ . iyiyim sen nasılsın
    }
    else { msg $chan selam }
  }
  if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) && $noflood($+($chan,-,$nick),nassin) {
    msg $chan $nick iyiyim sen nasılsın?
  }
  if ($regex($1-,asl .*) || $regex($1-,^asl$)) && $noflood($+($chan,-,$nick),asl) { msg $chan ne yapacaksın asl yi? }
}

;whois kısmı
on $*:snotice:/\/whois on you.$/Si: {
  if $noflood($+(whois-,$2),whois) {
    .notice $2 0,2Buyrun Nasıl Yardımcı oLabiLirim ? KişiseL Sohbet İçin Lütfen ÖzeLimi Meşgul Etmeyin.Yardım ALmak İçin #operheLp KanaLından OnLine OperLere ULaşabiLirsiniz..KEYİFLİ SOHBETLER..
  }
}

on *:nick: {
  noflood pid $nick $newnick
  var %i = $chan(0)
  while %i {
    noflood pid $+($chan(%i),-,$nick) $+($chan(%i),-,$newnick)
    dec %i 1
  }
}
;noflood(nick,text) pid kullanıldı böylece nick değiştimi işlemimiz kısa sürecek😀
alias noflood {
  if !$timer(NFLD) { .timerNFLD 0 60 /noflood timer }
  if !$hget(PID-NFLD) { hmake PID-NFLD 70 }

  if $isid {
    if !$hget(PID-NFLD,$1) { hadd PID-NFLD $1 $+($ctime,$rand(0,99)) }
    var %PID = $hget(PID-NFLD,$1)

    if !$hget($+(NFLD-,%PID)) { hmake $+(NFLD-,%PID) 50 | hadd $+(NFLD-,%PID) ctime $ctime }
    if $hmatch($+(NFLD-,%PID),$replace($2,$chr(32),$chr(160)),0) { return $false }
    else { hadd $+(NFLD-,%PID) $replace($2,$chr(32),$chr(160)) $ctime | hadd $+(NFLD-,%PID) ctime $ctime | return $true }
  }

  else {
    if $regex($1-,^timer$) {
      var %i = $hget(0)
      while %i {
        if $regex($hget(%i),^NFLD-.*) {
          if $calc($ctime - $hget($hget(%i),ctime)) > 1200 { hfree $hget(%i) }
        }
        dec %i 1
      }
    }

    if $regex($1,^pid$) && $2 && $3 {
      if $hget(PID-NFLD,$2) {
        hadd PID-NFLD $3 $v1
        hdel PID-NFLD $2
      }
    }
  }
}

Entry filed under: mIRC Hazır Kodlar. Tags: , , , , , , , , , , , , , , , , , , , , , , , , , , .

Digital Saat Zaman Çeviricisi

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Takvim

Ekim 2008
P S Ç P C C P
« Eyl   Ara »
 12345
6789101112
13141516171819
20212223242526
2728293031  

Most Recent Posts


%d blogcu bunu beğendi: