Letras de Colores

[TerraChat]

Código [Seleccionar] Expandir

dialog letras.de.colores {
  title "Letras de Colores"
  size -1 -1 296 93
  option pixels
  radio "Verde", 1, 21 10 100 17
  radio "Amarillo", 2, 21 34 100 17
  radio "Rosa", 3, 147 8 100 17
  radio "Rojo", 4, 147 34 100 17
  button "Ok", 5, 99 62 65 25 ,ok
  check "Activar", 6, 19 60 64 17
}
on *:dialog:letras.de.colores:sclick:5:{
  if ($did(letras.de.colores,1).state = 1) { set %letras.de.colores 9 }
  if ($did(letras.de.colores,2).state = 1) { set %letras.de.colores 8 }
  if ($did(letras.de.colores,3).state = 1) { set %letras.de.colores 13 }
  if ($did(letras.de.colores,4).state = 1) { set %letras.de.colores 4 }
  if ($did(letras.de.colores,6).state = 1) { %osoql = on  } | else { %osoql = off }
}
on *:dialog:scrittcol:init:*:{
  if %osoql == on did -c $dname 6
  if %letras.de.colores == 9 did -c $dname 1
  if %letras.de.colores == 8 did -c $dname 2
  if %letras.de.colores == 13 did -c $dname 3
  if %letras.de.colores == 4 did -c $dname 4
} 
on *:input:*: {
  if (%osoql == on) && ($chr(47) !isin $1-) {
    set %rktyur $1-
    say ␃ $+ %letras.de.colores $+ %rktyur
    unset %rktyur
    halt
  }
}
alias letras.de.colores { dialog -m letras.de.colores letras.de.colores }
menu menubar {
  Letras de Colores:/letras.de.colores
}
on *:load:{
  .set %osoql off
  .set %letras.de.colores 9
  echo -a Addon Letras de Colores
}


[TerraChat]

Colores al azar

Código [Seleccionar] Expandir

$+ $rand(0,14)