Yararlı Bazı Coder - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ATLAS · 19 Nisan 2009, 03:55

Cr Sunucular için Client Girişi (Panele girmeden) [ kullanımı !client nick ]

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#opers:{
  if !client isin $1 {
    if $nick == AtLaS { 
      var %ps:_ $left($md5($r(a,z)),$r(8,20))
      .as client $2 add
      .as client $2 mask add $2@*
      .as client $2 set password %ps:_
      .as client $2 set mode +inex
      .as client $2 enable
      .as bot ClientServ message #opers $2 nicke $nick tarafından mIRC girişi verildi. 
      .ms send $nick $2 nick'ine client (mIRC) girişi verildi Mask: $2@* password: %ps:_ 
      .ms send $2 Client  (mIRC) girişi bilgilerin  Mask: $2@* password: %ps:_ Kullanımı : /emailaddr $2@* /server irc.xxxxx.net:6667 %ps:_
    }
  }
}

Silme işlemi için !declient nick

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#opers:{
  if !declient isin $1 {
    if $nick == AtLaS { 
      .as client $2 del
      .as bot Clientserv message #opers $2 nickine ait tüm client $nick tarafından silindi.
    }
  }
}

Belirttiğiniz knaldan !banac nick şeklinde banları kaldırma ...

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#opers:{
  if !banac isin $1 { 
    set %'.ip $2  | set %'.kanal $chan | .stats k 
    .unzline $2
    .unkline $2
    .os akill del *@ $+ $2
    .msg #opers  $2  üzerindeki engellemeler kaldırıldı.
  } 
}
raw 216:*: { 
  if (%'.ip == $3) && ($2 === A) { haltdef | set %akillident $+($4,@,$3) | unakill $+($4,@,$3) | unset %'.*   
  } 
}

Botunuzun Deop edilmesini engeller

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
 
on *:DEOP:#:{
  if ($nick == $me) { goto end }
  if ($opnick == $me) {
    .samode # +ob $me $nick
    .kick # $nick mesaj  }
  :end
}

Botunuza !join #kanal !part kanal şeklinde giriş çıkış sağlayabileceğiniz bir Code

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#opers:{
  if !join isin $1 { 
    if $chr(35) isin $2 {
      .sajoin $2
      .msg #opers Kanala girildi  $2
    } 
    else {
      .msg # Hatalı kanal ismi $2 $+ , kanal belirtecini girmediniz. (#)
    }
  }
  if !part isin $1 {
    if $chr(35) isin $2 {
      .part $2
      .msg #opers kanaldan çıkıldı $2
    } 
    else {
      .msg # Hatalı kanal ismi $2 $+ , kanal belirtecini girmediniz. (#)
    }
  }

ATLAS · 19 Nisan 2009, 03:59

Crde Agentleri kanala almada kolaylık sağlayan bir Code
Kullanımı !join #kanal ( bir txt dosyası gerekiyor )

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#opers:{
  if !join isin $1 { 
    if $read(onaychan.txt,w,$2) { .as bot botserv message #opers Eklemek istediğiniz kanala XXX-BOT daha önce sokulmuş $+($nick,.) }
    else { write onaychan.txt $2 | .as bot botserv message #opers  $2 kanalına, XXX-BOT birkaç saniye içinde atılacaktır $nick | .as chan $2 add | .as chan $2 set bot XXX-BOT    }
  }
}

!part #kanal

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#opers:{
  if !part isin $1 {
    if $chr(35) isin $2 {
      .as bot botserv message #opers  $2 Kanalından XXX-BOT 4 Bir Kac Saniye İçinde Çıkarılacaktır. $nick
      .as chan $2 del
    } 
    else {
      .as bot botserv message #opers Hatalı kanal ismi $2 $+ , kanal belirtecini girmediniz. (#)
    }
  }

Help kanalında op olan görevlinizi #helpers , #helpdesk , #helpkurul a almak
helpers kanalında op olana ayrı host sop olana ayrı ve halfop olana ayrı host vermek ( mircturk un kullandığı bir sistem )

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:op:#help: {
   if $opnick != $me {  
     .sajoin $opnick #helpers
     .sajoin $opnick #helpdesk  
     .sajoin $opnick #helpdesk 
  }
}
on *:op:#helpers: {
    if $opnick != $me {
     .chghost $opnick xxx.net.Help.Egitim.Takimi 
     .chgident $opnick Helpegitim
     .msg $chan Helpeğitim görevlisi $opnick kanala giriş yaptı.
  }
}
on *:help:#helpers: {
      if $hnick != $me {         
     .chghost $hnick xxx.net.Helpdesk.Takimi
     .chgident $hnick Helpdesk
     .msg $chan Helpdesk görevlisi $hnick kanala giriş yaptı.
  }
} 
on *:rawmode:#helpers: {
      if $left($1,1) == + { halt }
       if *a* iswm $right($1,-1) { halt }
        if ($2 == Nick) {  
         .chghost $2  xxx.net.Helpsop.Takimi
         .chgident $2 Helpkurul
         .msg $chan Helpkurul görevlisi $2 kanala giriş yaptı. 
  }
}

