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 )
Code:
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:
Code:
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 )
Code:
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:
Code:
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
