IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Reklam Ver


Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


TCL Scriptler

TCL Scriptler, kullanımları, işleyiş ve modifikasyonları



Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Şubat 2008, 23:57   #1
Çevrimdışı
atılsın tcl istek..


-- Sponsor Baglantı --


Arkadaşlar tcl coderlerimiz Mynetteki MerLyn in atılsın tcl sini istiyorum acaya bulabılırmıyım..
bliyorsunuzdur ama yinede bilmeyen arkadaşlarımız vardır şöyle bir log ile göstermiş olayım

[23:56] <Guest529278825> atılsın a_prof40
< MerLyn > Tarafinizdan atilsin oyu verilen rumuz: a_prof40. Kisinin su anki atilsin oy sayisi: 1 Atilmasi icin gerekli olan oy sayisi: 4
[23:56] * MerLyn a_prof40 rumuzunun atilmasi icin kullanilmis oy sayisi: 1, gerekli oy sayisi: 4



atılsın nick
yazıyoruz gereklı oy toplandıgında nıck kanaldan uzaklastırılıyor..
Arkadaşlar tcl coderlerimiz Mynetteki MerLyn in atılsın tcl sini istiyorum acaya bulabılırmıyım..
bliyorsunuzdur ama yinede bilmeyen arkadaşlarımız vardır şöyle bir log ile göstermiş olayım

[23:56] <Guest529278825> atılsın a_prof40
< MerLyn > Tarafinizdan atilsin oyu verilen rumuz: a_prof40. Kisinin su anki atilsin oy sayisi: 1 Atilmasi icin gerekli olan oy sayisi: 4
[23:56] * MerLyn a_prof40 rumuzunun atilmasi icin kullanilmis oy sayisi: 1, gerekli oy sayisi: 4



atılsın nick
yazıyoruz gereklı oy toplandıgında nıck kanaldan uzaklastırılıyor..
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 27 Şubat 2008, 23:48   #2
Çevrimdışı
Cevap: atılsın tcl istek..




öylesine bir uğraş olsun diye daha önce yapmıştım ancak burda vermem uygun kaçarmı bilmiyorum ? :S

__________________
Kör cehalet çirkefleştirir insanları ! Suskunluğum asaletimdendir... Her lafa verecek bir cevabım var...
Lakin bir lafa bakarım laf mı diye, Bir de söyleyene bakarım adam mı diye...
Mevlana'dan
  Alıntı ile Cevapla

Alt 28 Şubat 2008, 04:28   #3
Çevrimdışı
Cevap: atılsın tcl istek..




Ver ver kardeş sana zahmet

  Alıntı ile Cevapla

Alt 28 Şubat 2008, 11:51   #4
Çevrimdışı
Cevap: atılsın tcl istek..




BuCaLI Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
öylesine bir uğraş olsun diye daha önce yapmıştım ancak burda vermem uygun kaçarmı bilmiyorum ? :S

;huh Aslında sizde haklısınız kodları yazıyorsunuz değer bilen çıkmıyor adamlar alıp sahipleniyor.. Size kalmış arkadaşım ama ihtiyacı olanlar faydalanabilirler..
Şuan sunucumda demokrasi istiyorum ve ban atmayı sadece botuma bırakmak istiyorum bunun içinde atılsın tcl gerekiyor..

  Alıntı ile Cevapla

Alt 29 Şubat 2008, 01:19   #5
Çevrimdışı
Cevap: atılsın tcl istek..




Sahiplenme değil. HIRSIZLIK yapıyolar ve Hak yiyorlar. 5 dakka gelsinler foruma Görün burdan ne insanlar çıkar. Ben yada Diğer arkadaşlar bazı şeyleri anamızın karnında öğrenmiyoruz. Herşey istek de bitiyor. istersen Başarırsın
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.


Saygılar

__________________
KraL-FM Genel Yayın Yönetmeni : ßy EreN
  Alıntı ile Cevapla

Alt 29 Şubat 2008, 20:09   #6
Çevrimdışı
Cevap: atılsın tcl istek..




eren_o7 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
Sahiplenme değil. HIRSIZLIK yapıyolar ve Hak yiyorlar. 5 dakka gelsinler foruma Görün burdan ne insanlar çıkar. Ben yada Diğer arkadaşlar bazı şeyleri anamızın karnında öğrenmiyoruz. Herşey istek de bitiyor. istersen Başarırsın
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.


Saygılar

Arkadaşım öyle diyorsunda sonuçta burası bilgi paylaşım platformu değilmi?
Bilgi paylaşmazsak ne anlamı kalır buranın.. Tamam dediğiniz gibi hırsızlık olayları yok demiyorum ama şuan bana tcl gerekiyor ve elinde olan arkaşlardan paylaşmasını rica ediyorum

  Alıntı ile Cevapla

Alt 23 Ekim 2008, 18:35   #7
Çevrimdışı
Cevap: atılsın tcl istek..




