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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Aralık 2004, 15:31   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Ozele Reklam Kodlari




******************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-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) || f (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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?
******************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-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) || f (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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?
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 21 Aralık 2004, 17:00   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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ı.

 
Alıntı ile Cevapla

Alt 21 Aralık 2004, 18:38   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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.
 
Alıntı ile Cevapla

Alt 18 Mayıs 2005, 02:21   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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


Konu izmir_LEE tarafından (18 Mayıs 2005 Saat 02:22 ) değiştirilmiştir. Sebep: Yazım Hatası
 
Alıntı ile Cevapla

Alt 23 Mayıs 2005, 14:12   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Alt 23 Mayıs 2005, 18:19   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 23 Mayıs 2005, 21:18   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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.

 
Alıntı ile Cevapla

Alt 23 Mayıs 2005, 21:55   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Alt 24 Mayıs 2005, 00:00   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Alt 24 Mayıs 2005, 00:04   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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.


Konu erdem55 tarafından (24 Mayıs 2005 Saat 00:12 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
kodlari, mirc, mirc download, mirc indir, ozele, reklam


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

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
ozele+davet Leo mIRC Scripting Sorunları 7 15 Mayıs 2009 02:05
Adsanse Kodlari Kaderin_Cilvesi Google Admob ve Adsense 2 24 Aralık 2008 02:12
Ozele Mesaj Kan mIRC Scripting Sorunları 11 19 Ağustos 2007 09:11