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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - !Kurallar & !KuralEkle & !KuralSil TCL (https://www.ircforumlari.net/tcl-scriptler/692126-kurallar-amp-kuralekle-amp-kuralsil-tcl.html)

!Kurallar & !KuralEkle & !KuralSil TCL

Merhabalar,

X Sunucusun da Oper İken Görmüştüm.

OpersDesk Botu(TCL) Olarak Opers Kanalında 7/24 Bulunuyor.

Botun Sahibi X Kişi Bota Opers Kanalında Yeni Kural Ekletiyor ve Sildirebiliyor.

Sonra Yeni bi Oper/Admin Eklediğin de !Kurallar Diyorlardı Mesela 10 Tane Kural Varsa Onu Kanala Yansıtıyordu Bot.

Bunu O Kadar Aradım Ama Bulamadım, Tabi Bu Bir Çok İşlev de Faydalı Olabilir, Dj'ler İçin Operler İçin Helpersler İçin Kanal Yetkilileri İçin.

Bilgisi Olan veya Elinde Böyle Birşey Olan Paylaşabilir mi Lütfen...

Tekrardan Hayırlı Kandiller... ^^

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

şöyle bir kod hazırladım dene bak istersen

Komutlar :
!kurallar - kuralları listeler..
!kurallar ekle (kuralınız)
!kurallar sil (silinecek kural)

Ekle ve Sil komutlarını kural yöneticisi çalıştırabilir..

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

NOT: kuralowner'a girilen nick büyük küçük harfe duyarlıdır..

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041646863)

Kod:

# Kurallar yöneticisi

set kuralowner "rascoLn"
 

# Komutun işleyeceği kanal

set operchan "#opers"
 

# Kullanılacak komut

set kuralkomut "!kurallar"
 

# Kuralların eklenip, silineceğ dosya yolu

set kuraldosya "scripts/operkurallar"
 

## Başlangıç

bind pub - $kuralkomut kural
 

proc kural { nick host hand chan text } {

global operchan kuraldosya operchan

if {[string equal $operchan $chan]} {

set islem [lindex $text 0]

set veri [turkce:destek [lrange $text 1 end]]

switch -- $islem {

"ekle" {

if { $::kuralowner == $nick } {

if { $veri ne "" } {

set kuralekle [open $kuraldosya a]

puts $kuralekle $veri

close $kuralekle

putserv "privmsg $operchan :\0034«\0031 [duzenle "Yeni kural başarıyla eklendi."]\0034 »"

} else {

putserv "privmsg $operchan :\0034 «\0031 [duzenle "Kural girmediniz. \002ORNEK:\002 $::kuralkomut ekle \(\00312kuralınız\003\)"] \0034»"

}

} else {

putserv "privmsg $operchan :\0034 «\0031 [duzenle "Kurallarla ilgili yönetici komutları kullanamazsınız."] \0034 »"

}

}

"sil" {

if { $::kuralowner == $nick } {

if {![file isfile $kuraldosya] } { putquick "privmsg $operchan :[duzenle "\0034 «\0031 Herhangi bir kural eklenmemiş \0034»"]"; return 0}

if { [file size $kuraldosya] <= 10 } { close [open $kuraldosya w]; putquick "privmsg $operchan :[duzenle "\0034 «\0031 Kural dosyası boş \0034»"]"; return 0}

set kuralsil [open $kuraldosya r] 

set silinecek [split [read -nonewline $kuralsil] \n] 

close $kuralsil

set bul [lsearch -exact $silinecek "$veri" ] 

set sil [lreplace $silinecek $bul $bul] 

set olustur [open $kuraldosya w]

puts $olustur [join $sil "\n"]

close $olustur

putserv "privmsg $operchan :\0034 «\0031 [duzenle "Eski kural başarıyla silindi."] \0034 »"

} else {

putserv "privmsg $operchan :\0034 «\0031 [duzenle "Kurallarla ilgili yönetici komutları kullanamazsınız."] \0034 »"

}

}

default {

if { $text eq "" } {

if {![file isfile $kuraldosya] } { putquick "privmsg $operchan :[duzenle "\0034 «\0031 Herhangi bir kural eklenmemiş \0034»"]"; return 0}

if { [file size $kuraldosya] <= 10 } { close [open $kuraldosya w]; putquick "privmsg $operchan :[duzenle "\0034 «\0031 Kural dosyası boş \0034»"]"; return 0}

set dosya [open $kuraldosya r] 

set liste [split [read $dosya] \n] 

close $dosya

putquick "privmsg $operchan :\0030,2 Kurallar : \003"

putquick "privmsg $operchan :------------------------------------"

set x 1

foreach listele $liste {

if { ![string match "" $listele] } {

putquick "privmsg $operchan :\0034»\0031 [duzenle $listele]"

}

incr x

}

putquick "privmsg $operchan :------------------------------------"

putquick "privmsg $operchan :\0030,2 Kurallar Listelendi.. \003"

}

}

}

}

}
 

