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/)
-   -   özele reklam ile ilgili (https://www.ircforumlari.net/mirc-scripting-sorunlari/12318-ozele-reklam-ile-ilgili.html)

FoCuS21 18 Şubat 2006 21:23

özele reklam ile ilgili
 
Merhaba arkadaşlar :

Özelide gelen reklamları scriptin içine bi txt dosyası koyacam öernegin özelime : xxxxxxx yazdıkları zaman bu yazıda scriptin içindeki txt dosyasının içinde varsa reklam yapan kişiyi serverde olsada olmasade auser liste atsın serverde ise bulundum butün kanllardan atsın nasıl yaparız . bir iki deneme yaptım başarısız oldu .

yardım edermisiniz.

FoCuS21 18 Şubat 2006 21:50

ek olarak
 
birde buna özele gelen reklamıdaki kişi ignore edip pecereyide kapatsa hiç fena olmaz :)

kolay gelsin.

MaeLStrOm 18 Şubat 2006 22:48

Denediklerini gösterirmisin onlardan yola cıkalım?

FoCuS21 19 Şubat 2006 13:08

Alıntı:

On 1:OPEN:?:*::*:{
var %i $lines(xxx.txt)
while $read(xxxx.txt,%i) {
if ($read(xxx.txt,%i) isin $3-) .ucur $2
dec %i
}
}
alias ucur {
if ($comchan($1,0)) {
var %ş $comchan($1,0)
while (%ş > 0) {
.cs akick $comchan($1,%ş) add $+($1,!*@*) özel mesajında reklam ..
.cs akick $comchan($1,%ş) enforce
.cs akick $comchan($1,%ş) del $+($1,!*@*)
.auser 666 $$1!*@*
dec %ş
}
}
}
böyle birşey
eksikvar gibi birde ignore ve pencereyi kapayıp auser 666 eklicek

el33t 19 Şubat 2006 14:19

on *:open:?:*:{ var %: = 1 | while $read(bilmemne.txt,%:) { if $v1 iswm $strip($1-) { kbcom $nick özel mesajında reklam | .auser 666 $+($nick,!*@*) | .ignore $nick | close -m $nick | return } | inc %: } }
alias kbcom { var %\ = 1 | while $comchan($$1,%\) { var %' = $v1, %. = $+($1,!*@*) | cs akick %' add %. $2- | cs akick %' enforce | cs akick %' del %. | inc %\ } }

FoCuS21 19 Şubat 2006 15:06

malesef çalışmadı alla alla

el33t 26 Şubat 2006 14:00

Kodu yukarda olduğu şekilde aldım ve denedim, çalışıyor. Kırmızıyla yazılmış bilmemne.txt'i istediğin isimle değiştirip mIRC klasörüne koyduğunda sorunsuz çalışacaktır. bilmemne.txt dosyası içine *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gibi alt alta istediğin şeyi koyduğunda biri [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazdığında o kişi ortak bulunduğun kanallardan ChanServ akick komutuyla atılacaktır.

FoCuS21 26 Şubat 2006 18:30

ben nerede yanlış yapıyorum script tetık yoq bu andonu ekliyorum ama banamısın demiyor neden ola bilir

MaeLStrOm 26 Şubat 2006 19:02

Kod:

on *:open:?:{
var %i = $lines(kufur.txt)
while %i {
if ($read(kufur.txt,%i) isin $1-) {
kbcom $nick
.auser 666 $+($nick,!*@*)
.ignore $nick
close -m $nick
return
}
dec %i
}
}


el33t nin kbcom aliasını aynen kullanabilirsin.

FoCuS21 27 Şubat 2006 19:45

Alıntı:

on *:open:?:{ while $read(kufur.txt) | .msg $nick Küfür Etme..! | closemsg $nick | .auser 666 $+ | kbcom $nick özel koruma... ($nick,!*@*) }
var %i = $lines(kufur.txt)
while %i {
if ($read(kufur.txt,%i) isin $1-) {
kbcom $nick
.auser 666 $+($nick,!*@*)
.ignore $nick
close -m $nick
return
}
dec %i
}
}
alias kbcom { var %\ = 1 | while $comchan($$1,%\) { var %' = $v1, %. = $+($1,!*@*) | cs akick %' add %. $2- | cs akick %' enforce | cs akick %' del %. | inc %\ } }
banamısın demiyo nerede yanlış yapıyorumanlamadım gitti

