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/)
-   -   Reklamları Txt den Okutma Yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/5937-reklamlari-txt-den-okutma-yardim.html)

eXchanGe 23 Temmuz 2005 01:04

Reklamları Txt den Okutma Yardım
 
ben kolay bi spam botuna benzer bişi yazdım başka mirc acıyorum ordan birini sokuyorum ona on *:text:**:?: { msg eXchanGe Nick: $nick - Mesaj : $1- }
bu kodu ekledım ozelıne gelen her mesajı bana yazıyor bende kendı mirc ime
on *:text:*irc*:?: gline $2 +1d Reklam bunu ekledim sorunum şu her reklamı bu şekil eklemek yerine variables kısmından yada txt den bu reklamları okutabılır mıyız yardım pls.

MaeLStrOm 23 Temmuz 2005 02:41

on *:text:*:?: { if (*irc* iswm $1-) || (*server* iswm $1-) { gline $2 +1d }

Flyman 23 Temmuz 2005 04:54

bunu bu sekild eher mesaji kendine gondertecegine sadece icinde reklam mesaji olursa botun sana kendin sececegin bi anahtar kleime ve reklam yapan nicki gonderirise sende banlarsin yani soyle bisey


on 1:TEXT:*:?: {
if ($me !isop $comchan($nick,1)) {
if ($nick !isop $comchan($nick,1)) {
if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) || (irc. isin $1-) || (/server isin $1-) || (http: isin $1-) || (.net isin $1-) || (.org isin $1-) /msg kendinickiniyaz reklamcinickiyakalandi $nick
}
}
}


bu usteki ni bot olan mircine korsun usteki kendinicini yaz bolumune nickini yazmayi unutma kendi mircinede asagidakini koy basit bi kod ama guzel calisiyor
on 1:text:reklamcinickiyakalandi*:?: {
if ($me isop $comchan($nick,1)) {
{ /mode $comchan($nick,1) +b $Address($$2,4) }
{ /kick $comchan($Nick,1) $$2 reklam tespit edilmistir.. } | halt
}
}

UOnur 23 Temmuz 2005 13:52

Değişkenden Okutmak İçin(%variable):

Kod:

on *:text:*:#:{
  var %i $gettok(%reklamlar,0,32)
  while (0 < %i) {
    if ($gettok(%reklamlar,%i,32) iswm $strip($1-)) {
      ban $chan $nick 2
      kick $chan $nick Reklam!!!
    }
    dec %i
  }
}

%reklamlar *ir?.* *w?w?w.* *.net* [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Şeklinde...

.txt'den Okutmak İçin:

Kod:

on *:text:*:*:{
  var %i $lines(reklamlar.txt)
  while (0 < %i) {
    if ($read(reklamlar.txt,%i) iswm $strip($1-)) {
      ban $chan $nick 2
      kick $chan $nick Reklam!!!
    }
    dec %i
  }
}

Reklamlar.txt Dosyasındaki Kelimeler:

*ir?.*
*w?w?w.*
*.net*
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Şeklinde Olacak.

CLeMeNTiNe 23 Temmuz 2005 16:01

Alıntı:

UOnur Nickli Üyeden Alıntı
Değişkenden Okutmak İçin(%variable):

Kod:

on *:text:*:#:{
var %i $gettok(%reklamlar,0,32)
while (0 < %i) {
if ($gettok(%reklamlar,%i,32) iswm $strip($1-)) {
ban $chan $nick 2
kick $chan $nick Reklam!!!
}
dec %i
}
}

%reklamlar *ir?.* *w?w?w.* *.net* [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Şeklinde...

.txt'den Okutmak İçin:

Kod:

on *:text:*:*:{
var %i $lines(reklamlar.txt)
while (0 < %i) {
if ($read(reklamlar.txt,%i) iswm $strip($1-)) {
ban $chan $nick 2
kick $chan $nick Reklam!!!
}
dec %i
}
}

Reklamlar.txt Dosyasındaki Kelimeler:

*ir?.*
*w?w?w.*
*.net*
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Şeklinde Olacak.

UOnur Bu kodda kanalda op olmasan dahi kişiyi atmaya çalışacaktır.

if $me isop $chan { ...

else silence $nick | .timerunsilence 1 15 silence $+(-,$nick)

Kodları da eklenmeli...

eXchanGe 23 Temmuz 2005 16:46

ban atmıcam gline atıcam da onu deiştiririm tşkler uonur

UOnur 23 Temmuz 2005 17:32

CLeMeNTiNe Ben Kodun normal Halini verdim.
Geliştirmek İsteyen birazcık Uğraşsın Değilmi ?
Herşeyide biz yapmayalım...

Deniz 07 Kasım 2005 22:07

Peki Ben bir Yasaklı Kelime Dha Gördüm Bunu Reklamlar.txt Dosyasına Eklemek İstiorum Mesela Bunun İçin reklamlar.txt Dosyasını Açıp Eklememi Yapmam Lazım Yoksa Bunun mirc'ten Eklemenin yolu Varmı ???


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

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