/ScriptServ

dialog colorgiochi {
  title "TaLk-GiOcHi"
  icon $mircdirImmagini\1.ico, 0
  size -1 -1 120 122
  option dbu
  text "Giochi:", 2, 5 5 30 10
  text "Colori:", 3, 60 5 100 10
  text "Scarabeo:", 4, 5 18 35 13
  text "Square:", 5, 5 35 35 13
  text "Sillaba:", 6, 5 52 35 13
  text "Acro:", 13, 5 69 35 13
  text "xTrivia:", 18, 5 86 35 13
  edit %c3, 7, 60 17 15 12,autohs,center
  edit %c4, 8, 80 17 15 12,autohs,center
  edit %c5, 9, 60 34 15 12,autohs,center
  edit %c6, 10, 80 34 15 12,autohs,center
  edit %c7, 11, 60 51 15 12,autohs,center
  edit %c8, 12, 80 51 15 12,autohs,center
  edit %c9, 14, 60 68 15 12,autohs,center
  edit %c10, 15, 80 68 15 12,autohs,center
  edit %xc1, 16, 60 85 15 12,autohs, center
  edit %xc2, 17, 80 85 15 12,autohs, center
  button "Okay", 20, 4 102 111 15, ok
}
on *:dialog:colorgiochi:init:*: {
  ;mdx  
  mdxbegin
  mdx SetBorderStyle $dname 20 staticedge clientedge
  mdx SetDialog $dname bgcolor $rgb(0,0,0)
  mdx SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,20 16 660 comic sans ms
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 background $rgb(0,0,0)
  mdx SetColor $dname 20 background $rgb(0,173,255)
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,16,17,15,18 textbg $rgb(0,0,0)
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 text $rgb(0,173,255)
}
on *:dialog:colorgiochi:sclick:20: {
  set %c3 $did(colorgiochi,7)
  set %c4 $did(colorgiochi,8)
  set %c5 $did(colorgiochi,9)
  set %c6 $did(colorgiochi,10)
  set %c7 $did(colorgiochi,11)
  set %c8 $did(colorgiochi,12)
  set %c9 $did(colorgiochi,14)
  set %c10 $did(colorgiochi,15)
  set %xc1 $did(colorgiochi,16)
  set %xc2 $did(colorgiochi,17)
}