Kanal !temizle Kodudur. Kanal Operatörü olmayan kişiler bu komutu kullanamazlar. Remotelere Ekleyiniz. Not ”!temizle” Yerine !clear yazıp Kullanada bilirsiniz.

on *:text:*:#:{
  if !temizle isin $1 {
    if $nick !isop $chan {
    .notice $nick  HooOoOpSssS Sen Bu Komutu Kullanamazsin : ) 2. Sinif insan : PpPp     }
    else {
      /msg $chan $chr(3)
      /msg $chan $chr(3)
       /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan 12 Kanalimiz Temizlenmiştir ! 5Temizleme Komutunu Uygulayan Nick 7 $nick
    }
  }
}

mIRC Scriptlerinize ALias Kodlari Yüklemek için /load -a dosyaismi.dosyauzantisi

Örnek : /load -a alias.mrc

Remotelere Kod Yüklemek için /load -rs dosyaismi.dosyauzantisi

Örnek : /load -rs remote.mrc

Status e Kod yüklemek için : /load -ps dosyaismi.dosyauzantisi

Örnek : /load -ps status.mrc

Nick Listesi Popup Yüklemek için : /load -pnl dosyaismi.dosyauzantisi

Örnek : /load -pnl nicklistesi.mrc

Kanal Popup Yüklemek için : /load -pc dosyaismi.dosyauzantisi

Örnek : /load -pc kanal.mrc

Menübar Popup Yüklemek için/load -pm dosyaismi.dosyauzantisi

Örnek : /load -pm menubar.mrc

Gerekli yerlere Dosya yükleme komutlari bu sekildedir.

Aşağıda vermiş olduğumuz kodu mIRC Scriptinizin Alt+R Remote Kısmına Ekleyiniz.

Ekleyeceğiniz Kod:

on 1:INPUT:*: {
if ($mid($1,1,1) == /) { goto doit }
:doit
if ($1- == efem) { say Efendim? | halt }
if ($1- == h.g) { say Hoş Geldin | halt }
if ($1- == h.b) { say Hoş Buldum | halt }
if ($1- == slm) { say Selam | halt }
if ($1- == mrb) { say Merhaba | halt }
if ($1- == nbr) { say Naber ? | halt }
if ($1- == rica) { say Rica Ederim. | halt }
}

