Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 86" data-attributes="member: 1">[CODE]#Greet Başlangıçbind pub - $sv2(greet) sv2_greetproc sv2_greet {nick uhost hand chan text} {global botnick sv2&nbsp; &nbsp; set r [lindex $sv2(renk) [rand [llength $sv2(renk)]]]&nbsp; &nbsp; set first &quot;[lindex $text 0]&quot;&nbsp; &nbsp; if {[string match -nocase $sv2(adminc) $chan] || [string match -nocase $sv2(operc) $chan]} {&nbsp; &nbsp; if {$first == &quot;&quot;} { putquick &quot;PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) &lt;ekle|sil|listele&gt; &lt;#kanal&gt; &lt;mesaj&gt;\002 şeklindedir.\003&quot;; return 0 }&nbsp; &nbsp; if {[string match -nocase &quot;ekle&quot; $first]} {&nbsp; &nbsp; set knl &quot;[lindex $text 1]&quot;&nbsp; &nbsp; set msg &quot;[lrange $text 2 end]&quot;&nbsp; &nbsp; if {$knl == &quot;&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\002Kanal\002 belirtmediniz.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first &lt;#kanal&gt; &lt;mesaj&gt;\002 şeklindedir.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; }&nbsp; &nbsp; if {$msg == &quot;&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\002Mesaj\002 belirtmediniz.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first $knl &lt;mesaj&gt;\002 şeklindedir.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; }&nbsp; &nbsp; if {![file exists &quot;$sv2(greetdizin)&quot;]} { file mkdir $sv2(greetdizin) }&nbsp; &nbsp; if {![file exists &quot;$sv2(greetdizin)/$nick&quot;]} { file mkdir $sv2(greetdizin)/$nick }&nbsp; &nbsp; &nbsp; &nbsp; file delete $sv2(greetdizin)/$nick/$knl.db&nbsp; &nbsp; &nbsp; &nbsp; set greet [open &quot;$sv2(greetdizin)/$nick/$knl.db&quot; w]&nbsp; &nbsp; &nbsp; &nbsp; regsub -all &quot;{&quot; $msg &quot;&quot; msg&nbsp; &nbsp; &nbsp; &nbsp; regsub -all &quot;}&quot; $msg &quot;&quot; msg&nbsp; &nbsp; &nbsp; &nbsp; puts $greet &quot;$msg&quot;&nbsp; &nbsp; &nbsp; &nbsp; flush $greet&nbsp; &nbsp; &nbsp; &nbsp; catch {closer $greet}&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 oluşturuldu.\003&quot;&nbsp; &nbsp; }&nbsp; &nbsp; if {[string match -nocase &quot;sil&quot; $first]} {&nbsp; &nbsp; set knl &quot;[lindex $text 1]&quot;&nbsp; &nbsp; if {$knl == &quot;&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\002Kanal\002 belirtmediniz.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first &lt;#kanal&gt;\002 şeklindedir.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; }&nbsp; &nbsp; if {![file exists &quot;$sv2(greetdizin)/$nick/$knl.db&quot;]} {&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 bulunmamaktadır.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \026 Önemli Uyari \026 \003$r\Büyük/küçük harf duyarlıdır.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\002$sv2(greet) listele\002 komutu ile listeleyip yazılış haline bakarak tekrar deneyiniz.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; file delete $sv2(greetdizin)/$nick/$knl.db&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 başarıyla silinmiştir.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; }&nbsp; &nbsp; if {[string match -nocase &quot;listele&quot; $first]} {&nbsp; &nbsp; set includes [open &quot;|find $sv2(greetdizin)/$nick -name \*.db -print&quot; r]&nbsp; &nbsp; &nbsp; &nbsp; set sayac 0&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \002&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \026 Greet listesi \026&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan :\002&quot;&nbsp; &nbsp; &nbsp; &nbsp; while {[gets $includes include] &gt;= 0} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; incr sayac&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; regsub -all &quot;$sv2(greetdizin)/$nick/&quot; $include &quot;&quot; include&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; regsub -all &quot;.db&quot; $include &quot;&quot; include&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set input [open &quot;$sv2(greetdizin)/$nick/$include.db&quot; r]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set lines [split [read $input] \n]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; catch {close $input}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; foreach line $lines {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {$line != &quot;&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan :\002$sayac.\002 $include: $line&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; if {$sayac == 0} { putquick &quot;PRIVMSG $chan \026 HATA \026 \003$r\002Greet\002 listesinde hiç kayıt bulunamadı.\003&quot; }&nbsp; &nbsp; &nbsp; &nbsp; if {$includes == 0} { putquick &quot;PRIVMSG $chan \026 HATA \026 \003$r\002Greet\002 listesinde hiç kayıt bulunamadı.\003&quot; }&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \002&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \003$r\Silmek için \002$sv2(greet) sil &lt;#kanal&gt;\002 komutunu kullanabilirsiniz.\003&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \002&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan :\026 Greet listesinin sonu \026&quot;&nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan \002&quot;&nbsp; &nbsp; &nbsp; &nbsp; close $includes&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; }}bind join - * sv2_greetmsgproc sv2_greetmsg {nick uhost hand chan} {global botnick sv2&nbsp; &nbsp; if {![file exists &quot;$sv2(greetdizin)/$nick&quot;]} { return 0 }&nbsp; &nbsp; set includes [open &quot;|find $sv2(greetdizin)/$nick -name \*.db -print&quot; r]&nbsp; &nbsp; while {[gets $includes include] &gt;= 0} {&nbsp; &nbsp; &nbsp; &nbsp; regsub -all &quot;$sv2(greetdizin)/$nick/&quot; $include &quot;&quot; include&nbsp; &nbsp; &nbsp; &nbsp; regsub -all &quot;.db&quot; $include &quot;&quot; include&nbsp; &nbsp; &nbsp; &nbsp; set input [open &quot;$sv2(greetdizin)/$nick/$include.db&quot; r]&nbsp; &nbsp; &nbsp; &nbsp; set lines [split [read $input] \n]&nbsp; &nbsp; &nbsp; &nbsp; catch {close $input}&nbsp; &nbsp; &nbsp; &nbsp; foreach line $lines {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {$line != &quot;&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {[string match -nocase $include $chan]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; putquick &quot;PRIVMSG $chan :$line&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; }&nbsp; &nbsp; close $includes}#Greet Sonu[/CODE]</blockquote>

