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 2 Toplam 2 Sayfadan BirinciBirinci 12
    Toplam 16 adet sonuctan sayfa basi 11 ile 16 arasi kadar sonuc gösteriliyor
    1. #11
      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)

      helper.tcl(Unreal'de Helperlerinizin hostunu düzenler.ayrıcalık tanır. CR de Calışmaz.)

      Kod:
      set hhost "Helper.Localhost.NET" 
      set hident "Helper" 
      set hname "localhost. HELP Sorumlusu" 
      set hchan "#Helpdesk" 
      bind mode - * modes 
      proc modes {eden b c kanal mode etken} { 
      global hhost hident hname hchan 
      if {$kanal == $hchan} { 
      if {$mode == "+o"} { 
      putserv "CHGHOST $etken :$hhost" 
      putserv "CHGIDENT $etken :$hident" 
      putserv "CHGNAME $etken :$hname" 
      } 
      if {$mode == "-o"} { 
      if {$etken == $eden} { 
      putserv "NOTICE $etken :Lutfen $kanal kanalinda Deop olmayiniz!" 
      putserv "NOTICE $etken :Please Dont Deop yourself on $kanal channel!" 
      putserv "MODE $kanal +oa $etken $etken" 
      } 
      if {$etken != $eden} { 
      putserv "NOTICE $eden :Lutfen $kanal kanalinda $etken i Deop yapmayiniz!" 
      putserv "NOTICE $eden :Please dont deop anyone on $kanal channel!" 
      putserv "MODE $kanal +oa $etken $etken" 
      } 
      } 
      } 
      } 
      putlog "Auto Helpop loaded. By Alience" 
      bind part - * partes

    2. #12
      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)

      DomainWhois.tcl ( merak ettiğiniz domain hakkında bilgi veren bir tcl )

      Kod:
      ####################################################
      ################ .dwhois <domain> ##################
      ####################################################
      
      bind pub - .dwhois dwhois
      proc dwhois {nick host handle chan text} {
      set server "isfree.schlundtec.com"
      set port 80
      set l 14
      set i 0
      set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]"
      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
      putlog $linedw
      if {[string match "*Domain*frei*" $linedw]} {
      putserv "PRIVMSG $chan :[lindex $text 0] domaini (alan adı) boştadır ve kaydedilebilir"
      close $sockdw
      return 0
      }
      if {[string match "*Domain*registriert*" $linedw]} {
      gets $sockdw
      putserv "PRIVMSG $chan Domain Sahibi: [html [gets $sockdw]] Cadde: [html [gets $sockdw]] Kent: [html [gets $sockdw]] Ülke: 
      [html [gets $sockdw]]"
      close $sockdw
      return 0
      }
      incr i
      }
      close $sockdw
      }
      proc html { text } {
      regsub -all "</TD>" $text "" text
      regsub -all "</FONT>" $text "" text
      regsub -all " " $text "" text
      regsub -all "&uuml;" $text "ü" text
      regsub -all "&ouml;" $text "ö" text
      regsub -all "&auml;" $text "ä" text
      regsub -all "&Uuml;" $text "Ü" text
      regsub -all "&Ouml;" $text "Ö" text
      regsub -all "&Auml;" $text "Ä" text
      regsub -all "&szlig;" $text "ß" text
      regsub -all "&quot;" $text "\"" text
      regsub -all "<tb>" $text "" text
      regsub -all "<font" $text "" text
      regsub -all "size=\"2\"" $text "" text
      regsub -all "face=\"Verdana,Arial,Helvetica,Geneva\">" $text "" text
      regsub -all "<br>" $text "" text
      regsub -all "&nbsp;" $text "" text
      regsub -all "</font>" $text "" text
      regsub -all "<td>" $text "" text
      regsub -all "</td>" $text "" text
      regsub -all "" $text "" text
      regsub -all "" $text "" text
      regsub -all "
      
      " $text "" text
      return $text
      }
      
      
      
      putlog "\002DOMAINWHOIS:\002 DomainWhois.tcl 1.2 Loaded."

    3. #13
      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)

      Eggdrop Botunuz 10 Dakikada bir Kanal banlarını Acsın.

      Arkadaşlar Bunu Eggdrop botunuzun Conf una aşagıdaki Kodu ekleyerek saglayabilirsiniz.

      Kod:
      set global-ban-time 10
      Bu Sayede botunuz kanalda Opsa Banları Acar.

    4. #14
      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)

      yardim.tcl ( #yardim,#help kanalında userler e cevap veren tcl botu)

      Kod:
      #Yardim Botu Edit By RangeR
      bind join - * join_selam
      bind pub - yardim pub_help
      bind msgm - help pub_help
      bind msgm - yardim msg_help
      bind msgm - nshelp msg_nshelp
      bind msgm - cshelp msg_cshelp
      bind msgm - memohelp msg_memohelp
      bind msgm - nsregister msg_nsregister
      bind msgm - nsidentify msg_nsidentify
      bind msgm - nsset msg_nsset
      bind msgm - nsghost msg_nsghost
      bind msgm - nspassword msg_nspassword
      bind msgm - nslanguage msg_nslanguage
      bind msgm - nsurl msg_nsurl
      bind msgm - nsemail msg_nsemail
      bind msgm - nsicqnumber msg_nsicqnumber
      bind msgm - nslocation msg_nslocation
      bind msgm - nskill msg_nskill
      bind msgm - nsprivate msg_nsprivate
      bind msgm - nshide msg_nshide
      bind msgm - csregister msg_csregister
      bind msgm - csidentify msg_csidentify
      bind msgm - csset msg_csset
      bind msgm - csaccess msg_csaccess
      bind msgm - cslevel msg_cslevel
      bind pub - selam msg_selam
      
      
      
        
         
       proc join_selam {nick uhost handle chan} {
       if {$chan == "#help"} { 
           putserv "NOTICE $nick :$nick xxxxx Networkunun Resmi Yardim Kanalina Hos geldiniz."
           putserv "NOTICE $nick :Ben size, yardima ihtiyaciniz olan konularda yardim edecek sekilde programlanmis bir Help Botum."
           putserv "NOTICE $nick :Eger benim yardimlarim sizlere yeterli olmazsa. www.ircturk.com adresinden gerekli bilgileri alabilirsiniz"
           putserv "NOTICE $nick :Simdi yardim almak icin lutfen ozelime 4yardim yaziniz." 
           putserv "NOTICE $nick :Lutfen /remote off yapmayi unutmayiniz."
      
      }
      
      return 1
      
      }
      
         proc msg_help { nick uhost handle text } {
               putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:"
               putserv "PRIVMSG $nick :1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )"
               putserv "PRIVMSG $nick :2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )"
               putserv "PRIVMSG $nick :3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )" }
      
      
              
      
         proc msg_nshelp { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nick Sifreleme ( nsregister )"
               putserv "PRIVMSG $nick :Nick Identify  ( nsidentify )"
               putserv "PRIVMSG $nick :Nick Droplama  ( nsdrop )"
               putserv "PRIVMSG $nick :Nick Set Ayarlari  ( nsset )"
               putserv "PRIVMSG $nick :Nickiniz Kullanimda ise ( nsghost )" }
      
         proc msg_nsregister { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizi Sifrelemek icin lutfen asagidaki komutu yaziniz."
               putserv "PRIVMSG $nick :(  /ns register sifreniz email_adresiniz   )"
               putserv "PRIVMSG $nick :Mail Adresinizi Kesinlikle Dogru vermelisniz Aksi Taktirde Kaybedilen Nick Sifreleri uzerinde hak iddia edemezsiniz." }
        
         proc msg_nsidentify { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizi ident ederken kullanmaniz gereken komut asagidaki gibidir."
               putserv "PRIVMSG $nick :( /ns identify sifreniz  )" }
      
         proc msg_nsdrop { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizi droplarken kullanmaniz gereken komut asagidaki gibidir."
               putserv "PRIVMSG $nick :(  /ns drop  )" }
      
         proc msg_nsset { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizin ayarlari."
               putserv "PRIVMSG $nick :(1) nspassword  "
               putserv "PRIVMSG $nick :(2) nslanguage  "
               putserv "PRIVMSG $nick :(3) nsurl  "
               putserv "PRIVMSG $nick :(4) nsemail  "
               putserv "PRIVMSG $nick :(5) nsicqnumber  "
               putserv "PRIVMSG $nick :(6) nslocation  "
               putserv "PRIVMSG $nick :(7) nskill  "
               putserv "PRIVMSG $nick :(8) nsprivate  "
               putserv "PRIVMSG $nick :(9) nshide  "
       }       
         
         proc msg_nsghost { nick uhost handle text } {
               putserv "PRIVMSG $nick :Servere girdiginizde nickiniz kullanimda uyarisi verirse"
               putserv "PRIVMSG $nick :Asagidaki komutla Nickinizi kullanabilirsiniz."
               putserv "PRIVMSG $nick :(  /ns ghost nickiniz sifreniz  )" }
      
         proc msg_nspassword { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nick sifresini degistirmek icin kullanilir."
               putserv "PRIVMSG $nick :(  /ns set password yenisifre  )" }
      
         proc msg_nslanguage { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickservin dilini degistirmeye yarar."
               putserv "PRIVMSG $nick :(  /ns set language dilno  )" 
               putserv "PRIVMSG $nick :Dil No: 1  ingilizce "
               putserv "PRIVMSG $nick :Dil No: 2  Portekizce "
               putserv "PRIVMSG $nick :Dil No: 3  Turkce   "
               putserv "PRIVMSG $nick :Dil No: 4  Almanca "
             }
      
      
          proc msg_nsurl { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizin bagli oldugu url yi belirtmenizi saglar."
               putserv "PRIVMSG $nick :(  /ns set url Adres  )" }
      
          proc msg_nsemail { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizin sifresinin size gonderilecegi mail adresini yazmanizi saglar."
               putserv "PRIVMSG $nick :(  /ns set email mail@adresiniz.com  )" }
      
          proc msg_nsicqnumber { nick uhost handle text } {
               putserv "PRIVMSG $nick :Kullanmakta oldugunuz icq numarasinin info da gozukmesini saglar."
               putserv "PRIVMSG $nick :(  /ns set icqnumber #icq_no  )" }
      
          proc msg_nslocation { nick uhost handle text } {
               putserv "PRIVMSG $nick :Bulundugunuz bolgeyi belirtmenizi saglar."
               putserv "PRIVMSG $nick :(  /ns set location bulundugunuz_yer  )" 
      }
      
      
          proc msg_nskill { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizin sifre sormasi icin gereken komut. "
               putserv "PRIVMSG $nick :(  /ns set kill On/OFF  )"
               putserv "PRIVMSG $nick :On: sifrenin girilmesi icin 60 sn sure tanir."
               putserv "PRIVMSG $nick :Off: Sifre korumasini kapatir."
      }
      
          proc msg_nsprivate { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nickinizin Listede gozukmesini onler."
               putserv "PRIVMSG $nick :(  /ns set private On/Off  )" 
               putserv "PRIVMSG $nick :On: Gorunmez."
               putserv "PRIVMSG $nick :Off: Gorunur."
      }
      
          proc msg_nshide { nick uhost handle text } {
               putserv "PRIVMSG $nick :Nick bilgilerinizin bir kisminin INFO da gozukmesini engeller"
               putserv "PRIVMSG $nick :(  /ns set hide On/Off  )" 
               putserv "PRIVMSG $nick :On: Gorunmez."
               putserv "PRIVMSG $nick :Off: Gorunur."
      }
      
      
      
       proc msg_cshelp { nick uhost handle text } {
              putserv "PRIVMSG $nick :Kendi Kanalinizi Kaydetmek icin ( csregister )"
              putserv "PRIVMSG $nick :Kanalinizin sifresini girmek icin ( csidentify )"
              putserv "PRIVMSG $nick :Kanal Ayarlari icin ( csset )"
              putserv "PRIVMSG $nick :Access islemleri icin ( csaccess )"
              putserv "PRIVMSG $nick :Level ayarlari icin ( cslevel )" }
      
        proc msg_csregister { nick uhost handle text } {
              putserv "PRIVMSG $nick :Kanal kaydetmekte kullanilan komut asagidaki gibidir."
              putserv "PRIVMSG $nick :Fakat bu kanal daha once kayit edilmemis olmasi gerekmektedir."
              putserv "PRIVMSG $nick :(   /cs register #kanal sifre aciklama    )"
              putserv "PRIVMSG $nick :Aciklama yerine herhangi bir sey yazabilirsiniz." }
      
        proc msg_csidentify { nick uhost handle text } {
              putserv "PRIVMSG $nick :Kanal DeSifre Etmekte kullanilan komut asagidaki gibidir."
              putserv "PRIVMSG $nick :Fakat bu kanalin daha once kayit edilmisolmasi gerekmektedir."
              putserv "PRIVMSG $nick :(   /cs identify #kanal sifre     )" }
      
        proc msg_csset { nick uhost handle text } {
              putserv "PRIVMSG $nick :Chanserv Set komutlari Kanallarinizin Set ayarlarini yapmaniza yardimci olur."
              putserv "PRIVMSG $nick :Set Komutlari icin ayrintili bilgiyi."
              putserv "PRIVMSG $nick :(   /cs help set komutu ile alabilirsiniz.     )" }
      
        proc msg_csaccess { nick uhost handle text } {
              putserv "PRIVMSG $nick :Access Komutu Bir kisiye sahib yada yetkili oldugunuz kanalda yetki vermeye yarar."
              putserv "PRIVMSG $nick :Yetki seviyeleri 1 - 9999  a kadardir."
              putserv "PRIVMSG $nick :(   /cs access #kanal add Nick Seviye     )" }
      
        proc msg_cslevel { nick uhost handle text } {
              putserv "PRIVMSG $nick :Level Komutu Kanal yetkililerinin yada sahibinin erisim duzeylerini ayarlamaya yarar."
              putserv "PRIVMSG $nick :Daha Ayrintili bilgi icin."
              putserv "PRIVMSG $nick :(   /cs help level yazarak alabilirsiniz.     )" }
      
       
      
        proc msg_selam { nick uhost handle chan text } {
              putserv "PRIVMSG $nick :Selam $nick . Ben Ranger’in hazirlamis oldugu yardim botuyum."
              putserv "PRIVMSG $nick :#help kanalinda Irc ile ilgili sorunlarinizi cozmek icin bulunmaktayim."
              putserv "PRIVMSG $nick :Yardim almak icin ozelime ( yardim ) yazmaniz yeterlidir. Tesekkurler. Iyi Sohbetler." }
      
         #End putlog "Edit By Ranger"

    5. #15
      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)

      Konusan.tcl ( kanal genelinde kodladıgınız kelimelere göre cevap verir,konuşur)

      Kod:
      # Begin - Entertainment, Message Auto-Reply. (ent_areply.tcl)
      #	Designed & Written by Ninja_baby (Jaysee@Jaysee.Tv), © October 2000
      
      # This TCL was made following the request of my friend Imran (ImRaN-- on DALnet) for his bot.
      # This was a kewl idea, he ask how can his bots reply people who sent specific message-
      # to the bot or to a channel, without getting lagged or stuffs. Thanks Imran ;) *hugs*
      # Well as I said above, this TCL will make your bot reply people who send message-
      # to it or to a channel (which listed in the variable). And that's the only purpose ;p
      # but do not worry, the bot will auto-ignore people if it consider lines of messages-
      # as excessive flood.
      
      # Set this as reply channel. The bot will reply people ONLY in channels listed here. Eventhou-
      # the words are same with what you sets below. You can set channelnames here as many as you-
      # wish, but carefull you might make your bot getting lagged coz it has too many channels to-
      # greet for ;p
      set repchan {
        "#sohbet"
      }
      
      # Ok fill this one with your words. Let me explain a little bit about HOW to set this variable.
      # The one on the left side of the ":" sign is the trigger words. And words on the right side-
      # of the ":" sign is what your bot will reply following the left one.
      # Example: you set "hi :hello hello". Your bot will reply "hello hello" to people who said "hi"-
      # in channel or to it.
      # As my auto-greet does, you might set "%nick" here as replacement of the real nick the bot-
      # will reply to. Example: there's a nick called "TheLamer" in channel, and you set-
      # "hello :hi %nick". Then your bot will reply with words "hi TheLamer" when TheLamer guy said "hello"-
      # in channel or to it.
      # set this carefully and you might set this as many as you wish. ;)
      set repwords {
        "s.a:%nick, aleyküm selam hoş geldin"
        "selam:selam hoş geldin %nick.."
        "nasılsınız:teşekurler sen nasılsın %nick"
        "nasılsın:teşekurler bomba gibiyim sen nasılsın %nick"
        "mrb:%nick: hoş geldin?"
        "bye:hoşçakal %nick"
        "bye:%nick: yine gelme seni özlemiycez =P"
        "lan:%nick: lan kelimesini kullanmayınız lütfen'"
        "selamun aleykum:aleykum selam hoşgeldin %nick"
        "catlakFM:efendim %nick"
        "bot:%nick: benmi?"
        "canım:birtanem"
        "askım:canımın içi"
        "bebegim:sevgilim"
        "sevgilim:seni cok özledim %nick"
        "hayatım:bi tanem bi bi bi"
        "catlakFM:catlakFM diyen dilini %nick"
        "sen:hadicanım sende"
        "ordamısın:evet burdayım"
        "eee:sustum"
        "selamun aleykum:aleykum selam %nick hoş geldin"
        
      }
      
      # Set this as maximum trigger or lines before your bot consider the line of words as a flood.
      # By setting this to "5:10", means if someone sent more than 5 lines within 10 seconds, the bot-
      # will consider this as flood and will auto-ignore the person without giving any answers.
      # So don't set this too low ;pp
      set maxmsgrep 5:10
      
      # Set this as messages which your bot will send to a user that just considered flooding.
      # Set this as many as you wish, but remember, the key like %nick, etc. is NOT avalable in this-
      # variable. I'm too lazy to convert those key in this variable, and will only get this script-
      # work too hard ;pp hehe
      set msgfloodm {
        "you're performing MSG which considered as FLOOD..."
      }
      
      # Set this as your bot auto-ignore time. Set this one in Minute(s) format.
      set msgrepignore 1
      
      # This is for your benefit hehe ;), you can either set your own LOGO here, your logo will appear-
      # when the bot notice you, or when it makes msgs/notices/kicks or scripts loading. So keep smiling-
      # and set this variable as you wish ;), you can either set this to "" to leave it blank.
      set utlarlg "\[J-C\]:"
      
      ######### Please do not edit anything below unless you know what you are doing ;) #########
      
      proc replyuser {nick uhost hand rest} {
      	global botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg
      	if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick}
      	set repperf 0
      	foreach repwrd $repwords {
      		set rquestion [lindex [split $repwrd :] 0]
      		set ranswer [string trim [lrange [split $repwrd :] 1 end] "{}"]
      		if {[string match [string tolower $rquestion]* [string tolower $rest]]} {
      			regsub -all "%nick" $ranswer "$nick" ranswer
      			set repperf 1 ; putquick "PRIVMSG $repto :$ranswer" ; return 0
      		}
      	}
      	if {!$repperf && $repto != $nick} {return 0}
      	set repperf 0 ; set n [string tolower *!*@[lindex [split $uhost @] 1]]
      	if {[info exists msgcount($n)]} {
      		set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0]
      		if {$currmsgcount >= $maxmsgreprecv} {
      			set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]]
      			foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}}
      			if {$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."}
      			newignore *!*@[lindex [split $uhost @] 1] $botnick "MSG flood" $msgrepignore
      			putlog "$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 1
      		} else {
      			foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}}
      			utimer [lindex [split $maxmsgrep :] 1] "unset msgcount($n)"
      		}
      	} else {set msgcount($n) 1}
      }
      
      proc replychan {nick uhost hand chan rest} {
      	global botnick repchan
      	foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $rest" ; replyuser $nick $uhost $hand $reps ; return 0}}
      }
      
      bind msgm - * replyuser
      bind pubm - * replychan
      putlog "*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded."
      
      # End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)
      Kod:
      "MutluFM:efendim %nick"
      Örnegindeki gibi kelimeleri alt alta ekleyebilir, düzenleyebilirsiniz. conf unu konu başındaki conf örneginden saglamanız mümkün.

    6. #16
      Moderator
      Haksiz Bir Kaderin
      Mağlubu'yum...
       
      Ruh halim:
      Tehlikeli
       
      Absnthe - ait Kullanıcı Resmi (Avatar)
      Üyelik tarihi
      03.Ocak.2017
      İlişki Durumu
      İlişkisi Yok
      Mesajlar
      228
      Konular
      103
      86
      100 Mesajına 157 Kere Teşekkür Edildi
      Bahsedildi
      7 Mesaj
      Etiketlenmiş
      1 Konu
      Tecrübe Puanı
      1

      Standart

      Cok Yarayişli Remoteler Teşekkürler.

     

     

    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