AUTODOWNLOAD COME FARE?

;***
;***   NewAutoDownLoader Script
;***   v 2.0                    
;***   by BuNbUrY
;***   For #SoundWarez User on AzzurraNet      
;***   Irc.Azzurra.org      
;***

;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Comando Principale ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;

alias autodown {
 var %­servername = $3
 var %­nick = $2
 ;Attiva Impostazioni AutoDown
 if ( $1 == on ) && ( $istok( %autodowns , $+( %­nick,§,%­servername ) , 32 ) == $false ) {
   set $+(%,auto§,%­servername,§,%­nick,§,numeri) $6-
   set $+(%,auto§,%­servername,§,%­nick,§,tipo) $5
   set $+(%,auto§,%­servername,§,%­nick,§,canale) $4
   set %autodowns $addtok( %autodowns , $+( %­nick,§,%­servername ) , 32 )
   .auser -a Adown %­nick
   ;Avvia AutoDown se c'è il bot
   if ( %­nick ison $4 ) {    
     set $+(%,auto§,%­servername,§,%­nick,§,stato) 1
     tokenize 32 [ % $+ [ $+(auto§,%­servername,§,%­nick,§,numeri) ] ]
     .timer $+ $+(%­servername,§,%­nick) 0 300 .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] send $1
     .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] send $1
   }
   else { set $+(%,auto§,%­servername,§,%­nick,§,stato) 5 }
 }
 ;Disattiva AutoDown
 elseif ( $1 == off ) && ( $istok( %autodowns , $+( %­nick,§,%­servername ) , 32 ) == $true) {
   if ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 1 ) .timer $+ $+(%­servername,§,%­nick) off
   elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 2 ) { .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] remove | unset $+(%,auto§,%­servername,§,%­nick,§,coda) }
   elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 3 ) .close -g %­nick
   unset [ % $+ [ $+(auto§,%­servername,§,%­nick,§)] $+ * ]
   set %autodowns $remtok( %autodowns , $+( %­nick,§,%­servername ) , 1 , 32 )
   .ruser Adown %­nick
   echo 6 -s *** Autodownload Rimosso per il Bot %­nick sulla rete di %­servername ***
 }
 ;Errore se mancano dati
 elseif ( $1 == on ) && ( $istok( %autodowns , $+( %­nick,§,%­servername ) , 32 ) == $true ) {
   set -u5 %­texterror Esiste già un AutoDownLoad per quel Bot!
   dialog -m Errore Errore
 }
}

;Riattiva AutoDown
alias attivaauto {
 var %­nick = $1
 var %­servername = $2
 if ( %­nick ison [ % $+ [ $+(auto§,%­servername,§,%­nick,§,canale) ] ] ) {
   set $+(%,auto§,%­servername,§,%­nick,§,stato) 1
   tokenize 32 [ % $+ [ $+(auto§,%­servername,§,%­nick,§,numeri) ] ]
   .timer $+ $+(%­servername,§,%­nick) 0 300 .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] send $1
   .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] send $1
 }
 else { set $+(%,auto§,%­servername,§,%­nick,§,stato) 5 }
}

;Pausa AutoDown
alias pausaauto {
 var %­nick = $1
 var %­servername = $2
 unset $+(%,auto§,%­servername,§,%­nick,§,coda)
 if ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 1 ) .timer $+ $+(%­servername,§,%­nick) off
 elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 2 ) .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] remove
 elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 3 ) .close -g %­nick
 set $+(%,auto§,%­servername,§,%­nick,§,stato) 4
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; \Comando Principale ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;
;;; Notice ;;;
;;;;;;;;;;;;;;

;Segna Coda
on ^Adown:notice:*Added*you*to*queue*:?: {
 var %­servername = $network
 echo 6 -s *** Sei ora in Coda in posizione $left( $13 , -1 ) per il Pacchetto che avevi richiesto sul bot $nick ***
 .timer $+ $+(%­servername,§,$nick) off
 set $+(%,auto§,%­servername,§,$nick,§,stato) 2
 set $+(%,auto§,%­servername,§,$nick,§,coda) $left( $13 , -1 )
 halt
}

;Errore Pacchetto
on ^Adown:notice:*Invalid*Pack*Number*:?: {
 var %­servername = $network
 set $+(%,auto§,%­servername,§,$nick,§,stato) 5
 echo 6 -s *** Il Pacchetto che avevi richiesto sul bot $nick non esiste ***
 if ( $numtok( [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ] , 32 ) == 1 ) autodown off $nick %­servername
 else {
   set $+(%,auto§,%­servername,§,$nick,§,numeri) $deltok( [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ] , 1 , 32 )
   .timer $+ $+(%­servername,§,$nick) off
   set $+(%,auto§,%­servername,§,$nick,§,stato) 1
   tokenize 32 [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ]
   .timer $+ $+(%­servername,§,$nick) 0 300 .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
   .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
 }
 halt
}

on ^Adown:notice:*You*can*only*have*at*a*time*: ?: { halt }

;Aggiorna Coda
on ^Adown:notice:*You*Have*Been*Queued*:?: {
 var %­servername = $network
 echo 6 -s *** Sei in AutoDownload sul Bot $nick $+ . Sei in posizione $15 su $17 Il tempo previsto per il tuo send è di $22 ore e $24 minuti. ***
 set $+(%,auto§,%­servername,§,$nick,§,stato) 2
 set $+(%,auto§,%­servername,§,$nick,§,coda) $15
 halt
}

;Priorità Coda
on ^Adown:notice:*Due*to*your*priority*you*have*been*:?: {
 var %­servername = $network
 echo 6 -s *** Grazie ai privilegi a te concessi hai raggiunto la posizione $left( $16 , -1 ) ***
 set $+(%,auto§,%­servername,§,$nick,§,stato) 2
 set $+(%,auto§,%­servername,§,$nick,§,coda) $left( $16 , -1 )
 halt
}

;Segna Invio
ctcp Adown:*dcc send*:?: {
 var %­servername = $network
 .timer $+ $+(%­servername,§,$nick) off
 set $+(%,auto§,%­servername,§,$nick,§,stato) 3
 unset $+(%,auto§,%­servername,§,$nick,§,coda)
}

;Già Coda
on ^Adown:notice:*You*already*have*item*queued.*:?: {
 var %­servername = $network
 .timer $+ $+(%­servername,§,$nick) off
 set $+(%,auto§,%­servername,§,$nick,§,stato) 2
 halt
}

;Già Coda
on ^Adown:notice:*You*already*requested*pack*:?: {
 var %­servername = $network
 .timer $+ $+(%­servername,§,$nick) off
 set $+(%,auto§,%­servername,§,$nick,§,stato) 3
 halt
}

on ^Adown:notice:*All*Slots*Full,*Main*queue*of*size*is*Full,*Try*Again*Later*: { halt }

on ^Adown:notice:*Your*pack*has*transfer*bandwidth*:?: {
 echo 6 -s *** Wow!! Sei velocissimo ( $11 ) $+ , peṛ la banda del bot è limitata a $13 $+ . :(( ***
 halt
}

;Segna Invio
on ^Adown:notice:*Sending*You*Pack*:?: {
 var %­servername $network
 set $+(%,auto§,%­servername,§,$nick,§,stato) 3
 .timer $+ $+(%­servername,§,$nick) off
 unset $+(%,auto§,%­servername,§,$nick,§,coda)
 halt
}

on ^Adown:notice:*Transfer*Completed*:?: halt

on ^Lista:notice:*pack*slot*:?: {
 did -o Autodown 17 1 $2
 did -o Autodown 19 1 $5 $+ / $+ $7
 if ( Queue isin $1- ) did -o Autodown 18 1 $11
 else did -o Autodown 18 1 Vuota
 halt
}

on ^Lista:notice:*bandwidth*usage*:?: {
 did -o Autodown 25 1 $left( $6 , -1 ) / $left( $8 , -1 )
 halt
}

on ^Lista:notice:*to request*file*:?: halt

on ^Lista:notice:*total*offered*:?: halt

on ^Lista:notice:*ir0ffer*script*by*cocco82*:?: halt

on ^Lista:notice:*Ak4r0*f0r*#SoundWarez*:?: halt

on ^Lista:notice:*ir0ffer*bot*offerto*:?: halt

on ^Lista:notice:*#*:?: {
 var %­read.text = $strip( $1- )
 tokenize 32 %­read.text
 if ( $right( $1 , -1 ) isnum ) {
   did -a Autodown 16 $right( $1 , -1 )
   if ( ( M isin $4 ) || ( K isin $4 )) && ( ] isin $4 ) did -a Autodown 14  $5- ** [ $4 **
   else did -a Autodown 14  $4- ** $3 **
 }
 halt
}

;;;;;;;;;;;;;;;
;;; \Notice ;;;
;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;
;;; Eventi ;;;
;;;;;;;;;;;;;;

on Adown:part:#: {
 var %­servername = $network
 if ( [ % $+ [ $+(auto§,%­servername,§,$nick,§,canale) ] ] == # ) {
   if ( [ % $+ [ $+(auto§,%­servername,§,$nick,§,stato) ] ] == 1 ) .timer $+ $+(%­servername,§,$nick) off
   if ( [ % $+ [ $+(auto§,%­servername,§,$nick,§,stato) ] ] != 4 ) set $+(%,auto§,%­servername,§,$nick,§,stato) 5
 }
}

on Adown:quit: {
 var %­servername = $network
 if ( [ % $+ [ $+(auto§,%­servername,§,$nick,§,stato) ] ] == 1 ) .timer $+ $+(%­servername,§,$nick) off
 if ( [ % $+ [ $+(auto§,%­servername,§,$nick,§,stato) ] ] != 4 ) set $+(%,auto§,%­servername,§,$nick,§,stato) 5
}

on Adown:FILERCVD:*.*: {
 var %­servername = $network
 set $+(%,auto§,%­servername,§,$nick,§,stato) 5
 echo 6 -s *** File $filename Scaricato dall' $+ %autoversion ***
 if ( $numtok( [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ] , 32 ) == 1 ) autodown off $nick %­servername
 else {
   set $+(%,auto§,%­servername,§,$nick,§,stato) 1
   set $+(%,auto§,%­servername,§,$nick,§,numeri) $deltok( [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ] , 1 , 32 )
   tokenize  32 [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ]
   .timer $+ $+(%­servername,§,$nick) 0 300 .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
   .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
 }
}

on Adown:GETFAIL:*.*: {
 var %­servername = $network
 if ( $nick ison [ % $+ [ $+(auto§,%­servername,§,$nick,§,canale) ] ] ) {
   set $+(%,auto§,%­servername,§,$nick,§,stato) 1
   tokenize  32 [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ]
   .timer $+ $+(%­servername,§,$nick) 0 300 .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
   .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
 }
 else set $+(%,auto§,%­servername,§,$nick,§,stato) 5
}

on Adown:join:#: {
 var %­servername = $network
 if ( # == [ % $+ [ $+(auto§,%­servername,§,$nick,§,canale) ] ] ) && ( [ % $+ [ $+(auto§,%­servername,§,$nick,§,stato) ] ] != 4 ) {
   tokenize 32 [ % $+ [ $+(auto§,%­servername,§,$nick,§,numeri) ] ]
   set $+(%,auto§,%­servername,§,$nick,§,stato) 1
   .timer $+ $+(%­servername,§,$nick) 0 300 .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
   .msg $nick [ % $+ [ $+(auto§,%­servername,§,$nick,§,tipo) ] ] send $1
 }
}

on *:join:#: {
 if ( $nick == $me ) && ( $numtok( %autodowns , 32) != 0 ) {
   .timer $+ $+($network,§,#) $+ aggiojoin 1 5 aggiojoin # $network
 }
}