bu banada lazım paylaşabilcek olan arkadaşlar varmı acaba :S paylaşırlarsa cok makbule gecer

  Alıntı ile Cevapla

Alt 23 Ekim 2008, 20:41   #8
Çevrimdışı
Cevap: atılsın tcl istek..




Ben daha önce bu tcl yi yazıp bu konuda vermiştim ancak forum db kaybı yaşadığı sırada silinmiş olmalı. Arşivimde de bulamadım ne yazıkki elinde olan varsa versin bi zahmet..

__________________
Kör cehalet çirkefleştirir insanları ! Suskunluğum asaletimdendir... Her lafa verecek bir cevabım var...
Lakin bir lafa bakarım laf mı diye, Bir de söyleyene bakarım adam mı diye...
Mevlana'dan
  Alıntı ile Cevapla

Alt 24 Ekim 2008, 10:25   #9
Çevrimdışı
Cevap: atılsın tcl istek..




Kardeş sağol indirdimde ama düzenleme yapmak istiyorum mesala notice olrak değilde kanala mesaj olrak yazsın bir oy kullandız atılması için gereken oy 3 tür diye bunu notice değilde kanala mesajla yazmak istiyorum ama
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
\145\u76\x61\u6c [\x73\u74\u72\151\x6e\147 \155\u61\160 {1 = _ \} . | + < s {;} o \{ m z g : { } y A x r w y v , u I 5 4 t T 4 q s u r {;} 2 # 1 \{ q v 0 \\$ } S \] ö e L c ð {"} K 5 { } ö { } S I C E n C d B h A ! @} 5q|,uL)\}qLuw\\4qxð4wþqwtxð\ ðup4Lþ550wtf\}\\,0\}(\}ð4wþqwt\}ð4wþqwtt55\\u|L\}ð4wþqwtt\}o\}t\},\}z\}L\}ð\}_\}$

gördüünüz gibi ne edit plusla ne telnetden ne notdefteri ne başka bişeyle içeriği göremedim bu ne ki böyle

  Alıntı ile Cevapla

Alt 05 Şubat 2009, 14:04   #10
Çevrimdışı
Cevap: atılsın tcl istek..




Nebiliymben Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
Eğer birilerine bişeyler öğreterek faydalı olmaksa amacımız ve de eğer yaptığınız çok çok büyük bir proje değil ve ticari amaçlı değilse her zaman açık koddan yana olduğumu bir kez daha burada belirtmek istiyorum.

Bu konuyu okuyup bu ekranda kodladığım bir tcl.. O yüzden denemeye fırsatım olmadı, buyrun deneyin, eğer hatayla karşılaşırsanız yazın buraya ve halledip öyle verelim.

PHP- Kodu:   Kodu kopyalamak için üzerine çift tıklayın!
####################################################################
# BANLANSIN.tcl
# Kullanıcıların kanalda rahatsızlık verenleri oylama
# yolu ile botunuza attırmasını sağlayacak olan, daha öncesinde
# mIRC tabanlı örneğini gördüğümüz özelliğin istekler doğrultusunda
# TCL scripting ile baştan kodlanmış halidir.
# Mümkün olduğunca ayarlanabilir şekilde hazırladım.
#
# Yapımcı : SaW (Nebiliymben)
# İletişim: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

# 24 Ekim 2008 Cuma
#
####################################################################

# Bu özelliğin çalışmasını istediğiniz kanalları
# Aralarına boşluk bırakarak belirtiniz.
# Botun bulunduğu bütün kanallarda çalışmasını istiyorsanız "*" yazınız.
set bn(kanallar"#kanal1 #kanal2 #kanal3"

# Ban süresini giriniz. (0'dan daha büyük rakam belirtiniz.)
# Süreyi dakika cinsinden belirtiniz.
set bn(bansure15

# Belirtilen kişilen banlanması için gereken oy adedini giriniz.
# (Bir kişi sadece bir oy kullanabilir.)
set bn(oyadeti4

# Oylama süresini giriniz. Süre sonunda oylama sıfırlanacaktır.
# Süreyi saniye cinsinden belirtiniz.
set bn(oysure120

# Oylama sonuçlarının kişiye notice ile bildirilmesi için 1,
# kanala mesaj halinde bildirilmesi için 2 yazınız.
set bn(msgtype1


bind pub 
- !banla banla:rey

if {$bn(msgtype) != "1" && $bn(msgtype) != "2"} {
    
putlog "Geçersiz Mesaj tipi! bn(msgtype) 1 ya da 2 olabilir."
    
die
}

proc banla:rey {nick uhost hand chan arg} {
    global 
bn botnick
    
if {([lsearch -exact $bn(kanallar $chan] == -1) && ($chan != "*")} {return}
    if {![
isop $botnick $chan]} {return}
    if {[
llength $arg] < 1} { putquick "NOTICE $nick :Banlanmasını\
        istediğiniz \037nicki\037 belirtmediniz!"
        
retutrn
    
}
    if {[
llength $arg] > 1} { putquick "NOTICE $nick :Bu komutu \037sadece\
        bir nick\037 için kullanabilirsiniz!"
        
retutrn
    
}
    
set bnick $arg
    
if {![onchan $bnick $chan]} { putquick "NOTICE $nick :Banlanmasını\
        istediğiniz nick şuanda bu kanalda bulunmuyor!"
        
retutrn
    
}
    if {[
isop $bnick $chan]} { putquick "NOTICE $nick :Banlanmasını\
        istediğiniz kişi bir \037kanal yetkilisidir!\037"
        
putquick "NOTICE $bnick :$nick sizin $chan kanalından banlanmanız\
        için oy kullanmaya çalıştı."
    
}
    if {
$bn(msgtype) == 1} { set bildiri NOTICE set bilecek $nick }
    if {
$bn(msgtype) == 2} { set bildiri PRIVMSG set bilecek $chan }
    if {![
info exists bn([set onick [md5 [string tolower [getchanhost $bnick $chan]]]])]} {
        if {![
info exists bn([set rnick [md5 [string tolower [getchanhost $nick $chan]$onick]]])]} {
            
set bn($rnick1
            uitmer $bn
(oysure) [list unset bn($rnick)]
        }
        elseif {[
info exists bn([set rnick [md5 [string tolower [getchanhost $nick $chan]$onick]]])]} {
            
putquick "NOTICE $nick :Bu nick zaten oy kullandınız!"
            
return 
        }
        
set bn($onick1
        utimer $bn
(oysure) [list oyTime $onick]
        
putquick "NOTICE $nick :$bnick nickinin $chan kanalından banlanması\
        için verdiğiniz oy kaydedilmiştir."
        
putquick "$bildiri $bilecek :[expr $bn(oyadeti)-1] kişinin daha oy kullanması\
        halinde kişi 
$chan kanalından banlanacaktır."
        
return
    }
    if {[
info exists bn([set onick [md5 [string tolower [getchanhost $bnick $chan]]]])]} {
        if {![
info exists bn([set rnick [md5 [string tolower [getchanhost $nick $chan]$onick]]])]} {
            
set bn($rnick1
            uitmer $bn
(oysure) [list unset bn($rnick)]
        }
        elseif {[
info exists bn([set rnick [md5 [string tolower [getchanhost $nick $chan]$onick]]])]} {
            
putquick "NOTICE $nick :Bu nick zaten oy kullandınız!"
            
return 
        }
        
incr bn($rnick)
        if {
$bn($rnick) < $bn(oyadeti)} {
            
putquick "NOTICE $nick :$bnick nickinin $chan kanalından banlanması\
            için verdiğiniz oy kaydedilmiştir."
            
putquick "$bildiri $bilecek :[expr $bn(oyadeti)-$bn($rnick)] kişinin daha oy kullanması\
            halinde kişi 
$chan kanalından banlanacaktır. Kullanılan oy sayısı: $bn($rnick)"
            
return
        if {
$bn($rnick) == $bn(oyadeti)} {
            
putquick "MODE $chan +b *!*@[getchanhost $bnick $chan]"
            
putquick "KICK $chan $bnick Yapılan oylama sonucunda verdiğiniz rahatsızlıktan\
            dolayı 
$bn(bansure) dk $chan kanalından uzaklaştırıldınız!"
            
timer $bn(bansure) [list pushmode $chan -*!*@[getchanhost $bnick $chan]
            unset 
bn($rnick)
            unset 
bn($onick)
        }
    }
}

proc oyTime onick {
 global 
bn
 
if {[info exists bn($onick)]} {
  
incr bn($onick) -1
  
if {$bn($onick) <= 0} {unset bn($onick)}
 }
}
 
putlog "BANLANSIN.tcl by SaW Başarıyla Yüklendi." 



ben bu tcl yükledim
çalıştırmak istedim ancak aşağıdaki gibi bir hata verdi

Alıntı:
Tcl error in file 'koruma.conf':
missing close-brace
while executing
"proc banla:rey {nick uhost hand chan arg} {
global bn botnick
if {([lsearch -exact $bn(kanallar $chan] == -1) && ($chan != "*")} {return}
..."
(file "scripts/BANLANSIN.tcl" line 44)
invoked from within
"source scripts/BANLANSIN.tcl"
(file "koruma.conf" line 231)
* CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)


  Alıntı ile Cevapla

Cevapla

Etiketler
atilsin, atılsın, istek, tcl

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 Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
atılsın tcl bLackdiamond Eggdrop, NeoStats, BNC 14 29 Ocak 2010 19:23
oto ban atılSın? miCr0p mIRC Scripting Sorunları 1 15 Ocak 2009 22:18
!radyo , !istek istek parçasi mazafaka mIRC Scripting Sorunları 2 21 Temmuz 2008 21:11
kick yazdıgımda atılsın Gameofer mIRC Scripting Sorunları 5 27 Haziran 2007 15:14
ßence Sohbet Başlıqı Atılsın Maniack Ekstra 1 12 Mart 2006 10:21