Esté es un AutoJoin o mejor conocido como 'Entrada Automatica'.
No hay mucho que decir, es simple y rápido de usar, solo debes ponerlo en tu mIRC o IRCap.
No te dará Error o Fallo (conocido como Glitch), no causará problemas con otros scripts.
Cualquier cosa, pueden dejarme un comentario.
Pasen una vida feliz.
/*
AutoJoin
He estado un tiempo trabajando en este AutoJoin (EntradaAutomatica),
lo he mejorado, con menos codigos y más simple de usar.
Se puede mejorar de miles de formas, pero eso queda en cada persona,
he hecho lo que podía con esté script.
Cualquier cosa, eres o son libres de modificar y hacer los cambios que gusten.
—Ultima actualización: Lunes 03 de Enero, del 2022.
Att: Vickito.
*/
Alias Cmd {
/set %DB $+(DB\,$network,\)
/set %Auto $+(%DB,AutoJoin.txt)
If ($exists(%DB) == $false) { /mkdir %DB }
If ($1 == Ajoin) {
if (%Ajoin:Bug == $null) {
/set -z %Ajoin:Bug $calc($len(%Auto) * 4)
/inc -u300 %Time:A 1
while (%Time:A <= $lines(%Auto)) {
If (%Time:B == $null) { /set -u60 %Time:B 5 }
If ($me !ison $read(%Auto,%Time:A)) {
/timer 1 %Time:B /join -n $read(%Auto,%Time:A)
/set -u60 %Time:B $calc((%Time:B) + 5)
}
/inc %Time:A
}
/unset %Time:*
}
}
Elseif ($1 == Lista) {
if (%Lista:Bug [ $+ [ $2 ] ] == $null) {
/set -z %Lista:Bug $+ $2 30
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) {
/set %Auto:Add $iif($chr(35) isin $3, $3, $chr(35) $+ $3)
If ($read(%Auto, w, %Auto:Add) == $null) {
/write %Auto %Auto:Add
/msg $2 • $2 • Listo, la sala %Auto:Add añadida en mi lista.
If ($me !ison %Auto:Add) {
/join -n %Auto:Add
/describe $3 Este canal esta en mi AutoJoin por %Auto:Add $+ . Si necesitas ayuda pon !Ayuda.
}
}
Elseif ($read(%Auto, w, %Auto:Add) != $null) { /msg $2 • $2 • Esa sala ya esta en mi lista. }
}
/unset %Auto:Add
}
Elseif ($1 == Del) {
If ($3 == $null) { /msg $chan • $2 • Dame una sala para eliminar. }
Elseif ($3 != $null) {
/set %Auto:Del $iif($chr(35) isin $3, $3, $chr(35) $+ $3)
If ($read(%Auto, w, %Auto:Del) != $null) {
/write -ds $+ $read(%Auto, w, %Auto:Del) %Auto
/msg $2 • $2 • Listo, la sala %Auto:Del eliminada de mi lista.
If ($me ison %Auto:Del) { /part %Auto:Del Este canal fue eliminado. Por: $2 $+ . }
}
Elseif ($read(%Auto, w, %Auto:Del) == $null) { /msg $2 • $2 • Esa sala no esta en mi lista. }
}
/unset %Auto:Del
}
}
On *:CONNECT: { /Cmd Ajoin }
On *:TEXT:*:*: {
If ($level($nick) >= 100) {
If ($1 == !Auto) || ($1 == .Auto) || ($1 == @Auto) {
If ($2 == Lista) { /Cmd Lista $iif($nick ison $chan, $chan, $nick) }
Elseif ($2 == Entra) { /Cmd Ajoin }
Elseif ($2 == Add) {
if ($3 == $null) { /msg $iif($nick ison $chan, $chan, $nick) Debes especificar una sala. }
else { /Cmd Add $iif($nick ison $chan, $chan, $nick) $3 }
}
Elseif ($2 == Del) {
if ($3 == $null) { /msg $iif($nick ison $chan, $chan, $nick) Debes especificar una sala. }
else { /Cmd Del $iif($nick ison $chan, $chan, $nick) $3 }
}
Else { /msg $iif($nick ison $chan, $chan, $nick) • $nick • !Auto (Lista|Entra|Add|Del) }
}
}
}