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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Ağustos 2010, 23:41   #1
Çevrimdışı
Raw
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 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(sajoinsj
bind pub 
$sjp(sapartsp

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


__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 24 Ağustos 2010, 11:10   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sajoin / Sapart TCL




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.

__________________
SANAL IRC - irc.sanal.org
 
Alıntı ile Cevapla

Alt 24 Ağustos 2010, 15:32   #3
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sajoin / Sapart TCL




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.

 
Alıntı ile Cevapla

Alt 24 Ağustos 2010, 17:04   #4
Çevrimdışı
Raw
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sajoin / Sapart TCL




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

__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~
 
Alıntı ile Cevapla

Alt 24 Ağustos 2010, 23:04   #5
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 25 Ağustos 2010, 15:00   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
daha kapsamlı

__________________
SANAL IRC - irc.sanal.org
 
Alıntı ile Cevapla

Alt 06 Kasım 2010, 03:51   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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...

 
Alıntı ile Cevapla

Alt 06 Kasım 2010, 10:52   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sajoin / Sapart TCL




Asi_Serseri Aradığın Kod Bu Olsa Gerek.

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

 
Alıntı ile Cevapla

Alt 06 Kasım 2010, 21:00   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Sajoin / Sapart TCL




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

 
Alıntı ile Cevapla

Cevapla

Etiketler
sajoin, sapart, tcl


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

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

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Sajoin Sapart ZamaN mIRC Scripting Sorunları 13 24 Eylül 2020 16:30
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
sapart ta halt SaintCty mIRC Scripting Sorunları 10 21 Temmuz 2007 13:58
sajoin sapart »TeuFeL« Servisler 10 28 Aralık 2004 17:24