Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 104" data-attributes="member: 1">[CODE]# istek üzerine yapılmıştır.# amaç: kodun aktif edildiği kanal/lara giren kullanıcıları# txt. üzerine kaydetmek.# nicki - userhostu - girilen kanal - realname -saat+tarih# kodun diğer işleviyse bu kayıtlar içinden istenen veriyi# aratıp sonuçları aktarabilmesi.# arama nick/host/kanal/tarih yada saat,# kaydedilmiş veri içersinde eşleşek herhangi bir kritere# göre yapılabilir.aramalarda wildcard kullanılabilir..# !ara @*hostun-bir-kısmı yada !ara nick* vs gibide olabilir.# kodun kanalda aktif olabilmesi için botunuza bağlanın:# .chanset #kanalınız +userec###############################################################setudef flag userecset userecfile &quot;scripts/[string range $chan 1 end]-users.txt&quot;bind join - * rname:joinbind raw - 311 rname:checkbind join - * users:recbind pub nm|oa !ara user:search&nbsp;&nbsp;proc users:rec {nick uhost hand chan} {&nbsp; if {![channel get $chan userec]} { return 0;}&nbsp;&nbsp; set fp [open $::userecfile a+]&nbsp;&nbsp; set data &quot;\002Nick:\002 $nick | \002Userhost:\002 $uhost | \002Kanal:\002 $chan&quot;&nbsp; &nbsp; puts $fp &quot;$data&quot;&nbsp; &nbsp; close $fp&nbsp;&nbsp; return 0}&nbsp;proc rname:join {nick host hand chan} {&nbsp;&nbsp; if {![channel get $chan userec]} { return 0;}&nbsp;&nbsp; if {[strlwr $nick] != [strlwr $::botnick]} {&nbsp; &nbsp; &nbsp; putserv &quot;whois $nick&quot;&nbsp; &nbsp;&nbsp; }}proc rname:check {from key arg} {&nbsp;&nbsp; set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]&nbsp;&nbsp; set stamp [clock format [expr {3600 + [clock second]}] -format &quot;Tarih: %d/%m/%Y Saat: %H:%M (GMT+3)&quot;]&nbsp;&nbsp; set fp [open $::userecfile a+]&nbsp;&nbsp; set data &quot;\002Realname:\002 $realname | \002Kayıt-Zamanı:\002 $stamp&quot;&nbsp;&nbsp; puts $fp &quot;$data&quot;&nbsp; &nbsp; close $fp&nbsp; &nbsp; return 0}proc ctrl:filter {str} {&nbsp; regsub -all -- { \003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007 } $str &quot;&quot; str&nbsp; return $str&nbsp;}proc user:search {nick uhost hand chan text} {&nbsp;&nbsp; if {![channel get $chan userec]} { return 0;}&nbsp;&nbsp; if {[llength $text] == &quot;0&quot;} { puthelp &quot;notice $nick :kullanımı:\002 $::lastbind nick\002&quot;; return 0;}&nbsp;&nbsp; set text *[string map {&quot; &quot; *} $text]*&nbsp; &nbsp; putserv &quot;notice $nick :\002$text\002 aranıyor...&quot;&nbsp; &nbsp; set i 0&nbsp; &nbsp; set fp [open $::userecfile r]&nbsp; &nbsp;&nbsp; while {[gets $fp b]&gt;-1} {&nbsp; &nbsp;&nbsp; if {[string match -nocase $text $b]} {&nbsp; &nbsp; &nbsp; incr i&nbsp; &nbsp; &nbsp; putserv &quot;notice $nick :-&gt; $b&quot;&nbsp; &nbsp;&nbsp; }&nbsp; }&nbsp;&nbsp; close $fp&nbsp; &nbsp;&nbsp; if {$i} {&nbsp; &nbsp;&nbsp; putserv &quot;notice $nick :arama sonucu: \002[expr {$i / 2}] \002 [expr {$i == 1?&quot;&quot;:&quot;adet&quot;}]...&quot;&nbsp; &nbsp;&nbsp; } {&nbsp; &nbsp;&nbsp; putserv &quot;notice $nick :\002aramayla eşleşen kayıt bulunamadı...\002&quot;&nbsp; &nbsp; }}putlog &quot;Ok...&quot;[/CODE]</blockquote>

[QUOTE="Che, post: 104, member: 1"] [CODE]# istek üzerine yapılmıştır. # amaç: kodun aktif edildiği kanal/lara giren kullanıcıları # txt. üzerine kaydetmek. # nicki - userhostu - girilen kanal - realname -saat+tarih # kodun diğer işleviyse bu kayıtlar içinden istenen veriyi # aratıp sonuçları aktarabilmesi. # arama nick/host/kanal/tarih yada saat, # kaydedilmiş veri içersinde eşleşek herhangi bir kritere # göre yapılabilir.aramalarda wildcard kullanılabilir.. # !ara @*hostun-bir-kısmı yada !ara nick* vs gibide olabilir. # kodun kanalda aktif olabilmesi için botunuza bağlanın: # .chanset #kanalınız +userec ############################################################### setudef flag userec set userecfile "scripts/[string range $chan 1 end]-users.txt" bind join - * rname:join bind raw - 311 rname:check bind join - * users:rec bind pub nm|oa !ara user:search proc users:rec {nick uhost hand chan} { if {![channel get $chan userec]} { return 0;} set fp [open $::userecfile a+] set data "\002Nick:\002 $nick | \002Userhost:\002 $uhost | \002Kanal:\002 $chan" puts $fp "$data" close $fp return 0 } proc rname:join {nick host hand chan} { if {![channel get $chan userec]} { return 0;} if {[strlwr $nick] != [strlwr $::botnick]} { putserv "whois $nick" } } proc rname:check {from key arg} { set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]] set stamp [clock format [expr {3600 + [clock second]}] -format "Tarih: %d/%m/%Y Saat: %H:%M (GMT+3)"] set fp [open $::userecfile a+] set data "\002Realname:\002 $realname | \002Kayıt-Zamanı:\002 $stamp" puts $fp "$data" close $fp return 0 } proc ctrl:filter {str} { regsub -all -- { \003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007 } $str "" str return $str } proc user:search {nick uhost hand chan text} { if {![channel get $chan userec]} { return 0;} if {[llength $text] == "0"} { puthelp "notice $nick :kullanımı:\002 $::lastbind nick\002"; return 0;} set text *[string map {" " *} $text]* putserv "notice $nick :\002$text\002 aranıyor..." set i 0 set fp [open $::userecfile r] while {[gets $fp b]>-1} { if {[string match -nocase $text $b]} { incr i putserv "notice $nick :-> $b" } } close $fp if {$i} { putserv "notice $nick :arama sonucu: \002[expr {$i / 2}] \002 [expr {$i == 1?"":"adet"}]..." } { putserv "notice $nick :\002aramayla eşleşen kayıt bulunamadı...\002" } } putlog "Ok..."[/CODE] [/QUOTE]

Adı

İnsan doğrulaması