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

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

- - Ozelde Reklam hk. (https://www.ircforumlari.net/mirc-scripting-sorunlari/32907-ozelde-reklam-hk.html)

Ozelde Reklam hk.

Merhabalar,

Ozelime yazilan tum iletileri, #Rapor kanalina logluyorum.

on *:text:*:?: { msg #rapor $nick : $1- }

seklinde. Ayni anda reklam.txt'imde hazirlamis oldugum reklam icerikli kelimelerdede farkli bir remote ile reklam yapildi seklinde rapor gonderiyorum yine ayni kanala. Ve loglar su sekilde oluyor;

<X> Ali : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (1. remoteden dolayi)
<X> Ali tarafindan reklam yapildi : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (2.remoteden dolayi)

Fakat ben istiyorum ki, ozelimde reklam.txt dosyamda olan bir kelime yazildiginda 1. remotem yani Ali : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] calismasin. Sadece reklam yapildi diyen 2.remotem (Ali tarafindan reklam yapildi : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])aktif olsun. Eger ki reklam.txt'teki kelimler disinda herhangi bir sey yazilirsa 1.remotem calismaya devam etsin. Boyle bir sey yapabilir miyiz ? Yardimlariniz icin simdiden tesekkurler.

Saygilarimla~

Cevap: Ozelde Reklam hk.

1.sinde & prefixi kullan 2. sinin sonunada halt ekle.

Cevap: Ozelde Reklam hk.

Kod:

on *:text:*:?: {

  set &#37;i 0

  :zegudafillbuss

  inc %i 1

  set %rklm $read -l $+ %i $mircdir\reklam.txt 

  if (%rklm == $null) { .unset %i | msg #rapor $nick : $1- }

  else {

    if (%rklm isin $1-) { msg #rapor $nick tarafından reklam yapıldı : $1- }

    else { goto zegudafillbuss }

  }

}

Reklam mesajlarını mIRC klasorune koyduğun reklam.txt dosyasına alt alta eklersen çalışması lazım.

Cevap: Ozelde Reklam hk.

Alıntı:

on *:text:*:?: { msg #rapor $nick : $1- }

Bu kodu silip şu şekilde ekle ;

Kod:

on *:text:*:?: {

var &#37;ayır $lines(reklam.txt)

while (0 < %ayır) {

if ($read(reklam.txt,%ayır) !iswm $strip($1-)) {

msg #rapor $+($nick,:) $1-

}

dec %ayır

}

}