
on *:load:{
  set %enterparola on
  echo -a * Automess parola caricato con successo.
}

alias automess { /dialog -m stre.mess stre.mess }

dialog stre.mess {
  title "Messaggi Automatici )»Angel_Red_Script«("
  size -1 -1 490 350
  box "Auto-messaggi", 2, 10 10 470 335
  text "Imposta parole di input e frasi di output", 3, 42 30 300 20
  text "a = Abilita", 4, 410 30 90 20
  edit "", 38, 380 25 20 20
  text "1.", 5, 15 58 15 20
  edit "", 6, 42 55 50 20, autohs
  edit "", 39, 100 55 300 20, autohs
  text "2.", 7, 15 78 15 20
  edit "", 8, 42 75 50 20, autohs
  edit "", 40, 100 75 300 20, autohs
  text "3.", 9, 15 98 15 20
  edit "", 10, 42 95 50 20, autohs
  edit "", 41, 100 95 300 20, autohs
  text "4.", 11, 15 118 15 20
  edit "", 12, 42 115 50 20, autohs
  edit "", 42, 100 115 300 20, autohs  
  text "5.", 13, 15 138 20 20
  edit "", 14, 42 135 50 20, autohs
  edit "", 43, 100 135 300 20, autohs
  text "6.", 15, 15 158 15 20
  edit "", 16, 42 155 50 20, autohs
  edit "", 44, 100 155 300 20, autohs
  text "7.", 17, 15 178 15 20
  edit "", 18, 42 175 50 20, autohs
  edit "", 45, 100 175 300 20, autohs
  text "8.", 19, 15 198 15 20
  edit "", 20, 42 195 50 20, autohs
  edit "", 46, 100 195 300 20, autohs
  text "9.", 21, 15 218 15 20
  edit "", 22, 42 215 50 20, autohs
  edit "", 47, 100 215 300 20, autohs
  text "10.", 23, 15 238 15 25
  edit "", 34, 42 235 50 20, autohs
  edit "", 48, 100 235 300 20, autohs
  button "OK", 49, 40 310 60 30, ok default
  button "Cancella", 50, 110 310 65 30, cancel
  button "Applica", 51, 185 310 60 30
}

on *:dialog:stre.mess:init:0: {
  did -a stre.mess 6 %parola1 
  did -a stre.mess 8 %parola2
  did -a stre.mess 10 %parola3
  did -a stre.mess 12 %parola4
  did -a stre.mess 14 %parola5
  did -a stre.mess 16 %parola6
  did -a stre.mess 18 %parola7
  did -a stre.mess 20 %parola8
  did -a stre.mess 22 %parola9
  did -a stre.mess 34 %parola0 
  did -a stre.mess 39 %frase1 
  did -a stre.mess 40 %frase2
  did -a stre.mess 41 %frase3
  did -a stre.mess 42 %frase4
  did -a stre.mess 43 %frase5
  did -a stre.mess 44 %frase6
  did -a stre.mess 45 %frase7
  did -a stre.mess 46 %frase8
  did -a stre.mess 47 %frase9
  did -a stre.mess 48 %frase10 
  did -a stre.mess 38 %attivo999999999999  

}

on *:dialog:stre.mess:sclick:49:{
  set %parola1 $did(stre.mess,6)
  set %parola2 $did(stre.mess,8)
  set %parola3 $did(stre.mess,10)
  set %parola4 $did(stre.mess,12)
  set %parola5 $did(stre.mess,14)
  set %parola6 $did(stre.mess,16)
  set %parola7 $did(stre.mess,18)
  set %parola8 $did(stre.mess,20)
  set %parola9 $did(stre.mess,22)
  set %parola10 $did(stre.mess,34)
  set %frase1 $did(stre.mess,39)
  set %frase2 $did(stre.mess,40)
  set %frase3 $did(stre.mess,41)
  set %frase4 $did(stre.mess,42)
  set %frase5 $did(stre.mess,43)
  set %frase6 $did(stre.mess,44)
  set %frase7 $did(stre.mess,45)
  set %frase8 $did(stre.mess,46)
  set %frase9 $did(stre.mess,47)
  set %frase10 $did(stre.mess,48)
  set %attivo999999999999 $did(stre.mess,38)
}

on *:dialog:stre.mess:sclick:50:{
  set %parola1 $did(stre.mess,6)
  set %parola2 $did(stre.mess,8)
  set %parola3 $did(stre.mess,10)
  set %parola4 $did(stre.mess,12)
  set %parola5 $did(stre.mess,14)
  set %parola6 $did(stre.mess,16)
  set %parola7 $did(stre.mess,18)
  set %parola8 $did(stre.mess,20)
  set %parola9 $did(stre.mess,22)
  set %parola10 $did(stre.mess,34)
  set %frase1 $did(stre.mess,39)
  set %frase2 $did(stre.mess,40)
  set %frase3 $did(stre.mess,41)
  set %frase4 $did(stre.mess,42)
  set %frase5 $did(stre.mess,43)
  set %frase6 $did(stre.mess,44)
  set %frase7 $did(stre.mess,45)
  set %frase8 $did(stre.mess,46)
  set %frase9 $did(stre.mess,47)
  set %frase10 $did(stre.mess,48)
  set %attivo999999999999 $did(stre.mess,38)
}
on *:TEXT:*:#:{
  if (%parola1 isin $1-) && ( %frase1 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase1 } 
  if (%parola2 isin $1-) && ( %frase2 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase2 }
  if (%parola3 isin $1-) && ( %frase3 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase3 }
  if (%parola4 isin $1-) && ( %frase4 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase4 }
  if (%parola5 isin $1-) && ( %frase5 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase5 }
  if (%parola6 isin $1-) && ( %frase6 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase6 }
  if (%parola7 isin $1-) && ( %frase7 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase7 }
  if (%parola8 isin $1-) && ( %frase8 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase8 }
  if (%parola9 isin $1-) && ( %frase9 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase9 }
  if (%parola10 isin $1-) && ( %frase10 != $null ) && ( %attivo999999999999 == a ) { .ignore -u5 $nick | .notice $nick tra8 5 secondi ti tolgo dall'ignore | msg $chan $nick %frase10 }
