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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 11 Haziran 2013, 23:41   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Not sistemi tcl




kod belli bir kişiye bot aracılığıyla not göndermek içindir.
MemoServ gibi çalışır.eggdrop notes modülünü kullanır.
botunuzun kullanıcı listesinde ekli olanlar faydalanabilir.
kod açıklamalarını kullanmadan önce okuyunuz.

komutlar:

.ekle rumuz notunuz buraya gelecek.( belirlediğiniz rumuza notunuzu gönderir)
.sil not-no (notunuzu siler not nosu ile)
.liste (varsa notları listeler)
.not [notunuz olup olmadığını kontrol eder. varsa şu kadar notunuz var der)
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# kodu kullanabilmek için notes modulü yüklü olmalı.bu modülle ilgili ayarlar .conf üzerinde olmalı. # hangi kanal üstünde komutlar kullanılmak isteniyorsa: .chanset #kanal +usenotes # not sistemi botun kullanıcı siteminde ekli olan kullanıcılar tarafından, yani # bot tarafından tanınan kullanıcılar tarafından kullanılabilir. # kullanıcı eklemek için: .+user rumuz hostu # hostmaskı değişirse bot kullanıcıyı tanıyamayabilir. bu durumda yeni değişen host: # .+host rumuz yeni/diğer-hostmask # botun kullanıcı dosyasına eklediğiniz bu kullanıcı için flag eklemek için: # .chattr rumuz +/-flag # belli bir kanal üstünde kullanıcı flagı eklemek: # .chattr rumuz +/-flag #kanal # örnek: .chattr ayshe f|o #kanalim # yukardaki örneğin anlamı : kullanıcı ayshe #kanalim'da kanal opu,global(botun olduğu kanallar) genelinde arkadaş. # eggdrop kullanıcı flag listesi: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] # .help +user - .help +host - .help chattr # notes modulü ayarları hakkında: .conf üzerinde loadmodule notes ile modül yüklenmeli. # set notefile "LamestBot.notes" : notların saklandığı dosya adı. # set max-notes 50 :herbir kullanıcı için saklanacak maksimum not adeti # set note-life 60 : notlar teslim edilene dek en çok kaç "gün" saklanmalı. # set allow-fwd 0 : notlar başka bir hesabınıza yönlendirilsin mi(varsa) 0:hayır 1:evet # set notify-users 0 :ayar 1 olursa not gönderilen kişiye notunuz var uyarısı saatte bir yapılır.(notice olarak) # set notify-onjoin 1 :not gönderilen kişi giriş yaptığında notun var bildirisi yapılır (notice olarak) # kod yapımcısı : speechles (Ukiah-California/USA): yapım tarihi : 10.06.2013 bind pub - .not notes::total bind pub - .liste notes::list bind pub - .sil notes::erase bind pub - .ekle notes::store setudef flag usenotes namespace eval notes { proc total {n u h c t} { if {![channel get $c usenotes]} { return } set total[listnotes $h -] switch -- $total { -1 { putserv "privmsg $c :$n, bot'un kullanıcı listesinde yoksunuz.bu nedenle bu sistemi kullanamazsınız." } -2 { putserv "privmsg $c :$n, not dosyası hatası.. Lütfen $::owner ile iletişime geçin!" } 0 { putserv "privmsg $c :$n, notunuz yok." } default { set out "privmsg $c :$n, hafızamda [llength $total] adet notunuz var." if {[llength $total] > 0} { append out " kullanım: .liste ile bunları görebilirsiniz." } putserv "$out" } } } proc list {n u h c t} { if {![channel get $c usenotes]} { return } if {![string length [string trim $t]]} { set t "-" } set total[listnotes $h $t] switch -- $total { -1 { putserv "privmsg $c :$n, bot'un kullanıcı listesinde yoksunuz.bu nedenle bu sistemi kullanamazsınız." } -2 { putserv "privmsg $c :$n, not dosyası hatası.. Lütfen $::owner ile iletişime geçin!" } 0 { putserv "privmsg $c :$n, notunuz yok. ( $t )" } default { if {[llength $total] < 1} { putserv "privmsg $c :$n, listemde notunuz yok." return } foreach row $total { foreach {from timestamp text} [lindex [notes $h $row] 0] { break } putserv "privmsg $c :$n, $row) <$from> $text ( [duration [expr {[clock seconds] - $timestamp }]] evvel eklenmiş )" } } } } proc store {n u h c t} { if {![channel get $c usenotes]} { return } set target [lindex [split $t] 0] set note [join [lrange [split $t] 1 end]] if {![string length $target]} { putserv "privmsg $c :$n, not eklemek için bir nick belirtmelisiniz. kullanımı: $::lastbind <rumuzu> <göndermek istediğiniz not>" return } if {![string length $note]} { putserv "privmsg $c :$n, sadece rumuz değil, göndermek istediğiniz notuda yazmalısınız. kullanımı: $::lastbind <rumuzu> <göndermek istediğiniz not>" return } set total [storenote $h $target $note 0] switch -- [validuser $target] { 1 { putserv "privmsg $c :$n, kaydedildi.notunuz $target kullanıcısına bildirilecek." } default { putserv "privmsg $c :$n, göndermek istediğiniz $target hatalı. böyle biri kullanıcı listemde yok!" } } } proc erase {n u h c t} { if {![channel get $c usenotes]} { return } if {![string length [string trim $t]]} { set t "-" } set total [erasenotes $h $t] switch -- $total { -1 { putserv "privmsg $c :$n, bot'un kullanıcı listesinde yoksunuz.bu nedenle bu sistemi kullanamazsınız." } -2 { putserv "privmsg $c :$n, not dosyası hatası.. Lütfen $::owner ile iletişime geçin!" } 0 { putserv "privmsg $c :$n, silinecek notunuz bulunmuyor. ( $t )" } default { putserv "privmsg $c :$n, işlem tamam. $total adet notunuz silindi. ( $t )" } } } }


 
Alıntı ile Cevapla

 

Etiketler
sistemi, tcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Hursoft Öğrenci Parmak İzi Geçiş Sistemi (Parmak İzi Turnike Geçiş Sistemi) hozlem Bilim Dünyasından Son Haberler 0 07 Eylül 2012 13:47
50 Bin + 50 Bin Sistemi Liaaa Öğretmen Sorunları Ve Etkileşimi 0 28 Şubat 2012 11:40
Kalorifer Sistemi Nedir ? Kat Kalorifer Sistemi Nasıl Çalışır Sevda Ödev ve Tezler 0 09 Şubat 2012 10:42