IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Temmuz 2016, 14:26   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Global Mesaj TCL


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######### # BASLA # ######### # Global mesaj sistemini acip kapatma komutunun isleyecegi kanali belirtiniz. set glbmsg(operchan) "#Admin" # Global komut on ekini belirtiniz. set glbmsg(komut) ".global" # Global mesajlarin bulundugu dosya dizinini belirtiniz. set glbmsg(text) "scripts/globalmsg.txt" # Global mesajlar kac dakika arayla atilacaksa belirtiniz. (Dakika cinsinden) set glbmsg(zaman) "5" ###################### # DOKUNMA BOZULUR :d # ###################### proc globalat {} { global botnick globalat glbmsg set msgzaman "0" set dosya [open $glbmsg(text) r] set liste [split [subst -nocommands [read $dosya]] \n] foreach i $liste { if {[lrange $i 2 end] != ""} { set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list putquick "os global [lrange $i 2 end]"] } } close $dosya timer $msgzaman[list globalat] } bind evnt - init-server baglan:dosyayarat proc baglan:dosyayarat {type} { global botnick glbmsg if {![file exists $glbmsg(text)]} { set dosya [open $glbmsg(text) w] close $dosya } } set durum "0" bind pub - $glbmsg(komut) globalonoff proc globalonoff {nick uhost hand chan text} { global botnick glbmsg durum set komut "[lindex [split $text] 0]" set mesaj "[lrange [split $text] 1 end]" if {[string match -nocase $glbmsg(operchan) $chan]} { if {$komut == ""} { putquick "PRIVMSG $chan :Kullanimi: $glbmsg(komut) \002<on/off/durum/ekle/sil/listele>\002" return 0 } if {[string match -nocase "on" $komut]} { globalat set durum "1" putquick "PRIVMSG $chan :Global mesaj sistemi \002acildi\002." return 0 } if {[string match -nocase "off" $komut]} { killtimer [lindex [timers] [lsearch [timers] "*globalat*"] end] set durum "0" putquick "PRIVMSG $chan :Global mesaj sistemi \002kapatildi\002." return 0 } if {[string match -nocase "durum" $komut]} { if {$durum == "1"} { putquick "PRIVMSG $chan :Global mesaj sistemi \002acik\002." } else { putquick "PRIVMSG $chan :Global mesaj sistemi \002kapali\002." return 0 } } if {[string match -nocase "ekle" $komut]} { if {$mesaj == ""} { putquick "PRIVMSG $chan :Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz." return 0 } putquick "PRIVMSG $chan :GLOBAL MESAJ: $mesaj » Basariyla global mesaj listesine eklendi." set globs [open $glbmsg(text) a] puts $globs "[join [rand 9999]] [join -] [join $mesaj]" flush $globs catch {closer $globs} } if {[string match -nocase "sil" $komut]} { if {![file exists $glbmsg(text)]} { putquick "PRIVMSG $chan :Global mesaj listesi zaten bos." return } set data "" set input [open $glbmsg(text) r] while {![eof $input]} { set curline [gets $input] set curline [split $curline] if {$curline != ""} { set data [linsert $data end $curline] } } catch {close $input} set deger -1 set esles "" foreach line $data { incr deger if {[string match -nocase "$mesaj" [lindex $line 0]]} { set esles $deger break } } if {$esles == ""} { putquick "PRIVMSG $chan :Boyle bir global mesaj listede yok." putquick "PRIVMSG $chan :Listeyi gormek icin: \002$glbmsg(komut) listele\002" putquick "PRIVMSG $chan :Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: \002$glbmsg(komut) sil 1234\002" return } set newdata [lreplace $data $deger $deger] set output [open $glbmsg(text) w] foreach newline $newdata { if {$newline != ""} { puts $output $newline } } flush $output catch {close $output} putquick "PRIVMSG $chan :\002$mesaj\002 numarali global mesaj listeden silindi." return } if {[string match -nocase "listele" $komut]} { if {![file exists $glbmsg(text)]} { putquick "PRIVMSG $chan :Global mesaj listesi bos." return 0 } set input [open $glbmsg(text) r] set lines [split [subst -nocommands [read $input]] \n] catch {close $input} set sayc 0 foreach line $lines { if {$line != ""} { putquick "PRIVMSG $chan :$line" incr sayc } } if {$sayc == 0} { putquick "PRIVMSG $chan :Global mesaj listesinde hic kayit bulunamadi." return } else { putquick "PRIVMSG $chan :Global mesaj listesinin sonu..." } } } } ######### # BITTI # #########

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######### # BASLA # ######### # Global mesaj sistemini acip kapatma komutunun isleyecegi kanali belirtiniz. set glbmsg(operchan) "#Admin" # Global komut on ekini belirtiniz. set glbmsg(komut) ".global" # Global mesajlarin bulundugu dosya dizinini belirtiniz. set glbmsg(text) "scripts/globalmsg.txt" # Global mesajlar kac dakika arayla atilacaksa belirtiniz. (Dakika cinsinden) set glbmsg(zaman) "5" ###################### # DOKUNMA BOZULUR :d # ###################### proc globalat {} { global botnick globalat glbmsg set msgzaman "0" set dosya [open $glbmsg(text) r] set liste [split [subst -nocommands [read $dosya]] \n] foreach i $liste { if {[lrange $i 2 end] != ""} { set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list putquick "os global [lrange $i 2 end]"] } } close $dosya timer $msgzaman[list globalat] } bind evnt - init-server baglan:dosyayarat proc baglan:dosyayarat {type} { global botnick glbmsg if {![file exists $glbmsg(text)]} { set dosya [open $glbmsg(text) w] close $dosya } } set durum "0" bind pub - $glbmsg(komut) globalonoff proc globalonoff {nick uhost hand chan text} { global botnick glbmsg durum set komut "[lindex [split $text] 0]" set mesaj "[lrange [split $text] 1 end]" if {[string match -nocase $glbmsg(operchan) $chan]} { if {$komut == ""} { putquick "PRIVMSG $chan :Kullanimi: $glbmsg(komut) \002<on/off/durum/ekle/sil/listele>\002" return 0 } if {[string match -nocase "on" $komut]} { globalat set durum "1" putquick "PRIVMSG $chan :Global mesaj sistemi \002acildi\002." return 0 } if {[string match -nocase "off" $komut]} { killtimer [lindex [timers] [lsearch [timers] "*globalat*"] end] set durum "0" putquick "PRIVMSG $chan :Global mesaj sistemi \002kapatildi\002." return 0 } if {[string match -nocase "durum" $komut]} { if {$durum == "1"} { putquick "PRIVMSG $chan :Global mesaj sistemi \002acik\002." } else { putquick "PRIVMSG $chan :Global mesaj sistemi \002kapali\002." return 0 } } if {[string match -nocase "ekle" $komut]} { if {$mesaj == ""} { putquick "PRIVMSG $chan :Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz." return 0 } putquick "PRIVMSG $chan :GLOBAL MESAJ: $mesaj » Basariyla global mesaj listesine eklendi." set globs [open $glbmsg(text) a] puts $globs "[join [rand 9999]] [join -] [join $mesaj]" flush $globs catch {closer $globs} } if {[string match -nocase "sil" $komut]} { if {![file exists $glbmsg(text)]} { putquick "PRIVMSG $chan :Global mesaj listesi zaten bos." return } set data "" set input [open $glbmsg(text) r] while {![eof $input]} { set curline [gets $input] set curline [split $curline] if {$curline != ""} { set data [linsert $data end $curline] } } catch {close $input} set deger -1 set esles "" foreach line $data { incr deger if {[string match -nocase "$mesaj" [lindex $line 0]]} { set esles $deger break } } if {$esles == ""} { putquick "PRIVMSG $chan :Boyle bir global mesaj listede yok." putquick "PRIVMSG $chan :Listeyi gormek icin: \002$glbmsg(komut) listele\002" putquick "PRIVMSG $chan :Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: \002$glbmsg(komut) sil 1234\002" return } set newdata [lreplace $data $deger $deger] set output [open $glbmsg(text) w] foreach newline $newdata { if {$newline != ""} { puts $output $newline } } flush $output catch {close $output} putquick "PRIVMSG $chan :\002$mesaj\002 numarali global mesaj listeden silindi." return } if {[string match -nocase "listele" $komut]} { if {![file exists $glbmsg(text)]} { putquick "PRIVMSG $chan :Global mesaj listesi bos." return 0 } set input [open $glbmsg(text) r] set lines [split [subst -nocommands [read $input]] \n] catch {close $input} set sayc 0 foreach line $lines { if {$line != ""} { putquick "PRIVMSG $chan :$line" incr sayc } } if {$sayc == 0} { putquick "PRIVMSG $chan :Global mesaj listesinde hic kayit bulunamadi." return } else { putquick "PRIVMSG $chan :Global mesaj listesinin sonu..." } } } } ######### # BITTI # #########

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
global, mesaj, tcl
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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