Badident koruması ( Kanal için )

Kötü ident koruması

#bident on
 on @*:JOIN:#:{
 if (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Orosp*@* iswm $fulladdress) || (*!*------*@* iswm $fulladdress) || (*!*annen*@* iswm $fulladdress) || (*!*www.*@* iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*lezbiyen*@* iswm $fulladdress) || (*!*kaltak*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*azgin*@* iswm $fulladdress) || (*!*jgolo*@* iswm $fulladdress) || (*!*ipne*@* iswm $fulladdress) || (*!*ibne*@* iswm $fulladdress) || (*!*orgazm*@* iswm $fulladdress) || (*!*organ*@* iswm $fulladdress) || (*!*penis*@* iswm $fulladdress) || (*!*****@* iswm $fulladdress) || (*!*siker*@* iswm $fulladdress) || (*!*delici*@* iswm $fulladdress) {
 cs akick $chan add $fulladdress Lütfen Identinizi Deişiniz..
 cs akick $chan enforce
 cs akick $chan del $fulladdress
 }
 }
 #bident end

Bu kod sayesinde kanalınıza girmek isteyen kötü nickleri kanaldan uzaklaştırabilirsiniz.Bu basit bir ident korumasıdır. sizde eklemek yaparak kendi identlerini ekleyebilir ve bulunduğunuz kanalda uzaklaştırabilirsiniz.Bulunduğunu kanalda yetkili durumda olmanız gerekmektedir.

Kötü Nick koruması

#bident on
 on @*:JOIN:#:{
 if (*siker*!*@* iswm $fulladdress) || (*amk*!*@* iswm $fulladdress) || (*amcık*!*@* iswm $fulladdress) || (*orusp*!*@* iswm $fulladdress) || (*sik*!*@* iswm $fulladdress) || (*annen*!*@* iswm $fulladdress) || (*kaltak*!*@* iswm $fulladdress) || (*net*!*@* iswm $fulladdress) || (*azgi*!*@* iswm $fulladdress) || (*jgolo*!*@* iswm $fulladdress) || (*ipne*!*@* iswm $fulladdress) || (*ibne*!*@* iswm $fulladdress) || (*orgazm*!*@* iswm $fulladdress) || (*organ*!*@* iswm $fulladdress) || (*penis*!*@* iswm $fulladdress) || (*siker*!*@* iswm $fulladdress) || (*delici*!*@* iswm $fulladdress) {
 cs akick $chan add $fulladdress Lütfen Identinizi Deişiniz..
 cs akick $chan enforce
 cs akick $chan del $fulladdress
 }
 }
 #bident end

Buda kötü nickler için oluşturulmuştur.

 

Hava durumu remotesi

Arkadaşlar Hava durumunu mirc üzerinden nasıl öğrenebiliriz diye bir kod.Bu kodu mirce ekledikten sonra kullanıcılarınızın ” !havadurumu adres ” bulundukları yer için 5 günlük tahmini hava durumunu  öğrenebilmelerini sağlarsınız.
havadurumu
Kod:

alias havadurumu {
var %sn havadurumu- $+ $ticks
sockopen %sn mynet.com 80
sockmark %sn $1-
echo -a $1-
}
on *:sockopen:havadurumu-*:{
var %k sockwrite -tn $sockname
%k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
%k host: www. mynet.com | %k
}
on *:sockread:havadurumu-*:{
var %a
sockread %a
if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
var %b $remove($utfdecode($nohtml(%a)),$chr(9))
if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),>,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
if span class="hv isin %a {
if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
if mood isin %a { set %hvdrm %hvdrm 3Hava olayı:3 %b }
if deg1 isin %a { set %hvdrm %hvdrm - 4En yüksek: %b }
if deg2 isin %a { set %hvdrm %hvdrm 1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
}
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #
alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

————————————

 

 

Kodun alıntı yapıldığı adresi : ircforumlari.net/hazir-kodlar/585121-hava-durumu-havadurumu-adres.html

Kodu paylaşan & yapan : Paint

Arkadaşlar kodun hata verdiğini düşünüyorsanız forum adresine giriş yapıp yorumları görebilirsiniz.

Mircde özel avatar sistemi

Adından anlaşıkdığı gibi özelde konuştuğunuz kişinin avatarını siz sizin avatarınızı karşınızdakinin görmesini sağlayan bir kod
Kodun çalışabilmesi için karşıtaraftda aynı kodun olması gerekmektedir.
Kod Güncellenmiştir Kod yazarı (fav) niçkim banlanmış durumda umarım işinize yarar bir çalışma olmuştur farklı tarzlarda güncellemelere açıktır herkes kullanabilir

alias urs { sockclose ursm
  if $1 = $null { %sharing_file = $$msfile($$msfile($mircdir\)) }
  if $1 { %sharing_file = $1- }
  %tempsockname = ursm | echo 3 yüklenmeye çalışıyor...
  sockopen %tempsockname www.hizliresim.com 80 | sockmark %tempsockname filename= $+ %sharing_file | unset %sharing_file | unset %tempsockname
}
on *:sockopen:ursm: { 
  bset -t &postdata 1 ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="local_files[]"; filename=" $+ $nopath($gettok($mid($sock($sockname).mark,11),1,59)) $+ " $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/ $+ $gettok(%ds,2,46) $+ $crlf $+ $crlf
  bread " $+ $gettok($mid($sock($sockname).mark,10),1,59) $+ " 0 $file($gettok($mid($sock($sockname).mark,10),1,59)).size &file_contents
  bcopy &postdata $calc($bvar(&postdata,0) + 1) &file_contents 1 -1
  bset -t &postdata $calc($bvar(&postdata,0) + 1) $crlf $+ ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_size" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_effect" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_rotate" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ--
  sockwrite -nt $sockname POST /upload.php HTTP/1.1 | sockwrite -nt $sockname Host: www.hizliresim.com
  sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=----WebKitFormBoundarydeA4whaMQad30HrZ
  sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf | sockwrite -nt $sockname Connection: Keep-Alive | sockwrite $sockname &postdata
}
on *:sockread:ursm: { var %x | sockread %x
  if (<img style="max-width isin %x) { set %brrg $gettok(%x,4,34) | set %orta  $gettok(%x,2,47) $+ / | set %sonksm $gettok($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34) | echo -a 7Başarıyla yüklendi } 
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 | yklr }
on ^*:notice:*:?: { 
  if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (.jpg isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .timerdowunload 5 10 yklr | write avt.txt %rsm }
  haltdef
}
alias yklr { //Background -dp %niickk "avatar/ $+ %rsm $+ " }
on *:open:?:*:{ if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) { yklr | .notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız }
}
on *:connect: {  tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { urs } }
menu * {
  Avatarım
  .Karşı Tarafın göreceği Resiminizi Seçiniz:urs
}
alias resimindir { if $sock(resin) || $sock(resin2) { echo -a * Başka bir işlem devam etmekte }
  else { .unset %resin.* | .set %resin.govde $remove($1,http://) | .set %resin.uzanti $gettok(%resin.govde,2-,47) | .set %resin.ana $gettok(%resin.govde,1,47) | .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) | sockopen resin %resin.ana 80 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * hata oluştu, lütfen bağlantınızı kontrol ediniz }
  else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf }
}
on *:sockread:resin: { var %ğ | sockread %ğ
  if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(avatar/ $+ %resin.ismi) }
}
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(avatar/ $+ %resin.ismi) -1 -1 &pdata | set %rsm %resin.ismi }
on *:sockclose:resin2: { if $isfile(avatar/ $+ %resin.ismi) { .unset %resin.* } }




Kod orjinal bağlantısı : ircforumlari.net/hazir-kodlar/656954-ozel-avatar-karsinizdakini-gorme-imkani.html
Kod yazarı : muratt_aziz

Özele küfür koruması ( kayıtsız nickler için )

L4roXyL

özel küfür korumasında şifresiz nick
Sana text gönderen nick’e who çekersin.
Eğer kayıtsız nick ise ve gönderdiği text’de kufur.txt dosyasındaki yasaklı kelimelerden herhangi birisi mevcut’sa bulunduğun tüm kanallar’dan banlarsın. (Kod sorunsuz çalışır)

on *:text:*:?: { inc -e $+(%,t,$nick) | if $($+(%,t,$nick),2) == 1 { .enable #u | .who $nick } | else { var %1 = 1,%2 = $lines(kufur.txt) | while %1 <= %2 { if $+(*,$read(kufur.txt,%1),*) iswm $1- && $hmatch(nick,$nick) { var %p = $nick } | inc %1 } | var %s = 1,%ss = $comchan($me,0) | while %s <= %ss { if $nick ison $comchan($me,%s) { ban -ku900 $comchan($me,%s) %p 2 Küfür. } | inc %s } } }
#u off
raw *:*: { if $numeric == 352 { if r !isincs $7 { haltdef | hadd -m nick $6 1 } } | if $numeric == 315 { haltdef | .disable #u } }
#u end

Bir nicki dondurmak

Bir nicke forbid yani tamamen yasaklamak değilde o nicki bir süre dondurmak isterseniz kullanacağınız komut aşağıdaki gibidir.

/ns suspend Nick 30d Sebeb

komutu ile yasaklayabilir.

/ns unsuspend Nick

komutu ilede suspendi kaldırabilirsiniz.Suspend komutunu kullanarkan suspendli nicki tekrar açabilirsiniz.

CHAT Eventi

CHAT Eventi

Chat eventi DCC Chat olarak kullanılan eventtir..

Parametreleri;

=$nick -> Nick

Örnek;

on *:chat:*yardim*:{ msg =$nick Sorun nedir ? }

NOT: $nick değil =$nick kullanılır

Etiketler: chat, chat echo, chat eventi, echo chat, irc chat, irc on chat, Mirc chat, mirc değişik eventler, mirc on chat, on chat, on chat eventi