|
 |
|
 |
| |
| |
 |
Ro-Tcl
Aici Gasesti Tot Felul De Tcl`uri
|
 |
|
Acum este: 11/10/2026 13:54
|
| Autor |
Mesaj |
kymu
Junior
Data inscrierii: 01/Iul/2008
Mesaje: 7
Localitate: Pamplona
|
 Trimis: 02/07/2008 00:52 Titlul subiectului: chaninfo |
 |
|
Salut as dori sa imi explicati si mie cum pot face chaninfo -all chaninfo -flood si asa mai departe ca nu am gasit momentan pe nimeni sami arate pana acum  Va multumesc anticipat  |
|
| Sus |
|
| Autor |
Mesaj |
TrAsNeT
Junior
Data inscrierii: 30/Iun/2008
Mesaje: 7
Localitate: Sighetul-Marmatiei
|
| Trimis: 02/07/2008 08:28 Titlul subiectului: |
|
|
kymu downloadeaza asta de aici [url]http://www.filebox.ro/download.php?key=2ad67f482d9865c0854eb795f959b5c3[/url] si punel in ascript
_________________
#mIRCBOT Fondator |
|
| Sus |
|
| Autor |
Mesaj |
kymu
Junior
Data inscrierii: 01/Iul/2008
Mesaje: 7
Localitate: Pamplona
|
| Trimis: 02/07/2008 11:55 Titlul subiectului: |
|
|
Ms mult merge dar acum daca vreu sa ii mai fac o sectiune de ex -tools unde sa puna tcl se face in felul urmator
| Cod: | -tools {
lappend info "[iif [channel get $chan csc] + -]csc,"
lappend info "[iif [channel get $chan horoscop] + -]horoscop,"
si asa mai departe ??
a:tell $x 17 "channel %b-tools%% settings: [join $info]" ; return "tools options"
} |
si inca ceva daca da careva dor chaninfo sa ii dea usage chaninfo -flood|-all| etc pt a vedea ce sectiuni are si ms mult anticipat |
|
| Sus |
|
| Autor |
Mesaj |
TrAsNeT
Junior
Data inscrierii: 30/Iun/2008
Mesaje: 7
Localitate: Sighetul-Marmatiei
|
| Trimis: 02/07/2008 21:45 Titlul subiectului: |
|
|
| kymu a scris: | Ms mult merge dar acum daca vreu sa ii mai fac o sectiune de ex -tools unde sa puna tcl se face in felul urmator
| Cod: | -tools {
lappend info "[iif [channel get $chan csc] + -]csc,"
lappend info "[iif [channel get $chan horoscop] + -]horoscop,"
si asa mai departe ??
a:tell $x 17 "channel %b-tools%% settings: [join $info]" ; return "tools options"
} |
si inca ceva daca da careva dor chaninfo sa ii dea usage chaninfo -flood|-all| etc pt a vedea ce sectiuni are si ms mult anticipat |
da poti modifica dar nuti va arata  finca nu merge ;) nu stiu de ce si eu am incercat . iti sugerez sa lasi asea ;)
_________________
#mIRCBOT Fondator |
|
| Sus |
|
| Autor |
Mesaj |
kymu
Junior
Data inscrierii: 01/Iul/2008
Mesaje: 7
Localitate: Pamplona
|
| Trimis: 03/07/2008 00:36 Titlul subiectului: |
|
|
Ba merge ca am reusit oricum ms ca mai ajutat :
| Cod: | proc pub:chaninfo {hand chan args x mix} {
set info ""
set what [lindex $args 0]
if { $what == ""} { putserv "notice $hand :\00312USAGE chaninfo \00313-all|\0034-flood|\00312-tools"}
switch -exact -- $what {
-flood {
lappend info "flood-chan %b[channel get $chan flood-chan]%%,"
lappend info "flood-ctcp %b[channel get $chan flood-ctcp]%%,"
lappend info "flood-join %b[channel get $chan flood-join]%%,"
lappend info "flood-kick %b[channel get $chan flood-kick]%%,"
lappend info "flood-deop %b[channel get $chan flood-deop]%%,"
lappend info "flood-nick %b[channel get $chan flood-nick]%%,"
a:tell $x 17 "channel %b-flood%% settings: [join $info]" ; return "flood options"
}
-anti {
lappend info "[iif [channel get $chan antipub] + -]antipub,"
lappend info "[iif [channel get $chan anticolour] + -]anticolour,"
lappend info "[iif [channel get $chan antirepeat] + -]antirepeat,"
lappend info "[iif [channel get $chan antinotice] + -]antinotice,"
lappend info "[iif [channel get $chan antiunderline] + -]antiunderline,"
lappend info "[iif [channel get $chan antibold] + -]antibold,"
lappend info "[iif [channel get $chan antireverse] + -]antireverse,"
a:tell $x 17 "\0034channel %b-anti%% \0034settings:\00312 [join $info]" ; return "anti options"
}
-info {
set url [::stats::channel -get $chan url]
set mail [::stats::channel -get $chan mail]
set desc [::stats::channel -get $chan desc]
set faq [::stats::channel -get $chan faq]
set rules [::stats::channel -get $chan rules]
set news [::stats::channel -get $chan news]
set kiss [::stats::channel -get $chan kiss]
set fuck [::stats::channel -get $chan fuck]
set slap [::stats::channel -get $chan slap]
if { $url == ""} { lappend info "url: %rOFF%%," } else {lappend info "url: %rON%%," }
if { $mail == ""} { lappend info "mail: %rOFF%%," } else {lappend info "mail: %rON%%," }
if { $desc == ""} { lappend info "desc: %rOFF%%," } else {lappend info "desc: %rON%%," }
if { $faq == ""} { lappend info "faq: %rOFF%%," } else {lappend info "faq: %rON%%," }
if { $rules == ""} { lappend info "rules: %rOFF%%," } else {lappend info "rules: %rON%%," }
if { $news == ""} { lappend info "news: %rOFF%%," } else {lappend info "news: %rON%%," }
if { $kiss == ""} { lappend info "kiss: %rOFF%%," } else {lappend info "kiss: %rON%%," }
if { $fuck == ""} { lappend info "fuck: %rOFF%%," } else {lappend info "fuck: %rON%%," }
if { $slap == ""} { lappend info "slap: %rOFF%%," } else {lappend info "slap: %rON%%," }
a:tell $x 17 "channel %b-info%% settings: [join $info]"
}
-tools {
lappend info "[iif [channel get $chan csc] + -]csc,"
lappend info "[iif [channel get $chan horoscop] + -]horoscop,"
lappend info "[iif [channel get $chan youtube] + -]youtube,"
lappend info "[iif [channel get $chan ipinfo] + -]ipinfo,"
lappend info "[iif [channel get $chan girl] + -]girl,"
lappend info "[iif [channel get $chan men] + -]men,"
lappend info "[iif [channel get $chan yahoo] + -]yahoo,"
lappend info "[iif [channel get $chan learn] + -]learn,"
lappend info "[iif [channel get $chan google] + -]google,"
lappend info "[iif [channel get $chan onjoin] + -]onjoin,"
lappend info "[iif [channel get $chan weather] + -]wheather,"
lappend info "[iif [channel get $chan stat] + -]stat,"
lappend info "[iif [channel get $chan portcheck] + -]porthcheck,"
lappend info "[iif [channel get $chan putty] + -]putty,"
a:tell $x 17 "channel %b-tools%% settings: [join $info]" ; return "tools options"
}
-all {
lappend info "modes %b[channel get $chan chanmode]%%,"
lappend info "idle-kick %b[channel get $chan idle-kick]%%,"
lappend info "revenge-mode %b[channel get $chan revenge-mode]%%,"
lappend info "flood-chan %b[channel get $chan flood-chan]%%,"
lappend info "flood-ctcp %b[channel get $chan flood-ctcp]%%,"
lappend info "flood-join %b[channel get $chan flood-join]%%,"
lappend info "flood-kick %b[channel get $chan flood-kick]%%,"
lappend info "flood-deop %b[channel get $chan flood-deop]%%,"
lappend info "flood-nick %b[channel get $chan flood-nick]%%,"
lappend info "idle-deop %b[channel get $chan idle-deop]%%,"
lappend info "aop-delay %b[channel get $chan aop-delay]%%,"
lappend info "ban-time %b[channel get $chan ban-time]%%,"
lappend info "exempt-time %b[channel get $chan exempt-time]%%,"
lappend info "invite-time %b[channel get $chan invite-time ]%%,"
a:tell $x 17 "[join $info] [join [lrange [channel info $chan] 19 27]]"
a:tell $x 17 "[join [lrange [channel info $chan] 28 65]]"
a:tell $x 17 "[join [lrange [channel info $chan] 66 99]]"
}
}
}
|
|
|
| Sus |
|
| Autor |
Mesaj |
uahanamiti
Junior
Data inscrierii: 21/Iun/2012
Mesaje: 5
Localitate: Ukraine
|
| Trimis: 13/07/2012 20:15 Titlul subiectului: |
|
|
| You are so great |
|
| Sus |
|
| Autor |
Mesaj |
tcapital
Junior
Data inscrierii: 20/Iul/2012
Mesaje: 5
Localitate: Great Britain
|
| Trimis: 31/08/2012 23:08 Titlul subiectului: |
|
|
| Please people don’t stop write interest posts! I glad to find this and I hope that tomorrow I will find interest post in your site again |
|
| Sus |
|
| Autor |
Mesaj |
tcapital
Junior
Data inscrierii: 20/Iul/2012
Mesaje: 5
Localitate: Great Britain
|
| Trimis: 04/09/2012 11:58 Titlul subiectului: |
|
|
| I found this post very useful! |
|
| Sus |
|
|
Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum
|
| |
 |
|
 |
|
|