- on *:connect: { 
.join #help 
.ns identify HelpBotSifresi 
.remote on 
.ignore $me 
} 
on *:text:*:?: { 
if .n?ck iswm $1- { 
/timer 1 0 msg $nick  .:: Nickserv Hakkında Komutlar Sıralanıyor ::. 
/timer 1 1 msg $nick  
/timer 1 2 msg $nick 0,1 1- Nick Kaydetmek icin 4.nreg0,1 yazarak komutu öğrenebilirsiniz..  
/timer 1 3 msg $nick 0,1 2- Nick Droplamak icin 4.drop 0,1yazarak komutu öğrenebilirsiniz..  
/timer 1 4 msg $nick 0,1 3- Nick E-mail Değişmek icin 4.nmail0,1 yazarak komutu öğrenebilirsiniz..  
/timer 1 5 msg $nick 0,1 4- Nick UrL Değişmek icin 4.nurl 0,1yazarak komutu öğrenebilirsiniz... 
/timer 1 6 msg $nick 0,1 5- Nick İnfosunu Görmek icin 4.ninfo 0,1yazarak komutu öğrenebilirsiniz..  
/timer 1 7 msg $nick 0,1 6- Nick Sifrenizi E-mail\'e Yollamak icin 4.nsend 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 8 msg $nick 0,1 7- Nick Sifrenizi Değiştirmek icin 4.nsifre 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 9 msg $nick 0,1 8- Askıda Kalan Nickinizi Düşürmek icin 4.nghost 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick 0,1 9- Nickinize Memo Gelmesin İstiyorsanız 4.nnmemo0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 11 msg $nick 0,1 10- Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız 4.nkill0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 12 msg $nick 0,1 11- Nick E-mail adresinizin Herkez Tarafından Görülmesini istiyorsanız 4.nshow0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 12 msg $nick  
/timer 1 14 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz. 
} 
if .nreg isin $1- { 
msg $nick Nickinizi Kaydetmek ( Sifrelemek ) icin  /ns register sifre e-mailadress  Örnek : /ns register 123456 e-mailadres 
} 
if .ndrop isin $1- { 
msg $nick Nickinizi Droplamak ( Kayıtları Silmek ) icin  /ns drop nick  Örnek : /ns drop OzAn 
} 
if .nma?l iswm $1- { 
msg $nick Nickinizin E-mailini Değiştirmek icin  /ns set email yenie-mail  Örnek : /ns set user@adres user@adres  komutunu kullandıktan sonra yeni e-mail adresinize gelen onay kodunu giriniz. 
} 
if .nurl isin $1- { 
msg $nick Nickinizin URL ( Webadres ) Değiştirmek icin  /ns set url yeni url  Örnek :  /ns set url adres  
} 
if .n?nfo iswm $1- { 
msg $nick Nickinizin İnfosunu Yada Herhangi Bir Nick\'in İnfosunu Görmek icin  /ns info nick   Örnek : /ns info OzAn 
} 
if .nsend isin $1- { 
msg $nick Nickinizin Sifresini E-mailinize Göndermek İstiyorsanız..  /ns sendpass nick   Örnek :  /ns sendpass OzAn 
} 
if .ns?fre iswm $1- { 
msg $nick Nickinizin Sifresini Değiştirmek icin  /ns set password Yenisifreniz   Örnek :  /ns set password 321654 
} 
if .nghost isin $1- { 
msg $nick Nickiniz askıda Kaldı ve Düşürmek istiyorsunuz Su Komutu Uygulayınız.. /ns ghost nick sifreniz  Örnek :  /ns ghost OzAn 123456 
} 
if .nnmemo isin $1- { 
msg $nick Nickinize Memo Gelmesini İstemiyor iseniz Su Komutu Uygulayınız..  /ns SET nomemo ON 
} 
if .nk?ll iswm $1- { 
msg $nick Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız Su Komutu Uygulayınız..  /ns set KILL on  
} 
if .nshow isin $1- { 
msg $nick Nickinizdeki E-mail Adresini Herkezin Görmesini İstiyorsanız Su Komutu Uygulayınız..  /ns set showemail off  
} 
if .chan isin $1- { 
/timer 1 0 msg $nick  .:: Chanserv Hakkındaki Komutlar Sıralanıyor ::. 
/timer 1 1 msg $nick  
/timer 1 4 msg $nick 0,1 1- Kanal Kaydetmek icin 4.creg 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 5 msg $nick 0,1 2- Kanal Droplamak icin 4.cdrop 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 6 msg $nick 0,1 3- Kanal Founderi Değiştirmek icin 4.cfon0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 7 msg $nick 0,1 4- Kanal Sifresi Değiştirmek icin 4.csifre0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 8 msg $nick 0,1 5- Kanal E-mail Değiştirmek icin 4.cmail0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 9 msg $nick 0,1 6- Kanalınıza gönderilen memoları kapatmak yada okuyabilme yetki düzeyini ayarlamak icin 4.cmemo0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick 0,1 7- Kanalınıza giremiyorsanız INVITE modunda yada BANLI iseniz 4.invite0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 11 msg $nick 0,1 8- Kanalınıza SOP eklemek,silmek istiyorsanız 4.csop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 12 msg $nick 0,1 9- Kanalınıza AOP eklemek,silmek istiyorsanız 4.caop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 13 msg $nick 0,1 10- Kanalınıza VOP(voice(+)) eklemek istiyorsanız 4.cvop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 14 msg $nick 0,1 11- Kanalınıza akick atmak icin 4.cakick0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 15 msg $nick 0,1 12- Kanalınıza accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için .4crest0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 16 msg $nick 0,1 13- Kanalınıza OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access\'inin,ne olup olmadığını görmek için4 .why0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 17 msg $nick 0,1 15- Kanalınıza bir başka kanala linklemek(yönlendirmek) istiyorsanız 4.link0,1 yazarak komutu öğrenebilirsiniz... 
/timer 1 18 msg $nick 0,1 16- Kanalınıza Giris Mesajı atmak icin4 .cent0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 19 msg $nick 0,1 17- Kanalınızda op olan tüm kullanıcıları bir seferde deop edebilmek için 4.mdeop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 20 msg $nick 0,1 18- Kanalınızdaki herkesi atmak için 4.mkick0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 21 msg $nick 0,1 19- Yetkili oldugunuz bi kanaldan size atılan banı kaldırmak için 4.cunban0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 22 msg $nick  
/timer 1 25 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz. 
} 
if .caop isin $1- { 
msg $nick : AOP eklemek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal add Nick 
msg $nick : AOP silmek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal del Nick 
} 
if .csop isin $1- { 
msg $nick : SOP eklemek için ( Founder iseniz ), 4/chanserv sop #kanal add Nick 
msg $nick : SOP silmek için ( Founder iseniz ), 4/chanserv sop #kanal del Nick 
} 
if .cvop isin $1- { 
msg $nick : VOP eklemek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal add nick 
msg $nick : VOP silmek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal del nick 
} 
if .mkick isin $1- { 
msg $nick Kanaldaki herkesi atmak için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mkick #kanal 
} 
if .mdeop isin $1- { 
msg $nick Kanaldaki herkesi deop etmek için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mdeop #kanal 
} 
if .l?nk isin $1- { 
msg $nick, Kanal Yönlendirmek için, /mode #1.kanal +lO 1 #2.Kanal 
} 
if .why isin $1- { 
msg $nick : Kanalda OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access in,nolup olmadığını görmek için, 4/chanserv why #kanal nick 
} 
if .crest isin $1- { 
msg $nick : Kanala accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için, 4/chanserv set #kanal restrict ON Kaldırmak için 4/chanserv set #kanal restrict OFF 
} 
if .cunban isin $1- { 
msg $nick : Chanserv i kullanarak size atılan ban\'ı kaldırmak için, 4/chanserv unban #kanal me 
} 
if .creg isin $1- { 
msg $nick Kanalınızı Kaydetmek İstiyorsanız Su Komutu Uygulayınız  /cs register #kanal sifre acıklama   Örnek : /cs register #sohbet 123456 Hoşgeldiniz 
} 
if .cdrop isin $1- { 
msg $nick Kanalınızı Droplamak ( Kayıtları Silmek ) icin Su Komutu Uygulayınız  /cs identify #kanalınız sifreniz   /cs drop #kanalınız  Örnek : /cs identify #sohbet 123456  /cs drop #sohbet 
} 
if .cfon isin $1- { 
msg $nick Kanalınızın Founderini Değiştirmek icin Su Komutu Uygulayınız  /cs identify #kanalınız sifreniz   /cs set #kanalınız founder yenifounder  Örnek :  /cs identify #sohbet 123456   /cs set #sohbet founder OzAn  
} 
if .cs?fre iswm $1- { 
msg $nick Kanalınızın Sifresini Değiştirmek icin Su Komutu Uygulayınız  /cs set #kanaliniz password yenisifre   Örnek : /cs set #sohbet password 321654 
} 
if .cma?l iswm $1- { 
msg $nick Kanalınızın E-mail adresini Değiştirmek icin Su Komutu Uygulayınız  /cs set #kanalınız email yenie-mail   Örnek :  /cs set #sohbet email adres 
} 
if .cmemo iswm $1- { 
msg $nick Kanala memo yolladığınız zaman alacak alt düzeyi belirlemek için, 4/chanserv set #kanal memo none|aop|sop|founder 
} 
if .invite isin $1- { 
msg $nick Kanal +i modunda ise vede kanalda en az AOP access iniz var ise kanala girmek için, 4/chanserv invite #kanal nick 
} 
if .cent isin $1- { 
msg $nick Kanalınıza Giriş Mesajı atmak icin /cs set #kanal entrymsg mesajınız  Örnek : /cs set #sohbet entrymsg Hoşgeldiniz. 
} 
if .cak?ck iswm $1- { 
msg $nick Kanalınızda akick almak icin Su Komutu Uygulayınız /cs akick #kanal add nick!*@* sebeb  Örnek : /cs akick #sohbet add OzAn!*@* Rahatsızlık 
} 
if .memo iswm $1- { 
/timer 1 0 msg $nick  .:: Memoserv Hakkındaki Komutlar Sıralanıyor ::. 
/timer 1 1 msg $nick  
/timer 1 3 msg $nick 0,1 1- Memo Göndermek icin 4.msend0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 4 msg $nick 0,1 2- Memo Okumak icin 4.mread0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 5 msg $nick 0,1 3- Memo Listesini Görmek icin 4.mlist0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 6 msg $nick 0,1 4- Memolarınızı E-mail adresinize Göndermek icin 4.mfor0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 7 msg $nick 0,1 5- Memolarınızı Silmek icin 4.mdel 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 8 msg $nick 0,1 6- Memolarınıza Limit Koymak icin 4.mlim 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 9 msg $nick 0,1 7- Memolarınız Hakkındaki Bilgileri Görmek icin 4.minfo 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick 0,1 8- Herhangi Bir Kullanıcının Size Memo Göndermesini İstemiyorsanız 4.mig 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick  
/timer 1 12 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz. 
} 
if .msend isin $1- { 
msg $nick Memo Göndermek icin Su Komutu Uygulayınız.. /ms send nick mesajınız  Örnek :  /ms send OzAn Selam  
} 
if .mread isin $1- { 
msg $nick Memo Okumak icin Su Komutu yazarak komutu öğrenebilirsiniz.. /ms read memonumarası  Örnek :  /ms send 1  
} 
if .ml?st iswm $1- { 
msg $nick Memo Listenizi Görmek icin Su Komutu Uygulayınız  /ms list  
} 
if .mfor isin $1- { 
msg $nick Memolarınızı E-mail adresinize Göndermek icin Su komutu Uygulayınız /ms forward all 
} 
if .mdel isin $1- { 
msg $nick Memolarınızı Silmek icin Su Komutu Uygulayınız  /ms del memonumarası  Örnek :  /ms del 1 
} 
if .ml?m iswm $1- { 
msg $nick Memolarınıza Limit Koymak icin Su Komutu Uygulayınız /ms set limit LIMITSAYISI  Örnek : /ms set limit 10 
} 
if .m?nfo iswm $1- { 
msg $nick Memolarınız Hakkındaki Bilgileri Görmek icin Su Komutu Uygulayınız  /ms info  
} 
if .m?g iswm $1- { 
msg $nick Herhangi Bir Kullanıcının Size Memo Göndermesini Engellemek icin Su Komutu Uygulayınız /ms ignore add nick  Örnek : /ms ignore add OzAn 
} 
} 
on *:open:?: { 
msg $nick Merhaba $nick, Yardım konularınız aşşağıdakilerdir. 
msg $nick 0,1 .:: Lutfen komutları sorarken (4NOKTA 4(0 . 4)0,1) işaretini komut başına koymayı unutmayınız. Örneğin:4 .chan 
msg $nick 0,1 .:: Chanserv Komutlarını Görmek icin = 4.chan0,1 yazarak komutu öğrenebilirsiniz.. ::. 
msg $nick 0,1 .:: Nickserv Komutlarını Görmek icin = 4.nick0,1 yazarak komutu öğrenebilirsiniz.. ::. 
msg $nick 0,1 .:: Memoserv Komutlarını Görmek icin = 4.memo 0,1yazarak komutu öğrenebilirsiniz.. ::. 
} 
on 1s:JOIN:#help: { 
msg $nick Merhaba  $nick  Ben Cenebaz FAMLY Team Tarafından Editlenmiş IRCHELP BOT\'uyum Size IRC Komutlari Hakkında Bilgiler vermek icin Bulunuyorum 
} 