el33t 27 Şubat 2006 19:50

MaeLStrOm'un ya da benim yazdığım kodu kullan, sende olan kodda while kullanımı yanlış on OPEN eventi içinde.

FoCuS21 28 Şubat 2006 11:11

Alıntı:

On 1:OPEN:?:*::*:{ var %: = 1 | while $read(küfür.txt,%:) { if $v1 iswm $strip($1-) { kbcom $nick özel mesajında reklam | .auser 666 $+($nick,!*@*) | .ignore $nick | close -m $nick | return } | inc %: } }
alias kbcom { var %\ = 1 | while $comchan($$1,%\) { var %' = $v1, %. = $+($1,!*@*) | cs akick %' add %. $2- | cs akick %' enforce | cs akick %' del %. | inc %\ } }
son hali bu ama gene tık yoq aliseste problem vardiyecem ignorede etmiyo yani hiç çalışmıyo

FoCuS21 28 Şubat 2006 11:17

birde dll dosyası yaptım kodu ondanmı oldu acaba

Brain 28 Şubat 2006 11:53

HATALI EVENT Kullanıyorsunda ondan!

dikkat edersen.

on *:open:?:*:{

basliyor event

sen ise

On 1:OPEN:?:*::*:

yapmissin acaba neden calismiyor!

artemiSo 28 Şubat 2006 17:52

Arkadaşlar Ozele. Reklam geldiğin de. otomatik gline nasıl atabilirim soyle bir komut var Raw lı bunu nasıl ayarlaya bilirim Teşk. ozele reklam gelince gline atıcak..

raw 301:*:{
if (US isin $nick-) || (net isin $3-) || (N E T isin $3-) || (C O M isin $3-) (U S isin $3-) || (TK isin $3-) || (com isin $3-) {
gline $2 86200 0,4 4/Reklam Koruması
}
}

MaeLStrOm 28 Şubat 2006 18:13

kbcom u gline şekline uyararak halledebilirsin.Rawlarla işin yok şu an.Bu farklı bir olay.
alias kbcom { gline $1 Reklam }
gibi

artemiSo 28 Şubat 2006 19:30

On 1:OPEN:?:*:{ var %: = 1 | while $read(küfür.txt,%:) { if $v1 iswm $strip($1-) { kbcom $nick özel mesajında reklam | .auser 666 $+($nick,!*@*) | .ignore $nick | close -m $nick | return } | inc %: } }
alias kbcom { gline $1 4Reklam/Koruması } }

arkadaşım yaptım sağolda. peki ben bu kufurleri Txt. den değilde kendim eklesem Remoteye ola bilirmi? yardımcı olursanız sevinirim bunda ne gibi ekleme veya cıkarma yapsam Txt. te ye değilde kendim ekleyince ozelden reklamı atar saygılar.

MaeLStrOm 28 Şubat 2006 21:13

alias küfürekle {
if !$hget(küfür) {
hmake küfür 100
}
if !$hget(küfür,ler) {
hadd küfür ler $1
}
else {
hadd küfür ler $addtok($hget(küfür,ler),$1,32)
}
}
alias küfürsil {
if $hget(küfür,ler) {
hadd küfür ler $deltok($hget(küfür,ler),$1,32)
}
}
On 1:OPEN:?:*:{
var %. = $numtok($1-,32)
while %. {
if $istok($hget(küfür,ler),$gettok($1-,%.,32),32) {
gline $nick Reklam Koruması
close -m $nick
}
dec %.
}
}
on *:connect:hmake küfür 100 | hload küfür küfür.püf
on *:disconnect:hsave küfür küfür.püf

/küfürekle küfür
/küfürsil küfür
yazarak ekler silebilirsin.

artemiSo 28 Şubat 2006 22:00

harikasın dostum eline sağlık

FoCuS21 01 Mart 2006 00:40

banada bi kod allah rızası için :)

MaeLStrOm 01 Mart 2006 22:03

Senin sorunun nedir focus?Acıkca yazarmısın

FoCuS21 02 Mart 2006 12:16

vermiş oldunuz kodu giriyorum çalışmıyo yani varlıgını belli eden hiç sey yoq anddon sanki yoq.

artemiSo 02 Mart 2006 16:08

3.16 dimi mircin? bende calıştı yanlışlık yapıyorsundur biraz cabala olur.


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

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