alias smile {
  if ($dialog(smile)) { dialog -x smile }
  dialog -mdo smile smile
  var %x $calc($mouse.dx - 50)
  var %y $calc($dialog(msnfx. $+ $mid($active,2)).y + 85 + $dialog(msnfx. $+ $mid($active,2)).h))
  if $1 != y {
    dialog -sv smile %x %y -1 -1
  }
  elseif $1 == y {
    if $active ischan {
      dialog -s smile $calc($window($active).w - $calc($iif($nicklistsize($active),300,$calc(300 + 123)) + $nicklistsize($active))) $calc($window($active).h - 85)  -1 -1
    }
    else {
      dialog -s smile $calc($window($active).w - 320) $calc($window($active).h - 85)  -1 -1
    }
  }
}
dialog smile {
  size -32000 -32000 230 60
  title "Smile"
  list 1,1 1 250 30
}
on *:dialog:smile:*:*:{
  if $devent == init { 
    mdxinit
    mdx SetDialog $dname style border tool
    mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider list > $bars
    mdx SetBorderStyle $dname 1
    did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
    did -i $dname 1 1 bmpsize 23 23
    did -i $dname 1 1 setimage icon large img\1.ico
    did -i $dname 1 1 setimage icon large img\2.ico
    did -i $dname 1 1 setimage icon large img\3.ico
    did -i $dname 1 1 setimage icon large img\4.ico
    did -i $dname 1 1 setimage icon large img\5.ico
    did -i $dname 1 1 setimage icon large img\6.ico
    did -i $dname 1 1 setimage icon large img\7.ico
    did -i $dname 1 1 setimage icon large img\8.ico
    did -i $dname 1 1 setimage icon large img\9.ico
    did -i $dname 1 1 setimage icon large img\10.ico
    did -i $dname 1 1 setimage icon large img\11.ico
    did -i $dname 1 1 setimage icon large img\12.ico
    did -i $dname 1 1 setimage icon large img\13.ico
    did -i $dname 1 1 setimage icon large img\14.ico
    did -i $dname 1 1 setimage icon large img\15.ico
    did -i $dname 1 1 setimage icon large img\16.ico
    did -i $dname 1 1 setimage icon large img\17.ico
    did -i $dname 1 1 setimage icon large img\cancel.ico

    did -a $dname 1 +a 1 $chr(9) $+ :)
    did -a $dname 1 +a 2 $chr(9) $+ :(
    did -a $dname 1 +a 3 $chr(9) $+ :D
    did -a $dname 1 +a 4 $chr(9) $+ ;)
    did -a $dname 1 +a 5 $chr(9) $+ :~
    did -a $dname 1 +a 6 $chr(9) $+ :P
    did -a $dname 1 +a 7 $chr(9) $+ :/
    did -a $dname 1 +a 8 $chr(9) $+ :?
    did -a $dname 1 +a 9 $chr(9) $+ :}
    did -a $dname 1 +a 10 $chr(9) $+ :*
    did -a $dname 1 +a 11 $chr(9) $+ :x
    did -a $dname 1 +a 12 $chr(9) $+ :£
    did -a $dname 1 +a 13 $chr(9) $+ :@
    did -a $dname 1 +a 14 $chr(9) $+ :L
    did -a $dname 1 +a 15 $chr(9) $+ :%
    did -a $dname 1 +a 16 $chr(9) $+ :½
    did -a $dname 1 +a 17 $chr(9) $+ :!
    did -a $dname 1 +a 18 $chr(9) $+ Kapat
  }
  if $devent == sclick {
    if $did == 1 { 
      if ($did($dname,1).sel = 2) {
        smileyaz :)
      }
      if ($did($dname,1).sel = 3) {
        smileyaz :(
      }
      if ($did($dname,1).sel = 4) {
        smileyaz :D
      }
      if ($did($dname,1).sel = 5) {
        smileyaz ;)
      }
      if ($did($dname,1).sel = 6) {
        smileyaz :~
      }
      if ($did($dname,1).sel = 7) {
        smileyaz :P
      }
      if ($did($dname,1).sel = 8) {
        smileyaz :/
      }
      if ($did($dname,1).sel = 9) {
        smileyaz :?
      }
      if ($did($dname,1).sel = 10) {
        smileyaz :}
      }
      if ($did($dname,1).sel = 11) {
        smileyaz :*
      }
      if ($did($dname,1).sel = 12) {
        smileyaz :#
      }
      if ($did($dname,1).sel = 13) {
        smileyaz :W
      }
      if ($did($dname,1).sel = 14) {
        smileyaz :@
      }
      if ($did($dname,1).sel = 15) {
        smileyaz :Q
      }
      if ($did($dname,1).sel = 16) {
        smileyaz :%
      }
      if ($did($dname,1).sel = 17) {
        smileyaz :Z
      }
      if ($did($dname,1).sel = 18) {
        smileyaz :!
      }
      if ($did($dname,1).sel = 19) {
        smiledialoghide
      }
    }
  }
}
alias smileyaz {
  editbox -af $iif($right($editbox($active),1) == :,$left($editbox($active),-1),$editbox($active)) $+ $chr(32) $+ $1-
  smiledialoghide
}
alias smiledialoghide {
  dialog -s smile -32000 -32000 -1 -1 
}
on *:appactive: {
  if !$appactive {
    var %i 1
    while %i <= $window(0) {
      if $query($mid($window(%i),4,$mid($window(%i),4,0))) {
        window -un $window(%i)
      }
      inc %i 1
    }
    smiledialoghide
  }
}