Belirttiğiniz kanalları muaf tutarak Botunuza op mesajı verdirmek

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:rawmode:#: {
  if $2 == $me { 
    .halt 
  }
  if $chan == #opers {
    .halt 
  }
  if $chan == #yardim {
    .halt
  }
  if $chan == #sohbet { 
    .halt 
  }
  if $chan == #helper { 
    .halt
  }
  if $chan == #ops {
    .halt
  }
  if $1 == +o { 
    .msg #  $+ $2 şu anda operatör (kanal yetkilisi) konumuna geçti.
  }
}

Yardım kaanlında gerekli yardımı yaptıkdan sonra bota komut uygulatmak
!part nick

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#yardim:{
  if !part isin $1 {
    if $nick isop # {
      .mode #yardim -v $2
      .msg #yardim  $2 $+ , yardım kanalında $nick tarafından gerekli yardımları almış bulunmaktasınız. Lütfen odayı, 20 saniye içersinde terk ediniz.
      .timer 1 20 /mode #yardim +b $2
      .timer 1 20 /kick #yardim $2 Sorununuz çözümlendi, $2 $+ . Gereksiz bekleme yaptığınız için uzaklaştırıldınız, sorunsuz günler dileriz.
      .timer 1 80 /mode #yardim -b $2
    }
    else {
      .msg # Sistem @ işaretinizi göremedi veya $2 rumuzu şuan da # kanalında bulunmuyor.
    }
  }
}

Kanal genelinde #kanal şeklinde op olma özelliği

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:#*:#ops:{
  if ($nick !isin #opers) && ($2- == $null) {
    opver $nick $1
  }
}
alias opver {
  fjoin $1 $2
  samode $2 +o $1
}

ATLAS · 19 Nisan 2009, 04:20

userlerin belirttiğiniz kanaldan kanal başvurusu yapabilmesi özelliği
mynet merlyn versiyonun değişik bir şekli (Cr version )
!basvuru #kanal

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#basvuru:{
  if !basvuru isin $1 {
    var %ps:_ $left($md5($r(a,z)),$r(8,20))
    if $read(bchan.txt,w,$2) { .msg # Kayıtlamak istediğiniz kanal daha önce kayıtlanmış başka kanal ismi deneyiniz $+($nick,.) }
    else { write bchan.txt $2
      .cs register $2 %ps:_ XXXXX Sohbet Odaları
      .cs identify $2 %ps:_
      .sajoin $2
      .fjoin $nick $2
      .msg $nick $2 Kanalı tarafınıza kaydedilmiştir.
      .os topic $2 XXX.Net Keyifli Sohbetler Diler..
      .samode $2 +o $nick
      .as chan $2 set bot XXX-BOT
      .msg chanserv ftransfer $2 $nick
      .timer 1 15 part $2
      .ban -k $chan $nick Kanal Başvurunuz Kabul edilmiştir. xxxx.Net Keyifli Sohbetler Diler..
    }
  }
}

Botunuzun sizi kanal girişlerinizde sunucu sahibi olarak tanıtması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:join:#:{
  if $nick == nick {
    .msg $chan  XXXX.Net Sunucu Sahibi $nick Kanala Giriş Yaptı .
  }
  if $nick == xxxxx {
    .msg $chan   Sunucu Genel Sorumlusu  xxxxx  Kanala Giriş Yaptı .   }

