IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   atılsın tcl istek.. (https://www.ircforumlari.net/tcl-scriptler/51985-atilsin-tcl-istek.html)

RePLiCa 26 Şubat 2008 23:57
atılsın tcl istek..
 
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..

BuCaLI 27 Şubat 2008 23:48
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

TataR 28 Şubat 2008 04:28
Cevap: atılsın tcl istek..
 
Ver ver kardeş sana zahmet

RePLiCa 28 Şubat 2008 11:51
Cevap: atılsın tcl istek..
 
Alıntı:
BuCaLI Nickli Üyeden Alıntı (Mesaj 359401)
ö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..

eren_o7 29 Şubat 2008 01:19
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 ;)

Saygılar

RePLiCa 29 Şubat 2008 20:09
Cevap: atılsın tcl istek..
 
Alıntı:
eren_o7 Nickli Üyeden Alıntı (Mesaj 360489)
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 ;)

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

dragonn 23 Ekim 2008 18:35
Cevap: atılsın tcl istek..
 
bu banada lazım paylaşabilcek olan arkadaşlar varmı acaba :S paylaşırlarsa cok makbule gecer

BuCaLI 23 Ekim 2008 20:41
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..

dragonn 24 Ekim 2008 10:25
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:
\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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
} 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

delibela 05 Şubat 2009 14:04
Cevap: atılsın tcl istek..
 
Alıntı:
Nebiliymben Nickli Üyeden Alıntı (Mesaj 579501)
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:
####################################################################
# 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 25 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(bansure) 15

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

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

# 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(msgtype) 1


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($rnick) 1
            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($onick) 1
        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($rnick) 1
            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 -b *!*@[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)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:52.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net