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

Arkadaşlar Benim Sitem Üzerinden Gelmeyenleri Mesela Mynet Gibi Apletten Gelenleri Yasaklamak İstiyorum Bunu Serevere Giren Kişileri Taratarak Nasıl Yaparım Ben Bir Code Yazdım Ama Loadlar Loadlamaz Tüm Herkesi Tarıyor Ben Böyle İstemiyorum Girdikçe Servere Girenleri Tarayacak Eğer Benim Sitemden Girmiyorsa Kline Atacak Mynet Usulu Bişey Mynetten Bir Arkadaştan Aldım ama Olmadı :S

Kod:

on *:SNOTICE:*:{

  if $numeric == 327 {

    if $hget(codem,javacont) {

      if $query(%_:nick) { halt }

      if [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] !isin $8 {

        if [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]* iswm $8 { _linedance _okline %_:nick Asimavi }

        else { _linedance _okline %_:nick java }

      }

    }

  }

  if $numeric == 311 {

    .set %_:nick $2

  }

  if $numeric == 302 {

    if (*m* iswm $gettok($2-,2,64)) || (*e* iswm $gettok($2-,2,64)) || (*o* iswm $gettok($2-,2,64)) { halt }

    if ($2- == $null) { echo -a 12 Nick Online Olmadığı İçin Kline Atılamadı | halt }

    if (%userkl. [ $+ [ $gettok($2-,1,61) ] ] = 1) { if (*195.87* iswm $gettok($2-,2,64)) { echo -a %logo 4Mynet Erişim 2Kullandığı İçin 4 Script 2Sebebi İle Kline Atılmadı! | halt } | else { kline *@ $+ $gettok($2-,2,64) http:sohbet.mynet.com üzerinden geliniz 15 | unset %userkl. [ $+ [ $gettok($2-,1,61) ] ] | goto son } }

    if (%userkl. [ $+ [ $gettok($2-,1,61) ] ] = 10) { kline *@ $+ $gettok($2-,2,64) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5Üzerinden Giriş Yapınız.! 15 | unset %userkl. [ $+ [ $gettok($2-,1,61) ] ] | goto son }

    if (%userkl. [ $+ [ $gettok($2-,1,61) ] ] = 11) { kline *@ $+ $gettok($2-,2,64) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5Üzerinden Giriş Yapınız.! 15 | unset %userkl. [ $+ [ $gettok($2-,1,61) ] ] | goto son }

    halt

    :son

    echo -a 4Kline Atıldı 2Nick: 7 $gettok($2-,1,61) 2İp: 7 $gettok($2-,2,64) $chan

    halt

  }

alias checkjava {

  if $active ischan {

    var %i = 1,%chan,%chan2,%chan3,%chan4,%chan5,%chan6,%chan7

    while %i <= $nick($active,0) {

      if $numtok(%chan,44) <= 45 { %chan = $addtok(%chan,$nick($active,%i),44) }

      elseif $numtok(%chan2,44) <= 45 { %chan2 = $addtok(%chan2,$nick($active,%i),44) }

      elseif $numtok(%chan3,44) <= 45 { %chan3 = $addtok(%chan3,$nick($active,%i),44) }

      elseif $numtok(%chan4,44) <= 45 { %chan4 = $addtok(%chan4,$nick($active,%i),44) }

      elseif $numtok(%chan5,44) <= 45 { %chan5 = $addtok(%chan5,$nick($active,%i),44) }

      elseif $numtok(%chan6,44) <= 45 { %chan6 = $addtok(%chan6,$nick($active,%i),44) }

      elseif $numtok(%chan7,44) <= 45 { %chan7 = $addtok(%chan7,$nick($active,%i),44) }

      inc %i

    }

    hadd -mu20 codem javacont on

    whois %chan

    if (%chan2) _linedance whois %chan2

    if (%chan3) _linedance whois %chan3

    if (%chan4) _linedance whois %chan4

    if (%chan5) _linedance whois %chan5

    if (%chan6) _linedance whois %chan6

    if (%chan7) _linedance whois %chan7

  }

  else {

    echo -ta Lütfen Aktif Kanalda Yazan...

  }

}

alias _okline {

  if (java == $2) { %userkl. [ $+ [ $1 ] ] = 10 | userhost $1 }

  if (mysev == $2) { %userkl. [ $+ [ $1 ] ] = 11 | userhost $1 }

  if ($2 == $null) { echo -a ******2Lütfen Sebep Belirtiniz (4reklam2/4script2/4nick2/4dost2) }

}
 

alias _linedance {

  if ($timer(.line.dance. $+ $cid) == $null) {

    hadd -m mynet.qcommand count. $+ $cid 1

    hadd -m mynet.qcommand 1. $+ $cid $1-

    _dolinedance 1

  }

  else {

    hinc -m mynet.qcommand count. $+ $cid

    hadd -m mynet.qcommand $hget(mynet.qcommand,count. $+ $cid) $+ . $+ $cid $1-

  }

}

alias _dolinedance {

  if ($hget(mynet.qcommand,$1 $+ . $+ $cid) != $null) {

    var %data = $ifmatch

    .timer.line.dance. $+ $cid -m 1 $calc(1500 - $gettok(1250 1000 750 500 250,$1,32)) _dolinedance $calc($1 + 1)

    %data

  }

  else hdel -w mynet.qcommand *. $+ $cid

}

menu channel {

  -

  ApleTciler:checkjava

  -

}