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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Yararlı Bazı Coder (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/199847-yararli-bazi-coder.html)

ATLAS 19 Nisan 2009 03:55
Yararlı Bazı Codeler
 
Cr Sunucular için Client Girişi (Panele girmeden) [ kullanımı !client nick ]
Kod:

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:

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:

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:

 
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:

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
Yararlı Bazı Codeler
 
Crde Agentleri kanala almada kolaylık sağlayan bir Code
Kullanımı !join #kanal ( bir txt dosyası gerekiyor )

Kod:

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:
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:

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:

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:

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:

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
Yararlı Bazı Codeler
 
userlerin belirttiğiniz kanaldan kanal başvurusu yapabilmesi özelliği
mynet merlyn versiyonun değişik bir şekli (Cr version )
!basvuru #kanal

Kod:

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:

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:

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:

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:
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:
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
Yararlı Bazı Codeler
 
Bota !temizle komutu ile kanal temizliği

Kod:

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:

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:

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:

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:

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:

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
Cevap: Yararlı Bazı Codeler
 
userlerin belirttiğiniz kanaldan kanal başvurusu yapabilmesi özelliği
mynet merlyn versiyonun değişik bir şekli (Cr version )
!basvuru #kanal

Kod:
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:10.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk