alias wfx dll sistem/dll/windowfx.dll SetChild $1 > $2
alias wpadding dll sistem/dll/wpadding.dll WinPadding $1-
alias Acıllan {
  wpadding $1 bottom 192 
  dialog -m $+(Child-,$1) Sercan
}
alias -l mircplusdll return Sistem\dll\mircplus.dll
on *:dialog:Child-*:*:*:{
  if (!$did(3).text) { did -b $dname 2 } | else { did -e $dname 2 }
  if ($devent == init) {
    dialog -s $dname $calc($window($active).w - 801) $calc($window($active).h - $calc($window($active).h - 298)) 786 190
    Esrar MarkDialog $dname
    Esrar SetColor 1 background  $rgb(255,255,227)
    Esrar SetDialog $dname bgcolor $rgb(255,255,227)
    Esrar SetDialog $dname style
    Esrar SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider List > $bars
    Esrar SetBorderStyle $dname 1
    did -i $dname 1 1 setscheme $rgb(0,253,255) $rgb(0,253,255)
    did -i $dname 1 1 bmpsize 30 30
    did -i $dname 1 1 setimage icon large $mircexe
    did -i $dname 1 1 setimage icon large $mircexe
    did -i $dname 1 1 setimage icon large $mircexe
    did -a $dname 1 +a 1 $chr(32) Ifadeler $chr(9) $+ mIRC Smileys
    did -a $dname 1 +a 2 $chr(32) Göz Kıpması $chr(9) $+ mIRC Göz Kırpması
    did -a $dname 1 +a 3 $chr(32) Titreşim $chr(9) $+ mIRC Titreşim
    did -a $dname 1 +a -
    did -a $dname 1 +a -
    did -a $dname 1 +a -
    did -a $dname 1 +a -
    did -i $dname 1 1 setbkg tile Sistem\bmp\2.bmp
    wfx $remove($dname,Child-) $dname
  } 
  if ($devent == Sclick) {
    if $did == 1 {
      if ($did($dname,1).sel = 2) {
        smiley 
      }
      if ($did($dname,1).sel = 3) {
        echo -a 4 2
      }
      if ($did($dname,1).sel = 4) {
        echo -a 4 3
      }
    }
    if $did == 2 {
      /msg $active $did(3)
      .did -a $dname 3 $chr(32)
    }
  }
}
 
alias query {
  query $1 
  Acıllan $1
}
on *:Open:?:*:Acıllan $nick
dialog Sercan {
  title "Esrarda Israr"
  size -1 -1 392 116
  option dbu
  list 1, 5 5 394 17, size
  button "Gönder", 2, 337 29 49 77
  edit "", 3, 5 29 323 77
}