DIALOG BLAGUES .. POUR LES COMIQUES ;)

dialog blg {
  title "Blagues"
  size -1 -1 152 145
  option dbu
  box "Blagues", 1, 2 2 148 141
  button "Fermer", 2, 90 102 50 12,cancel,flat
  button "Blague Suivante ! :]", 3, 5 75 142 12
  box "", 6, 5 6 142 66
  list 7, 8 12 136 56, size
  button "Ajouter blague >>",8,5 88 53 12
  edit "",9,60 118 67 10, read center
  text "Nombre de blagues",10,7 119 48 7
  edit "",11,62 89 84 11,autohs
  button "Supprimer",12,5 102 45 12
  button "Dire",13,50 102 40 12
  button "Citations",14,5 129 40 12 
}
on *:dialog:blg:*:*:{
  if ($devent == init) {   
    dll mdx.dll SetMircVersion $version
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetColor $dname 1,5 background $rgb(0,0,0)
    dll mdx.dll SetColor $dname 2,3,8,12,13,9,11,14 background $rgb(255,0,0)
    dll mdx.dll SetDialog $dname bgcolor $rgb(0,0,0)
    dll mdx.dll SetFont $dname 14,1,2,3,4,5,6,7,8,9,10,11,12,13 +abg 16 300 comic sans ms
    dll mdx.dll SetColor $dname 10,7 text $rgb(255,0,0)
    dll mdx.dll SetColor $dname 7 background $rgb(20,50,255)
    did -ra $dname 7 $read blagues.txt 
  did -ra blg 9 Total: $calc($lines(blagues.txt)) Blagues  }
  if ($devent == sclick) {
    if ($did == 3) {  did -ra $dname 7 $read blagues.txt }
    if ($did == 8) { write blagues.txt $did(11) | did -ra blg 9 Total: $calc($lines(blagues.txt)) Blagues }
    if ($did == 12) { write -d blagues.txt $did(7) | did -ra blg 9 Total: $calc($lines(blagues.txt)) Blagues | did -ra $dname 7 $read blagues.txt }
    if ($did == 13) { msg $active 4Blague :7 $did(7).seltext }
    if ($did == 14) { dialog -m citations citations }
  }
}
dialog citations {
  title "Citation comiques"
  size -1 -1 152 120
  option dbu
  box "Citations", 1, 2 2 148 115
  button "Fermer", 2, 90 102 50 12,cancel,flat
  button "Citation suivante", 3, 5 75 142 12
  box "", 6, 5 6 142 66
  list 7, 8 12 136 56, size
  button "Ajouter citation >>",8,5 88 53 12
  button "Supprimer",12,5 102 45 12
  button "Dire",13,50 102 40 12
  edit "",11,62 89 84 11,autohs
}
on *:dialog:citations:*:*:{
  if ($devent == init) {   
    dll mdx.dll SetMircVersion $version
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetColor $dname 1,5 background $rgb(0,0,0)
    dll mdx.dll SetColor $dname 2,3,8,12,13,9,11 background $rgb(255,0,0)
    dll mdx.dll SetDialog $dname bgcolor $rgb(0,0,0)
    dll mdx.dll SetFont $dname 1,2,3,4,5,6,7,8,10,11,12,13 +abg 16 300 comic sans ms
    dll mdx.dll SetColor $dname 7,11 text $rgb(255,0,0)
    dll mdx.dll SetColor $dname 7 background $rgb(20,50,255)
    did -ra $dname 7 $read citations.txt 
  }
  if ($devent == sclick) {    
    if ($did == 8) { write citations.txt $did(11) | did -ra citations 7 $read citations.txt }
    if ($did == 12) { write -d citations.txt $did(7) | did -ra $dname 7 $read citations.txt }
    if ($did == 3) {  did -ra $dname 7 $read citations.txt }
    if ($did == 13) { msg $active 4Citation :7 $did(7).seltext }
  }
}