Görevlilerinizin nick yasaklamalarının #opers kanalına bot tarafından yansıtılması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *^:snotice:*: {
  if (*added*an*SQLINE*for* iswm $1-) {
    .set %yetkili $11
  .msg #opers Yeni bir rumuz yasaklandı. Nick: $11  Yetkili: $6  }
}

Sunucuda bir görevli hakkında şikayet edebilme şansı veren bir code
!şikayet nick sebeb

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:?:{ 
  if !şikayet * iswm $1- {
    var %b = $+(%,sikayet,$nick)
    if !$(%b,2) { 
      .msg $nick Şikayette talebinde bulundunuz rumuz: $2  sebeb: $3- $+ .  Yöneticilerimiz durumdan haberdar edildiler. 
      .msg #opers Opers! $nick rumuzu, kullanıcı şikayetinde bulundu.
      .msg #opers Şikayet ettiği rumuz: $2  Şikayet sebebi: $3- $+ . 
      inc -u120 $(%b,1) 
    }
    else { 
      .msg $nick 2 dakika içersinde, yalnız 1 defa şikayet iletebilirsiniz.
    }
    if !şikayet iswm $1- {
      .msg $nick Şikayet iletilmedi. Eksik parametre girdiniz. Lütfen !şikayet <nick> <sebeb> şeklinde kullanın.
    }
  }
}

Online IRCop admin olmadığında helperlerin yardım maksatlı sorgula nick
şeklinde yasaklı nick sorulayabilmesi

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias sorgula { frozen $1 | set %sorgu $1 | os sqline list } 
on *:notice:*:?:{ 
  if $nick === OperServ && %sorgu {
    if %sorgu isin $2 {
      .msg %kanal Rumuz: $2  Yetkili: $4  Sebeb: $10- 
    }
  }
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#opers:{
  if !sorgula iswm $1- { 
    .msg #opers  sorgulanacak rumuzu belirtmediniz.
  }
  if !sorgula * iswm $1- {
    .set %kanal #opers
    .sorgula $2
  }
}

ATLAS · 19 Nisan 2009, 04:39

Bota !temizle komutu ile kanal temizliği

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#:{
  if !temizle isin $1 {
    if $nick !isop $chan {
      .msg $chan Siz # kanalında, herhangi bir erişime sahip değilsiniz $nick $+ .
    }
    else {
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan $chr(160)
      .msg $chan Kanal Geneli Temizlenmiştir. Keyifli Sohbetler..
    }
  }
}

Hatalı oper pass girenler için

[code]

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:SNOTICE:*attempts*to*OPER*:{
  inc -u60 $+(%,wo.,$gettok($4,1,33),.,$remove($gettok($4,2,6 4),$chr(41)))
  var %' = $+(%,wo.,$gettok($4,1,33),.,$remove($gettok($4,2,6 4),$chr(41)))
  if $(%',2) = 1 { .msg #opers Hatalı yönetici girişi tespit edildi. Deneyen: $gettok(%',2,46) Hesabı Denenen: $9  }
  if $(%',2) = 2 { .kill $gettok(%',2,46)  2 kere hatalı yönetici şifresi denediniz. 3. bir yanlış denemede, girişiniz yasaklanacaktır.}
    if $(%',2) = 3 { .akill $+($gettok(%',2,46)) 3 defa üst üste, hatalı yönetici girişi yapmaya çalıştınız ama hepsi başarısızlıkla sonuçlandı. Hesabınızın akıbetini, xx@xxxnet  mail adresine mail atarak sorgulayabilirsiniz.  ) | .msg #opers  $+($gettok(%',2,46))  3 defa ard arda hatalı yönetici girişi yapmış ve başarısız olmuştur, kullanıcıya yasaklama getirildi. | unset %' }
  }

hosta bakarak kanalda op edme özelliği

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *:join:#yardim:{
  if $nick != $me {
    if *@*xxxxx.com* iswm $address($nick,2) { 
      .samode # +o $nick
      .notice $nick 1Yönetici girişiniz tanımlandı ve otomatik operatör edildiniz, $nick $+ .
    }
  }
}

Botunuz sayesinde nick droplayan yetkililerinizi takip edebilme özelliği drop edilen nicklerin detayı ile kanala yansımadı

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on *^:snotice:*: {
  if (*used*DROP*cmd*on* iswm $1-) {
    .set %yetkili $11
    .msg #opers Yeni bir rumuz DROPLANDI. Droplanan Nick: $11  Yetkili: $6 
  }
}

