Si gusta tener los canales Automáticamente, o que usas un Bot en especial, te vendría genial este AutoJoin, así si se desconecta tu Bot y se conecta, rápidamente ira a la salas que están en la lista.
;AutoJoin
Alias Cmd {
/set %DB $+(DB\,$network)
/set %Auto $+(%DB,\AutoJoin.txt)
If ( $exists(%DB) == $false ) { /mkdir %DB }
If ( $1 == Ajoin ) {
/inc -u300 %a 1
while ( %a <= $lines(%Auto) ) {
If ( %b == $null ) { /set -u60 %b 5 }
If ( $me !ison $read(%Auto,%a) ) {
/timer 1 %b .join -n $read(%Auto,%a)
/set -u60 %b $calc((%b) + 5)
}
/inc %a
}
/unset %a %b
}
Elseif ( $1 == Lista ) {
If ( $exists(%Auto) == $true ) {
/msg $2 • Lista de AutoJoin •
/play $2 %Auto 2000
}
Else { /msg $2 • Lista de AutoJoin No existe • }
}
Elseif ( $1 == Add ) {
If ( $3 == $null ) { /msg $2 • $2 • Dame una sala para añadir. }
Elseif ( $3 != $null ) {
If ( $read(%Auto,w,$3) == $null ) {
/write %Auto $3 $4
/msg $2 • $2 • Listo, la sala $3 añadida en mi lista.
If ( $me !ison $3 ) { /join $3 | /describe $3 Este canal esta en mi AutoJoin por $2 : si necesitas ayuda pon !Ayuda. }
}
Elseif ( $read(%Auto,w,$3) != $null ) { /msg $2 • $2 • Esa sala ya esta en mi lista. }
}
}
Elseif ( $1 == Del ) {
If ( $3 == $null ) { /msg $chan • $2 • Dame una sala para eliminar. }
Elseif ( $3 != $null ) {
If ( $read(%Auto,w,$3) != $null ) {
/write -ds $+ $read(%Auto,w,$3) %Auto
/msg $2 • $2 • Listo, la sala $3 eliminada de mi lista.
If ( $me ison $3 ) { /part $3 Este canal fue eliminado de mi AutoJoin por $2 : si hay dudas o problema, puede comunicarse con un Oper. }
}
Elseif ( $read(%Auto,w,$3) == $null ) { /msg $2 • $2 • Esa sala no esta en mi lista. }
}
}
}
On *:CONNECT: { /Cmd Ajoin }
On $*:TEXT:/[!.@]Auto*/Si:*: {
If ( $level($nick) >= 100 ) {
If ( $1 == !Auto ) || ( $1 == .Auto ) || ( $1 == @Auto ) {
If ( $2 == Lista ) { /Cmd Lista $nick }
Elseif ( $2 == Entra ) { /Cmd Ajoin }
Elseif ( $2 == Add ) { /Cmd Add $nick $3 $4 }
Elseif ( $2 == Del ) { /Cmd Del $nick $3 }
Else { /msg $nick • $nick • !Auto (Lista|Entra|Add|Del) }
}
}
}