Results 1 to 3 of 3

Thread: chaninfo problem

  1. #1
    Junior Member
    Join Date
    Jun 2007
    Posts
    41
    Rep Power
    0

    Default chaninfo problem

    stiu ca s-a mai discutat pe la chaninfo tools cred problema asta dar mie ceva nu mi se pare in regula aici

    Code:
    proc pub:chaninfo {hand chan args x mix} {
    
    	set info ""
    	set what [lindex $args 0]
    
    	if { $what == ""} { a:usage $x chaninfo ; return "FAILED: not all parameters specified"}
    	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,"
    	lappend info "[iif [channel get $chan antiswear] + -]antiswear,"
    	lappend info "[iif [channel get $chan antitake] + -]antitake,"
    	lappend info "[iif [channel get $chan paranoia] + -]paranoia,"
          lappend info "[iif [channel get $chan strict] + -],"
          lappend info "[iif [channel get $chan mc.spamcheck] + -]mc.spamcheck,"
          lappend info "[iif [channel get $chan mc.spamcycle] + -]mc.spamcycle,"
            a:tell $x 17 "channel %b-anti%% settings: [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]"
    }
    
           	-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]]"
    		}
    	}
    }
    Asta imi este procesul de chaninfo din local_26 ( local_V )

    Cand dau .chaninfo -info imi da urmatoarea eroare

    Code:
     <Laren> [12:05] <<xlmpq>> xlmpq!steaua@xlmpq.users.undernet.org #testing CHANINFO invalid command name "::stats::channel"
    Inca ceva .. PE vechiul a&a light pe care il aveam pe un alt eggdrop mergea fara nici o eroare acest cod , iar pe a&a light de la ultimul release imi da aceasta eroare la -info .. Cineva mi-a spus ca ii de la a&a_stats , dar nustiu ce sa fac pe acolo

  2. #2
    Administrator

    aka aqwzsx

    Join Date
    Jun 2004
    Posts
    853
    Blog Entries
    130
    Rep Power
    3

    Default

    Code:
    ::stats::channel
    inlocuiesti cu
    Code:
    ::stats::stats:channel

  3. #3
    Junior Member
    Join Date
    Jun 2007
    Posts
    41
    Rep Power
    0

    Default

    yep , am reusit , facui comparatia din stats-ul de pe ultimul release si am vazut de ce nu mergea

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [Modify script] antiswear problem
    By xlmpq in forum Tcl scripting
    Replies: 3
    Last Post: 17-08-2009, 23:08
  2. chaninfo
    By verzui in forum a&a script
    Replies: 4
    Last Post: 01-11-2008, 15:05
  3. chaninfo
    By Freezed in forum a&a script
    Replies: 7
    Last Post: 18-11-2005, 17:14
  4. Ban Problem
    By GoRaPiD in forum Eggdrop
    Replies: 2
    Last Post: 25-12-2004, 22:59
  5. chaninfo
    By lsn in forum Tcl scripting
    Replies: 7
    Last Post: 19-11-2004, 09:22

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •