alias mdx return $dll(maway/mdx.dll,$1,$2-)
alias maway { dialog -m maway maway } 
dialog maway {
  title "Mynet Away Menüsü"
  size -1 -1 139 131
  option dbu
  button "Yemekteyim", 1, 4 10 37 12
  button "Dışardayım", 2, 48 10 37 12
  button "Telefondayım", 3, 93 10 40 12
  button "Meşgul", 4, 4 29 37 12
  button "H.Dönecek", 5, 48 29 37 12
  button "Yok", 6, 93 29 40 12
  box "Otomatik Away", 7, 1 0 137 45
  edit "", 8, 27 53 79 10
  box "Sebep Gir", 9, 1 45 137 37
  button "Away Ol", 10, 10 66 44 12
  button "Awaydan Çık", 11, 86 66 44 12
  check "Notice Olarak Nicke Gönder", 12, 26 91 90 10
  check "Mesaj Olarak Kanala Gönder", 13, 26 101 94 10
  button "Tamam", 14, 3 114 37 12, ok
  box "Ayarlar", 15, 1 83 137 47
  button "İptal", 16, 96 114 37 12, cancel
}
 
menu * { 
  Away:maway
}
on *:dialog:maway:init:*: { 
  mdx MarkDialog $dname   
  mdx SetDialog $dname bgcolor $rgb(0,128,0) 
  var %i = 1
  while (%i <= 16) {  
    mdx SetFont $dname %i +b Turkish 14 600 Arial
    mdx SetColor $dname %i textbg $rgb(0,128,0)
    mdx SetColor $dname %i background $rgb(0,128,0)
    mdx SetColor $dname %i text $rgb(255,255,255) 
    inc %i
    mdx SetDialog $dname style title tool sysmenu
  }
  if (%noticea == on) { did -c maway 12 }
  if (%mesaja == on) { did -c maway 13 } 
}
on *:dialog:maway:sclick:*: { 
  if ($did == 1) { set %u on | set %r Şuan Yemekteyim, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %k %w %e %f %uf %k %s %y %ken %l | dialog -x maway maway  } 
  if ($did == 2) { set %f on | set %a Şuan Dışardayım, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %r %c %k %w %e %u %uf %k %s %y %ken %l | dialog -x maway maway }  
  if ($did == 3) { set %uf on | set %c Şuan Telefondayım, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %r %k %w %e %f %u %k %s %y %ken %l | dialog -x maway maway  }  
  if ($did == 4) { set %k on | set %ka Şuan Meşgulüm, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %r %w %e %f %uf %u %s %y %ken %l | dialog -x maway maway  }  
  if ($did == 5) { set %s on | set %w Birazdan Döneceğim, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %k %r %e %f %uf %k %u %y %ken %l | dialog -x maway maway  }  
  if ($did == 6) { set %y on | set %e Şuan Yokum, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %k %w %r %f %uf %k %s %u %ken %l | dialog -x maway maway  }  
  if ($did == 10) { set %ken on | set %l $did(8) | unset %e %y %a %c %k %w %r %f %uf %k %s %u | dialog -x maway maway  } 
  if ($did == 11) { unset %r %a %c %k %w %e %f %uf %k %s %y %l %ka %ken | dialog -x maway maway } 
  if ($did == 12) { 
    if ($did(maway,12).state == 1) { 
      set %noticea on | set %mesaja off
    } 
  }
  if ($did == 13) { 
    if ($did(maway,13).state == 1) { 
      set %mesaja on | set %noticea off 
    } 
  }
}
on *:text:*:#: { 
  if ($me isin $1-) {
    if (%mesaja == on) { 
      set %ufuk $nick 
      if (%u == on) { msg $chan Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { msg $chan Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { msg $chan Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { msg $chan Merhaba %ufuk $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { msg $chan Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { msg $chan Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { msg $chan Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
    if (%noticea == on) { 
      if (%u == on) { notice $nick Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { notice $nick Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { notice $nick Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { notice $nick Merhaba %ufuk $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { notice $nick Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
  }
}
on *:text:*:?: { 
  if ($me isin $1-) {
    if (%mesaja == on) { 
      set %ufuk $nick 
      if (%u == on) { msg $nick Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { msg $nick Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { msg $nick Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { msg $nick Merhaba %ufuk $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { msg $nick Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { msg $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { msg $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
    if (%noticea == on) { 
      if (%u == on) { notice $nick Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { notice $nick Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { notice $nick Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { notice $nick Merhaba %ufuk $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { notice $nick Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
  }
}