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 29 Haziran 2016, 17:58   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Global TCL ( Süre Aralıkları iLe )


Reklam

Opers kanalinda global mesaj sistemini yonetme ozelligi ekledim.
Yardimlari icin BuCaLI'ya tsk.

<Namesis> !global
<Ra> Kullanimi: !global <on/off/durum/ekle/sil/listele>

<Namesis> !global on
<Ra> Global mesaj sistemi acildi.

<Namesis> !global durum
<Ra> Global mesaj sistemi acik.

<Namesis> !global off
<Ra> Global mesaj sistemi kapali.

<Namesis> !global ekle
<Ra> Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz.

<Namesis> !global ekle Test mesajidir.
<Ra> GLOBAL MESAJ: Test mesajidir. » Basariyla global mesaj listesine eklendi.

<Namesis> !global sil
<Ra> Boyle bir global mesaj listede yok.
<Ra> Listeyi gormek icin: !global listele
<Ra> Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: !global sil 1234

<Namesis> !global listele
<Ra> 4790 - Test mesajidir.
<Ra> Global mesaj listesinin sonu...

<Namesis> !global sil 4790
<Ra> 4790 numarali global mesaj listeden silindi.





Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######### # BASLA # ######### # Global mesaj sistemini acip kapatma komutunun isleyecegi kanali belirtiniz. set glbmsg(operchan) "#Opers" # 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) "15" ###################### # DOKUNMA BOZULUR :d # ###################### utimer 30 globalat proc globalat {} { global botnick globalat glbmsg if {[lsearch -exact [channel info $glbmsg(operchan)] +globcmd] != -1} { set msgzaman "0" set dosya [open $glbmsg(text) r] set liste [split [subst -nocommands [read $dosya]] \n] foreach i $liste { set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list putquick "os global [lrange $i 2 end]"] } close $dosya set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list globalat] } return 0 } 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 } } setudef flag globcmd bind pub - $glbmsg(komut) globalonoff proc globalonoff {nick uhost hand chan text} { global botnick glbmsg 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]} { channel set $chan +globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002acildi\002."; globalat; return 0 } if {[string match -nocase "off" $komut]} { channel set $chan -globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002kapatildi\002."; return 0 } if {[string match -nocase "durum" $komut]} { if {[lsearch -exact [channel info $chan] +globcmd] != -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 # #########

Opers kanalinda global mesaj sistemini yonetme ozelligi ekledim.
Yardimlari icin BuCaLI'ya tsk.

<Namesis> !global
<Ra> Kullanimi: !global <on/off/durum/ekle/sil/listele>

<Namesis> !global on
<Ra> Global mesaj sistemi acildi.

<Namesis> !global durum
<Ra> Global mesaj sistemi acik.

<Namesis> !global off
<Ra> Global mesaj sistemi kapali.

<Namesis> !global ekle
<Ra> Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz.

<Namesis> !global ekle Test mesajidir.
<Ra> GLOBAL MESAJ: Test mesajidir. » Basariyla global mesaj listesine eklendi.

<Namesis> !global sil
<Ra> Boyle bir global mesaj listede yok.
<Ra> Listeyi gormek icin: !global listele
<Ra> Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: !global sil 1234

<Namesis> !global listele
<Ra> 4790 - Test mesajidir.
<Ra> Global mesaj listesinin sonu...

<Namesis> !global sil 4790
<Ra> 4790 numarali global mesaj listeden silindi.





Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######### # BASLA # ######### # Global mesaj sistemini acip kapatma komutunun isleyecegi kanali belirtiniz. set glbmsg(operchan) "#Opers" # 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) "15" ###################### # DOKUNMA BOZULUR :d # ###################### utimer 30 globalat proc globalat {} { global botnick globalat glbmsg if {[lsearch -exact [channel info $glbmsg(operchan)] +globcmd] != -1} { set msgzaman "0" set dosya [open $glbmsg(text) r] set liste [split [subst -nocommands [read $dosya]] \n] foreach i $liste { set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list putquick "os global [lrange $i 2 end]"] } close $dosya set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list globalat] } return 0 } 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 } } setudef flag globcmd bind pub - $glbmsg(komut) globalonoff proc globalonoff {nick uhost hand chan text} { global botnick glbmsg 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]} { channel set $chan +globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002acildi\002."; globalat; return 0 } if {[string match -nocase "off" $komut]} { channel set $chan -globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002kapatildi\002."; return 0 } if {[string match -nocase "durum" $komut]} { if {[lsearch -exact [channel info $chan] +globcmd] != -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
aralıkları, global, ile, süre, 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