alias aggiojoin {
 var %­net $2
 var %chan $1
 var %­x = 1
 while ( $gettok( %autodowns , %­x , 32 ) ) {
   tokenize 167 $gettok( %autodowns , %­x , 32 )
   var %­nick = $1
   var %­servername = $2
   if ( %­net == %­servername ) {
     if ( %chan == [ % $+ [ $+(auto§,%­servername,§,%­nick,§,canale) ] ] ) {
       if ( %­nick ison %chan ) {
         set $+(%,auto§,%­servername,§,%­nick,§,stato) 1
         tokenize  32 [ % $+ [ $+(auto§,%­servername,§,%­nick,§,numeri) ] ]
         .timer $+ $+(%­servername,§,%­nick) 0 300 .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] send $1
         .msg %­nick [ % $+ [ $+(auto§,%­servername,§,%­nick,§,tipo) ] ] send $1
       }
       else { set $+(%,auto§,%­servername,§,%­nick,§,stato) 5 }
     }
   }
   inc %­x
 }
}    

on *:connect: if ( $network == Azzurra ) timercontrol 0 60 joina

alias joina {
 if ( $network == Azzurra ) && ( !$chan(#soundwarez)) { join #soundwarez }
}

on *:load: {
 set %autoversion NewAutoDownLoader Script v 2.0 by BuNbUrY
 echo 4 -s *** %autoversion Loaded ***
 cnick * 7 * Adown
}

ctcp *:versionauto:*: ctcp $nick *** %autoversion ***

;;;;;;;;;;;;;;;
;;; \Eventi ;;;
;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;
;;; Dialogs ;;;
;;;;;;;;;;;;;;;

;;; Errore

dialog Errore {
 title "Errore"
 size -1 -1 150 45
 option dbu
 button "Ok", 1, 57 28 37 12, ok cancel
 text "", 2, 8 8 130 20, center
}

on *:dialog:Errore:init:0: {
 did -a Errore 2 %­texterror
}

;;; \Errore

;;; StartAuto

dialog Autodown {
 title "Attivazione Autodown"
 size -1 -1 375 160
 option dbu
 edit "", 1, 99 33 24 10, center autohs
 combo 2, 99 48 25 50, size vsbar drop
 text "Nome Bot", 4, 10 8 80 8, center
 text "Canale ( con # )", 5, 10 20 80 8, center
 edit "", 6, 96 7 90 10, center autohs
 edit "", 7, 96 19 90 10, center autohs
 button "Rimuovi", 8, 130 48 37 12
 button "Aggiungi", 9, 130 33 37 12
 button "Annulla", 10, 144 142 37 12, cancel
 text "Inserisci i Numeri 1 alla volta", 11, 10 34 80 8, center
 text "Per Rimuovere Seleziona il numero", 3, 8 49 86 8, center
 button "Scarica", 12, 197 142 37 12, ok
 text "", 13, 251 34 21 8, center
 list 14, 39 62 329 58, size vsbar
 button "Scarica Lista", 15, 10 124 308 12
 button "Stop", 29, 318 124 50 12
 list 16, 10 62 25 59, size vsbar
 text "", 17, 251 50 21 8, center
 text "", 18, 307 34 21 8, center
 text "Code:", 20, 276 34 25 8
 text "Slot Liberi:", 21, 276 43 29 8
 text "Numero Pacchetti nel Bot:", 22, 174 50 64 8  
 text "", 19, 307 43 21 8, center
 text "Numero Pacchetti in Autodown:", 23, 173 34 76 8
 text "Bandwidth:", 24, 276 52 30 8
 text "", 25, 307 52 60 8
 text "Tipo di Bot:", 26, 229 7 32 8
 radio "XDCC Bot", 27, 264 7 50 10
 radio "CUNT Bot", 28, 264 17 50 10
}

on *:dialog:Autodown:init:0: {
 did -c Autodown 27
 var %­servername = $network
 if ( $istok( %autodowns , $+( %autonick,§,%­servername ) , 32 ) == $true ) {
   set -u5 %­texterror Attenzione!! Esiste già un AutoDownLoad per quel Bot. Cancellare prima quello esistente!
   dialog -mo Errore Errore
 }
 did -o Autodown 13 1 0
 did -o Autodown 17 1 0
 did -o Autodown 18 1 0/0
 did -o Autodown 25 1 0/0
 did -o Autodown 19 1 0/0
 did -t Autodown 9
 if ( %autochan ) { did -a Autodown 7 %autochan | unset %autochan }
 if ( %autonick ) {
   did -a Autodown 6 %autonick
   unset %autonick
   did -f Autodown 1
   did -b Autodown 12
 }
 else { did -f Autodown 6 }
 if ( $did(6) !ison $did(7) ) || ( $me !ison $did(7) ) { did -b Autodown 15 }
}

on *:dialog:Autodown:edit:6: {
 if ( $did(6) ) && ( #* iswm $did(7) ) && ( $did( 13 ) != 0  ) { did -e Autodown 12 }
 if ( $did(6) ison $did(7) ) && ( $me ison $did(7) ) { did -e Autodown 15 }
 else { did -b Autodown 15 }
}

on *:dialog:Autodown:edit:7: {
 if ( $did(6) ) && ( #* iswm $did(7) ) && ( $did( 13 ) != 0  ) { did -e Autodown 12 }
 if ( $did(6) ison $did(7) ) && ( $me ison $did(7) ) { did -e Autodown 15 }
 else { did -b Autodown 15 }
}

on *:dialog:Autodown:sclick:9: {
 if ( $did( 1 ) isnum ) && ( !$istok( $didtok( Autodown, 2 , 32 ) , $did( 1 ) , 32 ) ) {
   did -a Autodown 2 $did( 1 )
   did -r Autodown 1
   did -f Autodown 1
   did -o Autodown 13 1 $did( 2 ).lines
 }
 else {
   did -r Autodown 1
   did -f Autodown 1
 }
 if ( $did(6) ) && ( #* iswm $did(7) ) && ( $did( 13 ) != 0  ) { did -e Autodown 12 }
}

on *:dialog:Autodown:sclick:8: {
 if ( $did( 2 , 0 ).sel >= 1 ) {
   var %autonum = $didtok( Autodown , 2 , 32 )
   var %autosel = $did( Autodown , 2 ).seltext
   did -r Autodown 2
   didtok Autodown 2 32 $remtok( %autonum , %autosel  ,  1 , 32 )
   did -o Autodown 13 1 $did( 2 ).lines
 }
 if ( $did( 13 ) == 0 ) { did -b Autodown 12 }
}

on *:dialog:Autodown:sclick:12: { autodown on $did( 6 ) $network $did( 7 ) $iif( $did( 27 ).state == 1 , xdcc , cunt ) $didtok( Autodown , 2 , 32 ) }

on *:dialog:Autodown:sclick:15: {
 did -r Autodown 14,16,17,18,19,25
 .auser -a Lista $did(6)
 .msg $did(6) $iif( $did( 27 ).state == 1 , xdcc , cunt ) list
}

on *:dialog:Autodown:sclick:29: {
 .msg $did(6) xdcc stop
}

on *:dialog:Autodown:sclick:14: {
 did -c Autodown 16 $did( 14 ,1 ).sel
}

on *:dialog:Autodown:sclick:16: {
 did -c Autodown 14 $did( 16 , 1 ).sel
}

on *:dialog:Autodown:dclick:16: {
 if ( !$istok( $didtok( Autodown, 2 , 32 ) , $did( 16 ).seltext , 32 ) ) {
   did -a Autodown 2 $did( 16 ).seltext
   did -o Autodown 13 1 $did( 2 ).lines
 }
 if ( $did(6) ) && ( #* iswm $did(7) ) && ( $did( 13 ) != 0  ) { did -e Autodown 12 }
}

on *:dialog:Autodown:dclick:14: {
 if ( !$istok( $didtok( Autodown, 2 , 32 ) , $did( 16 ).seltext , 32 ) ) {
   did -a Autodown 2 $did( 16 ).seltext
   did -o Autodown 13 1 $did( 2 ).lines
 }
 if ( $did(6) ) && ( #* iswm $did(7) ) && ( $did( 13 ) != 0  ) { did -e Autodown 12 }
}

on *:dialog:Autodown:close:0: {
 .ruser Lista $did(6)
}

;;; \StartAuto

;;; Status

dialog AutodownList {
 title "Lista Degli AutoDownLoad Attivi"
 size -1 -1 285 125
 option dbu
 list 1, 10 20 80 80, size
 list 2, 100 20 80 80, size
 text "Nicks", 3, 37 10 20 8, center
 text "Server ", 4, 133 10 20 8, center
 button "Rimuovi AutoDownLoad", 5, 61 110 60 10
 button "Ok", 6, 227 110 40 10, ok
 button "Annulla", 7, 17 110 40 10, cancel
 list 8, 248 20 30 80, size vsbar
 text "Numeri", 9, 252 9 20 8, center
 list 10, 185 20 60 80, size
 text "Stato", 11, 210 9 17 8
 button "Pausa", 12, 124 110 48 10
 button "Attiva", 13, 175 110 48 10
}

on *:dialog:Autodownlist:init:0: {
 did -b Autodownlist 5,12,13
 tokenize 32 %autodowns
 var %­x = 1
 while ( [ $ $+ [ %­x ] ] ) {
   tokenize 167 [ $ $+ [ %­x ] ]
   did -a AutoDownList 1 $1
   did -a AutoDownList 2 $2
   var %­nick = $1
   var %­servername = $2
   if ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 1 ) did -a AutoDownList 10 In Richiesta
   elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 2 ) did -a AutoDownList 10 In Coda per [ % $+ [ $+(auto§,%­servername,§,%­nick,§,coda) ] ]
   elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 3 ) did -a AutoDownList 10 In Ricezione $get(%­nick).pc $+ %
   elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 4 ) did -a AutoDownList 10 In Pausa
   elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 5 ) did -a AutoDownList 10 Bot Mancante
   inc %­x
   tokenize 32 %autodowns
 }
}

on *:dialog:AutodownList:Sclick:2: {
 did -e AutodownList 5
 did -c AutodownList 1 $did( 2 , 1 ).sel
 did -c AutodownList 10 $did( 2 , 1 ).sel
 did -r AutodownList 8
 didtok AutodownList 8 32 [ % $+ [ $+(auto§,$did( 2 ).seltext,§,$did( 1 ).seltext,§,numeri) ] ]
 if ( [ % $+ [ $+(auto§,$did( 2 ).seltext,§,$did( 1 ).seltext,§,stato) ] ] == 4 ) did -e AutodownList 13
 else did -e AutodownList 12
}

on *:dialog:AutodownList:Sclick:1: {
 did -e AutodownList 5
 did -c AutodownList 2 $did( 1 , 1 ).sel
 did -c AutodownList 10 $did( 1 , 1 ).sel
 did -r AutodownList 8
 didtok AutodownList 8 32 [ % $+ [ $+(auto§,$did( 2 ).seltext,§,$did( 1 ).seltext,§,numeri) ] ]
 if ( [ % $+ [ $+(auto§,$did( 2 ).seltext,§,$did( 1 ).seltext,§,stato) ] ] == 4 ) did -e AutodownList 13
 else did -e AutodownList 12
}

on *:dialog:AutodownList:Sclick:10: {
 did -e AutodownList 5
 did -c AutodownList 2 $did( 10 , 1 ).sel
 did -c AutodownList 1 $did( 10 , 1 ).sel
 did -r AutodownList 8
 didtok AutodownList 8 32 [ % $+ [ $+(auto§,$did( 2 ).seltext,§,$did( 1 ).seltext,§,numeri) ] ]
 if ( [ % $+ [ $+(auto§,$did( 2 ).seltext,§,$did( 1 ).seltext,§,stato) ] ] == 4 ) did -e AutodownList 13
 else did -e AutodownList 12
}

on *:dialog:AutodownList:Sclick:5: {
 autodown off $did( 1 ).seltext $did( 2 ).seltext
 did -d AutodownList 1 $did( 1 , 1 ).sel
 did -d AutodownList 2 $did( 2 , 1 ).sel
 did -d AutodownList 10 $did( 10 , 1 ).sel
 did -r AutodownList 8

}

on *:dialog:AutodownList:Dclick:1: {
 set %autonick $did( AutoDownList , 1 ).seltext
 set %autoserv $did( AutoDownList , 2 ).seltext
 dialog -m AutodownMod AutodownMod
}

on *:dialog:AutodownList:Dclick:2: {
 set %autonick $did( AutoDownList , 1 ).seltext
 set %autoserv $did( AutoDownList , 2 ).seltext
 dialog -m AutodownMod AutodownMod
}

on *:dialog:AutodownList:Dclick:10: {
 set %autonick $did( AutoDownList , 1 ).seltext
 set %autoserv $did( AutoDownList , 2 ).seltext
 dialog -m AutodownMod AutodownMod
}

on *:dialog:AutodownList:Dclick:8: {
 set %autonick $did( AutoDownList , 1 ).seltext
 set %autoserv $did( AutoDownList , 2 ).seltext
 dialog -m AutodownMod AutodownMod
}

on *:dialog:AutodownList:Sclick:12:{
 pausaauto $did( AutoDownList , 1 ).seltext $did( AutoDownList , 2 ).seltext
 did -o AutoDownList 10 $did(1,1).sel In Pausa
 did -e AutoDownList 13
 did -b AutoDownList 12
 did -c AutoDownList 10 $did(1,1).sel
}

on *:dialog:AutodownList:Sclick:13:{
 attivaauto $did( AutoDownList , 1 ).seltext $did( AutoDownList , 2 ).seltext
 .timer 1 2 aggio $did( AutoDownList , 1 ).seltext $did( AutoDownList , 2 ).seltext
 did -o AutoDownList 10 $did(10,1).sel Aggiornamento...
}

alias aggio {
 var %­nick = $1
 var %­servername = $2
 if ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 1 ) did -o AutoDownList 10 $did(AutoDownList,1,1).sel In Richiesta
 elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 2 ) did -o AutoDownList 10 $did(AutoDownList,1,1).sel In Coda per [ % $+ [ $+(auto§,%­servername,§,%­nick,§,coda) ] ]
 elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 3 ) did -o AutoDownList 10 $did(AutoDownList,1,1).sel In Ricezione $get(%­nick).pc $+ %
 elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 4 ) did -o AutoDownList 10 $did(AutoDownList,1,1).sel In Pausa
 elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 5 ) did -o AutoDownList 10 $did(AutoDownList,1,1).sel Bot Mancante

 if ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 1 ) did -o AutoDownList 10 $did(AutoDownList,1,1).sel In Richiesta
 elseif ( [ % $+ [ $+(auto§,%­servername,§,%­nick,§,stato) ] ] == 5 ) did -o AutoDownList 10 $did(AutoDownList,1,1).sel Bot Mancante
 did -e AutoDownList 12
 did -b AutoDownList 13
 did -c AutoDownList 10 $did(AutoDownList,1,1).sel
}

