pckopat

******************Ozele reklam************************

#ozel on
on 1:TEXT:*:?: {
if $me !isop $comchan($nick,1) { halt }
if $nick isop $comchan($nick,1) { halt }
if (ziyaret isin $1-) || (tanışabilirmiyiz isin $1-) || (www. isin $1-) || ( $chr(47) $+ j isin $1-) || (irc. isin $1-) || (http: isin $1-) || ( $chr(47) $+ server isin $1-) || ( $chr(35) isin $1-) || ( S-E-R-V-E-R-İ-M isin $1-) || ( secure isin $1-) || ( S o s y e t e m isin $1-) || ( canalına isin $1-) || ( kanalına isin $1-) || ( S-E-R-V-E-R- isin $1-) || ( hìsset.nêt isin $1-) || ( hisset.nêt isin $1-) || ( S- E -R -V -E -R- isin $1-) || ( Sinemi isin $1-) || ( Sohbetin isin $1-) || ( adresi isin $1-) || ( Ne Arasan Var isin $1-) || ( PC`KoPaT isin $1-) {
ban $comchan($nick,1) $nick 2 | kick $comchan($nick,1) $nick 0,5 Ozelime Reklam Yapma4!
}
}
on 1:action:*:?: {
if $me !isop $comchan($nick,1) { halt }
if $nick isop $comchan($nick,1) { halt }
if (ziyaret isin $1-) || (tanışabilirmiyiz isin $1-) || (www. isin $1-) || ( $chr(47) $+ j isin $1-) || (irc. isin $1-) || (http: isin $1-) || ( $chr(47) $+ server isin $1-) || ( $chr(35) isin $1-) || ( S-E-R-V-E-R-İ-M isin $1-) || ( secure isin $1-) || ( S o s y e t e m isin $1-) || ( canalına isin $1-) || ( kanalına isin $1-) || ( S-E-R-V-E-R- isin $1-) || ( hìsset.nêt isin $1-) || ( hisset.nêt isin $1-) || ( S- E -R -V -E -R- isin $1-) || ( Sinemi isin $1-) || ( Sohbetin isin $1-) || ( adresi isin $1-) || ( Ne Arasan Var isin $1-) || ( PC`KoPaT isin $1-) {
ban $comchan($nick,1) $nick 2 | kick $comchan($nick,1) $nick 0,5 Ozelime Reklam Yapma4!
}
}
on 1:notice:*:?: {
if $me !isop $comchan($nick,1) { halt }
if $nick isop $comchan($nick,1) { halt }
if (ziyaret isin $1-) || (tanışabilirmiyiz isin $1-) || (www. isin $1-) || f (www. isin $1-) || ( $chr(47) $+ j isin $1-) || (irc. isin $1-) || (http: isin $1-) || ( $chr(47) $+ server isin $1-) || ( $chr(35) isin $1-) || ( S-E-R-V-E-R-İ-M isin $1-) || ( secure isin $1-) || ( S o s y e t e m isin $1-) || ( canalına isin $1-) || ( kanalına isin $1-) || ( S-E-R-V-E-R- isin $1-) || ( hìsset.nêt isin $1-) || ( hisset.nêt isin $1-) || ( S- E -R -V -E -R- isin $1-) || ( Sinemi isin $1-) || ( Sohbetin isin $1-) || ( adresi isin $1-) || ( Ne Arasan Var isin $1-) || ( PC`KoPaT isin $1-) {
ban $comchan($nick,1) $nick 2 | kick $comchan($nick,1) $nick 0,5 Ozelime Reklam Yapma4!
}
}
#ozel end


Merhaba ben Bu özeLe RekLam KorumaSını IP e değiLde Nicke Atmasını iStiyorum NasıL edebiLirim?

megalodon

ban komutunu unuttum ama ban komutunda şu özellik var
ban nick 1
ban nick 2
ban nick 3
ban nick 4
ban nick 5
hepsi farklı şekilde ban atar.

"ban $comchan($nick,1) $nick 2" şeklinde kodda yazan kısmın sonundaki 2 rakamını değiştir bakalım olacak mı.

Alience

mode #kanal +b nick senin kodlarda mode $comchan($nick,1) +b $nick
te
if $me !isop $comchan($nick,1) { halt } sadece sizin aynı anda bulundugunuz ilk kanal için geçerli beraber olduğunuz 2 3 kanal varsa onlarda çalışmaz buyur sana daha guzel bir kod
burada ($checkad(-a,$1-) >= 5) kısmı ctrl k o r u b lerin hepsini sayar normalde bir kullanıcı ilk mesaj olarak 5 tane renk içeren bir şey yazmaz yada bold vs
kodun 2. bir guzeliği eğer özelde birisi ile konuşurken size www. gibi adres yazsa bile reklamcı diye atmazsınız sadece open kullandıgımız icin ilk atılan mesajı görür ($checkad(-c,$1-) >= 5) yaparsak sadece renkli gorur eğer istemmesek sadece kelimeleri gorsun derseniz
if (($checkad($1-) != $null) || ($checkad(-a,$1-) >= 5)) { satırını
if ($checkad($1-) != $null) { olarak değiştirin

ayrıca bu kodu sadece kanal sahipleri veya oplar değil herkez kullanabilir sonucta reklamları @reklams penceresine toplar bir kanala girdiğinizde 10 15 tane pencere acılması yerine sadece bir tane açılacak

on ^1:OPEN:?:*: {
if (($checkad($1-) != $null) || ($checkad(-a,$1-) >= 5)) {
if (!$window(@reklams)) { window -nek0 @reklams }
echo -mt @reklams $+(<,$nick,>) $1-
var %i = 1
while (%i <= $comchan($nick,0)) {
if (($nick isop $comchan($nick,%i).op) || ($nick ishop $comchan($nick,%i).op)) { goto end }
if ($comchan($nick,%i).op == $true) {
mode $comchan($nick,%i) +b $nick
;eğer ip ye ban atmak istersek yukarıdakinin yerine /ban $comchan($nick,%i).op) 2 yazıcaz
kick $comchan($nick,%i) $nick Reklam
}
inc %i 1
}
halt
}
:end
}
alias checkad {
;kelimelerin arasına - koymak zorundasın ve en başa , en sonada
var %reklamwrd-1 = -ziyaret-tanışabilirmiyiz-www.-/j-/server-http:-url-irc.-.com-.net-.org-#-
;eğer kelimelerimiz çoksa aşağıdaki gibi %reklamwrd-2 %reklamwrd-3 gibi gidebilirsin
; var %reklamwrd-2 = -denemedirw-
if ($1 == -c) { return $count($2-,) }
if ($1 == -a) { return $calc($count($2-,) + $count($2-,) + $count($2-,) + $count($2-,) + $count($2-,)) }
else {
var %x = 1 , %checkedword = $remove($strip($1-),-,$chr(91),$chr(93),$chr(32),$chr(40),$chr(41),_,?, !,>,<,«,»)
while ([ % $+ [ reklamwrd- $+ [ %x ] ] ] != $null) {
var %i = 1
while ($gettok([ % $+ [ reklamwrd- $+ [ %x ] ] ],%i,45) != $null) {
if ($gettok([ % $+ [ reklamwrd- $+ [ %x ] ] ],%i,45) isin %checkedword) { return $gettok([ % $+ [ reklamwrd- $+ [ %x ] ] ],%i,45) }
inc %i 1
}
inc %x 1
}
}
}


Lütfen kod ile ilgili yorumları eksikleri belirtiniz, bu irc ye giren herkeze yarayabilecek bir kod ki foruma girenlerin faydalanmasını isterim :)

__________________
1/3/2006 tarihi itibari ile forum ile ilişkimi kestim.

izmir_LEE

Test ettim Alience soruna rastlamadım.Scripting bilgim henuz neredeyse hiç yok ve sizlere imrendiğimi söyleyebilirim.Emekleriniz için Sağolun.

__________________

izmir_LEE

Yalnız birşey sormak istiyorum.Buna bir diyalog yapmak istiyorum ve diyelim yaptım.Misal; %reklamwrd ye ekleme yapmak istiyorum diyalogda.Diyaloga "kelime ekleme" adı altında ID'si 3 olan bir "Edit" koydum.bu edite nasıl bir kod yazacam ki bu reklam kelimelerine ekleme yapsın ? Sorum biraz karışık oldu gibi ama inşallah anlaşılır.Selamlar

__________________

Flyman

izmir_lee sadece id vermen yeterli degilki diyologunu veirirsen yardimci olunur sanirim diyalog yaptinda onuda kopyaliyi ver

ALIENCE ya emekli yazisi hic yakismamis sana bu ne emekliligi bu kadar genc emekli olmak varmi usta felan olsa basligin daha iyi olur daha sana ihtiyac cok burda

erdem55

ban $comchan($nick,1) $nick 2 | kick $comchan($nick,1) $nick 0,5 Ozelime Reklam Yapma4!
ben üstekinin yerine alttaki komutu koymak istiyorum ama bir türlü yapamadım.

cs akick $comchan($nick,1) add $address($nick,2) 14,1[0, Özelimde Reklam 14] Tespit ediLdi ! 2,8( $me ) 0,7Tarih: $date , %gun . Saat: $time .Kick Count:- %kick - | inc %kick | cs akick # enforce | timer 1 3 /.cs akick $comchan($nick,1) del $address($nick,2)

kısaca özetlim mode komuut ile değilde akick şeklinde ban attırmaya çalışıyorum bu mümkün ama bir türlü doğru komutu bulamadım yardımınızı bekliyorum.

el33t

cs akick # enforce daki # işaretini $comchan($nick,1) ile değiştir.

__________________

leet_haxor

eyv. kod gayet hos.. ama ben genel bi konuya deginmek istiyorum.. yanlıs anlama seninle alakası yok sende görünce aklıma geldi..

arkadaslar artık parantezle değer döndürme çok eskilerde kaldı örn:
[ $+ [ %değişken/%metin ] ] bunun yerine önce $eval($tanıtıcı,<0,1,2>) sonrada $($tanıtıcı,<0,1,2>) yapıldı..Ben $() tanıtıcısını tavsiye ederim kesinlikle çünkü işlevselliği diğerlerine göre fazla.. örneğin event içinde bile kullanılabiliyo.. inceleyin görceksiniz

erdem55

el33t çok saol çalıştı valla neden aklıma gelmedi ki bu benim $comchan yaptım ama sonuna ($nick,1) eklemek hiç aklıma gelmedi açıkçası neyse tekrardan tşk ederim.