alias tabtest dialog -m Chistes Chistes
dialog Chistes {
title "Chistes Mamones R£VELÍØN"
size -1 -1 300 285
tab "Chistes", 10, 0 0 300 290
tab "Poemas", 111, 0 0 300 290
;chistes
box "",1,13 21 270 70, tab 10
text "Chiste Nº",2,28 105 55 25, tab 10
list 3,83 105 50 40, tab 10
edit "",4,23 145 250 100,multi read vsbar, tab 10
button "Decir",5,50 258 40 25,defaul, tab 10
button "Cerrar",6,220 258 40 25,ok,
box "",7,13 87 270 170, tab 10
text "Chistes sobre: ",8,63 39 100 25, tab 10
list 9,143 39 100 40, tab 10
;Poemas
box "",100,13 21 270 70, tab 111
text "Tipo De Poema: ",101,63 39 100 25, tab 111
list 102,143 39 100 40, tab 111
box "",103,13 87 270 170, tab 111
text "Poema #",104,28 105 55 25, tab 111
list 105,83 105 50 40, tab 111
edit "",106,23 145 250 100,multi read vsbar, tab 111
button "Decir",107,50 258 40 25,defaul, tab 111
}
on 1:dialog:Chistes:INIT:0:{ chis }
on 1:dialog:chistes:SCLICK:3: { did -r chistes 4 | did -i chistes 4 1 $read -l $did(chistes,3).sel %TextoChiste }
on 1:dialog:chistes:SCLICK:5: { DecirChiste $did(chistes,3).sel }
on 1:dialog:chistes:SCLICK:9: { ChisteSobre $did(chistes,9).sel }
on 1:dialog:chistes:SCLICK:111:{ chis }
on 1:dialog:chistes:SCLICK:105: { did -r chistes 4 | did -i chistes 4 1 $read -l $did(chistes,3).sel %TextoChiste }
on 1:dialog:chistes:SCLICK:107: { DecirChiste $did(chistes,3).sel }
on 1:dialog:chistes:SCLICK:102: { ChisteSobre $did(chistes,9).sel }
Aliases:
alias Chistes { dialog -m Chistes Chistes | set %CanalChiste $1 }
alias chis {
did -i chistes 9 1 Machistas
did -i chistes 9 2 Feministas
did -i chistes 9 3 Que le dijo
did -i chistes 9 4 Borrachos
did -i chistes 9 5 No es lo mismo
did -i chistes 9 6 Mamá mamá!!!
did -i chistes 9 7 Pepito
did -i chistes 9 8 Verdes
did -i chistes 9 9 Definiciones
did -i chistes 9 10 Mal gusto
did -c chistes 9 1
ChisteSobre 1
}
alias ChisteSobre {
did -r chistes 4
did -r chistes 3
if ($1 == 1) { set %TextoChiste $mircdirchistes\machistas.txt }
if ($1 == 2) { set %TextoChiste $mircdirchistes\feministas.txt }
if ($1 == 3) { set %TextoChiste $mircdirchistes\queledijo.txt }
if ($1 == 4) { set %TextoChiste $mircdirchistes\borrachos.txt }
if ($1 == 5) { set %TextoChiste $mircdirchistes\nem.txt }
if ($1 == 6) { set %TextoChiste $mircdirchistes\mama.txt }
if ($1 == 7) { set %TextoChiste $mircdirchistes\pepito.txt }
if ($1 == 8) { set %TextoChiste $mircdirchistes\verdes.txt }
if ($1 == 9) { set %TextoChiste $mircdirchistes\definiciones.txt }
if ($1 == 10) { set %TextoChiste $mircdirchistes\Malgusto.txt }
set %cont1Chistes 0
:start
inc %cont1Chistes
if ($read -l %cont1Chistes %TextoChiste != $null) { did -i chistes 3 %cont1Chistes %cont1Chistes | goto start }
else { unset %cont1Chistes | did -c chistes 3 1 | did -i chistes 4 1 $read -l 1 %TextoChiste | halt }
}
alias DecirChiste {
msg %CanalChiste 10,1 $read -l $1 %TextoChiste %ver
}