/ScriptServ

on *:text:*:%game_channel: {
  if ($1- == %botta1) { msg %game_channel %brisp1 }
  if ($1- == %botta2) { msg %game_channel %brisp2 }
  if ($1- == %botta3) { msg %game_channel %brisp3 }
  if ($1- == %botta4) { msg %game_channel %brisp4 }
  if ($1- == %botta5) { msg %game_channel %brisp5 }
  if ($1- == %botta6) { msg %game_channel %brisp6 }
  if ($1- == %botta7) { msg %game_channel %brisp7 }
  if ($1- == %botta8) { msg %game_channel %brisp8 }
}
dialog ontext {
  title "On TeXt"
  icon $mircdirImmagini\1.ico, 0
  size -1 -1 145 173
  option dbu
  text "Comando:", 2, 5 5 30 10
  text "Risposta:", 3, 60 5 100 10
  edit %botta1, 4, 5 18 35 13, autohs
  edit %brisp1, 5, 60 18 80 13, autohs
  edit %botta2, 6, 5 35 35 13, autohs
  edit %brisp2, 7, 60 35 80 13, autohs
  edit %botta3, 8, 5 52 35 13, autohs
  edit %brisp3, 9, 60 52 80 13, autohs
  edit %botta4, 10, 5 69 35 13, autohs
  edit %brisp4, 11, 60 69 80 13, autohs
  edit %botta5, 12, 5 86 35 13, autohs
  edit %brisp5, 13, 60 86 80 13, autohs
  edit %botta6, 14, 5 103 35 13, autohs
  edit %brisp6, 15, 60 103 80 13, autohs
  edit %botta7, 16, 5 120 35 13, autohs
  edit %brisp7, 17, 60 120 80 13, autohs
  edit %botta8, 18, 5 137 35 13, autohs
  edit %brisp8, 19, 60 137 80 13, autohs
  button "Okay", 20, 4 154 136 15, ok
}
on *:dialog:ontext: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,19,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,19 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,15,16,17,18,19 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,19 text $rgb(0,173,255)
}
on *:dialog:ontext:sclick:20: {
  set %botta1 $did(ontext,4)
  set %botta2 $did(ontext,6)
  set %botta3 $did(ontext,8)
  set %botta4 $did(ontext,10)
  set %botta5 $did(ontext,12)
  set %botta6 $did(ontext,14)
  set %botta7 $did(ontext,16)
  set %botta8 $did(ontext,18)
  set %brisp1 $did(ontext,5)
  set %brisp2 $did(ontext,7)
  set %brisp3 $did(ontext,9)
  set %brisp4 $did(ontext,11)
  set %brisp5 $did(ontext,13)
  set %brisp6 $did(ontext,15)
  set %brisp7 $did(ontext,17)
  set %brisp8 $did(ontext,19)
}