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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Sajoin / Sapart TCL (https://www.ircforumlari.net/tcl-scriptler/350143-sajoin-sapart-tcl.html)

Raw 23 Ağustos 2010 23:41
Sajoin / Sapart TCL
 
Merhaba arkadaşlar..

Bazı arkadaşlarımın işine yarayacağını düşündüğüm için basit bir tcl yazmak istedim. Ayar bölümünü doldurup kullanabilirsiniz. İyi forumlar..

PHP- Kodu:
###################################
### SAJOIN / SAPART TCL by Raw  ###
###    senali [ @ ] live.com    ###
###################################

#Oper Kanalı Giriniz
set sjp(kanal) "#opers"

#Sajoin Komutunu Giriniz
set sjp(sajoin) "!cek"

#Sapart Komutu Giriniz
set sjp(sapart) "!cikart"

#####
# Ayarlar Bitti, TCL yazalım şimdi ;d
#####

bind pub - $sjp(sajoin) sj
bind pub - $sjp(sapart) sp

proc sj {nick uhost hand chan text} {
 global botnick sjp
    set sjnick [lindex $text 0]
    set sjkanal [lindex $text 1]
  if {![string match -nocase $sjp(kanal) $chan] || $botnick = $sjnick} {return 0}
  if {$sjnick == ""} {
    putquick "privmsg $sjp(kanal) *** Nick belirtmediniz."
    putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sajoin) nick #kanal > şeklinde olmalıdır."
    return 0
    }
  if {$sjkanal == ""} {
    putquick "privmsg $sjp(kanal) *** Kanal belirtmediniz."
    putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sajoin) nick #kanal > şeklinde olmalıdır."
    return 0
    }
    putquick "privmsg irc sajoin $snick $skanal"
    putquick "privmsg $sjp(kanal) ***\002 $nick \002, $sjp(sajoin) komutu ile\002 $sjnick \002kişisini\002 $sjkanal \002odasına çekdi."
}

proc sp {nick uhost hand chan text} {
 global botnick sjp
    set spnick [lindex $text 0]
    set spkanal [lindex $text 1]
  if {![string match -nocase $sjp(kanal) $chan] || $botnick = $spnick} {return 0}
  if {$spnick == ""} {
    putquick "privmsg $sjp(kanal) *** Nick belirtmediniz."
    putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sapart) nick #kanal > şeklinde olmalıdır."
    return 0
    }
  if {$spkanal == ""} {
    putquick "privmsg $sjp(kanal) *** Kanal belirtmediniz."
    putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sapart) nick #kanal > şeklinde olmalıdır."
    return 0
    }
    putquick "privmsg irc sapart $spnick $spkanal"
    putquick "privmsg $sjp(kanal) ***\002 $nick \002, $sjp(sapart) komutu ile\002 $spnick \002kişisini\002 $spkanal \002odasından çıkardı."
}

###
putlog " SAJOIN / SAPART TCL yuklendi - coded by Raw
### 

GhostLy 24 Ağustos 2010 11:10
Cevap: Sajoin / Sapart TCL
 
Raw kendini aştın:) bizler emekliye ayrıldık:p

----------

Alıntı:
Raw Nickli Üyeden Alıntı (Mesaj 1040492336)
Merhaba arkadaşlar..

Bazı arkadaşlarımın işine yarayacağını düşündüğüm için basit bir tcl yazmak istedim. Ayar bölümünü doldurup kullanabilirsiniz. İyi forumlar..
Artık basit tcl istemiyoruz :p:pP kardeşim zorlaştır işi :)

SaW 24 Ağustos 2010 15:32
Cevap: Sajoin / Sapart TCL
 
Raw senin tcl üzerine ilgin ve kendini geliştirmen beni sevindiriyor. Ancak bu tarz "özellikler" bir özellik değildir :)
Şöyle ki bu komutu kimler kullanabilecek? #Opers kanalında bulunabilenler..
#Opers kanalında kimler bulunur? ircop ve daha yukarı yetkiye sahip kimseler..
Zaten adminler (ircoplara da gerekli yetkinin verildiğini farzedersek) sajoin sapart komutunu kullanabilirler.
/sajoin nick #Kanal
yerine
!cek nick #Kanal
demek nasıl bir özelliktir? :) Komut adını değiştirmekten ve işi uzun yoldan yapmaktan başka birşey değildir.
Bence vaktini daha yaratıcı konulara harcamalısın ve de ortaya daha güzel şeyler çıkarmalısın çünkü biliyorum kendini geliştiriyosun fazlasını da yapabilirsin.

