alias _awaypop { dialog $iif($dialog(awayset),-v,-m) awayset awayset }
alias cdialog { if ($dialog(cdialog)) { dialog -o cdialog | dialog -n cdialog } | else { dialog -m cdialog cdialog } }
dialog awayset {
  title "-» Sakiz Script v2.0 "
  size -1 -1 209 146
  option dbu
  box "MeşguL AyarLarı", 1, 2 17 204 37
  text "Meşgul sebebim:", 4, 11 26 46 8, right
  text "Meşgul olduğumda", 5, 11 38 46 8, right
  edit "", 6, 60 37 76 10
  text "ekini nickime ekLe.", 7, 143 38 57 8
  combo 8, 60 25 94 40, edit size drop
  box "GeLişmiş AyarLar", 9, 2 55 204 77
  check "Cevap gönder", 10, 11 67 47 10
  edit "", 11, 53 80 88 10, disable autohs
  text "Cevap Mesajım:", 12, 11 81 40 8, right
  check "Kayıt Tut", 13, 63 67 35 10
  text "oLsun...", 14, 143 81 25 8, center
  button "&MeşguL / Away Ol", 15, 11 95 37 31, multi
  button "Meşgul / Away &Kapat", 16, 49 95 37 31, multi
  text "Durum:", 17, 89 96 20 8
  text "Nick:", 18, 89 107 14 8
  text "Away Nick:", 19, 89 117 29 8
  text "Kapalı", 20, 110 96 23 8
  text "$me", 21, 106 107 96 8
  text "Away Nick", 22, 121 117 81 8
  text "00:00:00'da Away oldunuz", 23, 133 96 70 8, center
  button "&Tamam", 24, 2 135 51 10, ok
  text "mIRC Away ( Meşgul ) Sistemi", 975, 0 0 207 14, center
}

on 1:dialog:awayset:*:*:{
  if ($devent == init) {
    mdxdll SetMircVersion $version
    mdxdll MarkDialog $dname $dialog($dname).hwnd
    mdxdll SetColor 23  text $rgb(255,141,035)
    mdxdll SetColor $dname 975 text $rgb(0,76,148)
    mdxdll SetFont 975 25 100 Sylfaen
    mdxdll SetColor 4,5,7,12,14,17,18,19  text $rgb(025,039,241)
    mdxdll SetColor  20,21,22 text $rgb(228,000,000)
    mdxdll SetBorderStyle 8,11 staticedge,visible
    mdxdll SetBorderStyle 15,16,24 staticedge
    mdxdll SetFont 3 19 700 Palatino Linotype
    mdxdll SetColor 6,11  text $rgb(2,139,28)
    if (%a.omes == on) { did -c $dname 10 | did -e $dname 11 }
    if (%a.kayit == on) { did -c $dname 13 }
    did -a $dname 23 $iif($away == $true,%a.times da Away oLdunuz,MeşguL değiLsiniz.)
    did -a $dname 21 $iif($away == $true,%b.nick,$me)
    did -a $dname 22 $iif($away == $true,$me,MeşguL DeğiLsiniz.)
    did -a $dname 20 $iif($away == $true,MeşguL,Çevrimiçi)    
    did -ra $dname 6  %awayek
    did -ra $dname 11 %a.otomesm
    did -a $dname 8 Pc ßaşında DeğiLim.
    did -a $dname 8 TeLefondayım.
    did -a $dname 8 Yemekteyim.
    did -a $dname 8 Dışardayım.
    did -a $dname 8 TV İzLiyorum.
    did -a $dname 8 WC'deyim :Pp
    did -a $dname 8 SıkıLdım.
    did -a $dname 8 Küstüm Size. :((
    did -c $dname 8 1
  }
  if ($devent == sclick) {
    if ($did == 10) {
      if (%a.omes == on) { set %a.omes off | did -b $dname 11 | halt }
      if (%a.omes == off) { set %a.omes on | did -e $dname 11 | halt }
    }
    if ($did == 13) {
      if (%a.kayit == on) { set %a.kayit off | halt }
      if (%a.kayit == off) { set %a.kayit on | halt }
    }
    if ($did == 15) { set %awayek $did(6) | a.ol $did(8) }
    if ($did == 16) { a.kap }
  }
  if ($devent == edit) {
    if ($did == 11) { set %a.otomesm $did(11) }
  }
}


alias a.ol {
  away $1-
  set %b.nick $me
  set %a.times $time
  .nick $me $+ %awayek
  ame MeşguLüm. Seßep: $1- %logo
  $iif($dialog(awayset),dialog -c awayset awayset)

}
alias a.kap {
  away
  .nick %b.nick
  ame MeşguLden Döndüm %logo
  $iif($dialog(awayset),dialog -c awayset awayset)
}

on 1:text:*:?:{
  if ($away == $true) && ($nick !== $me) {
    if (%a.omes == on) { .msg $nick %a.otomesm $iif(%a.kayit == on,10Mesajınız KaydediLiyor.) %logo }
    if (%a.kayit == on) { window -m @Away | echo @Away < $+ $nick $+ > $1- | close -m $nick }
  }
}
on *:text:*:#: {
  if $me isin $strip($1-) && $away {
    describe # 7 $nick 4aWaY1DaYıM oLm Ne SesLeniYoN aWaY Seßeßim 2 ( $awaymsg $+ 2 ) 3;) HaDi yQkum RaHaTSıZ EtMe 4« 10OpS 5SCRiPT4 »
  }
}