;;; \Status

;;; Modifica

dialog AutoDownMod {
 title "Modifica Autodown"
 size -1 -1 141 88
 option dbu
 edit "", 1, 75 25 60 10
 edit "", 2, 75 40 19 10
 combo 3, 100 40 21 50, size drop
 text "Canale", 5, 10 25 60 10, center
 text "Numeri", 6, 10 40 60 10, center
 text "0", 7, 125 40 10 10, center
 button "Modifica", 8, 75 70 60 12, ok
 button "Annulla", 9, 10 70 60 12, cancel
 text "Nick", 10, 10 10 60 10, center
 text "Server", 12, 75 10 60 10, center
 button "Rimuovi", 11, 75 55 60 12
 button "Aggiungi", 13, 10 55 60 12
}

on *:dialog:AutoDownMod:init:0: {
 did -o AutoDownMod 10 1 %autonick
 did -o AutoDownMod 12 1 %autoserv
 did -o AutoDownMod 1 1 [ % $+ [ $+(auto§,%autoserv,§,%autonick,§,canale) ] ]
 didtok AutodownMod 3 32 [ % $+ [ $+(auto§,%autoserv,§,%autonick,§,numeri) ] ]
 did -t AutoDownMod 13
 did -f AutoDownMod 2
 did -o AutoDownMod 7 1 $did( 3 ).lines
}