Raw 24 Ağustos 2010 17:04
Cevap: Sajoin / Sapart TCL
 
Alıntı:
SaW Nickli Üyeden Alıntı (Mesaj 1040492744)
#Opers kanalında kimler bulunur? ircop ve daha yukarı yetkiye sahip kimseler..
Zaten adminler (ircoplara da gerekli yetkinin verildiğini farzedersek) sajoin sapart komutunu kullanabilirler.
/sajoin nick #Kanal
yerine
!cek nick #Kanal
demek nasıl bir özelliktir?
SaW yorumların için teşekkür ederim ederim. GhostLy sana da tabiki. Ancak şöyleki biz kendi sunucumuzda bayan admin ve operleriniz için yazdık bu tcl ve burdada paylaşmak istedim. Yazılma nedeni de sudur ki ingilizce kelimeler bazen insanlar için öğrenilmesi zor olabiliyor. Sonuçta söylediğiniz gibi #opers kanalında bulunan birisi bu komutları zaten biliyor diyoruz, ancak bazen irc bilgisi iyi olmayan ancak yöneticiliği kişiliği ile fazlasıyla hakeden insanlar oluyor. Bu noktada daha kolaylaştırıp işlevsel hale getirmek bizim amacımız. Neyse bu tarz paylaşımlar yapmayayım o zaman. Baksanıza artık göze batıyor :) Hepinize öğrenmemde yardımlarınız için çok teşekkür ederim. ( En başta dostum Namesis sonra SaW, BucaLı, GhostLy ve bir daha bir sürü coder.. ) iyi forumlar

SaW 24 Ağustos 2010 23:04
Cevap: Sajoin / Sapart TCL
 
Göze batmıyor yanlış anladın sen, ben yapıcı olmaya çalışıyorum amacım yanlış anlaşılmak değil seni doğru yönde yönlendirmek.

GhostLy 25 Ağustos 2010 15:00
Cevap: Sajoin / Sapart TCL
 
SaW, haklı. senin bu tcl'e olan merakın daha kapsamlı ve amaçlı tcl yazmandır senden bunu istiyor takıldıgın yerlerde sorabilirsin. şimdiden sana başarılar diliyorum. ayrıca seneye ramazan'da imsakiye.tcl yazıp hazırlamak istiyorum ramazan bana boyle bir fikir verdi. il il imsakiye mesela senden bunu yazmanı isteye bilirim :) daha kapsamlı

Serseri 06 Kasım 2010 03:51
Cevap: Sajoin / Sapart TCL
 
bilmiyorum yerimidir ama konu başlığına bakınca birazcıkda benim aradığım birşeye yakın birşey olduğu için yazmak istedim sunucunun autojoin kanallarını devredışı bırakmak istiyoruz ve kanallara userleri bir eggdrop aracılığı ile kanallara 3-5 saniye gibi bir süre sonra almak istiyoruz bunun nedenide proxy saldırılarını bertaraf edebilmek için acaba bu yönde bana yardımcı olabilir misiniz? Yardımcı olsanızda olmasanızda şimdiden teşekkür ederim iyi forumlar...

weSaiRe 06 Kasım 2010 10:52
Cevap: Sajoin / Sapart TCL
 
Asi_Serseri Aradığın Kod Bu Olsa Gerek.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Serseri 06 Kasım 2010 21:00
Cevap: Sajoin / Sapart TCL
 
Alıntı:
weSaiRe Nickli Üyeden Alıntı (Mesaj 1040567913)
Asi_Serseri Aradığın Kod Bu Olsa Gerek.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sanırım ben adminler belli sürede proxleri atsın bot ta sajoinlesin diye düşünmüştüm ama bunu bir denemek lazım.. teşekkür ederim sağolasın arkadaşım...


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

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