proc duzenle {harf} {

regsub -all "ğ" $harf "ð" harf

regsub -all "ş" $harf "þ" harf

regsub -all "İ" $harf "Ý" harf

regsub -all "ı" $harf "ý" harf

regsub -all "Ğ" $harf "Ð" harf

regsub -all "Ş" $harf "Þ" harf

return $harf

}
 

proc turkce:destek {veri} {

    #--- Turkce karakter duzeltme ----------------------------------------------------------------------------------------------------------------

    regsub -all "ý" $veri "ı" veri

    regsub -all "Ý" $veri "İ" veri

    regsub -all "þ" $veri "ş" veri

    regsub -all "ð" $veri "ğ" veri

    regsub -all "Ð" $veri "Ğ" veri

    regsub -all "Þ" $veri "Ş" veri

    return $veri

}

## Bitiş
 

putlog "kural.tcl rascoLn"

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Geri Tepki Vermiyor Ama ;

Kod:

[20:37] <No_FeaR> !Kurallar

[20:37] <No_FeaR> !Kurallar Ekle Selam

[20:37] <No_FeaR> !KurallarEkle Selam

Botu Tanıttım ama Yine de Tepki Vermedi..

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
./eggdrop -n conf olarak calistirdiktan sonra hata ciktisini yazarmisin buraya

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

# Kurallar yöneticisi
set kuralowner "rascoLn"

kısmını düzenledinmi ?

düzenelediysen..

kodu alırken direk TCL dosyasına atma.

Önce txt dosyasına cek sonra tcl dosyasına yola Sitede kaynaklı sanırım harfleri vs. yiyor. bozuyor. benim pcde böyle oluyor bilginize.

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

Pc başına geçtiğimde dosya olarak yollarım artık

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041646981)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
./eggdrop -n conf olarak calistirdiktan sonra hata ciktisini yazarmisin buraya

Her Hangi Hata Yok Görünmüyor Sadece,
Bunu Veriyor Hata Olarak..

Kod:

[07:52] #Opers is active but has no ops :(

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 07:54 -->-> Daha önceki mesaj 07:53 --

Alıntı:

MesqeN Nickli Üyeden Alıntı (Mesaj 1041646987)

Evet Tüm Editleri Kendime Göre Yaptım, KurallarOwner Benim Ama Yine de Tepki Vermedi Acaba bi yerde Hata mı Yaptım ki..

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

Yukarıdaki mesajda kodlar kaldırıldı dosya linki verildi.

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041647036)

Yukarıdaki mesajda kodlar kaldırıldı dosya linki verildi.

Emeklerine Sağlık : )

Kod:

[08:17] <No_FeaR> !kurallar ekle Merhaba

[08:17] <Kurallar> 4«1 Yeni kural başarıyla eklendi.4 »

[08:17] <No_FeaR> !kurallar ekle Merhaba

[08:17] <Kurallar> 4«1 Yeni kural başarıyla eklendi.4 »

[08:17] <No_FeaR> !kurallar ekle Merhaba

[08:17] <Kurallar> 4«1 Yeni kural başarıyla eklendi.4 »

[08:17] <No_FeaR> !Kurallar

[08:17] <Kurallar> 0,2 Kurallar : 

[08:17] <Kurallar> ------------------------------------

[08:17] <Kurallar> 4»1 Merhaba

[08:17] <Kurallar> 4»1 Merhaba

[08:17] <Kurallar> 4»1 Merhaba

[08:17] <Kurallar> ------------------------------------

[08:17] <Kurallar> 0,2 Kurallar Listelendi..

Cevap: !Kurallar & !KuralEkle & !KuralSil TCL

rascoLn hocam aca bu !ekle !sil komutunu örnegin söz botunda uygulkayabilirmiyiz
burda baktımda dosya yolu scripts/operskurallar olarak verilmiş
örnegin bizde dosya yolu olarak scripts/sözler.tcl olarak versek bu kod işimize yarar gibi geliyo dogrumudur eger dogruysa denemek isterim tsk ederim şimdiden