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
}
Colores al azar
$+ $rand(0,14)