alias lod {
  if ($dialog(load) != $null) { dialog -x load load | dialog -m load load }
  else dialog -m load load
}

alias abt {
  if ($dialog(abt) != $null) { dialog -x abt abt | dialog -m abt abt }
  else dialog -m abt abt
}

alias ne {
  if ($dialog(ne) != $null) { dialog -x ne ne | dialog -m ne ne }
  else dialog -m ne ne
}


alias saggioman {
  if ($dialog(saggioman) != $null) { dialog -x saggioman saggioman | dialog -m saggioman saggioman }
  else dialog -m saggioman saggioman
}




menu status {
  -
  ! Saggio
  .Attiva: .enable #saggio | echo -s 8,1<<11,1 !4,1Saggio8,1 >> 11  attivo 
  .Disattiva: .disable #saggio | echo -s 8,1<<11,1 !4,1Saggio8,1 >> 11  non attivo
  .-
  .Opzioni del Saggio : saggioman
  .Help! : ne
  .About: abt
}

dialog load {
  title "Info"
  size -1 -1 120 48
  option dbu
  text "Addon caricato con successo!", 1, 7 6 106 11
  text "Troverai il menu cliccando col destro nello status...", 2, 7 16 106 16
  button "Chiudi", 3, 45 35 42 11, ok
}
on *:dialog:load:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog load  
  dll mdx.dll SetFont load 1,2  13 600 Verdana
  dll mdx.dll SetFont load 3  12 400 Tahoma
  dll mdx.dll SetDialog load bgcolor $rgb(0,0,0) 
  dll mdx.dll SetColor load 1,2 text $rgb(0,0,255) 
}
dialog abt {
  title "About"
  size -1 -1 120 48
  option dbu
  text "Addon Saggio versione 1.2 codato da Shuichi", 1, 7 6 105 15
  text "Saluti a Shura", 2, 7 21 105 11
  button "Chiudi", 3, 45 35 42 11, ok
}
on *:dialog:abt:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog abt  
  dll mdx.dll SetFont abt 1,2  13 600 Verdana
  dll mdx.dll SetFont abt 3  12 400 Tahoma
  dll mdx.dll SetDialog abt bgcolor $rgb(0,0,0) 
  dll mdx.dll SetColor abt 1,2 text $rgb(0,0,255) 
}
#saggio off
on *:TEXT:!saggio*:#://$read(wise.mrc)
#saggio end
on *:dialog:load:sclick:*:{
  if ($did == 3) { dialog -x load load | dialog -m ne2 ne2 }
}

on *:load: {
  lod 
  set %logosaggio 8,1<<11 !4Saggio8 >>
  set %colorerisp 11,1
  set %statusop Status : Impostazione opzioni in corso...
}

alias saggio {
  say 8,1<<11,1 !4,1Saggio8,1 >> 11Ragazzi il 4!saggio11 è attivo : fategli le domande scrivendo " 4!saggio11 tua domanda" e lui risponderà... - 0((11Codato da 13Shuichi11, server 8Azzurranet11.0))
}

dialog saggioman {
  title "~~~ OpzIoNI dEL sAGGio ~~~"
  size -1 -1 168 189
  option dbu
  text "Tutte le risposte del saggio sono precedute da una scritta che di default è pari a quella qui sotto, ma puoi modificarla come vuoi. Puoi anche cambiare i colori modificando i numeri che li contrassegnano. Per avere l'indice dei colori fai CTRL+K", 1, 10 3 150 29, center
  edit %logosaggio, 2, 33 32 77 14
  text "Puoi anche cambiare i colori delle risposte del saggio, modificando i numeri qui sotto.", 3, 10 49 150 16, center
  text "Inoltre puoi aggiungere altre risposte a quelle predefinite semplicemente scrivendole qui sotto e facendo clic su Aggiungi Risposta. NON MODIFICARE LE VARIABILI GIA' SCRITTE, sostituisci semplicemente le parole < nuova risposta > con la tua frase, poi fai clic su Aggiungi.", 6, 9 82 152 34, center
  edit %colorerisp, 7, 68 65 28 14
  edit "/msg $chan %logosaggio %colorerisp $nick ,  nuova risposta", 10, 10 117 150 19, autohs
  button "Aggiungi Risposta", 8, 10 139 72 12
  button "Scritte predefinite", 9, 86 139 72 12
  text "Codato da SHUICHI@VIRGILIO.IT ", 4, 9 169 151 9, center
  button "Prova scritta", 12, 114 35 46 10
  button "Help!", 15, 10 153 72 12
  button "Chiudi", 16, 86 153 72 12, ok
  text %statusop , 17, 9 179 151 10, center
  button "About", 20, 128 167 30 11
}
on *:dialog:saggioman:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog saggioman  
  dll mdx.dll SetBorderStyle saggioman 8,9,12,15,16,20  clientedge 
  dll mdx.dll SetFont saggioman 1,3,4,6,8,9,12,15,16,20  12 400 Tahoma 
  dll mdx.dll SetFont saggioman 17  14 600 Tahoma 
  dll mdx.dll SetColor saggioman 17 text $rgb(255,0,0) 
  set %can $chan
  set %nck $nick
  set %logosaggio 8,1<<11 !4Saggio8 >
  set %colorerisp 11,1
  unset %nuovarisp
}
on *:dialog:saggioman:edit:*:{
  if ($did == 2) { set %logosaggio $did(2).text } 
  if ($did == 7) { set %colorerisp $did(7).text }
  if ($did == 10) { set %nuovarisp $did(10).text }
}

