Bu kod ile kanallarda 7 op oldugu zaman op ihlali var diye size uyari mesaji deop olun diye.
on !*:op:#:if ($opnick == $me && $nick(#,0,@) >= 7) { echo $color(info) -tea *
Bu kod ile kanallarda 7 op oldugu zaman op ihlali var diye size uyari mesaji deop olun diye.
on !*:op:#:if ($opnick == $me && $nick(#,0,@) >= 7) { echo $color(info) -tea *
on @*:text:*:#:{
if ($nick isreg $chan) {
if (selam iswm $1-) || (s.a. iswm $1-) || (sa iswm $1-) || (slm iswm $1-) {
msg $chan ALeykum SeLaM 5 $nick }
}
selam kodu,kanalda biri selam veridğinde oto selami alır. guzel bi kod.
on *:text:*:#:{ if $istok(slm sa selam selamm SLmlar sa selamlar s.a,$1-,32) { inc -eu60 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # $read(selam.txt) $nick } } }
on *:action:*:#:{ if $istok(slm sa selam selamm sa slmlar selamlar s.a,$1-,32) { inc -eu30 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # $read(selam.txt) $nick } } }
Alt +R yapip mircde herhangi bir remoteye ekleyiniz.Bu remote ile birlikte bir dakka icinde bir kisiden bir selam alirsiniz ve banlanmazsiniz
$read(selam.txt) Ayrica mirc klasorunda bir txt dosyasi acip icine bir kac selam yazisi yazip alt altta tabi bolece her selama ayri bir selam alarak cevap vermis olursunuz ve herkes sizi online zanneder.bot sanmayacaklardir.
selam.txt dosyasi acmak istemiyorsaniz kodu remoteye ekleyip sadece kirmizi kismi a.selam gibi degisiniz.
On *:text:!burç*:#:{
if $sock(burç) { msg $chan Şu anda başka bir burçun yorumu alınıyor lütfen daha sonra tekrar deneyin. | halt }
if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık
if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+() | halt }
if !$istok(%burçlar,$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+() | halt }
msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ . | set %burçnick $nick
set %burçid $findtok(%burçlar,$2,124)
msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,%burçid,124)) | msg $nick -
sockclose burç | sockopen burç fal.turk.net 80
}
on *:sockopen:burç: {
var %k sockwrite -n $sockname
%k GET /gunluk_fal.asp?f= $+ %burçid HTTP/1.1
%k Host: fal.turk.net
%k $crlf
}
on *:sockread:burç: {
var %data
sockread %data
if
isin %data {
sockread %data
echo -a %data
msg %burçnick %data | sockclose burç
}
}
Sohbet Sunucunuzda Akick Sqline Akill Ve Mircinize EKleyeceğiz Kodlar İle Nick Yasaklayabildiğiz Gibi Spamfilter İlede Sunucunuza Girmesini İstemediğiniz Nickleri Yasaklayabilir Girişlerini Kapatabilirsiniz.
Komut: [ /spamfilter add u block - - ^(.*Nick.*!.+@.+:.+)$ ]
Uygunsuz İdentler iLe Giriş Yapanlar İçin İdentleri Sabit Botnet Saldırıları İçin Sabit İdent ile Atılan Reklamlar Saldırılar İçin Kullanabileceğiniz Çok Basit Bir Komut Ve Önlemdir.
Komut: [ /spamfilter add u gzline +0 YasaK ^(.+!Yasaklanacakİdent@.+:.+)$ ]
Sohbet Kanalınızda Özel Mesajları Modüller Ve Mircinizine Yüklediğiniz Addonlar iLe Kapatabildiğiniz Gibi.
Spamfilter iLede Kapatabilirsiniz
Özellere Atılan Reklam Msjları Özellere Yapılan Anlık Saldırılarda Kullabilirsiniz.
Komut: Ekleme [ /spamfilter add p block - WwW-mircindir-org-Özel-Msjlar-Bir-Süre-Kapatılmıştır ]
Komut: Silme [ /spamfilter del p block - WwW-mircindir-org-Özel-Msjlar-Bir-Süre-Kapatılmıştır ]
Kullanımı:Kodu Kopyaladıktan Sonra Mirc Ekranında Herhangibi Bir Sayfaya Yapıştırmanız Yeterli Olacaktır [Sunucuda En Az İrcop Olmanız Gerekmektedir]
Not: block Kısmını gzline gline Shun Olarak Değiştirip Kullanabilirsiniz.
on 1:INPUT:*: {
set %Var3 $1-
unset %Var1 %Var2
set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
say %Var2
halt
:ServerCommand
}
menu channel {
ilk harf büyük
.Ac { set %script true }
.kapat { unset %script }
Alt+ r yapıp bunu mircin remotelerine ekleyin.
on *:INPUT:#: {
if ($inpaste) || ($ctrlenter) || ($readini(mirc.ini,text,commandchar) != $left($1,1)) {
var %i = 1, %s = $1- | while ($gettok(%s,%i,32)) {
if ($nick($chan,$v1)) { var %s = $puttok(%s,$+(,$gettok(%s,%i,32),),%i,32) }
inc %i
}
msg $chan $iif(c isincs $chan($chan).mode,$strip(%s),%s)
halt
}
}
Mircdee birinin nickini kanala gonderdiğinizde nickin oto altının çizilerek göndermesini istermisniz?
İşte bu kod ile artık kimin nickini yazarsanız yazın altı çizili yazılcaktır kanalda.iyi kullanımlar.
F1 /kısayollar
F2 { ban $$1 2 | /kick # $$1 Lütfen kanal içerisinde argo/küfür içeren sözcükler kullanmayın. }
F3 { ban $$1 2 | /kick # $$1 Lütfen büyük harf kullanmayınız, aynı sözcükleri devamlı tekrar etmeyin. }
F4 { ban $$1 2 | /kick # $$1 Lütfen repeat/flood ile saldırı girişimlerinde bulunmayın. }
F5 { ban $$1 2 | /kick # $$1 Inviter kullanımı network içerisinde yasaktır. }
F6 { ban $$1 2 | /kick # $$1 Kanal huzurunu bozmak, kanal içerisinde siyaset vs. yaparak network kurallarını çiğnemek yasaktır. }
F7 { ban $$1 2 | /kick # $$1 Nickiniz kanal seviyesiyle bağdaşmıyor. Lütfen ?/nick yeninick? komutuyla nickinizi değiştiriniz. }
F8 /Ban, Kick:/ban $$1 2 | /kick # $$1
F9 /.web
F10 /.close -@Radyo
F11 /join #Help
F12 /list
/F1 /mode # +v $$1 | /msg # Merhaba; $$1 Size nasıl yardımcı olabilirim ?
(daha fazla…)
#nickuyar on
on *:TEXT:$(* $+ $me $+ *):#:{
if ($active == $chan) { goto son }
echo -a $time $chan Kanalında $nick Senden Bahsediyor!
:son
}
#nickuyar end
