Sajoin / Sapart TCL - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Raw · 23 Ağustos 2010, 23:41

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 · 24 Ağustos 2010, 11:10

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 · 24 Ağustos 2010, 15:32

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 · 24 Ağustos 2010, 17:04

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 · 24 Ağustos 2010, 23:04

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

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 · 06 Kasım 2010, 03:51

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

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

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Sajoin Sapart	ZamaN	mIRC Scripting Sorunları	13	24 Eylül 2020 16:30
Statüs tarama, sajoin, sapart.	SuLh	mIRC Parça Kodlar	3	25 Şubat 2016 12:54
Ident Sapart / Sajoin	quendi	Eggdrop, NeoStats, BNC	5	30 Kasım 2013 16:35
sajoin sapart	lordsulu	mIRC Scripting Sorunları	3	06 Mart 2009 22:11
sajoin sapart	»TeuFeL«	Servisler	10	28 Aralık 2004 17:24

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.