on :input:: {
if ($left($1-,1) != /) {
if (%pes == 1) /say 14,1:15,2:0,12:15,2:14,1: 0,1 $1- 14,1:15,2:0,12:15,2:14,1: 0,1
if (%pes == 2) /say 14,1-15,1=(0 $1- )=14,1-
if (%pes == 3) /say 15,1514,148,2 $1- 14,14-15,15
if (%pes == 4) /say 0 0,4(5)4,5(1)5,1(4,1 [15 $replace($1-,a,a,b,B,c,C,d,D,e,e,f,F,g,G,h,H,i,i,j,J,k,K,l,L,m,M,n,N,o,o,p,P,q,Q,r,R,s,S,t,T,u,u,v,V,w,W,x,X,y,Y,z,Z) 4] 5,1)1,5(4)5,4(0)
if (%pes == 5) /say 1,4-4,1||15,1 $replace($1-,a,a,b,B,c,C,d,D,e,e,f,F,g,G,h,H,i,i,j,J,k,K,l,L,m,M,n,N,o,o,p,P,q,Q,r,R,s,S,t,T,u,u,v,V,w,W,x,X,y,Y,z,Z) 4,1|1,4-
if (%pes == 6) /say 12-[0,12[2,1[0,1 - $1- - 2,1]2,12]0,12]12]-
if (%pes == 7) /say 4,4|1,1|4,4| 14,1+4T14+15 $1- 14,1+4T14+4,4|1,1|4,4|
if (%pes == 9) /say 1,7- $1- -=椺
if (%pes == 10) /say 1,1 1,41,1 0,4 $replace($1-,s,z) 1,1 1,41,1
if (%pes == 11) /say 0,215}14^15( 0 $replace($1-,a,a,b,B,c,C,d,D,e,e,f,F,g,G,h,H,i,i,j,J,k,K,l,L,m,M,n,N,o,o,p,P,q,Q,r,R,s,S,t,T,u,u,v,V,w,W,x,X,y,Y,z,Z) 15)14^15{
if (%pes == 12) /say $replace($1-,c,k,s,z)
if (%pes == 13) /say 0,1 14-=4<15,1 $replace($1-,a,a,e,e,i,i,o,o,u,u) 4,1>14=-
if (%pes == 14) /say 1,19,1(0,1 $replace($1-,a,a,b,B,c,C,d,D,e,e,f,F,g,G,h,H,i,i,j,J,k,K,l,L,m,M,n,N,o,o,p,P,q,Q,r,R,s,S,t,T,u,u,v,V,w,W,x,X,y,Y,z,Z) 9)1,1
if (%pes == 15) /say 14!9-14[12 $1- 14]9-14!
if (%pes == 16) /say 1,18,1(0,1 $replace($1-,a,a,b,B,c,C,d,D,e,e,f,F,g,G,h,H,i,i,j,J,k,K,l,L,m,M,n,N,o,o,p,P,q,Q,r,R,s,S,t,T,u,u,v,V,w,W,x,X,y,Y,z,Z) 8)1,1
if (%pes == 17) /say 2,1|6,2|13,6|0,13|13,6|6,2|2,1|13,1[0,1 $1- 13,1]2,1|6,2|13,6|0,13|13,6|6,2|2,1|
if (%pes == 18) /say 12,1( 14,1 $1- 12,1)
if (%pes == 19) /say 9,1(-<14 $1- 9>-)
if (%pes == 20) /say 15,1x14,1X15,1x4,1[ $1- ]15,1x14,1X15,1x
if (%pes == 21) /say 4,1{12x4}14 $1- 4{12x4}
if (%pes == 22) /say 4,1(<-(15,1 $1- 4,1)->)
if (%pes == 23) /say 9,1}4,1=8,1< $1- >4,1=9,1{
if (%pes == 24) /say 14,1x4,1(14 $1- 4)14,1x
if (%pes == 25) /say 8,1(-4,1V14,1m4,1P8,1-)14,1 $1- 8,1(-4,1V14,1m4,1P8,1-)
if (%pes == 26) { set %tx $1- | dice }
halt
}
}
menu @types {
dclick {
if ($1 == 4) { .disable #leters }
if ($1 == 5) { .enable #leters | set %pes 1 }
if ($1 == 6) { .enable #leters | set %pes 2 }
if ($1 == 7) { .enable #leters | set %pes 3 }
if ($1 == 8) { .enable #leters | set %pes 4 }
if ($1 == 9) { .enable #leters | set %pes 5 }
if ($1 == 10) { .enable #leters | set %pes 6 }
if ($1 == 11) { .enable #leters | set %pes 7 }
if ($1 == 12) { .enable #leters | set %pes 8 }
if ($1 == 13) { .enable #leters | set %pes 9 }
if ($1 == 14) { .enable #leters | set %pes 10 }
if ($1 == 15) { .enable #leters | set %pes 11 }
if ($1 == 16) { .enable #leters | set %pes 12 }
if ($1 == 17) { .enable #leters | set %pes 13 }
if ($1 == 18) { .enable #leters | set %pes 14 }
if ($1 == 19) { .enable #leters | set %pes 15 }
if ($1 == 20) { .enable #leters | set %pes 16 }
if ($1 == 21) { .enable #leters | set %pes 17 }
if ($1 == 22) { .enable #leters | set %pes 18 }
if ($1 == 23) { .enable #leters | set %pes 19 }
if ($1 == 24) { .enable #leters | set %pes 20 }
if ($1 == 25) { .enable #leters | set %pes 21 }
if ($1 == 26) { .enable #leters | set %pes 22 }
if ($1 == 27) { .enable #leters | set %pes 23 }
if ($1 == 28) { .enable #leters | set %pes 24 }
if ($1 == 29) { .enable #leters | set %pes 25 }
}
}
alias types {
if (%typelanguageset == $null) { /dialog -m chl chl }
if (%typelanguageset != $null) {
if (%typeslanguage == spanish) {
window -l @types 60 30 290 435 @types
clear @types
aline @types 12Da Doble click en el tipo
aline @types 12que te guste:
aline @types 12-
aline @types Normal
aline @types 14,1:15,2:0,12:15,2:14,1: 0,1 muestra 14,1:15,2:0,12:15,2:14,1: 0,1
aline @types 14,1-15,1=(0 muestra )=14,1-
aline @types 15,1514,148,2 muestra 14,14-15,15
aline @types 0 0,4(5)4,5(1)5,1(4,1 [15 Muestra 4] 5,1)1,5(4)5,4(0)
aline @types 0 1,4-4,1||15,1 Muestra 4,1|1,4-
aline @types 12-[0,12[2,1[0,1 - Muestra - 2,1]2,12]0,12]12]-
aline @types 4,4|1,1|4,4| 14,1+4T14+15 Muestra 14,1+4T14+4,4|1,1|4,4|
aline @types 0,2 :.+ .: Muestra .:..+
aline @types 1,7-Muestra -=椺
aline @types 1,1 1,41,1 0,4 Muestra 1,1 1,41,1
aline @types 0,215}14^15( 0 Muestra 15)14^15{
aline @types MuEsTrA
aline @types 0,1 14-=4<15,1 muestra 4,1>14=-
aline @types 1,1||9,1(0,1 MuEstRa 9)1,1||
aline @types 14!9-14[12 muestra 14]9-14!
aline @types 1,1||8,1(0,1 MuEstRa 8)1,1||
aline @types 2,1|6,2|13,6|0,13|13,6|6,2|2,1|13,1[0,1 Muestra 13,1]2,1|6,2|13,6|0,13|13,6|6,2|2,1|
aline @types 12,1( 14,1 muestra 12,1)
aline @types 9,1(-<14 muestra 9>-)
aline @types 15,1x14,1X15,1x4,1[ muestra ]15,1x14,1X15,1x
aline @types 4,1{12x4}14 muestra 4{12x4}
aline @types 4,1(<-(15 muestra 4 )->)
aline @types 9,1}4,1=8,1< muestra >4,1=9,1{
aline @types 14,1x4,1( 4,1 muestra 4)14,1x
aline @types 8,1(-4,1V14,1m4,1P8,1-) 14,1Muestra 8,1(-4,1V14,1m4,1P8,1-)
}
if (%typeslanguage == english) {
window -l @types 60 30 290 435 @types
clear @types
aline @types 12Double Click on the type
aline @types 12That You Like:
aline @types 12-
aline @types Normal
aline @types 14,1:15,2:0,12:15,2:14,1: 0,1 It Shows 14,1:15,2:0,12:15,2:14,1: 0,1
aline @types 14,1-15,1=(0 It Shows )=14,1-
aline @types 15,1514,148,2 It Shows 14,14-15,15
aline @types 0 0,4(5)4,5(1)5,1(4,1 [15 It Shows 4] 5,1)1,5(4)5,4(0)
aline @types 0 1,4-4,1||15,1 It Shows 4,1|1,4-
aline @types 12-[0,12[2,1[0,1 - It Shows - 2,1]2,12]0,12]12]-
aline @types 4,4|1,1|4,4| 14,1+4T14+15 It Shows 14,1+4T14+4,4|1,1|4,4|
aline @types 0,2 :.+ .: It Shows .:..+
aline @types 1,7-It Shows -=椺
aline @types 1,1 1,41,1 0,4 It Shows 1,1 1,41,1
aline @types 0,215}14^15( 0 It Shows 15)14^15{
aline @types It Shows
aline @types 0,1 14-=4<15,1 It Shows 4,1>14=-
aline @types 1,1||9,1(0,1 It Shows 9)1,1||
aline @types 14!9-14[12 It Shows 14]9-14!
aline @types 1,1||8,1(0,1 It Shows 8)1,1||
aline @types 2,1|6,2|13,6|0,13|13,6|6,2|2,1|13,1[0,1 It Shows 13,1]2,1|6,2|13,6|0,13|13,6|6,2|2,1|
aline @types 12,1( 14,1 It Shows 12,1)
aline @types 9,1(-<14 It Shows 9>-)
aline @types 15,1x14,1X15,1x4,1[ It Shows ]15,1x14,1X15,1x
aline @types 4,1{12x4}14 It Shows 4{12x4}
aline @types 4,1(<-(15 It Shows 4 )->)
aline @types 9,1}4,1=8,1< It Shows >4,1=9,1{
aline @types 14,1x4,1( 4,1 It Shows 4)14,1x
aline @types 8,1(-4,1V14,1m4,1P8,1-) 14,1It Shows 8,1(-4,1V14,1m4,1P8,1-)
}
}
}
alias resetlanguage {
unset %typeslanguage
/dialog -m chl chl }
dialog chl {
title \"Choose Language\"
size -1 -1 88 72
option dbu
button \"Spanish\", 1, 15 4 37 12
button \"English\", 2, 15 21 37 12
button \"Cancel\", 5, 15 54 37 12, ok
}
on 1:dialog:chl:sclick:1: /set %typeslanguage spanish | echo Set To Spanish. | set %typelanguageset on | dialog -k chl chl
on 1:dialog:chl:sclick:2: /set %typeslanguage english | echo Set To English. | set %typelanguageset on | dialog -k chl chl