on *:dialog:AutoDownMod:Sclick:13: {
 if ( $did( 2 ) isnum ) && ( !$istok( $didtok( AutodownMod , 3 , 32 ) , $did( 2 ) , 32 ) ) {
   did -a AutodownMod 3 $did( 2 )
   did -r AutodownMod 2
   did -f AutodownMod 2
   did -o AutodownMod 7 1 $did( 3 ).lines
 }
 else {
   did -r AutodownMod 2
   did -f AutodownMod 2
 }
 if ( $did( 7 ) != 0 ) { did -e AutoDownMod 8 }
}

on *:dialog:AutoDownMod:edit:1: {
 if ( #* !iswm $did( 1 ) ) did -b AutodownMod 8
 else { did -e AutoDownMod 8 }
}

on *:dialog:AutodownMod:sclick:11: {
 if ( $did( 3 , 0 ).sel >= 1 ) {
   var %autonum = $didtok( AutodownMod , 3 , 32 )
   var %autosel = $did( AutodownMod , 3 ).seltext
   did -r AutodownMod 3
   didtok AutodownMod 3 32 $remtok( %autonum , %autosel  ,  1 , 32 )
   did -o AutodownMod 7 1 $did( 3 ).lines
 }
 if ( $did( 7 ) == 0 ) { did -b AutodownMod 8 }
}

on *:dialog:AutoDownMod:Sclick:8: {
 tokenize 32 [ % $+ [ $+(auto§,%autoserv,§,$autonick,§,numeri) ] ]
 if ( $1 != $did( 3 , 1 ) ) {
   set $+(%,auto§,%autoserv,§,%autonick,§,numeri) $didtok( AutoDownMod , 3 , 32 )
   set $+(%,auto§,%autoserv,§,%autonick,§,canale) $did( 1 )
   if ( [ % $+ [ $+(auto§,%autoserv,§,$autonick,§,stato) ] ] == 1 ) .timer $+ $+(%autoserv,§,%autonick) off
   elseif ( [ % $+ [ $+(auto§,%autoserv,§,$autonick,§,stato) ] ] == 2 ) .msg %autonick [ % $+ [ $+(auto§,%­servername,§,$autonick,§,tipo) ] ] remove
   elseif ( [ % $+ [ $+(auto§,%autoserv,§,$autonick,§,stato) ] ] == 3 ) .close -g %autonick
   tokenize  32 [ % $+ [ $+(auto§,%autoserv,§,$autonick,§,numeri) ] ]
   set $+(%,auto§,%autoserv,§,%autonick,§,stato) 1
   .timer $+ $+(%autoserv,§,%autonick) 0 300 .msg %autonick [ % $+ [ $+(auto§,%­servername,§,$autonick,§,tipo) ] ] send $1
   .msg %autonick [ % $+ [ $+(auto§,%­servername,§,$autonick,§,tipo) ] ] send $1
 }
 else {
   set $+(%,auto§,%autoserv,§,%autonick,§,numeri) $didtok( AutoDownMod , 3 , 32 )
   set $+(%,auto§,%autoserv,§,%autonick,§,canale) $did( 1 )
 }
 unset %autonick
 unset %autoserv
}

on *:dialog:AutoDownMod:Sclick:9: {
 unset %autonick
 unset %autoserv
}

;;; \Modifica

;;;;;;;;;;;;;;;;
;;; \Dialogs ;;;
;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;
;;; Popup ;;;
;;;;;;;;;;;;;

menu channel {
 -
 Avvia Autodown Sul Canale #: set %autochan # | /dialog -m autodown autodown
 Visualizza/Cancella AutoDowns: /dialog -m autodownlist autodownlist
}

menu nicklist {
 -
 Avvia AutoDown per il nick $$1: set %autochan # | set %autonick $$1 | dialog -m autodown autodown
 Visualizza/Cancella AutoDowns: /dialog -m autodownlist autodownlist
}

;;;;;;;;;;;;;;
;;; \Popup ;;;
;;;;;;;;;;;;;;

;***
;***   NewAutoDownLoader Script
;***   v 2.0
;***   by BuNbUrY
;***   For #SoundWarez User on AzzurraNet      
;***   Irc.Azzurra.org      
;***