on *:dialog:saggioman:sclick:*:{
  if ($did == 9) { 
    set %logosaggio 8,1<<11 !4Saggio8 >> 
    set %colorerisp 11
    set %statusop  Status : Scritte predefinite ripristinate
    dialog -x saggioman saggioman
    dialog -m saggioman saggioman
    set %statusop  Status : Impostazione opzioni in corso...
    .timer7 1 3 dialog -x saggioman saggioman 
    .timer8 1 3 dialog -m saggioman saggioman 
    halt
  }

  if ($did == 12) { echo -a 7,1 Le risposte del saggio sono ora contrassegnate dalla scritta : %logosaggio | halt }
  if ($did == 15) { ne | halt }
  if ($did == 16) { dialog -x saggioman saggioman | halt }
  if ($did == 20) { abt | halt }
  if ($did == 8) { goto otto }
  :otto
  if (%nuovarisp == $null) {
    set %statusop  Errore: scrivi prima la risposta, poi aggiungi!
    dialog -x saggioman saggioman
    dialog -m saggioman saggioman
    set %statusop  Status : Impostazione opzioni in corso...
    .timer99 1 3 dialog -x saggioman saggioman 
    .timer100 1 3 dialog -m saggioman saggioman
  }
  else { 
    write wise.mrc %nuovarisp 
    set %statusop Status : Nuova risposta aggiunta...
    dialog -x saggioman saggioman
    dialog -m saggioman saggioman
    set %statusop  Status : Impostazione opzioni in corso...
    .timer5 1 3 dialog -x saggioman saggioman
    .timer6 1 3 dialog -m saggioman saggioman 
  }

}

dialog ne {
  title "Saggio Help!"
  size -1 -1 174 137
  option dbu
  list 3, 2 2 168 110, size
  button "Chiudi", 2, 54 122 79 11, ok
}
on *:dialog:ne:init:*:{
  dll mdx.dll SetMircVersion $version | dll mdx.dll MarkDialog ne | dll mdx.dll SetDialog ne bgcolor $rgb(0,0,79) | dll mdx.dll SetFont ne 2,3  14 500 Tahoma
  did -a ne 3 $read(o.txt,1)
  did -a ne 3 $read(help.mrc,2)
  did -a ne 3 $read(help.mrc,3)
  did -a ne 3 $read(help.mrc,4)
  did -a ne 3 $read(help.mrc,5)
  did -a ne 3 $read(help.mrc,6)
  did -a ne 3 $read(help.mrc,7)
  did -a ne 3 $read(help.mrc,8)
  did -a ne 3 $read(help.mrc,9)
  did -a ne 3 $read(help.mrc,10)
  did -a ne 3 $read(help.mrc,11)
  did -a ne 3 $read(help.mrc,12)
  did -a ne 3 $read(help.mrc,13)
  did -a ne 3 $read(help.mrc,14)
  did -a ne 3 $read(help.mrc,15)
  did -a ne 3 $read(help.mrc,16)
  did -a ne 3 $read(help.mrc,17)
  did -a ne 3 $read(help.mrc,18)
  did -a ne 3 $read(help.mrc,19)
  did -a ne 3 $read(help.mrc,20)
  did -a ne 3 $read(help.mrc,21)
  did -a ne 3 $read(help.mrc,22)
  did -a ne 3 $read(help.mrc,23)
  did -a ne 3 $read(help.mrc,24)
  did -a ne 3 $read(help.mrc,25)
  did -a ne 3 $read(help.mrc,26)
  did -a ne 3 $read(help.mrc,27)
  did -a ne 3 $read(help.mrc,28)
}
dialog ne2 {
  title "Saggio Help!"
  size -1 -1 174 137
  option dbu
  list 3, 2 2 168 110, size
  button "Chiudi", 2, 54 122 79 11, ok
}
on *:dialog:ne2:init:*:{
  dll mdx.dll SetMircVersion $version | dll mdx.dll MarkDialog ne2  | dll mdx.dll SetDialog ne2 bgcolor $rgb(0,0,79) | dll mdx.dll SetFont ne2 2,3  14 500 Tahoma
  did -a ne2 3 $read(o.txt,1)
  did -a ne2 3 $read(help.mrc,2)
  did -a ne2 3 $read(help.mrc,3)
  did -a ne2 3 $read(help.mrc,4)
  did -a ne2 3 $read(help.mrc,5)
  did -a ne2 3 $read(help.mrc,6)
  did -a ne2 3 $read(help.mrc,7)
  did -a ne2 3 $read(help.mrc,8)
  did -a ne2 3 $read(help.mrc,9)
  did -a ne2 3 $read(help.mrc,10)
  did -a ne2 3 $read(help.mrc,11)
  did -a ne2 3 $read(help.mrc,12)
  did -a ne2 3 $read(help.mrc,13)
  did -a ne2 3 $read(help.mrc,14)
  did -a ne2 3 $read(help.mrc,15)
  did -a ne2 3 $read(help.mrc,16)
  did -a ne2 3 $read(help.mrc,17)
  did -a ne2 3 $read(help.mrc,18)
  did -a ne2 3 $read(help.mrc,19)
  did -a ne2 3 $read(help.mrc,20)
  did -a ne2 3 $read(help.mrc,21)
  did -a ne2 3 $read(help.mrc,22)
  did -a ne2 3 $read(help.mrc,23)
  did -a ne2 3 $read(help.mrc,24)
  did -a ne2 3 $read(help.mrc,25)
  did -a ne2 3 $read(help.mrc,26)
  did -a ne2 3 $read(help.mrc,27)
  did -a ne2 3 $read(help.mrc,28)

}
on *:dialog:ne2:sclick:*:{
  if ($did == 2) { dialog -x ne2 ne2 | dialog -m saggioman saggioman }
}
on *:start: { .disable #saggio }