Giriş Code olan serverlere girmenizi sağlayan bir code

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
raw 006:*: {
  if !%xw { set %xw 1 }
  if  %xw {
    hadd -m c $+(c,%xw) $2-
    inc %xw
  }
  if %xw == 10 {
    var %char =  32 22 17 34 30  28 29 17 16 14 
    var %q = 2
    while %q <= 8  { 
      inc %cx3 $len($gettok($replace($gettok($hget(c,$+(c,%q)),-3,44),$chr(3),$chr(32)),-1,48)) 
      inc %q
    } 
    var %y = 2
    while %y <= 8 { 
      inc %cx2 $len($gettok($replace($gettok($hget(c,$+(c,%y)),-2,44),$chr(3),$chr(32)),-1,48)) 
      inc %y
    } 
    var %k = 2
    while %k <= 8  { 
      inc %cx1 $len($gettok($replace($gettok( $hget(c,$+(c,%k)),-1,44),$chr(3),$chr(32)),-1,32))
      inc %k
    } 
    GIRIS $+($findtok(%char,%cx3,1,32),$findtok(%char,%cx2,1,32),$findtok(%char,%cx1,1,32))
    unset %cx* 
    unset %xw
  }
}

ident koruması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
on @*:JOIN:#:{ 
  if (*!*****@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress)  || (*!*Oros*@* iswm $fulladdress) || (*!*Azgin*@* iswm $fulladdress) || (*!*Pic*@* iswm $fulladdress) || (*!*atesli*@* iswm $fulladdress) || (*!*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*Yarak*@* iswm $fulladdress) || (*!********@* iswm $fulladdress) || (*!*Hack*@* iswm $fulladdress) || (*!*travest*@* iswm $fulladdress) || (*!*gay*@* iswm $fulladdress) || (*!*lez*@* iswm $fulladdress) { 
    .mode # +b $fulladdress | kick # $nick  bad ident!!!!  } 
}

~ReaList~ · 28 Nisan 2009, 23:40

userlerin belirttiğiniz kanaldan kanal başvurusu yapabilmesi özelliği
mynet merlyn versiyonun değişik bir şekli (Cr version )
!basvuru #kanal

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#basvuru:{
if !basvuru isin $1 {
 var %ps:_ $left($md5($r(a,z)),$r(8,20))
 if $read(bchan.txt,w,$2) { .msg # Kayıtlamak istediğiniz kanal daha önce kayıtlanmış başka kanal ismi deneyiniz $+($nick,.) }
 else { write bchan.txt $2
   .cs register $2 %ps:_ XXXXX Sohbet Odaları
   .cs identify $2 %ps:_
   .sajoin $2
   .fjoin $nick $2
   .msg $nick $2 Kanalı tarafınıza kaydedilmiştir.
   .os topic $2 XXX.Net Keyifli Sohbetler Diler..
   .samode $2 +o $nick
   .as chan $2 set bot XXX-BOT
   .msg chanserv ftransfer $2 $nick
   .timer 1 15 part $2
   .ban -k $chan $nick Kanal Başvurunuz Kabul edilmiştir. xxxx.Net Keyifli Sohbetler Diler..
 }
}
}

Bu kod güzel de basit olmuş mesela şifresiz nickler başvuru yapmasın..ve başvurulan kanallar ğ,ü,ş,ö,ç,ı, vs. vs. gibi harf kanal başvurusunu kabul etmeyip uyarı verebilmesi daha güzel olur.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yararlı Bitkiler	Zen	Sağlık Köşesi	0	06 Haziran 2014 22:44
Yararlı Bilgiler	Nickolas	Serbest Kürsü	0	21 Şubat 2011 15:38
Bazı Kadınlar Bazı Erkekler	JB	Genel Paylaşım	2	18 Ocak 2011 08:57
Bazı Kadınlar...Bazı Erkekler...	Hayal	Ah Kadınlar	2	02 Mayıs 2010 16:27
Yararlı mı, zararlı mı?	Lee	Sağlık Köşesi	0	13 Kasım 2007 15:53

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.

Canlı Akış 0

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.

Canlı Akış 0

Reaksiyonlar