[Raw]

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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

###################################
### 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]

Raw kendini aştın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bizler emekliye ayrıldık:p

----------

Raw Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[SaW]

Raw senin tcl üzerine ilgin ve kendini geliştirmen beni sevindiriyor. Ancak bu tarz "özellikler" bir özellik değildir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Şö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?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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]

SaW Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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]

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]

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
daha kapsamlı

[Serseri]

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]

Asi_Serseri Aradığın Kod Bu Olsa Gerek.

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

[Serseri]

weSaiRe Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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