Kullanıcı Tag Listesi

  • Açıkmış
  • Ağlıyor
  • Artist
  • Aşık
  • Beğeniliyor
  • Bilgili
  • Cesur
  • Hasta
  • Keyifsiz
  • Korkak
  • Melek Gibi
  • Mutlu
  • Mutsuz
  • Müzik Sever
  • PC Kolik
  • Playboy
  • Ruhsuz
  • Sinirli
  • Sinsi
  • Sportif
  • Star
  • Suskun
  • Süpermen
  • Tatilde
  • Tehlikeli
  • Utangaç
  • Uykulu
  • Yanıyor
  • Yaramaz
  • Ölü Gibi
  • Şaşkın
  • Şeytan
  • Sayfa 1 Toplam 2 Sayfadan 12 SonuncuSonuncu
    Toplam 16 adet sonuctan sayfa basi 1 ile 10 arasi kadar sonuc gösteriliyor
    1. #1
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Eggdrop (TCL Arşivleri)

      Merhaba arkadaşlar Bende İşinize Yarayacak TCL botları Paylaşıyorum. TCL'ler Bana Ait Değil, Alıntıdır.

      Öncelikle Bir Conf Örnegi:

      Kod:
      ###### Bilgi Satiri #####
      set mod-path "modules/"
      set help-path "help/"
      set text-path "text/"
      loadmodule dns
      loadmodule channels
      loadmodule server
      loadmodule ctcp
      loadmodule irc
      loadmodule notes
      loadmodule console
      checkmodule blowfish
       
      ##### Bilgi Satiri #####
      ##### Bot bilgileri #####
      set nick "BotNick"
      set realname "2Bot İdenti"
       
      #Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
      #Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.
       
      #set my-ip "1.2.3.4"
       
      set init-server { 
      putserv "oper opernick opersifre" 
      putserv "PRIVMSG nickserv identify nicksifresi"
      }
      set servers { 66.90.107.187:6667 }
      channel add #KanalAdı { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
      set net-type 5
      set owner TimothY
       
      ##### Dosyalar ve Dizinler #####
      ##### Bilgi Satiri #####
      set userfile "bots.user"
      set chanfile "bots.chan"
      set temp-path "/tmp"
      logfile msbxco * "logs/bots.log"
      logfile jpk #kanaladi "logs/#kanaladi.log"
      set console "mkcobxs"
       
      ##### SCRIPTLER #####
      source scripts/userinfo.tcl
      source scripts/script1.tcl
      source scripts/script2.tcl
      source scripts/script3.tcl
      loadhelp userinfo.help
       
      # EndOf
      Siir.TCL ( !soz Yazarak Güzel Söz Yazan Tcl Bot )

      Kod:
       
       
      set soz { 
      " gidiyorum uzaklara bilinmez diyarlara seni bırakıp gitmek var ya o koyuyor bana ben senle olamadım gençliğime doyamadım ben senle kalamadım günlerimi sayamadım ölümde var sonunda gülümde var dağların arkasında yağar yar." 
      "gecemidir insanı hüzünlendiren yoksa insan mıdır hüzünlenmek icin geceyi bekleyen. gecemidir senin bana düsündüren yoksa benmiyim seni düsünmek icin geceyi bekleyen??" 
      "bu gece pencereni açık bırak uzaklardan kuş uçurdum biraz yorgun biraz ıslak ama yinede başucuna bir tutam sevgi bırakacak almayı unutma...." 
      "geceleri uzaklara cıglık olur sesim,denizden cıkan yosun kokusundan keskin sana olan özlemim, bu gece senin icin kapanacak gözlerim iyi geceler herseyim." 
      "Sen Tanrıya dilenen dilek, göklere uzanan ellerimsin. Sen gözümden süzülen yas, tek düşüncem, hasretimsin. Sen yaşadığım ömür, en güzel günlerimsin." 
      "Aşk, gülü dikeniyle avuçlamaya benzer. Ellerin kan içinde kalır ama dikenlerinden hesabini, gülden soramazsın." 
      "O kadar güzelsin ki yüzüne bakamıyorum. Titriyor ellerim, ellerini tutamıyorum. Dolanıp sarmak geliyor saramıyorum. Öylesine bağlanmışım ki sensiz duramıyorum." 
      "Ilık bir rüzgâr esti buradan,nerden geldiğini bilemedim,Nereye gidiyorsun dedim,özlenen her şeye dedi,benimde aklıma sen geldin;çünkü buralarda özlendin,Ilık bir rüzgâr esti buradan,nerden geldiğini bilemedim,Nereye gidiyorsun dedim," 
      "Duanla Yaşamadımki Bedduanla Öleyim." 
      "Hayat, silgisiz resim çizme sanatıdır." 
      "sahilde oturup denize bakan,Yakasız gömleğe kıravat takan, Ağzındaki sigarayı tersten yakan, Bir sevdalı görürsen hatırla beni.!" 
      "ne yıldızlar istiyorum gece yarılarıma ,ne güneşi istiyorumkaranlıklarıma,yalnız seni istiyorum yalnızlığıma..." 
      "Birgün Hayat Dedikleri Şeyi Merak edersen Unutmaki Hayat Hayatım Diyebilecegin İnsanı Bulunca Baslar.Benim içinde Hayat Seninle Başlıyor" 
      "Dostluk,gereğince tanımlanamazlardandır ve ancak yasamakla anlaşılır. Bu yüzden dostluk şiir gibi aşk gibi anlatılmaz yasanır." 
      "Ölmekten korkmuyorum seni milyonlarca yağmur damlasıyla paylaşmatan korkuyorum çiçek olup açmandan değil seni bir gün gelip koparmalarından korkuyorum." 
      "yarınlar umudumdu benim bugünlere düşmandım, yarınımdım sen benim bugünüm olamazdın ,yarınlar hic gelmedi,ben hep bu gunlerde kaldım." 
      "TOK OLAN CÜMLE CİHANI TOK SANIR , AÇ OLAN ALEMDE EKMEK YOK SANIR." 
      "Kader beyaz kağıta sütle yazılmış yazı, elindeyse sıyır beyazdan beyazı. Tanrımdan umuyorum ki seni kaderime yazmış olsun." 
      "Sevenler sevilmediklerini bilseler bile sevdiklerini unutmazlar.." 
      "ben seni unutmak için sevseydim sana olan askimi kalbime degil günes dogdugu zaman kaybolan bugulu camlara yazardim." 
      "size dün tanistigim dört arladastan bahsedecegim isimleri biri herkez hangisi ve kimse konu dostluk biri sordu herkezle dost olurmu herkez hangisi dost oldumuki bende dost olayim hangisi üzülür kimse yoktuki der kimse sessiz kimse buruk kimse saskin çünkü o hiç kimse deyildiki ben isie bir and aldim yildizlari seyire ve sonra bir yildiz kaydi bende düstüm yer yüzüne anladim hiç birimiz hiç kimse deyilmisiz eger allaha kul olmayi beceremiyorsak." 
      "bagrimda bir ates var ne bileceksin ölsemde ne duyacak ne göreceksin hep seninle yasadi öldü deseler belki biraz üzülüp kim diyeceksin!!" 
      "50-60 yillik dunyayi neyleyim versen bana sadece ilim irfan gerisi zaten hep yalan." 
      "Ben yamaçtan ineyim Yol senin olsun. Ben zehir içeyim Su senin olsun. Duydum ki, Bir sevgili bulmussun, Hayirli olsun Bir tanede ben buldum Haberin olsun." 
      "Mademki sen yoksun yanimda leylaklar dökülüp güller aglasin." 
      "Yasadiklarimdan pisman degilim Öfkem Yasayamadiklarimdandir." 
      "bir gün sende seveceksin sevene zulum etmenin cezasini cekeceksin .iste o zaman ben gelirim aklina ama ayni anda sende benim kalbimde öleceksin" 
      "beni sensiz biraktigin gun geliyor aklima , dusunuyorumda cok aci cekmistim , ama su anda dahada cok cekiyorum ama biliyorumki sen bu aciya hicbir zaman degmedin beni hic bir zaman sevmedin sen sevsende sevmesende ben seni sevdim hepde öyle kalacak." 
      "sen benzer diye kücük cicekleri öptügümsün,sen yoklugunu uzun yillara gömdügümsün,sen bir türlü cözemedigim kördügüm,sen sevipde koklayamadigim GÜLÜMSÜN!!" 
      "GÜN GELİRSE ELLERİN ELLERİMDEN AYRILIRSA BİR YABANCI GİBİ SÖZ SÖYLERSE DİLLERİN BENİ GÖRÜPTE GÖRMEZDEN GELİRSE GÖZLERİN ECEL GEREKMEZ BEN O ZAMAN ÖLÜRÜM GÜLÜM." 
      "Biz yıkılmaz sevgilerin sarsılmaz yaşlarıyız.yüreğimizde sevda yazar anlımızda bela biz delice sevmeyi biliriz.Ama sevdiğimizi unutmayı asla." 
      "AŞK, KÖLE OLMAYACAK KADAR ÖZGÜR, ULAŞILAMAYACAK KADAR DERİN, KAÇAMAYACAK KADAR YAKIN, SENİNLE YAŞANACAK KADAR GÜZELDİR." 
      "Güzel insan O dur ki kaderden gelen lütfa sevinmez kahra incinmez." 
      "SENI SEVDIGIMI SANA DAHA NASIL ANLATAYIM. ÖLMEK GEREKİRSE ÖLÜRÜM AMA SENIN BENI SEVDIGINI BILIRSEM." 
      "HER HAKSIZ ELEŞTİRİNİN ALTINDA GİZLİ BİR HAYRANLIK YATAR." 
      "KAVUŞMAK ÖLÜMSE HASRETİN ZULÜM.ELBETTE KAVUŞURUZ BEKLE GÜLÜM TEK SANA AİTTİR ŞU GÖNLÜM BEN YOLUMU SEÇTİM YA SEN YA ÖLÜM." 
      "En büyük felaketler dahi içinde ümidini kaybetme,unutmaki, en yumusak ilik en sert kemigin içinden çikar, gülmek senin için bir tutku olsun.Olurda bir gün aglarsan o da mutluluktan olsun." 
      "Yüregimizde ates,gözlerimizde sevgi, ellerimizde umutla bütün kötülüklere inat, gülümseyerek yasiyoruz.Her insan bir yasam, unutma! sen de bir yasamsin." 
      "Gönlüne düserse bir imkansiz ask, kacarken vurulmus ceylan gibi yüregin, aglarsin. Irmak olur gözyaslarin bosa, kendini taniyamazsin. Asiksan yarimsin ..., yikamam kumdan kalemi, aldatamam kendimi, acamam mühürlü kalbimi, anlatamam derdimi." 
      "KIZIL GÜNAHLAR KALDI SENDEN GERIYE,VEBALI AGIR YASANMISLARIN.MAVI SEVDALAR TÜKENDI ARTIK..NE SEN KALDIN NE DE HAYALIN PENCEREMDE." 
      "YAGMUR GORURSEN GOZLERIMI HATIRLA SARI YAPRAK GORURSEN KALBIMI HATIRLA ACI TEBESSUM GORURSEN DUDAKLARIMI HATIRLA ELLER USTUNDE BIR TABUT GORURSEN BENI HATIRLA." 
      "KALBIMI YERINDEN SOKUP, BIR ZARFA KOYUP GONDERIYORUM SANA. ZARFI ACINCA SASIRMA! CUNKU HERYERINDE BIRTEK KENDINI GORECEKSIN. VE ANLAYACAKSIN SENI SEVMENIN NE DEMEK OLDUGUNU." 
      "Yillar vardir nasil geçtigini bilmezdim bir gün vardir yasamin anlamini degistirdi bana dair hissetmedigimi bilmedigimi yasatti iste o ani senle yasadim senle sevdim." 
      "Birgün senden ayrilacagim biryana yalniz kalacagim hiç aklima gelmemisti. ve birde birgün umudum olmayinca yarina,bugünü yasiyormuyum anlayamadim." 
      "Hayatta yasamanin 2 yolu vardir 1.Hiçbirseyin mucize olmadigini düsünmek 2.Herseyin bir mucize oldugunu düsünmek." 
      "Hayat Güzeldir Ama Acilari Olsada, Güller GÜzeldir Ama Dikenleri Olsada, Insanlar Güzeldir Ama yalanlari Olsada, Ask Güzeldir Ama Sevipte Ayrilik Olmasa." 
      "Ask, insanin kendisine yapabilecegi en büyük iskencedir.." 
      "dostum var diye gezerdim ne zaman yikilacak gibi oldumsa dostlarima giderdim ama bugun yine agliyorum ve anladimki gercek dostlarim ben aglarken guluyormus YAZIK BE DOSTLUK OLMUS." 
      "BiR AşKı PaYLaŞMaK İçiN ÇoK GeÇ irPaYLaŞıMa aşıK OLMaK İçinSe ErKeN YiNe SeVDa YeRiMDeN VuRDu ZaMaNŞiMDi SaNa SÖYLeNeCeK TeK CüMLe BeNDe SaNa YeTeCeK KADaR BEN KaLMaDı." 
      "ŞaiR ßenSem ŞiiRim SenSiN AşıK ßenSem aŞkım SenSiN SarhoŞ ßenSem ŞaRaßım SenSiN DeLi ßenSem ZinCiRim SenSiN ßen HaLa YaŞıYoRSam Seßebi SenSiN.." 
      "Gördüğüm en güzel rüya senin olduğun,Duyduğum en derin sevgi senin eserin, Gördüğüm en güzel dünya senin gözlerin,Ve kurduğum en güzel hayal sensin" 
      "Seni asil insanların basit sevgileriyle değil, basit insanların asil sevgileriyle sevdim. Bu güzel aşkımıza nokta koyma, sana kucak dolusu virgül getirdim?" 
      "Yanağına düşen kar tanesi eriyip dudaklarına indiğinde ve o bir damla serinliği biriyle paylaşmak istediğinde yüzünü rüzgara dön, ordayım!" 
      "Sana doğru bir kelebek uçurdum, dağları denizleri aştı seni buldu, yanağına ufacık bir öpücük kondurdu. Hissettin mi?" 
      "Ağzımdan çıkacak söz olsan konuşmam, gözümden akacak yaş olsan ağlamam, kalbime hapsettim seni hiçbir yere bırakmam!" 
      "Bir insanı sevmek onunla yaşlanmayı kabul etmek demektir benim için. Ben seni seviyorum ve bir ömür boyu seninle olmak istiyorum." 
      "Seni yıldızlara benzetiyorum onlar kadar uzak onlar kadar erişilmezsin ama bir farkın var onlar bin tane sen bir tanesin." 
      "Hayallere dalıp gitmem ben, Çünkü tek hayalim sensin benim! Hiçbirşey isteyemem benÇünkü birtek istediğim sensin benim." 
      "Bir an buruk bir acı saplanırsa yüreğine,gözlerin zamansız takılırsa,kulakların zamansız deli gibi çınlarsabil ki bir yerlerde özlemişsindir" 
      "Sen benim gözlerimde saf bir gerçek,Yüreğime bahar getiren bir çiçeksin.Sen bedenimdeki yumuşak kudret,Gönül bahçemde uçuşan bir kelebeksin.." 
      "Sevgilerin en güzeli seni sevmek, Özlemlerin en güzeli seni özlemek, Ve hayatın tadı sabah kalktığımda, Senin varolduğunu bilmek... " 
      "Bırakma beni sevdiğim gidişine dayanamam,Hasret gözyaşlarımla kendimi avutamam,Dönerim dersin ama kadere inanamam,Bıraktığın anılarla sensiz yaşayamam... " 
      "Sahiller dalgayı nasıl beklerse, Gökyüzü mehtabı nasıl özlerse, Kuru topraklar suya nasıl hasretse, Sende benim hasretimsin..." 
      "Aşkınla sararıp solacak kadar,Sevginle bahtiyar olacak kadar Uğruna canımı verecek kadar seviyorum desem inanırmısın ?" 
      "Yanağına düşen kar tanesi eriyip dudaklarına indiğinde ve o bir damla serinliği biriyle paylaşmak istediğinde yüzünü rüzgara dön, ordayım!" 
      "Bir yağmur damlası seni seviyorum anlamı taşısaydı ve sen bana seni ne kadar sevdiğimi soracak olsaydın, inan ki birtanem her gün yağmur yağardı." 
      "Seni asil insanların basit sevgileriyle değil, basit insanların asil sevgileriyle sevdim. Bu güzel aşkımıza nokta koyma, sana kucak dolusu virgül getirdim?" 
      "Bütün mevsimleri bir günde, bütün yılları bir mevsimde yaşamaya razıyım seninle... Bir tutam sevinç, bir tutam umut ve bir tutam mutluluk gönderiyorum sana." 
      "Beyaz bir güvercin yolluyorum sana; kanatlarında mutluluk, yüreğinde sevgi ve sadakat, karbeyaz tüylerinde umut ve gagasında iyi geceler öpücüğü, yanağını uzat." 
      "Seni bulmaktan çok aramak isterim! Seni sevmeden önce anlamak isterim! Seni bir ömür boyu bitirmek değil de sana hep yeniden başlamak isterim." 
      "Bir gül olmak isterdim! Neden mi? Beni koparıp kokladığında vücudunun derinliklerine girip bir daha oradan çıkmamak için?" 
      "Bizi anlatan şiirler yazılmadı henüz.Çünkü biz dünyanın oyununda,hayatın acımasızlığında ve de sevdiklerimizin baygın bakışlarında unutulduk.."} 
      # !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!! 
      bind pub - !soz tell_that 
      proc tell_that {nick uhost hand chan $rand} { 
      global soz 
      putserv "privmsg #Siir 4 $nick 2 Güzel Söz isteğiniz : 2|7 [lindex $soz [rand [llength $soz]]] 2| ..::SiberDunya.Net::.." 
      }

    2. #2
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Elimde Bulunan TCL Arşivin Devamı

      ChanLimit.TCL ( Kanalı Otomatik User Sayısına Göre Limitler. )

      Kod:
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      # Kanal Giriş Limiti Ayarlanması
      # Copyright © bLackStar - TicariChat 2003
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      # Binds                                                               
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      
      bind time - "* * * * *" time:ChanLimit
      
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      # time:ChanLimit start                                                   
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      
      proc time:ChanLimit {min hour day month year} {
          foreach chan [channels] {
      	set newlimit [expr [llength [chanlist $chan]] + 4]
      	set currentlimit [currentlimit $chan]
      	if {$currentlimit < [expr $newlimit - 1] || $currentlimit > [expr $newlimit + 1]} {
      	    putserv "samode $chan +l $newlimit"
      	}
          }    
      }
      
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      # time:ChanLimit end                                                     
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      # currentlimit start                                                   
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      
      proc currentlimit {chan} {
          set currentmodes [getchanmode $chan]
          if {[string match "*l*" [lindex $currentmodes 0]]} {
      	return [lindex $currentmodes end] 
          }
          return 0
      }
      
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      # currentlimit end                                                    
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      # putlog                                                              
      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
       
      putlog "Loaded ChanLimit - bLackStar"
      CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )

      Kod:
      #gerekli bindler
      bind pub - !join girsin
      bind evnt - init-server baglan_yap
      
      proc baglan_yap {type} {
      global inick ipass
      
        putserv "OPER $inick $ipass"
        putserv "WALLOPS :Basari ile Login Oldum :)"
      }
      
      proc girsin {n u h c a} {
        global gnick
      	set gnick $n
              set kanal [lindex $a 0]
          putserv "as chan $kanal add"
          putserv "as chan $kanal set bot botnicki"
          putserv "PRIVMSG #opers : 4 $kanal Kanalına botnicki Bot Bir Kac Saniye İçinde Atılacaktır 2$gnick"
      }
      
      #gerekli bindler
      bind pub - !part ciksin
      bind evnt - init-server baglan_yap
      
      proc baglan_yap {type} {
      global inick ipass
      
        putserv "OPER $inick $ipass"
        putserv "WALLOPS :Basari ile Login Oldum :)"
      }
      
      proc ciksin {n u h c a} {
        global gnick
      	set gnick $n
              set kanal [lindex $a 0]
          putserv "as chan $kanal del"
          putserv "PRIVMSG #opers : 4 $kanal Kanalından Botnicki Bot Bir Kac Saniye İçinde Cıkarılacaktır.  2$gnick"
      }
      NOT: Bu Botun Calışması için Root yetkisi(panel girişi Acık) Olması Gerekmektedir.
      Çalışma Şekli:
      !join #kanal - kanal a alır
      !part #kanal -kanaldan cıkartır.


      CR Fjoin TCL(userleri Kanal a Almak)

      Kod:
      bind raw - NOTICE baglanti 
      proc baglanti {from keyword text} { 
      if {[string match -nocase "*client connecting*" $text]} { 
      set nick [lindex [split $text] 9]
      utimer 1[list putserv "raw close" ]
      utimer 1[list putserv "fjoin $nick #sohbet" ]
      utimer 1[list putserv "fjoin $nick #oyun" ]
      utimer 1[list putserv "fjoin $nick #radyo" ]
      } 
      }
      Oper.tcl ( botun Oper girmesi için hazırlanmış tcl )

      Kod:
      loadmodule server 
      set net-type 0 
      set nick "BotNick" 
      set realname "4AsiLMaVi" 
      set init-server { putserv "OPER opernick operpass" 
      putserv "nick BotNick" 
      putserv "umode +c" 
      
      }
      Global.tcl ( istenilen metni bota global attırmak için gerekli tcl )

      Kod:
      ########################################### 
      #Global uygulamasinin yapilabilecegi kanal 
      ########################################### 
      set tg_chan "#opers" 
      
      ########################################### 
      #Uygulamanin calismasi icin botun oper login ve nick login paslari 
      ########################################### 
      
      
      set o_login "global" 
      
      set o_pass "123globalbot" 
      
      set b_ipass "123456" 
      
      
      ########################################### 
      #Gerekli uygulamalar 
      ########################################### 
      
      bind pub - !global global:msg 
      bind evnt - init-server baglanti:ayari 
      
      
      ########################################### 
      #Buraya DOKUNMAYIN! (siz bilirsiniz) :) 
      ########################################### 
      proc global:msg {n u h c a} { 
        set tg_msg [lindex $a ] 
        if {[isop $n $tg_chan]==1} { 
           putserv "NOTICE $* \02<$n>\02 $tg_msg" 
       } 
        if {[isop $n $tg_chan]==0} { 
          putserv "SAMODE $c +b $n" 
          purserv "KICK $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
        } 
      
      } 
      
      proc baglanti:ayari {type} { 
        putserv "NICKSERV IDENTIFY $b_ipass 
        putserv "OPER $o_login $o_pass" 
        putserv "WALLOPS :Helper Global mesaj sistemi aktif!" 
      } 
      
      putlog "Global mesaj atma sistemi yuklendi" 
      putlog "Bot OPER ve Global kullanma izni olmadigi surece" 
      putlog "Calismayacaktir!" 
      putlog "!helpglobal globalmesajiniz seklinde calismatadir"
      Global2.tcl(Kodladıgınız mesajları Belirlediğiniz Sürede Global Atar )

      Kod:
      #Konusma icin zaman sureci (Dk cinsinden) 
      set zaman_araligi "15" 
      
        
      #Uygulamanin calismasi icin 
      #botun oper login ve nick login paslari 
      
      #oper login 
      set o_login "global" 
      
      #Oper Login sifresi 
      set o_pass "123654789globalbot" 
      
      #Nick identify sifresi 
      set b_ipass "123654789" 
      
      
      #bind 
      bind evnt - init-server baglanti:ayari 
      
      #mesajlar 
      set global_msg { 
        "Mesajı buraya yazınız."
        "mesajı bu şekilde asagıya ekleyebilirsiniz."
        "kolay gelsin" 
        
      } 
      
      if {![string match "*konusma_zamani*" [timers]]} { 
       timer $zaman_araligi konusma_zamani 
      } 
      
      
      proc konusma_zamani {} { 
         global global_msg zaman_araligi 
         set global_rmsg [lindex $global_msg [rand [llength $global_msg]]] 
         putserv "NOTICE $* $global_rmsg" 
         timer $zaman_araligi konusma_zamani 
         return 1 
       } 
      proc baglanti:ayari {type} { 
        putserv "NICKSERV IDENTIFY $b_ipass 
        putserv "OPER $o_login $o_pass" 
        putserv "WALLOPS :Global mesaj sistemi aktif!" 
      } 
      
      
      putlog "Global mesaj atma sistemi yuklendi" 
      putlog "Bot OPER ve Global kullanma izni olmadigi surece" 
      putlog "Calismayacaktir!" 
      putlog "mail: acoustic@realcoder.com"

    3. #3
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Elimde Bulunan TCL Arşivi

      Opme.tcl ( mynet merlyn tcl si )

      Kod:
      ################################################################################
      # opal.tcl 1.0 - www.ircturk.org                                               #
      #                                                                              #
      # Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla  #
      # maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan  #
      # verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
      # yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
      # leri bir kanalda bulundurmaktir.!                                            #
      ######################################################################Stonkeep##
      
      
      # Botun giriste ircop olmasi icin gerekli ircop nicki
      set inick "botnicki"
      
      # Buda gerekli olan sifre
      set ipass "123bot"
      
      
      
      
      
      
      
      # Ayarlar Bu kadar.! DOKUNMAYIN!!!
      
      #gerekli bindler
      bind pub - opver opver
      bind evnt - init-server baglan_yap
      
      proc baglan_yap {type} {
      global inick ipass
      
        putserv "OPER $inick $ipass"
        putserv "WALLOPS :Basari ile Login Oldum :)"
        putserv "sajoin #OpS"
        putserv "samode #Ops +o botnick"
        putserv "umode +c"
       }
      
      proc opver {n u h c a} {
        global gnick
      	set gnick $n
              set kanal [lindex $a 0]
      	putserv "FJOIN $kanal $n"
            putserv "samode $kanal +o $n"
      	
      }
      Operjoin.TCL ( Cr de Operini giren görevlileri belirtilen kanal a fjoinler )

      Kod:
      ##########################
      #
      # Oper Join TCL Writed Raiden Server: Irc.Ayva.Net
      #
      #########################
      
      bind raw - Notice operjoin
      
      proc operjoin { from keyword text } {
        if {[string match -nocase "*is now an operator*" $text]} {
      	set _nick [lindex [split $text] 4]
      	set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
      	putserv "fjoin $snr #ops"
      	putserv "fjoin $snr #opers"
              putserv "fjoin $snr #sops"
              putserv "PRIVMSG #opers Hoş Geldiniz; $snr Kolay Gelsin."
              putserv "SAMODE #opers +o $snr"
        }
      }
      putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"

    4. #4
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Elimde Bulunan TCL Arşivin Devamı

      Radyo.TCL Eklentisi(!yes,!no,!istek )

      Kod:
      #gerekli bindler
      bind pub - !yes yes
      bind pub - !no no
      bind pub - !istek istek
      bind evnt - init-server baglan_yap
      
      #Gerekli degiskenler
      
      set inick "opernick"
      set ipass "opersifresi"
      
      #ELLEMEYIN (Siz Bİlirsiniz)
      
      proc baglan_yap {type} {
        global inick ipass
        putserv "OPER $inick $ipass"
        putserv "WALLOPS :Basari ile Login Oldum :)"
      }
      
      proc yes {n u h c a} {
         set kanal [lindex $a 0]
         putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
      }
      proc no {n u h c a} {
        set kanal [lindex $a 0]
        putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
      }
      proc istek {n u h c a} {
         set kanal [lindex $a 0]
         putserv "PRIVMSG #DJ :\0034İstek İsteyen Nick \002$n\0034 İsteği:\001 $kanal"
         putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum."
      }

    5. #5
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Eggdrop (TCL Arşivleri)

      Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.)

      Kod:
      # Bu Tcl Cok basit kanal kick ve join Sayac Tcl`idir..
      # Kanaliza Giren Kisileri vede kanaldan atilan kisileri sayar..
      # Bu Tcl IRCturk NEtwork Team Tarafindan Yazilmistir..
      # Tcl calismak icin userinfo1.0.tcl ye ihtiyac duyar..
      # Aksi takdirde calismicaktir..
      #  Stonkeep 
      # 
      # Kullanabileceginiz Komutlar..
      # Kanalda:
      # !toplamgiris - Kanala bugune kadar kisi sayisini gosterir..
      # !toplamatilan - Kanaldan bugune kadar atilan kisi sayisini gosterir..
      # !toplamatilan <nick> - Nick`in kac kisiyi attigini gosterir..
      # DCC Komutlari:
      # .toplamgiris - Kanala bugune kadar kisi sayisini gosterir..
      # .toplamatilan - Kanaldan bugune kadar atilan kisi sayisini gosterir..
      # .toplamatilan <nick> - Nick`in Kac kisiyi attigini gosterir..
      #
      
      
      if {![info exists userinfover] } {
       putlog "*** Sayac Tcl Yuklenemiyo 2.0 -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda.!"
       return 0
      }
      
      bind pub -|- !toplamgiris pub:toplamgiris
      bind dcc -|- toplamgiris dcc:toplamgiris
      bind join -|- * joincounter
      bind pub -|- !toplamatilan pub:toplamatilan
      bind dcc -|- toplamatilan dcc:toplamatilan
      bind kick -|- * kickcounter
      set khits 0
      set jhits 0
      
      proc convert {number} {
       set one .
       set two .
       set three .
       set others .
       set numlength [string length $number]
       incr numlength -2
       set num2ndchar [string index $number $numlength]
       switch $num2ndchar {
        1 { set number $number$others }
        default {
         incr numlength
         set numchar [string index $number $numlength]
         switch $numchar {
          1 { set number $number$one }
          2 { set number $number$two }
          3 { set number $number$three }
          default { set number $number$others }
         }
        }
       }
       return $number
      }
      
      proc dcc:toplamgiris {hand idx arg} {
       if {$arg == ""} {
        set temp 0
        set chan [lindex [console $idx] 0]
        set rchan [string tolower $chan]
        if {[file exists ./scripts/$rchan.jcount.txt]} {
         set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
         gets $o_fid temp
         close $o_fid
         putdcc $idx "$rchan kanalini toplam $temp kisi ziyaret etti."
         return 0
        } else {
         putdcc $idx "$rchan kanalini suana kadar kimse ziyaret etmedi.."
        }
       } else {
        set temp 0
        set rchan [string tolower $arg]
        if {[file exists ./scripts/$rchan.jcount.txt]} {
         set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
         gets $o_fid temp
         close $o_fid
         putdcc $idx "$rchan kanalini toplam $temp kisi ziyaret etti"
         return 0
        } else {
         putdcc $idx "$rchan kanalini suana kadar kimse ziyaret etmedi"
        }
       }
      }
      
      proc pub:toplamgiris {nick host hand chan arg} {
       if { $arg == "" } {
        set temp 0
        set rchan [string tolower $chan]
        if {[file exists ./scripts/$rchan.jcount.txt]} {
         set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
         gets $o_fid temp
         close $o_fid
         putserv "PRIVMSG $chan :$chan Kanalini toplamda $temp kisi Ziyaret Etti."
         return 0
        } else {
         putserv "PRIVMSG $chan :Uzgunum, $rchan kanalini simdiye kadar kimse ziyaret etmedi."
        }
       } else {
        set temp 0
        set rchan [string tolower $arg]
        if {[file exists ./scripts/$rchan.jcount.txt]} {
         set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
         gets $o_fid temp
         close $o_fid
         putserv "PRIVMSG $chan :#rchan Kanalini Toplamda $temp kisi Ziyaret Etti."
         return 0
        } else {
         putserv "PRIVMSG $chan :Uzgunum, $rchan kanalini simdiye kadar kimse ziyaret etmedi."
        }
       }
      } 
      
      proc joincounter {nick host hand chan} {
       global jhits
       set temp 0
       set rchan [string tolower $chan]
       if {[file exists ./scripts/$rchan.jcount.txt]} {
        set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
        gets $o_fid temp
        close $o_fid
       } else {
        set o_fid [open "./scripts/$rchan.jcount.txt" "CREAT RDWR"]
        puts $o_fid temp
        close $o_fid
       }
       set jhits $temp
       incr jhits
       putserv "NOTICE $nick :$chan Kanalina Giren [convert $jhits] Kisisiniz.! Turkiyenin IRC Portali WwW.IRCturk.OrG"
       set o_id [open "./scripts/$rchan.jcount.txt" "WRONLY"]
       puts $o_id $jhits
       close $o_id
      }
      
      
      proc dcc:toplamatilan {hand idx arg} {
       if {$arg == ""} {
        set temp 0
        set chan [lindex [console $idx] 0]
        set rchan [string tolower $chan]
        if {[file exists ./scripts/$rchan.kcount.txt]} {
         set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
         gets $o_fid temp
         close $o_fid
         putdcc $idx "$rchan kanalindan toplamda $temp kisi atildi."
         return 0
        } else {
         putdcc $idx "Suana kadar kimse $rchan kanalindan atilmadi."
        }
       } else {
        set temp 0
        set nick [string tolower $arg]
        if {[validuser $nick]} {
         if {[getuser $nick XTRA KICKS] == ""} {
          putdcc $idx "$arg Kimseyi Atmadi."
         } else {
          set tkicks [getuser $nick XTRA KICKS]
          putdcc $idx "$arg Suana Kadar $tkicks kisiyi kanaldan atti."
         }
        } else {
         putdcc $idx "$arg Kim Bilmiyorum..!"
        }
       }
      }        
      
      proc pub:toplamatilan {nick host hand chan arg} {
       if { $arg == "" } {
        set temp 0
        set rchan [string tolower $chan]
        if {[file exists ./scripts/$rchan.kcount.txt]} {
         set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
         gets $o_fid temp
         close $o_fid
         putserv "PRIVMSG $chan :$chan Kanalindan toplamda $temp kisi Atildi."
         return 0
        } else {
         putserv "PRIVMSG $chan :Suana kadar kimse $rchan kanalindan atilmadi."
        }
       } else {
        set temp 0
        set nick [string tolower $arg]
        if {[validuser $nick]} {
         if {[getuser $nick XTRA KICKS] == ""} {
          putserv "PRIVMSG $chan :$arg Kimseyi Kanaldan Atmadi."
         } else {
          set tkicks [getuser $nick XTRA KICKS]
          putserv "PRIVMSG $chan :$arg Suanada kadar Kanaldan $tkicks kisiyi atti."
         }
        } else {
         putserv "PRIVMSG $chan :$arg kimdir bilmiyorum..!"
        }
       }
      }
      
      proc kickcounter {nick host hand chan knick reason} {
       global khits
       set temp 0
       set rchan [string tolower $chan]
       if {[file exists ./scripts/$rchan.kcount.txt]} {
        set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
        gets $o_fid temp
        close $o_fid
       } else {
        set o_fid [open "./scripts/$rchan.kcount.txt" "CREAT RDWR"]
        puts $o_fid temp
        close $o_fid
       }
       set khits $temp
       incr khits
       if {[validuser [nick2hand $nick $chan]]} {
        if {[getuser $hand XTRA KICKS] == ""} {
         setuser $hand XTRA KICKS 0 
        }
        set tkicks [getuser $hand XTRA KICKS]
        incr tkicks
        setuser $hand XTRA KICKS $tkicks
        putserv "PRIVMSG $chan :$nick Bugune Kadar $tkicks Kisi Kicklemis.."
       }
       putserv "NOTICE $knick :Siz $chan Kanalindan Atilan [convert $khits] Kisiniz.!"
       set o_id [open "./scripts/$rchan.kcount.txt" "WRONLY"]
       puts $o_id $khits
       close $o_id
      }
      
      putlog "Join ve Kick Kanal Sayaci"

    6. #6
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Eggdrop (TCL Arşivleri)

      Kufur.tcl ( Küfürlü sözleri Kanaldan Atar.)

      Kod:
      # Kick yada oper ise kill mesaji
      set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"
      
      # Eger bot oper olup reklam yapanlara gline aticaksa
      # bu ayari 1 yapin, aksi takdirde dokunmayin..
      set botoper "0"
      
      ## Bot oper olucaksa oper username ve sifre
      ## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
      set onick "opernick"
      
      set opass "operpass"
      
      # Kufurler - Eklemek istediginiz kufur varsa asagidan
      # ekliyebilirsiniz..
      
      set kufurler { 
      "am"
      "got"
      "sik*"
      "göt*"
      "düzerim"
      "duzerim"
      "sık*"
      "sokar*"
      "yalarım"
      "yalarim"
      "********"
      "*orozpu*"
      "*******"
      "yarak*"
      "pic"
      "*****"
      "yarrag"
      "hasiktir"
      "*siker*"
      "*amci*"
      "*amcı*"
      "*ibne*"
      "gotun*"
      }
      
      
      # Bu kadar..!
      
      
      
      bind pubm - * kufurban
      
      
      # DOKUNMAYIN..!
      # Dokunmak delikanliyi bozar ;P
      
      
      
      bind evnt - init-server botoper_yap
       
      proc botoper_yap {type} {
        global onick opass
      if {$botoper == 1} {
      putquick "OPER $onick $opass"
       }
      }
      
      proc kufurban {nick uhost hand chan rest} {
      global kufurler botoper bansebebi
      foreach w $kufurler {
      if {[string match -nocase "* $w *" " $rest "] && ![isop $nick $chan]} { 
           if {$botoper == 1} {
        putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next
        putquick "KILL $nick :$bansebebi" -next
        return 1
       } else { 
        putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next
        putkick $chan $nick $bansebebi
        return 1
          } 
        }
      }
      }
      
      putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."

    7. #7
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Eggdrop (TCL Arşivleri)

      voice.tcl ( kanal a giren kişiler e oto voice verir.)

      Kod:
      ## voice.tcl                                            
      ##  - Kanala Giren Herkese Voice Verme Tcl
      ## bu Tcl IRCturk Network Team Tarafindan Yazilmistir..!
      ## Tcl Arsivi : WwW.IRCturk.OrG
      
      
      # Botun Hangi Kanallarda Bu Tcl Kullanacagini
      # Girin Eger Bos Birakirsaniz Butun Kanallarda
      # bu Tcl Kullanicaktir.
      set avchan "#IRCturk"
      
      ## BURADA BISI DEGISTIRMEYIN ##
      
      bind join - * avjoin
      
      proc avjoin {nick uhost hand chan} {
       global avchan botnick
       if {$nick == $botnick} {return 0}
       if {$avchan == "" && [botisop $chan]} {
        pushmode $chan +v $nick
        return 0
       }
       set chan [string tolower $chan]
       foreach i [string tolower $avchan] {
        if {$i == $chan && [botisop $chan]} {
         pushmode $chan +v $nick
         return 0
        }
       }
      }
      
      putlog "Voice Verme Tcl By Stonkeep"

    8. #8
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Eggdrop (TCL Arşivleri)

      AwayWhois.tcl (awayında reklam olanları atar.)

      Kod:
      ## Ban sebebi ?
      set awhois(bansebep) "Reklamci Botlarin kanal icinde gezmeleri yasaktir.!"
      
      ## Ban Suresi ? 0= temelli
      ## 10 = 10 dakika
      set awhois(sure) "0"
      
      # Whoisde hangi kelimeler gecerse kullaniciyi banliyacagiz ?
      
      set kotu(list) {
      "*****"
      "*http://*"
      "*www.*"
      }
      
      
      # Kontrol edilicek kanallar.?
      
      set kanallar { #kelebek #zurna #ircturk }
      
      ##
      
      
      
      
      
      
      
      
      
      
      
      
      
      
        foreach chan [channels] {
      	set kanallar $chan
        }
      
      
      bind join - * awhois(join)
      
      
      
      ## al oynada gor ebeninkini :}
      
      
      
      proc awhois(join) {nick uhost hand chan} { 
        if {[strlwr $nick] == [strlwr $::botnick] || [matchattr $hand of|fo $chan]} {
          return
        } 
        putserv "WHOIS $nick" 
      set awhois(banhost) *!*[string range $uhost [string first @ $uhost] e]
      set ::reklamci $nick
      set ::kanal $chan
      set ::uhost $uhost
      bind RAW - 301 awhois(kontrol)
      }
      
      proc awhois(kontrol) {from key arg} {
        global awhois kanallar
        set chan $::kanal
        set nick $::reklamci
        set uhost $::uhost
        set awaymesaj [string range [join [lrange $arg 2 end]] 1 end]
        foreach bla $::kotu(list) {
          if {![string match -nocase $bla $awaymesaj]} {
            continue
          }
      	awhois(banla) $nick $uhost
          break
        }
      }
      
      proc awhois(banla) {nick uhost} {
        global awhois kanallar
      #  putserv "privmsg $kanallar :$nick ve *!*[string range $uhost [string first @ $uhost] e] reklam yapti.!"
        putquick "MODE $kanallar +b *!*[string range $uhost [string first @ $uhost] e]"
        putkick $kanallar $nick $awhois(bansebep)
        newchanban $kanallar *!*[string range $uhost [string first @ $uhost] e] AwayWhois.Tcl $awhois(bansebep) $awhois(sure)
      }
      
      
      
      putlog "AwayWhois.tcl v1.0 by Stonkeep...!"

    9. #9
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Eggdrop (TCL Arşivleri)

      BadNick.TCL ( kötü Nickleri Kanaldan Atar."Kanal a Girdiğinde")Ayrıca O Nickleri #*** Kanalına Fjoinler.NOT: Botun oper olması Gerekmektedir.

      Kod:
      ## Badnick scans 
      set badnicks { 
       "penis" 
       "fuck" 
       "bitch" 
       "asshole" 
       "kontol" 
       "contol" 
       "pepek" 
       "vevek" 
       "ngentot" 
       "kentot" 
       "jembut" 
       "zembut" 
       "pantat" 
       "totong" 
       "tetek" 
       "vagina" 
       "pukimak" 
       "bujanginam" 
       "cibai" 
       "c1b41" 
       "lanciau" 
       "gigolo" 
       "peler" 
       "anjing" 
       "4nj1ng" 
       "4njing" 
       "anj1ng" 
       "bangsat" 
       "b4ngs4t" 
       "b4ngsat" 
       "bangs4t" 
       "pantek" 
       "panteks" 
       "nenen" 
       "cibe" 
       "fukk" 
       "fuk" 
       "pler" 
       "plerr" 
       "pller" 
       "p3l3r" 
       "cip3t" 
       "cipet" 
       "c1p3t" 
       "c1tut" 
       "citut" 
      "pipi"
      "amcik"
      "ananin"
      "amina"
      "sikerim"
      "beceririm"
      "becerme"
      "belani"
      } 
      
      
      ## ---------------------------------------------------------------- 
      ## --- Buradan Aşagısını Ellemeyin.                             --- 
      ## ---------------------------------------------------------------- 
      
      ###################################################################### 
      ##-------------------------------------------------------------------- 
      ##--- F O R     ---   P R O T E C T I O N  ---    CHANNEL   ---- 
      ##-------------------------------------------------------------------- 
      ######################################################################          
      
      set arg.v "Change Badnick protection IRCTURK.ORG" 
      
      bind nick - * Detected_changebad 
      
      proc Detected_changebad {nick uhost hand chan newnick} { 
       global badnicks botnick 
      if {(![matchattr $hand b]) && ($nick != $botnick)} { 
        foreach badchange [string tolower $badnicks] { 
         if {[string match *$badchange* [string tolower $newnick]]} { 
          set banmask "*!*[string range $uhost [string first "@" $uhost] end]" 
          putserv "MODE $chan +b $banmask" 
          putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız." 
          putserv "sajoin $nick #***" 
          return 0 
          }  
        } 
       } 
      } 
      
      ## ----------------------------------------------------------------------- 
      putlog "-=-=   Kötü Nick Koruma   =-=-=-=-=-" 
      putlog "Kötü Nick Koruma  1.1:" 
      putlog "${arg.v} Yükleme Tamamlandı" 
      ##------------------------------------------------------------------------ 
      ##                      ***    E N D   OF  ChangeBadnick1.0.TCL *** 
      ## -----------------------------------------------------------------------
      kendiniz Ekleme Yapabilir,Düzenleyebilirsiniz. "eklenecekkelime" gibi kolay gelsin

    10. #10
      Administrator
      Ruh hali seçilmemiş.
       
      Ruh halim:
      ----
       
      admin - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      15.Nisan.2013
      İlişki Durumu
      İlişkisi Yok
      Yaş
      29
      Mesajlar
      63
      Konular
      29
      10
      16 Mesajına 21 Kere Teşekkür Edildi
      Bahsedildi
      0 Mesaj
      Etiketlenmiş
      0 Konu
      Tecrübe Puanı
      10

      Thumbs up Eggdrop (TCL Arşivleri)

      Karsilama.TCL ( Kanal a Giren Kullanıcıya belirttiğiniz Mesajı Gönderir)

      Kod:
      proc giris_karsilama {nick uhost handle channel} { 
      putserv "NOTICE $nick :Merhaba $nick Hosgeldin" 
      putserv "PRIVMSG $nick :Hosgeldin $nick Iyi Sohbetler" 
      } 
      bind join - * giris_karsilama

     

     

    Konu Bilgileri

    Bu Konuya Gözatan Kullanıcılar

    Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)

    Yetkileriniz

    • Konu Acma Yetkiniz Yok
    • Cevap Yazma Yetkiniz Yok
    • Eklenti Yükleme Yetkiniz Yok
    • Mesajınızı Değiştirme Yetkiniz Yok
    •  

    Search Engine Optimization by vBSEO 3.6.0 RC 1

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317