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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Kasım 2005, 22:51   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Reklam koruması




HDD de bir dosyayı ararken zamanında başka bir forum icin yazdığım bir kodu buldum, orada kıymeti anlaşılmadı inşallah burada da akıbeti o olmaz :D

evet arkadaşlar mirc nin kendi identifierleri gibi bir reklam koruma size sırası ile ne yapcağınızı anlatıyım.
mirc'de remoteyi (alt + r) açıp aşağıdaki mavi ve kırmızı renkli kodları oraya kopyalayın.


;çalışır durumdaki reklam koruma örneği
on ^*:open:?: {
if $isadv(-ic10,$1-) { echo -st [Olası Reklam] $+(<,$nick,>) $1- | halt }
}




;bu kısımda kayıtları tumak ve yüklemek için geçerli
on *:start: { if !$hget(isadv) { .hmake isadv $iif($ini($isadvfile,verbs,0) > 8000, 8000,$calc($ini($isadvfile,verbs,0) + 500)) | .hload -i isadv $isadvfile verbs } }
on *:exit: { if $hget(isadv) { .hsave -io isadv $isadvfile verbs } }

;ana motöör :) :P
alias isadv {
if !$regex($1,^-+(l$|lx$|a$|d$|r$|i$|rc+([0-9]|[0-9][0-9])$|ic+([0-9]|[0-9][0-9])$|c+([0-9]|[0-9][0-9])$)) { echo $colour(info text) -a * Invalid parameters: $!isad($1) usage: $!isad(-[lxadric##],text)) | halt }
if !$isid {
;reklam kelimesi ekleme kısmı
if $regex($1,a) {
if !$hget(isadv,$2) { .hadd isadv $2 $ctime }
else { echo $colour(info text) -a * $!isad(-a,$2) also included. }
}

;eklenen kelimeleri listeleme
if $regex($1,l) {
var %i = 1
echo $colour(info text) -a [isadv listing starts: $hget(isadv,0).item items]
while %i <= $hget(isadv,0).item {
echo $colour(info text) -a $+(%i,$chr(41)) $hget(isadv,%i).item $iif($regex($1,x),$hget(isadv,$hget(isadv,%i).item ))
inc %i 1
}
echo $colour(info text) -a [isadv listing ends]
}

;reklam kelimesi silme kısmı
if $regex($1,d) && $hget(isadv,$2) { .hdel isadv $2 $ctime }
}
else {
;eğer renkleri vs saymak istiyorsak $isad(-c[rakam],cümle)
if $regex($1,c+([0-9]|[0-9][0-9])$) && $count($2,) >= $remove($1,-,c,r,i) { return $true }
var %is2 = $remove($strip($2),.,$chr(44),[,],$chr(41),$chr(42),$chr(123),$chr(125))

;regex tipi kullanım için $isad(-r,cümle)
if $regex($1,r) { var %i = $hget(isadv,0).item | while %i { if $regex(%is2,$hget(isadv,%i).item) { return $true } | dec %i 1 } }

;iswm tipi kullanım için $isad(-i,cümle)
else { var %i = $hget(isadv,0).item | while %i { if $hget(isadv,%i).item iswm %is2 { return $true } | dec %i 1 } }
return $false
}
}
alias isadvfile { return isadv.ini }



şimdi mavi kısım aslında sizin yazmanız gereken koruma onu istediğiniz yerde kullanabilirsiniz asıl ana modulumuz isadv modulu yani isadvertise (reklam ise anlamında :P) o kısmı kesinlikle ellememenizi tavsiye ediyorum :).
Özellikleri:
şu anki hali ile hem iswm hemde regex tabanlı search yapabiliyor [tamam bu uzmanlara gore bir acıklama ama lazım :)]
sonra birisi ile özelde konuşurken sizin eklediginiz reklam kelimelerinden birini kullandı script hiçbirşey yapmaz On *:open in guzeligi eğer o kişi size ozel açmadıysa direkt reklam kelimesi girdiyse o zaman devreye girer :) ne demek istedigimi tam anlamadıysanız denemenizi tavsiye ediyorum anlatmasıda zor :)

komutları nasıl kullanacagımıza gelelim
isadv fonkisyonunu iki şekilde kullanabilirsiniz /isadv ve $isadv
/isadv için parametreler -adlx tir
$isadv icin ise -irc# dir

/isadv parametreleri
eğer yeni bir reklam kelimesi ekleyeceksek ki bu kelimemizde *reklam* olsun burada * kullandım cunku size iswm tabanlı search anlatıcam regex tabanlıda reklam yazmak zorundasınız eğer * yazarsanız bu kelimeyi bulmaz regex tabanlı search daha hızlı ama dezavantaşı mesela reklam kelimemiz selllam olsun ve bu ll ler daha da coogalsın varsayalım selllllllllam gibide geliyorsa bu durumda iswm tabanlıda *se*am* gibi ekleyebilirsiniz veya *sel*am* gibide ekleyebilirsiniz ama regex te oyle bir şansınız yok neyse bu acıklamayıda yaptıgımıza gore gelelim parametrelere
/isadv -a kelime : bu kelime yerinde ne yazarsanız o kelimeyi reklam listesine kaydeder
/isadv -d kelime : listede ekli olan kelimeyi silmenizi saglar
/isadv -l : kelimeleri listeler
/isadv -lx : kelimeleri listeler aynı zamanda eklenme bilgilerinide $ctime olarak verir
/isadv de sadece l ve x i yan yana kullanabilirsiniz digerlerini kullanamazsınız örn: /isadv -ad gibi :)


