a&a bug ( se pot pica botii )

[KShadow]

In acest moment este un bug in arhiva a&a ( se poate pica orice bot, fara sa ai access la el... acesta pur si simplu se blocheaza, si pica fara sa mai revina, insa procesul din shell ramane pornit ). Uitati ce trebuie sa faceti sa-l reparati:

1. In core.tcl cautati asta: ( a&a_01_a_core.tcl )

proc a:tell {x id {arg ""}} {
    global say

    set nick [lindex $x 0]
    set hand [lindex $x 1]
    set chan [lindex $x 2]
    set dir  [lindex $x 3]
    set q    [getuser $hand XTRA _LANG_OUT]

    if {$q == ""} {set z $say(lang.1.${id})} else { set z $say(lang.${q}.${id})}

    set y     [a:lang $z $arg]
    set nickk [string length $nick]
    

    while {$y != ""} {
    
        if { [expr [string length $y] + $nickk] > 414} { set start [expr [string wordstart $y [expr 414 - $nickk]] -2]; set w [string range $y 0 $start]; set y [string range $y $start end]} {set w "$y"; set y ""}

        set w [string map {%B \002 %b \00302 %r \00304 %% \003} $w]
        switch -exact -- $dir {

            pub {
                switch -exact -- [getuser $hand XTRA _PUB_OUT] {
        
                    msg    {puthelp "PRIVMSG $nick :$w"}
                    note    {puthelp "NOTICE $nick :$w"}
                    default {puthelp "PRIVMSG $chan :$nick $w"}
                }
            }

            msg {
                switch -exact -- [getuser $hand XTRA _MSG_OUT] {
        
                    chan    {puthelp "PRIVMSG $chan :$nick $w"}
                    note    {puthelp "NOTICE $nick :$w"}
                    default {puthelp "PRIVMSG $nick :$w"}
                }
            }
        }
    }
}

si o inlocuiti cu:

proc a:tell {x id {arg ""}} {
    global say

    set nick [lindex $x 0]
    set hand [lindex $x 1]
    set chan [lindex $x 2]
    set dir  [lindex $x 3]
    set q    [getuser $hand XTRA _LANG_OUT]

    if {$q == ""} {set z $say(lang.1.${id})} else { set z $say(lang.${q}.${id})}

    set w     [a:lang $z $arg]
    set nickk [string length $nick]
    

    set w [string map {%B \002 %b \00302 %r \00304 %% \003} $w]
    switch -exact -- $dir {

        pub {
            switch -exact -- [getuser $hand XTRA _PUB_OUT] {

                msg    {puthelp "PRIVMSG $nick :$w"}
                note    {puthelp "NOTICE $nick :$w"}
                default {puthelp "PRIVMSG $chan :$nick $w"}
            }
        }

        msg {
            switch -exact -- [getuser $hand XTRA _MSG_OUT] {
        
                chan    {puthelp "PRIVMSG $chan :$nick $w"}
                note    {puthelp "NOTICE $nick :$w"}
                default {puthelp "PRIVMSG $nick :$w"}
            }
        }
    }
}

2. In local voice.tcl cautati: ( a&a_26_a_local_v.tcl )

proc pub:chaninfo {hand chan args x mix} {

    set info ""

    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 "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 62]]"

    return "..."
}

si modificati cu:

proc pub:chaninfo {hand chan args x mix} {

    set info ""

    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 "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 62]]"
    a:tell $x 17 "[join [lrange [channel info $chan] 66 99]]"

    return "..."
}

Cam asta este Multumiri speciale lui Universalia @ #a&a si lsn @ #botland iar lu Starter @ #Who knows ii dati o bere ca a descoperit bugul si v-a picat botii

[UniversaliA]

Merci, KShadow, ca ai postat, dar putin te-ai grabit. Dar daca ai inceput totusi tu tema, sa o continuam.

Deci, toti care folosesc a&a light, pentru moment puteti aplica solutia publicata mai sus. Pana la sfarsitul saptamanii va fi release nou a&a light, in care printre multe altele, va fi corectat si acest bug.

Merci mult lui Starter pentru ca a descoperit acest bug, pentru moment sunt numai 3 persoane exploata acest bug, respectiv pana la sfarsitul saptamanii aceasta informatie va deveni obsoleta.

P.S. Starter a promis sa nu se mai joace si sa pice botii :)