IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Atılan Banları @Bans Penceresinde gösterme

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Atılan Banları @Bans Penceresinde gösterme (https://www.ircforumlari.net/mirc-scripting-sorunlari/133808-atilan-banlari-bans-penceresinde-gosterme.html)

Atılan Banları @Bans Penceresinde gösterme

S.a Arkadaşlar bi remoteye ihtiyacım var.
Şimdi kanallarda kendi botumun attıgı bütün banları @bans penceresinde göstersin istiyorum.. ama kendi attıgı banları yani başkasının attıgı banları değil bide bunu mumkunse şöyle olsun
şimdi diyelim ki
Alican : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazdı
bunu attıgı zaman şöyle desin
aLican #sohbet kanalından banlandı. : yazdıgı cumle : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
yani atılmasına sebep olan cumleyide göstersin @bans kanalına

Cevap: Atılan Banları @Bans Penceresinde gösterme

@Bans Penceresinde Atılan Ban/Kick Gösterir ;

Kod:

on *:ban:#: { if !$window(@bans) { .window -tk @bans } | aline @bans ________ # ________ | aline @bans $timestamp - BAN - # Kanalında $bnick rumuzu, $nick tarafından banlandı. } 

on *:kick:#: { if !$window(@bans) { .window -tk @bans } | aline @bans ________ # ________ | aline @bans $timestamp - KICK - # Kanalında $knick rumuzu, $nick tarafından kick'lendi. | aline @bans $timestamp - KICK - Sebebi: $1- }

İstedigin Gibi Ettigi Kufur'u Nick'in Özeline Yollar ; Kufur.txt aç içine Kufurleri at olay tamamdır.

Kod:

on @*:TEXT:*:#:{

  if $kayıt(ayarlar,korumalar_küfür) == acik {

    if $nick isreg # { 

      var %xx = $lines(kufur.txt) 

      while %xx { 

        if ($read(kufur.txt,%xx) iswm $strip($1-)) { 

          ban # $nick 2

      kick # $nick $+ # Kanalinda Küfür/Argo/ Sebebinden Dolayi, Kanaldan Uzaklaştırıldınız.. | .msg $nick # Uzaklaştırılma Sebebiniz ; $1- | halt } | else { dec %xx } } 

    } 

  }

}

Dene Bakalım Kolay Gelsin.

Cevap: Atılan Banları @Bans Penceresinde gösterme

Alıntı:

SaGoPa-mİRCKanka Nickli Üyeden Alıntı (Mesaj 544782)

@Bans Penceresinde Atılan Ban/Kick Gösterir ;

Kod:

on *:ban:#: { if !$window(@bans) { .window -tk @bans } | aline @bans ________ # ________ | aline @bans $timestamp - BAN - # Kanalında $bnick rumuzu, $nick tarafından banlandı. } 

on *:kick:#: { if !$window(@bans) { .window -tk @bans } | aline @bans ________ # ________ | aline @bans $timestamp - KICK - # Kanalında $knick rumuzu, $nick tarafından kick'lendi. | aline @bans $timestamp - KICK - Sebebi: $1- }

İstedigin Gibi Ettigi Kufur'u Nick'in Özeline Yollar ; Kufur.txt aç içine Kufurleri at olay tamamdır.

Kod:

on @*:TEXT:*:#:{

  if $kayıt(ayarlar,korumalar_küfür) == acik {

    if $nick isreg # { 

      var %xx = $lines(kufur.txt) 

      while %xx { 

        if ($read(kufur.txt,%xx) iswm $strip($1-)) { 

          ban # $nick 2

      kick # $nick $+ # Kanalinda Küfür/Argo/ Sebebinden Dolayi, Kanaldan Uzaklaştırıldınız.. | .msg $nick # Uzaklaştırılma Sebebiniz ; $1- | halt } | else { dec %xx } } 

    } 

  }

}

Dene Bakalım Kolay Gelsin.

kardeşim saolasında ben onun özeline yollasın demiyorum. edilen küfürün cümlesini @bans penceresinde bana cıksın

Cevap: Atılan Banları @Bans Penceresinde gösterme

arkadasim ban koduna bakarak bunu sende yapabilirsin.
kick # $nick $+ # Kanalinda Küfür/Argo/ Sebebinden Dolayi, Kanaldan Uzaklaştırıldınız.. | .msg $nick # Uzaklaştırılma Sebebiniz ; $1- | halt } | else { dec %xx } }

kick # $nick $+ # Kanalinda Küfür/Argo/ Sebebinden Dolayi, Kanaldan Uzaklaştırıldınız.. | if !$window(@bans) { window -enz @bans } | ecto -t @bans $knick nickinin $nick tarafindan Uzaklastirma sebebi $1- | halt } | else { dec %xx } }
yukaridaki koyu bölüm yerine pencere acma ve o pencereye yansitma kodunu ekledik..