$isadv parametreleri:
$isadv(-i,cumle) : cumle icinde iswm tabanlı search yapar
$isadv(-r,cumle) : cumle içinde regex tabanlı search yapar
$isadv(-c#,cumle) : # yazılan rakam kadar (max 99) renk karakteri arar eger yazılandan fazla veya aynı sayıda renk karakteri varsa reklam diye doner mesela reklamların cogu cok fazla renk kullanılarak yapılıyor daha hızlı calışmasını saglar.

$isadv de -ic ve -rc şeklindede kullanabilirsiniz ama -ir kullanamazsınız.


bizim koddaki $isadv(-ic10,$1-) nin anlamı : -ic10 iswm tabanlı search veya 10 dan fazla renk kodu varsa reklam say anlamında takıldıgınız yer varsa buraya sorabilirsiniz bu kod kullanılarak kanal icindede reklam koruma yapılır dedigim gibi ben size mircin $read fonksiyonu gibi bir fonksiyon veriyorum :) hem acemiye yonelik hem de uzman scripterlere yonelik bakalım ilgi olursa boyle absurt ve aynı zamanda yararlı kodlara devam ederim :).

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 08 Ocak 2006, 05:59   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



İşime Yaradı Tşk.

 
Alıntı ile Cevapla

Alt 14 Ocak 2006, 21:36   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



harika çalışıyor lakin tek bir problem var kimseyi banlamıyor

 
Alıntı ile Cevapla

Alt 14 Ocak 2006, 23:38   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



banlamasını istiyorsan verilen örnekten hareketle sizin ayarlamanız gerekli
verilen örnek:

;çalışır durumdaki reklam koruma örneği
on ^*:open:?: {
if $isadv(-ic10,$1-) { echo -st [Olası Reklam] $+(<,$nick,>) $1- | halt }
}

 
Alıntı ile Cevapla

Alt 25 Ocak 2006, 17:49   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



bu remoteye

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu başlıktakini ekleyip nasıl faaliyete gecirebiliriz Alience ? ugrastim biraz ama
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 25 Ocak 2006, 18:29   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



aslında en kolay uygulanabilecek koruma mantığı şöyleki

on 1:text:*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
os akill add $remove($gettok($address($nick,0),1,64),$chr(42) $+ $chr(33)) $+ @ $+ $chr(42) 5Sunucu kuraLLarına uymadığınız için ßağLantınız kesiLmiştir. }

yerine
on *:text:*:?: {
if $isadv(-ic10,$1-) { os akil add (nickse $nick/ip ise $address($nick,2)) vs vs }
}

ama ben yinede on open kulaln derim ilk mesaj yazıldıgında sadece reklam kontrolü yaparsın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kaza şansın azalır.

 
Alıntı ile Cevapla

Alt 25 Ocak 2006, 22:53   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



su connectte belli aralıklarla yapma olayı filanda varya, o olay..yaptım ama cok karıstı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 05 Şubat 2006, 11:43   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



bEnde Kanal Için Uyarladım Ama Yeni Eklediğim Reklam Kelimesi SCript Açılıp kapandıktan Sonra Görüyor ? Aynı Bi Bilgisayara Driver Tanıttktan Sonra REstart Atmak Gibi Diyim Yani Bunu nasıL Düzeltiriz ?

 
Alıntı ile Cevapla

Alt 19 Nisan 2006, 11:13   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Reklam koruması




Arkadaşlar yukarıdaki kodda bi eksikmi carlışmıyor :S
* $isad(-a,$2) also included.
ekliyorum ama tık yok :S

 
Alıntı ile Cevapla

Alt 24 Nisan 2006, 12:18   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Reklam koruması




-
* /hadd: no such table 'isadv' (line 19, script17.ini)
-
/isadv -a reklam ekliyorum yularıdaki hatayı veriyor neden vere bilir bu hatayı ?

 
Alıntı ile Cevapla

Cevapla

Etiketler
korumasi, koruması, mirc, mirc download, mirc indir, reklam


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Geliştirilebilir Reklam Koruması MatheuS mIRC Parça Kodlar 1 16 Şubat 2018 00:15
Reklam Bot Koruması oSmanLi Unreal IRCd 2 12 Şubat 2011 19:05
Reklam koruması Bakarmısınız wolera mIRC Scripting Sorunları 2 18 Haziran 2009 06:44
reklam koruması. Lord_Raiden mIRC Scripting Sorunları 5 26 Kasım 2008 15:43
Reklam Koruması.. hurewi mIRC Scripting Sorunları 1 27 Haziran 2005 23:14