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 Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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- Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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 :)
Konu Alience tarafından (22 Aralık 2004 Saat 00:54 ) değiştirilmiştir.
|