AutoJoin v2

By ViCom07 on Dec 24, 2020

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) }
    }
  }
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.