[QUOTE="Che, post: 86, member: 1"] [CODE]#Greet Başlangıç bind pub - $sv2(greet) sv2_greet proc sv2_greet {nick uhost hand chan text} { global botnick sv2 set r [lindex $sv2(renk) [rand [llength $sv2(renk)]]] set first "[lindex $text 0]" if {[string match -nocase $sv2(adminc) $chan] || [string match -nocase $sv2(operc) $chan]} { if {$first == ""} { putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) <ekle|sil|listele> <#kanal> <mesaj>\002 şeklindedir.\003"; return 0 } if {[string match -nocase "ekle" $first]} { set knl "[lindex $text 1]" set msg "[lrange $text 2 end]" if {$knl == ""} { putquick "PRIVMSG $chan \003$r\002Kanal\002 belirtmediniz.\003" putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first <#kanal> <mesaj>\002 şeklindedir.\003" return 0 } if {$msg == ""} { putquick "PRIVMSG $chan \003$r\002Mesaj\002 belirtmediniz.\003" putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first $knl <mesaj>\002 şeklindedir.\003" return 0 } if {![file exists "$sv2(greetdizin)"]} { file mkdir $sv2(greetdizin) } if {![file exists "$sv2(greetdizin)/$nick"]} { file mkdir $sv2(greetdizin)/$nick } file delete $sv2(greetdizin)/$nick/$knl.db set greet [open "$sv2(greetdizin)/$nick/$knl.db" w] regsub -all "{" $msg "" msg regsub -all "}" $msg "" msg puts $greet "$msg" flush $greet catch {closer $greet} putquick "PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 oluşturuldu.\003" } if {[string match -nocase "sil" $first]} { set knl "[lindex $text 1]" if {$knl == ""} { putquick "PRIVMSG $chan \003$r\002Kanal\002 belirtmediniz.\003" putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first <#kanal>\002 şeklindedir.\003" return 0 } if {![file exists "$sv2(greetdizin)/$nick/$knl.db"]} { putquick "PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 bulunmamaktadır.\003" putquick "PRIVMSG $chan \026 Önemli Uyari \026 \003$r\Büyük/küçük harf duyarlıdır.\003" putquick "PRIVMSG $chan \003$r\002$sv2(greet) listele\002 komutu ile listeleyip yazılış haline bakarak tekrar deneyiniz.\003" return 0 } file delete $sv2(greetdizin)/$nick/$knl.db putquick "PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 başarıyla silinmiştir.\003" return } if {[string match -nocase "listele" $first]} { set includes [open "|find $sv2(greetdizin)/$nick -name \*.db -print" r] set sayac 0 putquick "PRIVMSG $chan \002" putquick "PRIVMSG $chan \026 Greet listesi \026" putquick "PRIVMSG $chan :\002" while {[gets $includes include] >= 0} { incr sayac regsub -all "$sv2(greetdizin)/$nick/" $include "" include regsub -all ".db" $include "" include set input [open "$sv2(greetdizin)/$nick/$include.db" r] set lines [split [read $input] \n] catch {close $input} foreach line $lines { if {$line != ""} { putquick "PRIVMSG $chan :\002$sayac.\002 $include: $line" } } } if {$sayac == 0} { putquick "PRIVMSG $chan \026 HATA \026 \003$r\002Greet\002 listesinde hiç kayıt bulunamadı.\003" } if {$includes == 0} { putquick "PRIVMSG $chan \026 HATA \026 \003$r\002Greet\002 listesinde hiç kayıt bulunamadı.\003" } putquick "PRIVMSG $chan \002" putquick "PRIVMSG $chan \003$r\Silmek için \002$sv2(greet) sil <#kanal>\002 komutunu kullanabilirsiniz.\003" putquick "PRIVMSG $chan \002" putquick "PRIVMSG $chan :\026 Greet listesinin sonu \026" putquick "PRIVMSG $chan \002" close $includes } } } bind join - * sv2_greetmsg proc sv2_greetmsg {nick uhost hand chan} { global botnick sv2 if {![file exists "$sv2(greetdizin)/$nick"]} { return 0 } set includes [open "|find $sv2(greetdizin)/$nick -name \*.db -print" r] while {[gets $includes include] >= 0} { regsub -all "$sv2(greetdizin)/$nick/" $include "" include regsub -all ".db" $include "" include set input [open "$sv2(greetdizin)/$nick/$include.db" r] set lines [split [read $input] \n] catch {close $input} foreach line $lines { if {$line != ""} { if {[string match -nocase $include $chan]} { putquick "PRIVMSG $chan :$line" } } } } close $includes } #Greet Sonu[/CODE] [/QUOTE]

Adı

İnsan doğrulaması