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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Ulke yasaklama Addonu Sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/848725-ulke-yasaklama-addonu-sorunu.html)

Seymen98 21 Aralık 2019 10:04

Ulke yasaklama Addonu Sorunu
 
merhaba arkadaşlar toprak arkadaşimizin yapmiş oldu şehir kodunu ulke için deyişmeye calıstım ama işlev gormedi atmadı nedeni nedir yardımcı olursanız sevinirim hatalarim nerelerde acıba

Kod:

on *:text:*:#Operlog:{
  if $regex($1,/^[!.-]Ulke/Si) {
    if !$2 { msg # Lütfen !Ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !Ulke <ekle> <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir Ulke yok :) }
      elseif $hget(Ulke ,$strip($3)) { msg # $strip($3) şehri yasak listesinde zaten ekli, neyin kafası. }
      else { .hadd -ms Ülke  $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) Ulke yasak listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !yasak <sil> <Şehir> olarak belirtiniz. }
      elseif !$hget(Ulke ,$strip($3)) { msg # $strip($3) Ulke yasak listesinde ekli değil. }
      else { .hdel -ms Ulke  $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) Ulke yasak listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke ,0).data { msg # Yasak Ulke listesi boş. }
      else {
        msg # Yasak şehir listesi .hsave -o Ulke Ulke.Yasak
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke ,0).data {
          msg # $+(%:t,.,$chr(41)) Şehir:4 $hget(Ulke ,%:t).item  Ekleyen:2 $hget(Ulke ,%:t).data
          inc %:t
        }
        msg # -
        msg # Yasak Ulke listesi sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke  | .hload  -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{ 
  var %:isp | sockread -f %:isp | tokenize 32 %:isp
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) {
    .hadd -ms Ulke $sockname $iif($regml(1),$regml(1),Belirsiz)
    if $hget(Ulke ,$regml(1)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ulke girişi.. }
  }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke ,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
    .hdel -ms Ulke $sockname | .hdel -ms Ulke $sockname
    sockclose $sockname
  }
}


Emrehan 21 Aralık 2019 22:35

Cevap: Ulke yasaklama Addonu Sorunu
 
Alıntı:

Seymen98 Nickli Üyeden Alıntı (Mesaj 1042213371)
merhaba arkadaşlar toprak arkadaşimizin yapmiş oldu şehir kodunu ulke için deyişmeye calıstım ama işlev gormedi atmadı nedeni nedir yardımcı olursanız sevinirim hatalarim nerelerde acıba

Kod:

on *:text:*:#OperLog:{
  if $regex($1,/^[!.][uüÜ]lke/Si) {
    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok :) }
      elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }
      else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }
      elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }
      else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
      else {
        msg # Yasak Ülke Listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
          msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item  Ekleyen:2 $hget(Ulke,%:t).data
          inc %:t
        }
        msg # -
        msg # Yasak Ülke Listesi Sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{ 
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}


Seymen98 21 Aralık 2019 22:49

Cevap: Ulke yasaklama Addonu Sorunu
 
emrehan tşk ederim hocam

Zadrich 06 Şubat 2020 02:00

Cevap: Ulke yasaklama Addonu Sorunu
 
Güzel bir kod kullandım gayette güzel çalışıyor lakin tek sıkıntısı cift kelimeli ülkeleri eklemiyor
örneğin; United States gibi cift kelimeli ülkeleri eklemiyor, düzeltilirse çok harika bir çalışma olucaktır.

Emrehan 06 Şubat 2020 04:01

Cevap: Ulke yasaklama Addonu Sorunu
 
Alıntı:

Zadrich Nickli Üyeden Alıntı (Mesaj 1042251223)
Güzel bir kod kullandım gayette güzel çalışıyor lakin tek sıkıntısı cift kelimeli ülkeleri eklemiyor
örneğin; United States gibi cift kelimeli ülkeleri eklemiyor, düzeltilirse çok harika bir çalışma olucaktır.

Kod:

on *:text:*:#OperLog:{
  if $regex($1,/^[!.][uüÜ]lke/Si) {
    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
      else {
        msg # Yasak Ülke Listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
          inc %:t
        }
        msg # -
        msg # Yasak Ülke Listesi Sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{ 
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}


Hesapsiz33 18 Şubat 2020 18:12

Cevap: Ulke yasaklama Addonu Sorunu
 
Merhaba rica etsem bu koda da yukarıdaki gibi liste bakınca kimin badnick i listeye ekledigini gösterecek sekilde ayarlaya bilmemiz mümkün müdür?
Yukarıdaki kod ile yer degisikligi yaptım yinede olmadı belki 2 saattir bununla ugrasıyorum yapamadım bi türlü.

on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:12 -->-> Daha önceki mesaj 18:11 --

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1042251231)
Kod:

on *:text:*:#OperLog:{
  if $regex($1,/^[!.][uüÜ]lke/Si) {
    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
      else {
        msg # Yasak Ülke Listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
          inc %:t
        }
        msg # -
        msg # Yasak Ülke Listesi Sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{ 
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}


Merhaba rica etsem bu koda da yukarıdaki gibi liste bakınca kimin badnick i listeye ekledigini gösterecek sekilde ayarlaya bilmemiz mümkün müdür?
Yukarıdaki kod ile yer degisikligi yaptım yinede olmadı belki 2 saattir bununla ugrasıyorum yapamadım bi türlü.

on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
}
Konuyu düzenle/Sil Alıntı ile Cevapla Bu mesajdan Alıntı Hızlı Cevap

Emrehan 18 Şubat 2020 23:07

Cevap: Ulke yasaklama Addonu Sorunu
 
Alıntı:

Hesapsiz33 Nickli Üyeden Alıntı (Mesaj 1042257509)
Merhaba rica etsem bu koda da yukarıdaki gibi liste bakınca kimin badnick i listeye ekledigini gösterecek sekilde ayarlaya bilmemiz mümkün müdür?
Yukarıdaki kod ile yer degisikligi yaptım yinede olmadı belki 2 saattir bununla ugrasıyorum yapamadım bi türlü.

Kod:

on *:text:*:#:{
  if $regex($1,/^[!\.]badn[ıiİ]ck$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }
      elseif $hfind(badnick,$strip($3),1,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m badnick %n $strip($3) | .hsave -o badnick badnick.tprk
      .hadd -m badekleyen %n $nick | .hsave -o badekleyen badekleyen.tprk
      msg # $strip($3) Badnick listesine eklendi.
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }
      elseif !$hfind(badnick,$strip($3),1,W).data { msg # Silmeye çalıştığınız badnick hafızada ekli değil. | return }
      else {
        if $hfind(badnick,$strip($3),1,W).data { .hdel -m badekleyen $v1 | .hsave -o badekleyen badekleyen.tprk }
        .hdel -m badnick $hfind(badnick,$strip($3),1,W).data | .hsave -o badnick badnick.tprk
        msg # $strip($3) Badnick listesinden silindi.
      }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
      msg # Badnick listesi
      msg # -
      var %i = 1 | while (%i <= $hget(badnick,0).data) {
        msg # $+(%i,-,$chr(41)) $hget(badnick,%i).data - Ekleyen: $hget(badekleyen,$hget(badnick,%i).item)
        inc %i
      }
      msg # -
      msg # Badnick listesi sonu
    }
  }
}


Hesapsiz33 18 Şubat 2020 23:38

Cevap: Ulke yasaklama Addonu Sorunu
 
Eline emegine saglık usta.

useyd 23 Mart 2021 23:03

Cevap: Ulke yasaklama Addonu Sorunu
 
!yasak ekle Ülke ISP şeklinde yapabilirmiyiz.
Bazı ülkeler arasında boşluk oluyor United States gibi.

NurSima 23 Mart 2021 23:51

Cevap: Ulke yasaklama Addonu Sorunu
 
Emeginize SağLık...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:20.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk