Özelde ve genelde mirc seslenme remotesi

### Özelde size seslenenleri bildirir by KraLaz ###

on *:Text:$(* $+ $me $+ *):?:{
if ($active == $nick) { goto son }
echo -a 4|||||| *** 12 ( $+ $time(hh:nn) $+ ) 1 $+ $nick $+ özelinde senden bahsediyor : " $1- "
:son
}

### Kanalda size seslenenleri bildirir by KraLaz ###

on *:Text:$(* $+ $me $+ *):#:{
if ($active == $chan) { goto end }
echo -a 4|||| *** 12 ( $+ $time(hh:nn) $+ ) 1 $+ $nick $+ $chan kanalında senden bahsediyor : " $1- "
:end
}

Bu kodlar ile sizlere mirc üzerinde , özelden yada kanallar genelinde seslenen biri olduğu zaman mirciniz size uyarırı vererek bu kişinin size seslendiğini bildirir.Mirc için çok kullanışlı olan bu kodu KraLaz nickli bir kişinin yazmış olduğu görülüyor.Bu kod muhtemelen kendisine ait.Bu kodu gönül rahatlığı ile mircinize alt+r yaparak yeni remote sayfası açıp ekleyebilirsiniz.
Yine ekleme konusunda yada çalışmama konusunda soruları olanlar yorumla bildirsinler.

Reklamlar

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

Kanala giren nickleri kaydetme

Kanalınıza giren nickleri bu kod ile kaydebilirsiniz.Kanala giriş yapan nickleri bu kod ile kayıt edebilirsiniz.Kayıtlar mirc klasorünüzde nickler.txt yani nickler not defterine kayıt edilir.

on *:join:#Sohbet:$iif(!$read(nickler.txt,w,$nick),.write nickler.txt $nick)

Kodlayan ircforumlarından : Toprak

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