[YANSIMA]

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:   Kodu kopyalamak için üzerine çift tıklayın!

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
  -
}