mIRC Script mavi yazı tipi noktalama işaretleri kırmızı renk kodu’dur.  Remotelere ekleyiniz Görünümü şu şekildedir.

.;!’^+%&/ gibi işaretler cümle sonunda koydugunuzda bunlar kırmızı renkte olacaktır. 

on *:input:*:if (!$inpaste && !$ctrlenter && !$regex($1,/^\//)) { msg $active $nc($1-) | haltdef }

alias nc return $replace($+(12,$regsubex($regsubex($1-,/([.,;,!,+,?,=,:,',^,%,&,/,(,),_,~,`,<,>,"])/g,$+(4,\t,12)),/([A-Z])/g,$+(12,\t,12)),),$chan,$+(,$chan,))

Veriables bölümene %logo diye ekledim kafaniz karismasin diye sizde silersiniz orayi yenisini eklersiniz , “/bad nick” seklinde ekliyor veya

Users kismina gelip “02:*nick*” seklinde siz uzatabiliyorsunuz .

Kod:
alias bad { .auser 02 $1 } 
on ^&*:JOIN:#:{ 
if ($nick != $me) { 
if ($ulist($address($nick,-1),02,1)) { 
if (o isin $usermode) { 
mode # +b $nick | kick # $nick %logo 
sapart $nick # | sajoin $nick #Sex 
} 
} 
} 
}

Gezginler Mirc Çıktı! Gezginler Mirc sohbet Programını sitemizden İndirebilirsiniz ..
Gezginler Mirc Script Özellikleri
Admin paneli
msn gibi avatar degişirme gibi özellikler yuklu olup mirc son surum programıdır indirmen için tıklayın ..

İNDİRMEK İÇİN TIKLA

Arkadaşlar nerde gördüm tam hatırlamıyorum ceviri kodu görmüştüm üzerinde biraz çalıştım güzelde oldu Google Translate den çeviri yapıyor kodumuz

kullanımı
/cevir en-tr yes yazarsanız evet döner
/cevir tr-en evet yazarsanız yes döner
aynı mantık diğer dillerdede geçerli örneğin almancada
/cevir de-tr Salut yazarsanız selam döner
/cevir tr-de selam yazarsanız Salut döner
kanal kullanıcıları için
!cevir en-tr yes yazarsanız evet döner
!cevir tr-en evet yazarsanız yes döner
aynı mantık diğer dillerdede geçerli örneğin almancada
!cevir de-tr Salut yazarsanız selam döner
!cevir tr-de selam yazarsanız Salut döner

kodu alt + r tıklayıp remoteye ekliyoruz mausumuzla mirc üzerinde kanal özel vs sağtıkladığımızda google çeviri menüsünü göreceksiniz
umarım işinize yarar
Kod:

alias cevirr {
if ($timer($+(Gtrans,$network,$nick))) { return }
.timer $+ $+(Gtrans,$network,$nick) 1 4 noop
var %method $iif($regml(1) == !,.msg $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/),.msg $nick,msg $chan))
if (help isin $1) { TransHelp %method | return }
if (!$3) { %method No text to Çevir | TransHelp %method | return }
if (!$regex($left($2,3),/-|_/)) { %method $2- is unknown to me. | TransHelp %method | return }
if (!$regex($left($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
%method $2- is unknown to me.
TransHelp %method
return
}
if (!$regex($right($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
%method $2- is unknown to me.
TransHelp %method
return
}
cevir %method $2 $strip($3-)
}
;;;;;;;;;;;;;;;;
alias dilr {
.echo -a 4Çeviri kısaltmaları 3english,en,german,de,italian,it,spanish,es,portuguese,pt,french,fr,dutch,nl,albanian,sq,estonian,et,catalan,ca,croatian,hr,czech,cs,$&
danish,da,estonian,et,filipino,tl,finnish,fi,galician,gl,hungarian,hu,indonesian,id,latvian,lv,lithuanian,lt,maltese,mt,norwegian,no,polish,pl,romanian,ro,slovak,sk,$&
slovenian,sl,swedish,sv,turkish,tr
.echo -a 4Bot Kullanımı Örnek: ingilizceyi türkçeye çevirmek için 0,4 !cevir en-tr yes
.echo -a 4 Kendi Kullanımınız Örnek: türkçeye yi ingilizce çevirmek için 0,4 /cevir tr-en yes
}
#TransTrigger on
On $*:Text:/^(!|@)cevir.*/Si:#: {
if ($timer($+(Gtrans,$network,$nick))) { return }
.timer $+ $+(Gtrans,$network,$nick) 1 4 noop
var %method $iif($regml(1) == !,.msg $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/),.msg $nick,.msg $nick))
if (help isin $1) { TransHelp %method | return }
if (!$3) { %method No text to Çevir | TransHelp %method | return }
if (!$regex($left($2,3),/-|_/)) { %method $2- is unknown to me. | TransHelp %method | return }
if (!$regex($left($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
%method $2- is unknown to me.
TransHelp %method
return
}
if (!$regex($right($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
%method $2- is unknown to me.
TransHelp %method
return
}
cevir %method $2 $strip($3-)
}
#TransTrigger end
alias -l TransHelp {
$1-2 Syntax: !cevir L1-L2 Text to Çevir. L1 = the language you are typing in. L2 = The language you want to Çevir to.
$1-2 Valid languages: en,fr,nl,de,pt,it,es,sq,et,ca,hr,cs,da,et,tl,fi,gl,hu,id,lv,lt,mt,no,pl,ro,sk,sl,sv,tr $&
For a code explanation look here –>> Google Translate API v1 JavaScript Reference – Google Translate API v1 – Google Code
}
alias -l cevir {
var %sockname $+(GTrans,$network,$2,$ticks)
sockopen %sockname translate.google.com 80
sockmark %sockname $1-2 $+(/translate_t?langpair=,$lower($replace($3,-,|,_,|)),&text=,$fixurl($4-),#)
}
on *:sockopen:GTrans*: {
if (!$sockerr) {
sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
sockwrite -n $sockname Host: translate.google.com $+ $str($CRLF,2)
}
else { echo -st socket error $nopath($script) | sockclose $sockname | return }
}
on *:sockread:GTrans*: {
if ($sockerr) { echo -st socket error $nopath($script) | sockclose $sockname | return }
else {
sockread -fn &transvar
;echo -a $bvar(&transvar,1,$bvar(&transvar,0)).text
if ($bintween(&transvar,onmouseout=”this.style.backgroundColor=’#fff’”>,,1)) {
$gettok($sock($sockname).mark,1-2,32) $fixhtml($v1)
}
}
}
alias -l bintween {
var %count = 1, %mark = 0, %mark2 = 0
while (%count <= $4) {
if ($bfind($1, %mark2, $2).text) {
%mark = $calc($bfind($1, %mark2, $2).text + $len($2))
if ($bfind($1, %mark, $3).text) {
%mark2 = $bfind($1, %mark, $3).text
}
else { return 0 }
}
else { return 0 }
inc %count
}
return $bvar($1, $iif(%mark > 0,%mark,1), $calc(%mark2 – %mark)).text
}
alias -l fixhtml { return $remove($regsubex($1-,/#([\d][\d][\d]?);/g,$chr(\t)),&,gt;,lt;) }
dialog Translate {
title “Google ceviri”
size -1 -1 152 137
option dbu
combo 1, 8 8 60 10, drop
combo 2, 84 8 60 10, drop
edit “”, 3, 8 32 136 82, multi autovs
button “Çevir”, 5, 56 115 38 12
combo 6, 84 21 60 10, drop
button “çıkış”, 7, 104 115 38 12, cancel
button “Temizle”, 8, 10 115 37 12
text “yi”, 9, 70 10 9 8, center
text “Çevirinin yapılacağı yer –>”, 10, 6 22 73 8, right
text “”, 11, -2 128 153 8, center
}
On *:Dialog:Translate:Sclick:8: {
did -rf $dname 3
}
On *:Dialog:Translate:Sclick:5: {
if (!$did($dname,3).text) {
did -a $dname 11 Type some text in the box to Çevir
did -f $dname 3
.timer 1 3 did -a $dname 11
return
}
var %trans.text, %trans.lines = $did($dname,3).lines, %trans.count = 1
while (%trans.count <= %trans.lines) {
%trans.text = %trans.text $+ $did($dname,3,%trans.count).text
inc %trans.count
}
if ($did($dname,6).seltext == Echo Here) {
cevir echo -a $langcode($+($did($dname,1).seltext,_,$did($dname,2).seltext)) %trans.text
}
else {
var %tlanguages = $langcode($+($did($dname,1).seltext,|,$did($dname,2).seltext))
cevir msg $did($dname,6).seltext %tlanguages %trans.text
}
}
On *:Dialog:Translate:init:*: {
didtok $dname 1,2 44 English,German,Italian,Spanish,Portuguese,French,Dutch,Albanian,Estonian,Catalan,Croatian,Czech,Danish,Estonian,Filipino
didtok $dname 1,2 44 Galician,Hungarian,Indonesian,Latvian,Lithuanian,Maltese,Norwegian,Polish,Romanian,Slovak,Slovenian,Swedish,Turkish
did -c $dname 1 1
did -c $dname 2 2
did -ac $dname 6 Echo Here
if ($chan(0)) {
var %chan.count = $chan(0)
while %chan.count {
did -a $dname 6 $chan(%chan.count)
dec %chan.count
}
}
if ($query(0)) {
var %pm.count = $query(0)
while (%pm.count) {
did -a $dname 6 $query(%pm.count)
dec %pm.count
}
}
}
alias Trans_Chan {
if ($dialog(Trans_Chan)) { dialog -v Trans_Chan Trans_Chan }
else { dialog -m Trans_Chan Trans_Chan }
}
dialog Trans_Chan {
title "Çevir Kanal/Özel"
size -1 -1 136 48
option dbu
combo 1, 0 0 60 10, drop
combo 2, 76 0 60 10, drop
text "yi", 3, 64 2 9 8
edit "", 4, 0 15 135 10, autohs
button "tmizle", 5, 2 32 37 12
button "gönder", 6, 50 32 37 12
button "cıkış", 7, 96 32 37 12, cancel
}
On *:Dialog:Trans_Chan:Sclick:6: {
if (!$did($dname,4).text) { did -f $dname 4 | return }
else {
var %tlanguages = $langcode($+($did($dname,1).seltext,|,$did($dname,2).seltext))
if ($active == status window) { cevir echo -a %tlanguages $did($dname,4).text }
else { cevir .msg $active %tlanguages $did($dname,4).text }
}
}
On *:Dialog:Trans_Chan:Sclick:5: { did -rf Trans_Chan 4 }
On *:Dialog:Trans_Chan:init:*: {
didtok $dname 1,2 44 English,German,Italian,Spanish,Portuguese,French,Dutch,Albanian,Estonian,Catalan,Croatian,Czech,Danish,Estonian,Filipino
didtok $dname 1,2 44 Galician,Hungarian,Indonesian,Latvian,Lithuanian,Maltese,Norwegian,Polish,Romanian,Slovak,Slovenian,Swedish,Turkish
did -c $dname 1 1
did -c $dname 2 2
did -f $dname 4
}
dialog ClipTrans {
title "ClipTrans"
size -1 -1 64 48
option dbu
combo 1, 1 0 63 10, drop
combo 2, 1 20 63 10, drop
text "To", 3, 24 11 9 8, center
button "Çevir", 4, 1 34 29 12
button "Close", 5, 34 34 29 12, cancel
}
alias -l ClipTrans {
if ($dialog(Cliptrans)) { dialog -v Cliptrans Cliptrans }
else { dialog -m Cliptrans Cliptrans }
}
On *:Dialog:ClipTrans:Sclick:4: {
var %tlanguages = $langcode($+($did($dname,1).seltext,|,$did($dname,2).seltext))
if ($cb(0)) { TransClip %tlanguages }
else { echo -a clipboard is empty }
}
On *:Dialog:ClipTrans:init:*: {
didtok $dname 1,2 44 English,German,Italian,Spanish,Portuguese,French,Dutch,Albanian,Estonian,Catalan,Croatian,Czech,Danish,Estonian,Filipino
didtok $dname 1,2 44 Galician,Hungarian,Indonesian,Latvian,Lithuanian,Maltese,Norwegian,Polish,Romanian,Slovak,Slovenian,Swedish,Turkish
did -c $dname 1 2
did -c $dname 2 1
}
alias -l httpstrip {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,’,’
return %x
}
alias -l fixurl return $regsubex($1-,/([^a-z0-9])/ig,% $+ $base($asc(\t),10,16,2))
alias -l transclip {
var %clip.count = $cb(0), %clip.counter = 1, %clip.time = 1
while (%clip.counter <= %clip.count) {
.timer 1 %clip.time cevir echo -a $1 $remove($strip($cb(%clip.counter)),$chr(124))
inc %clip.counter
inc %clip.time 2
}
}
alias -l Ford-Trans {
if (!$dialog(Translate)) { dialog -m translate translate }
else { dialog -v translate translate }
}
alias -l langcode {
var %langcode = $replace($1,english,en,german,de,italian,it,spanish,es,portuguese,pt,french,fr,dutch,nl,albanian,sq,estonian,et,catalan,ca,croatian,hr,czech,cs,$&
danish,da,estonian,et,filipino,tl,finnish,fi,galician,gl,hungarian,hu,indonesian,id,latvian,lv,lithuanian,lt,maltese,mt,norwegian,no,polish,pl,romanian,ro,slovak,sk,$&
slovenian,sl,swedish,sv,turkish,tr)
return %langcode
}
menu * {
-
.Google Çeviri
..özelde Çeviri:Trans_Chan
..Dialog Kullanım:Ford-Trans
..Diller arası kullanım:dilr
..$iif($group(#TransTrigger) == On,$style(1)) Kanaldakilerin çevirisi örn: !cevir en-tr yes
…$iif($group(#TransTrigger) == On,$style(2)) On: .enable #TransTrigger
…$iif($group(#TransTrigger) == Off,$style(2)) Off: .disable #TransTrigger
-
}

Kodun amacı:

+W modesine sahip (Helper,Oper,Admin vs vs) biri iseniz ve size whois çekildiğinde,
-irc.Sunucu.com- *** L4roXyL (asas@78.190.73.236) did a /whois on you.
şeklinde uyarı alıyorsanız koddan yararlanabilirsiniz.
Size whois çekenin ip no’sundan hareketle IP Location Finder adresinden yerel bağlantı bilgilerini size sunacaktır.

İşte kod:
Kod:

on *:sockopen:whoiz:{
sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1
sockwrite -n $sockname Host: www.iplocation.net $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:whoiz:{
if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt }
else {
var %difi
sockread %difi
if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,

,$chr(32))) }
elseif (*Registry*Information* iswm %difi) {
sockclose whoiz
if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {
set %difuzyon $regml(1)
if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler… }
else { window -a @Whois }
aline @Whois 11,1Nick1…11:8 %difyyerelnick 1…………………………………………….
aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1……………………………………………..
aline @Whois 11,1Ülke1……………11:9 $token(%difuzyon,2,32) 1……………………………………..
aline @Whois 11,1Bölge1………….11:9 $token(%difuzyon,3,32) 1…………………………………
aline @Whois 11,1Şehir1…………..11:9 $token(%difuzyon,4,32) 1………………………………..
aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1………………………………………….
aline @Whois 0,1—————-Bilgi Sonu————————————————————
unset %dif*
}
}
}
}
alias bağlantı {
sockclose whoiz
sockopen whoiz www.iplocation.net 80
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:snotice:*whois*on*you*: {
if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
set -e %difyipno $remove($token($3,2,64),$chr(41))
set -e %difyyerelnick $2
bağlantı
echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor…
}
}

Size whois çeken nick için 1 defa işlem yapmaktadır(flood olayına engel olmak için).

Resimde 2 türlü görüntü bir aradır.Bir tanesi window(pencere) diğer ise tip(baloncuk).
Yukarıdaki kod sadece window(pencere) halinde görünüm sağlamaktadır.
Şayet mirciniz destekliyorsa tip(baloncuk) olarak görmek isterseniz kod içerisinde mavi kısmı siler aşağıdaki dizinleri yerine eklersiniz.
Her ikisinide görmek istiyorsanız mavi kısmın hemen üstüne aşağıdaki kodu ilave edersiniz.
Alıntı:
noop $tip(Whois,Yerel Bilgiler,Nick: %difyyerelnick,7)
noop $tip(Whois,Yerel Bilgiler,IP No: $token(%difuzyon,1,32),7)
noop $tip(Whois,Yerel Bilgiler,Ülke: $token(%difuzyon,2,32),7)
noop $tip(Whois,Yerel Bilgiler,Bölge: $token(%difuzyon,3,32),7)
noop $tip(Whois,Yerel Bilgiler,Şehir: $token(%difuzyon,4,32),7)
noop $tip(Whois,Yerel Bilgiler,Org.: $token(%difuzyon,5,32),7)

Görünüm seçeneklerini biraz daha arttırarak kendinize göre de düzenleyebilirsiniz.

* HTTP TCL kullanılmadığı için, domain sorgulama sistemindeki TCL’den yararlanılmıştır.
* Sunucunuza bağlanan kullanıcıların iplerini web sitesinden sorgulayarak tor/proxy olup olmadığına bakar
* Eggdrop botunuza yükleyip kullanabilirsiniz, sorunsuzdur.
* TCL Yapımcısı: CLubber

#########################################################################
# Eggdrop – Proxy/Tor Koruması v1.0
# Bu TCL ile sunucunuza bağlanan ip’leri online olarak sorgulatarak
# Sunucunuzun güvenliğini sağlayabilirsiniz.
# Sorgulama işlemi Web sitesi üzerinden yapmaktadır.
# Eggdrop – Proxy Koruması Coded By CLubber
########################################################################

bind raw * notice connect:user
proc connect:user {from keyword arg} {
if {[string match -nocase "*Client connecting on port*" $arg]} {
set nick [lindex $arg 9]
set port [string range [lindex [split [lindex $arg 8] “:”] 0] 0 end]
set ident [string range [lindex [split [lindex $arg 10] “@”] 0] 1 end]
set host [string range [lindex [split [lindex $arg 10] “@”] 1] 0 end-1]
set server “anonymouse.org”
set port 80
set l 14
set i 0
set path “/cgi-bin/anon-www.cgi/http://proxybl.org/lookup.do?ip=[string range [lindex [split [lindex $arg 10] “@”] 1] 0 end-1]”
set sockdw “[socket $server $port]”
puts $sockdw “GET $path HTTP/1.0″
puts $sockdw “User.Agent:Mozilla”
puts $sockdw “Host: $server”
puts $sockdw “”
flush $sockdw
while {$i <= $l} {
gets $sockdw linedw
if {[string match "*There is an entry for the IP or ID*" $linedw]} {
putquick “GLINE *@$host 24h Muhtemel Clone/Bot bağlantısı bulundu. Güvenlik nedeni ile sunucumuzdan uzaklaştırıldınız. Lütfen ayrıntılı bilgi için web sitemizi ziyaret ediniz.”
putquick “PRIVMSG #Opers roxy/Tor Bulundu: Nick: $nick Ident: $ident Host: $host bağlantısında açık uçlu proxy bulunduğu için sunucudan uzaklaştırılmıştır.”
close $sockdw
return 0
}
if {[string match "*No entry regarding*" $linedw]} {
gets $sockdw
close $sockdw
return 0
}
}
}
}
putlog “Eggdrop – Proxy/Tor Koruması TCL v1.0 Coded By CLubber”