[פרסום]Smile Dialog

[rikufu]

alias smiles { dialog -m Smiles Smiles }
dialog Smiles { 
  title "Colory Smiles" 
  size -1 -1 85 75 
  option dbu 
  box "Smiles list", 1, 6 5 67 54 
  button ":D", 2, 11 17 16 9 
  button ":P", 3, 11 30 16 9 
  button ":X", 4, 11 43 16 9 
  button ":S", 5, 32 17 16 9 
  button ":)", 6, 32 30 16 9 
  button ":O", 7, 32 43 16 9 
  button ":]", 8, 52 17 16 9 
  button ":[", 9, 52 30 16 9 
  button ":Q", 10, 52 43 16 9
  button "?©", 11, 6 62 17 9 
} 
on *:dialog:Smiles:sclick:2:{ msg $active $ccolors(:D) } 
on *:dialog:Smiles:sclick:3:{ msg $active $ccolors(:P) } 
on *:dialog:Smiles:sclick:4:{ msg $active $ccolors(:X) } 
on *:dialog:Smiles:sclick:5:{ msg $active $ccolors(:S) } 
on *:dialog:Smiles:sclick:6:{ msg $active $ccolors(:)) } 
on *:dialog:Smiles:sclick:7:{ msg $active $ccolors(:O) } 
on *:dialog:Smiles:sclick:8:{ msg $active $ccolors(:]) } 
on *:dialog:Smiles:sclick:9:{ msg $active $ccolors(:[) } 
on *:dialog:Smiles:sclick:10:{ msg $active $ccolors(:Q) } 
on *:dialog:Smiles:sclick:11:{ //echo -as 10C14olory 10S14miles 10D14ialog 10B14y 10r14ikufu 10(14 10T14hx 10A14maZinG 10F14or 10C14olors 10C14ode 10) } 

alias ccolors { 
  if (!$isheb($1-)) { var %x 1 | while ($mid($1-,%x,1)) { var %tsm = $+(%tsm,$chr(3),$r(1,15),$ifmatch,$chr(32)) | inc %x } | return %tsm } 
  else { var %x $len($1-) | while (%x) { var %tsm = $+(%tsm,$chr(3),$r(1,15),$mid($1-,%x,1),$chr(32)) | dec %x } | return %tsm } 
} 

menu * {
  .Smiles: { /smiles } 
} 

ללחוץ מקש ימיני ואז לבחור Smiles

תהנו D: