| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Kimler Çevrimiçi |
Toplam: 129 kullanıcı aktif
» 1 Kayıtlı
» 127 Ziyaretçi
Google, chaos415
|
|
|
Özel Karşılama Kodları |
|
Yazar: Admin - 05-13-2020, 09:03 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
 |
ÖZEL KARŞILAMA ADDONLARI
Kod: on *:open:?:{
var %:idle $replace($duration($idle),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta,min,Dakika,Hr,Saat,sec,Saniye)
msg $nick Selam $nick
msg $nick Özel penceresini açtığınız kişi $me !
msg $nick Bugün $date Saat $time
msg $nick Konuşmadığım süre: %:idle
if $away { msg $nick Şuanda away'ım Sebep: $strip($awaymsg) }
inc %:pen
msg $nick Toplam açılan özel pencerem sayısı %:pen
msg $nick Şu an özelimdeki $+($query(0),.) kişisin
msg $nick Müsait olduğumda cevap verilecektir..
}
Kod: on *:text:*:*:{
if ($nick == $nick) || ($nick == GamZe) {
if !Zline == $1 { msg $nick 13 Açtırmak iStediginiz Ip numarasını Özelime Yazabilirsiniz.. }
if !şikayet == $1 { msg $nick 13 !ŞikayetEdene EttiĞiniz Kişiye EttiĞiniz Konuya ßaqLı oLarak DeqerLendiriLiCekdir. }
if !Help == $1 { msg $nick 13 !help Komut SorCaksanız HeLp KanaLını KuLLanınız. O KanaL Sizin İçin Var. /join #help YapaßiLirsiniz. } if !sohbet == $1 { msg $nick 13 !Sohbet iStiOsan ßoSuna ßekLeme GLoßaL KanaLLarı KuLLan. / }
if !aşk == $1 { msg $nick 13 !Aşk'a ayırıCak vakdIm yoq Ben Aradığım aŞkı Buldum }
if !access == $1 { msg $nick 13 !Access iStediĞiniz KanaLın HeLp KanaLına ve/veya SopLarına Gidiniz.
}
}
}
Kod: menu status,menubar,channel {
Korumalar
.-
.» Özel Karşılama
..Acık:.enable #kaarsıla | .echo -a Özel karşılama açıldı.
..Kapalı:.disable #kaarsıla | .echo -a Özel karşılama kapatıldı.
.-
}
#kaarsıla on
on !*:open:?:*:{
if $nick == NoMercy { halt }
msg $nick 4 Merhaba 2 $nick
msg $nick 4 Bugün Saat ; 10 $time Tarih ; $date
msg $nick 4 Konuşmadığım Süre 10 $replace($duration($idle),mins,Dakika,secs,Saniye, hr,Saat,days,Gün)
msg $nick 4 İsim : 2 Dogan can
msg $nick 4 Şehir : 2 İSTANBUL
msg $nick 4 Yaş : 2 30
msg $nick 4 Takım : 2 BEŞİKTAŞ!
}
#karsıla end
Kod: on *open:?:{
msg $nick 1,7S elam 0,2Hg 3,1 $nick
msg $nick 7,1Bugün0,12 $date 7,1 ve Saat 0,12 $time(HH:nn.ss)
msg $nick 11,1Toplam Açılan Özel Pencerem Sayısı 0,4 %q!
msg $nick 7,1Şu an Özelimdeki015,1 $+($query(0)15.)15 . 15 Kişisin. 9,1 Ben server görevlisi.7 $me
msg $nick 13,1Sizede Diğerleri Gibi 8,1 En Kısa Sürede 11,1 Bakmaya Çalışıcam. 4,1 Bakmazsam Israr Etme LÜtfen Olurmu !!!..
inc %q!
}
özelinize gelen insanlara sizinle görüşmek istedikleri kategori hakkında hazır komutlarla cevaplarla yardım etmek yada özelden karşılamaktır.
Siz bu komutlara dilediğiniz gibi eklemeler yapabileceğiniz gibi yada kısa kısa kendinize uyumlu hale de getirebilirsiniz.
Kod: on *:OPEN:?:*: {
/msg $nick Görüşmek İstediğiniz Kategoriyi Seçiniz (!kategori adı ) !access !şikayet !help !ircd !sohbet !ssl !raw !ircarabirim !ping !lag !operhelp !khaled !bnc !eggdrop !shell | halt }
on *:text:*:?:{
if !access iswm $1 { msg $nick Muhabbet KanaLı Dı$ında ßir KanaLın Acc-Change ini KuLLanmıyorum. Muhabbet KanaLı içinde Ki$iseL gözLem ve ki$inin kanaL performansına göre değerLendiriyorum.}
if !şikayet iswm $1 { msg $nick KanaL GeneL ŞikayetLeriniz İçin /ms <Notunuz/Mesajınız> yazıp gönderiniz.}
if !help iswm $1 { msg $nick ServisLer için ExampLe : /cs help /ns help /ms help yapabilirsiniz. MeşkuL deyiLsem sizinLe iLgiLeneßilirim.}
if !ircd iswm $1 { msg $nick ircd komutLarı için /helpop yapaßiLirsiniz. DetayLı ßiLgi için meşkuL deyilsem ßirebir yardımcı olabilirim. }
if !sohbet iswm $1 { msg $nick MeşkuL değilsem herzaman sohbete açığım. }
if !ssl iswm $1 { msg $nick SSL(secure socket layer) network üzerindeki bilgi transferi sırasında güvenlik ve gizliliğin sağlanması amacıyla Netscape tarafından geliştirilmiş bir güvenlik protokolüdür.Bu şekilde bağlanmak için kendi donanımınız kurup server özel portu(6697) ile bağlanabilirsiniz. Yüklü oLdugunu //echo -s $ ssl komutunu kullandıktan sonra $true cevabını alırsanız anlayabilirsiniz.}
if !raw iswm $1 { msg $nick RAW:çiğmemiş,pişmemiş sözlük anlamı. IRC’de ise Rawlar “Serverin Diri mesajları” anlamına gelmektedir.Yani bu mesajlar, IRC server programının içine düzenli bir şekilde yerleştirilip, program tarafından belirli zamanlarda kullanıcılara iletiliyor.Raw’larla ilgili ilk belgelerin sahibi Jarkko Oikarinen ve S. M. Allen Rawları 6 ana bölüme ayırıyorlar.}
if !ircarabirim iswm $1 { msg $nick Sık KuLLanıLan ÖrnekLerdir: Mirc, Xchat, Bersirc, Bitchx, Klient, GLChat, PircH, Chat Space,Miranda IM,Trillian }
if !ping iswm $1 { msg $nick Pocket Internet Network Group /ping nick & /raw ping nick }
if !lag iswm $1 { msg $nick Lag, gönderdiğiniz mesajın başkaları tarafından okunmasında yaşanan gecikmedir. Normalde bu sadece bir kaç saniye sürer, ancak ağ çok meşgul olduğunda bu süre daha da uzayabilir ve bu duruma da LAG denir. PING komutuyla, iki kişi arasındaki lag süresini ölçebilirsiniz. Sunucuları değiştirmek, yoğun olan lagı azaltmanıza yardımcı olabilir.}
if !operhelp iswm $1 { msg $nick Yardım almak icin #ircop kanalına qiriniz. (/j ircop)}
if !khaled iswm $1 { msg $nick Khaled Mardam Bey.1968’de Jordan’ın (Ürdün) Amman şehrinde doğdu. İsminin ilginç olmasının sebebi ise Suriye’li bir babası, Filistinli bir annesi ve Danimarka’lı bir büyükannesinin olması. Ama şuan kendisi bir İngiliz vatandaşı. İngiltere de oturuyor ve 1995’te kurduğu mIRC Co.Ltd şirketinde çalışıyor.}
if !bnc iswm $1 { msg $nick BNC (BouNCer), kullanıcıların shell üzerinden IRC sunucularına bağlanmasını sağlar. BNC, bir proxy server kurmanızı sağlamaz, kendisi proxy sunucur. BNC bu hizmeti verirken sizin shell hesabınıza bağlanmanız gerekmez. Mirc, IRC programlarını kullanarak BNC üzerinden istediğiniz sunucuya bağlanırsınız.Shell alıdığınız şirketin size verdiği imkanlarla yüzlerlerce vhost ve IP kullanabilir, yaratabilirsiniz.}
if !eggdrop iswm $1 { msg $nick Aslında eggdrop da bir irc bottur ancak shell ile çalıştırılabilen, geliştirilebilen bir programdır. IRC Bot gibi kanalınızda 24 saat durmanın yanında (yüklediğiniz scriptlere göre) kendi listesinde bulunan kullanıcılara op veya voice verme, kanal koruma (küfür, flood vs), kanalda olan yazışmaları kayıt etme gibi değiştirilebilir ve programlanabilir özellikleri vardır.}
if !shell iswm $1 { msg $nick Basitçe, bir shell hesabı aldığınızda sürekli ve yüksek hızda(T1,T3,Kablo vs.) internete bağlı bir bilgisayarınız olacak diyebiliriz. İrc sunucusu kurmak, eggdrop kurmak yada bir bouncer kurmak için sheller ideal olabilir. Shell hesabınızın olduğu bilgisayarlar donanım ve yazılım olarak üst seviye bilgisayarlardır. Genellikle Unix, Linux ve FreeBSD gibi işletim sistemleri kullanılır.}
|
|
|
|
Sqline Listesini Temizleme Addonu |
|
Yazar: Admin - 05-13-2020, 08:51 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Sunucunuzdaki sqline listesini tek tek silmek yerine, bu kod sayesinde sqlineyi temizleyebileceksiniz. mIRC Remote kısmına ekleyin ve /_temizle yazarak sqline listesini temizleyin..
Kod: alias _temizle { .set -u3 %:sqline on | echo -a Sqline List Temizleniyor.. | os sqline list }
on *:notice:*:?:{
if %:sqline == on {
if ($nick == OperServ) && (SQLINE listesinden silindi !isin $strip($1-)) {
if (Aktüel liste: isin $1-) { return }
os sqline del $1
}
}
}
|
|
|
|
|
Mass Repeat & Repeat | Kollektif Tekrar ve Tekrar koruması. |
|
Yazar: Admin - 05-13-2020, 08:45 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Adından da anlaşılacağı gibi.. Toplu tekrar ve tekrar koruması..
olayımız şu..
birden fazla nick'in aynı metni tekrar etmesi durumundan korur..
ayrıca bir nick içinde yine aynı durum geçerlidir..
farklı nick'lerin tekrar taşkınlıkların da banlar tek,tek degil +bbb şeklinde atılır.. böylece zaten tekrar durumlarında kirlenen kanalı ban ve kick notlarıyla işgal etmez..
kırmızı alan ne kadar süre içinde; mavi alan kaç tekrara izin verildiğini gösterir.. musahamanıza göre ayalarını yapabilirsiniz..
Çalışma örneği:
Kod: on *:text:*:#: mul $chan $nick $1-
alias -l mul {
;<#chan> <nick> <text>
hinc -mu10 $+(f:,$1) $md5($3-) | hadd -mu10 $+(n:,$1) $2 $1
if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item {
var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
while %i <= $token(%b~,0,38) {
mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
tokenize 32 $token(%b~,%i,38)
kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
inc %i
}
}
}
|
|
|
|
|
Spamfilter Analiz v1 |
|
Yazar: Admin - 05-13-2020, 08:37 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorumlar (2)
|
|
3 Farklı seçenek ile paylaşımdır.
Spamfilter kullanıcıları için takip\analiz sonuçu çıkarmalarında zorluk çeken yöneticiler için tasarlanmış takip sistemi;
@Reklam - Bilgi pençere sonuçlandırılmış halindedir.
Kod: On &^*:SNOTICE:*: {
If ($strip($1) == [Spamfilter]) && ($3 == matches) && ($4 == filter) {
If ($gettok($7,1,58) == $me) {
If (!$query($gettok($2,1,33))) {
Query $gettok($2,1,33)
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,10)) 4Sayın Yöneticim 2[ 4 $gettok($2,1,33) 2] 4 Nickini Kullanan KişI Bu Mesajı Size Göndermeye Çalışırken Sunucu Korumalarına Yakalandı. $+($chr(3),3,$str(-,10))
Echo -tm $gettok($2,1,33) $8-
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,30))
}
Else {
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,10)) 4Sayın Yöneticim 11[ 4 $gettok($2,1,33) 11] 4 Nickini Kullanan KişI Bu Mesajı Size Göndermeye Çalışırken Sunucu Korumalarına Yakalandı. $+($chr(3),3,$str(-,10))
Echo -tm $gettok($2,1,33) $8-
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,30))
}
Halt.
}
If (!$window(reklam)) {
Window -ekb @Reklam
}
If (%otogline [ $+ [ $gettok($2,1,33) ] ] == $null) {
Set -u17 %otogline [ $+ [ $gettok($2,1,33) ] ] 1
}
Echo -tm @Reklam $+($chr(3),3,$str(-,10)) Reklam istatistiğI $+($chr(3),3,$str(-,10))
Echo -tm @Reklam $chr(160)
Echo -tm @Reklam $+($chr(3),4,1[ Şüpheli Nick ]: ,$chr(3)) $gettok($2,1,33)
Echo -tm @Reklam $+($chr(3),4,1[ IP ]:,$chr(3)) $gettok($2,2,64)
Echo -tm @Reklam $+($chr(3),4,1[ Kime ]:,$chr(3)) $gettok($7,1,58)
Echo -tm @Reklam $+($chr(3),4,1[ Kullanılan Cümle ve Sebebi ]:,$chr(3)) $8-
Echo -tm @Reklam $+($chr(3),4,1[ Yasak İçeren Kelime ]:,$chr(3)) $5
Echo -tm @Reklam $chr(160)
Halt.
}
}
Kod: On &^*:SNOTICE:*: {
If ($strip($1) == [Spamfilter]) && ($3 == matches) && ($4 == filter) {
If ($gettok($7,1,58) == $me) {
If (!$query($gettok($2,1,33))) {
Query $gettok($2,1,33)
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,10)) 4Sayın Yöneticim 2[ 4 $gettok($2,1,33) 2] 4 Nickini Kullanan KişI Bu Mesajı Size Göndermeye Çalışırken Sunucu Korumalarına Yakalandı. $+($chr(3),3,$str(-,10))
Echo -tm $gettok($2,1,33) $8-
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,30))
}
Else {
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,10)) 4Sayın Yöneticim 11[ 4 $gettok($2,1,33) 11] 4 Nickini Kullanan KişI Bu Mesajı Size Göndermeye Çalışırken Sunucu Korumalarına Yakalandı. $+($chr(3),3,$str(-,10))
Echo -tm $gettok($2,1,33) $8-
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,30))
}
Halt.
}
If (!$window(reklam)) {
Window -ekb @Reklam
}
If (%otogline [ $+ [ $gettok($2,1,33) ] ] == $null) {
Set -u17 %otogline [ $+ [ $gettok($2,1,33) ] ] 1
}
Echo -tm @Reklam $+($chr(3),3,$str(-,10)) Reklam istatistiğI $+($chr(3),3,$str(-,10))
Echo -tm @Reklam $chr(160)
Echo -tm @Reklam $+($chr(3),4,1[ Şüpheli Nick ]: ,$chr(3)) $gettok($2,1,33)
Echo -tm @Reklam $+($chr(3),4,1[ IP ]:,$chr(3)) $gettok($2,2,64)
Echo -tm @Reklam $+($chr(3),4,1[ Kime ]:,$chr(3)) $gettok($7,1,58)
Echo -tm @Reklam $+($chr(3),4,1[ Kullanılan Cümle ve Sebebi ]:,$chr(3)) $8-
Echo -tm @Reklam $+($chr(3),4,1[ Yasak İçeren Kelime ]:,$chr(3)) $5
Echo -tm @Reklam $chr(160)
Halt.
}
}
Kod: On &^*:SNOTICE:*: {
If ($strip($1) == [Spamfilter]) && ($3 == matches) && ($4 == filter) {
If ($gettok($7,1,58) == $me) {
If (!$query($gettok($2,1,33))) {
Query $gettok($2,1,33)
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,10)) 4Sayın Yöneticim 2[ 4 $gettok($2,1,33) 2] 4 Nickini Kullanan KişI Bu Mesajı Size Göndermeye Çalışırken Sunucu Korumalarına Yakalandı. $+($chr(3),3,$str(-,10))
Echo -tm $gettok($2,1,33) $8-
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,30))
}
Else {
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,10)) 4Sayın Yöneticim 11[ 4 $gettok($2,1,33) 11] 4 Nickini Kullanan KişI Bu Mesajı Size Göndermeye Çalışırken Sunucu Korumalarına Yakalandı. $+($chr(3),3,$str(-,10))
Echo -tm $gettok($2,1,33) $8-
Echo -tm $gettok($2,1,33) $+($chr(3),3,$str(-,30))
}
Halt.
}
If (!$window(reklam)) {
Window -ekb @Reklam
}
If (%otogline [ $+ [ $gettok($2,1,33) ] ] == $null) {
Set -u17 %otogline [ $+ [ $gettok($2,1,33) ] ] 1
}
Echo -tm @Reklam $+($chr(3),3,$str(-,10)) Reklam istatistiğI $+($chr(3),3,$str(-,10))
|
|
|
|
|
Nick'inizi Söyleyene Notice mesaj |
|
Yazar: Admin - 05-13-2020, 08:31 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Nick'inizi Söyleyene Notice mesaj atar
S-bot ve admin olarak belirtiklerim muaf almak istediniz kişiler yanı kimlere mesaj gitmesin
Kod: menu menubar {
.Nickini söleyene söz (Notice)
..• Açık :.enable #noticesoz | .echo -a 0,4 notice söz acildi.
..• Kapalı :.disable #noticesoz | .echo -a 0,4 notice söz Kapatildi..>
.-
}
#noticesoz off
on 1*:text:$( * $+ $me $+ * ):#:{
if $nick == S-Bot { halt }
if $nick == Admin { halt }
notice $nick $read(system/söz.txt)
}
#noticesoz end
|
|
|
|
|
Whois Çekeni Sajoinlemek |
|
Yazar: Admin - 05-13-2020, 08:23 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Whois Çekeni Sajoin ile istediniz kanala çekersiniz
Kod: On *:SNOTICE:*did a /whois on you*:{ /sajoin $2 #KANAL }
|
|
|
|
|
Txt Den Okutmalı Küfür ve reklam koruması |
|
Yazar: Admin - 05-13-2020, 08:20 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
Kod: on *:TEXT:*:#:{
if ($me isop $chan) {
var %i 1
while $read(kufurler.txt,%i) {
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick }
inc %i
}
}
}
siqerim
gibi ekleyiniz txt dosyasına
Txt Den Okutmalı Reklam Koruması
Kod: on *:TEXT:*:#:{
if ($me isop $chan) {
var %i 1
while $read(reklam.txt,%i) {
if ($read(reklam.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Reklam Yapmak Yasaktır..! | /mode $chan +b $nick }
inc %i
}
}
}
050
054
www
hotm
Gibi..
|
|
|
|
| adsense ile kazanç saglanabilirmi? |
|
Yazar: google - 05-13-2020, 03:50 PM - Forum: Webmaster Genel
- Yorumlar (3)
|
 |
merhaba arkadaşlar şöyle 1 proje var.
aylık google aramalarından 250 k hit gelicek kelime xxxspor kelimesi maç izlemek için kullanılan bir kelime fakat ben siteyi canlı televizyon veya spor haber sitesi olarak kullanacagım tahmini bu site en kötü ne kadar kazandırır sizce görüşlerinizi bekliyorum.
aylık 250 k google aramalarından 50 k sosyal medya toplam 300k hit
aylık 10 - 15 m arası sayfa görüntülenme sayısı
|
|
|
|
|
