;--------------------------------
; Meşgul Menü
; KOD
; www.IRCForumlari.net
; --------------------------------
; =>
alias meşgul { dialog - $+ $iif($dialog(meşgul),v,md) meşgul meşgul }
dialog meşgul {
  title "Meşgul Menü"
  size -1 -1 200 170
  option dbu
  tab "Genel", 1, 0 -3 202 174
  box "Rumuz Ayarları", 2, 5 15 190 35, tab 1
  check "Meşgul olunca", 3, 11 24 42 10, tab 1
  edit "", 4, 55 24 24 9, autohs, tab 1
  text "ekini rumuzuma ekle.", 5, 82 25 50 10, tab 1
  check "Meşgulden çıkınca rumuzuma dön ve şifresini gir. Şifrem:", 6, 11 34 141 10, tab 1
  edit "", 7, 155 34 24 9, autohs, tab 1
  box "Meşgul Ayarları", 8, 5 54 190 35, tab 1
  check "Meşguldeyken her", 9, 11 63 52 10, tab 1
  edit "", 10, 65 63 24 9, limit 2, tab 1
  text "dakikada bir hatırlat.", 11, 93 64 50 10, tab 1
  radio "ame", 12, 145 62 20 10, group 1, tab 1
  radio "amsg", 13, 167 62 22 10, tab 1
  check "Otomatik meşgulu aktifleştir. (", 14, 11 73 80 10, tab 1
  edit "", 15, 93 73 24 9, limit 2, tab 1
  text "dakika boyunca yazmazsam. )", 16, 120 74 82 10, tab 1
  box "Diğer", 17, 5 94 190 45, tab 1
  check "Meşgul olunca tüm kanallardan deop ol.", 18, 11 113 102 10, tab 1
  check "Meşgul zamanımı belirli aralıklarla mesajımın sonuna ekle.", 19, 11 123 144 10, tab 1
  check "Meşgulde kanal seslenmelerini takip et.", 20, 11 103 102 10, tab 1
  radio "echo -a", 21, 118 102 27 10, group 4, tab 1
  radio "(@Kanal)", 22, 150 102 30 10, tab 1
  tab "Mesajlar", 100
  box "Mesaj Ayarları", 101, 5 15 190 58, tab 100 
  text "Meşgul Mesajı:", 102, 10 23 40 10, tab 100
  edit "", 103, 10 32 180 10, autohs, tab 100
  text "Meşgul Konumdan Çıkma Mesajı:", 104, 10 45 130 10, tab 100
  edit "", 105, 10 54 180 10, autohs, tab 100
  box "Açık/Kapalı", 106, 5 78 105 35, tab 100
  check "Meşgul mesajını aktifleştir." 107, 10 88 70 10, tab 100
  check "Meşgulden çıkma mesajını aktifleştir.", 108, 10 98 94 10, tab 100
  box "Kayıt", 109, 118 78 75 35, tab 100
  radio "Açık", 110, 126 87 25 10, group 2, tab 100
  radio "Kapalı", 111, 156 87 25 10, tab 100
  radio "echo -a", 112, 126 97 27 10, group 3, tab 100
  radio "(@Kayıt)", 113, 156 97 29 10, tab 100
  box "Ekstralar", 114, 5 115 105 35, tab 100
  check "Meşgul iken özelleri kapat.", 115, 11 124 73 10, tab 100
  check "Meşgulde mIRC'i sağ alt köşeye at.", 116, 11 134 93 10, tab 100
  button "<<< Genel Ayarlara Dön", 997, 115 132 77 17, tab 100
  button "Kapat", 999, 158 146 33 17, ok, tab 1
}
on *:DIALOG:meşgul:*:*:{
  if ($devent  == init) {
    did -a meşgul 4 %meşgul-ek
    did -a meşgul 7 %meşgul-şifre
    did -a meşgul 10 $calc(%meşgul-hatırlat / 60)
    did -a meşgul 15 $calc(%meşgul-dakika / 60)
    did -a meşgul 103 %meşgul-mesajı
    did -a meşgul 105 %meşgul-geridönüş
    if (%meşgul-id-3 == on) { did -c meşgul 3 | did -n meşgul 4 } | else { did -u meşgul 3 | did -m meşgul 4 }
    if (%meşgul-id-6 == on) { did -c meşgul 6 | did -n meşgul 7 } | else { did -u meşgul 6 | did -m meşgul 7 }
    if (%meşgul-id-9 == on) { did -c meşgul 9 | did -n meşgul 10 | did -e meşgul 12,13 } | else { did -u meşgul 9 | did -m meşgul 10 | did -b meşgul 12,13 }
    if (%meşgul-id-14 == on) { did -c meşgul 14 | did -n meşgul 15 } | else { did -u meşgul 14 | did -m meşgul 15 }
    $iif(%meşgul-id-18 == on, did -c meşgul  18, did -u meşgul 18)
    $iif(%meşgul-id-19 == on, did -c meşgul  19, did -u meşgul 19)
    if (%meşgul-id-20 == on) { did -c meşgul 20 | did -e meşgul 21,22 } | else { did -u meşgul 20 | did -b meşgul 21,22 }
    $iif(%meşgul-kanaltakip == echo, did -c meşgul 21, did -c meşgul 22)
    if (%meşgul-id-107 == on) { did -c meşgul 107 | did -n meşgul 103 } | else { did -u meşgul 107 | did -m meşgul 103 }
    if (%meşgul-id-108 == on) { did -c meşgul 108 | did -n meşgul 105 } | else { did -u meşgul 108 | did -m meşgul 105 }
    $iif(%meşgul-id-115 == on, did -c meşgul  115, did -u meşgul 115)
    $iif(%meşgul-id-116 == on, did -c meşgul  116, did -u meşgul 116)
    $iif(%meşgul-hatırla-tip == ame, did -c meşgul 12, did -c meşgul 13)
    if (%meşgul-kayıt == açık) { did -c meşgul 110 | did -e meşgul 112,113 } | else { did -c meşgul 111 | did -b meşgul 112,113 }
    $iif(%meşgul-kayıt-tip == echo, did -c meşgul 112, did -c meşgul 113)
  }
  if ($devent == sclick) {
    if ($did == 3) {
      if (%meşgul-id-3 == on) { set %meşgul-id-3 off | did -m meşgul 4 } | else { set %meşgul-id-3 on | did -n meşgul 4 }
    }
    if ($did == 6) {
      if (%meşgul-id-6 == on) { set %meşgul-id-6 off | did -m meşgul 7 } | else { set %meşgul-id-6 on | did -n meşgul 7 }
    }
    if ($did == 9) {
      if (%meşgul-id-9 == on) { set %meşgul-id-9 off | did -m meşgul 10 | did -b meşgul 12,13 } | else { set %meşgul-id-9 on | did -n meşgul 10 | did -e meşgul 12,13 }
    }
    if ($did == 14) {
      if (%meşgul-id-14 == on) { set %meşgul-id-14 off | did -m meşgul 15 } | else { set %meşgul-id-14 on | did -n meşgul 15 | uyar }
    }
    if ($did == 18) {
      if (%meşgul-id-18 == on) { set %meşgul-id-18 off } | else { set %meşgul-id-18 on }
    }
    if ($did == 19) {
      if (%meşgul-id-19 == on) { set %meşgul-id-19 off } | else { set %meşgul-id-19 on }
    }
    if ($did == 20) {
      if (%meşgul-id-20 == on) { set %meşgul-id-20 off | did -b meşgul 21,22 } | else { set %meşgul-id-20 on | did -e meşgul 21,22 }
    }
    if ($did == 21) {
      set %meşgul-kanaltakip echo
    }
    if ($did == 22) {
      set %meşgul-kanaltakip @Kanal
    }
    if ($did == 107) {
      if (%meşgul-id-107 == on) { set %meşgul-id-107 off | did -m meşgul 103 } | else { set %meşgul-id-107 on | did -n meşgul 103 }
    }
    if ($did == 108) {
      if (%meşgul-id-108 == on) { set %meşgul-id-108 off | did -m meşgul 105 } | else { set %meşgul-id-108 on | did -n meşgul 105 }
    }
    if ($did == 115) {
      if (%meşgul-id-115 == on) { set %meşgul-id-115 off } | else { set %meşgul-id-115 on }
    }
    if ($did == 116) {
      if (%meşgul-id-116 == on) { set %meşgul-id-116 off } | else { set %meşgul-id-116 on }
    }
    if ($did == 12) {
      set %meşgul-hatırla-tip ame
    }
    if ($did == 13) {
      set %meşgul-hatırla-tip amsg
    }
    if ($did == 110) {
      set %meşgul-kayıt açık | did -e meşgul 112,113
    }
    if ($did == 111) {
      set %meşgul-kayıt kapalı | did -b meşgul 112,113
    }
    if ($did == 112) {
      set %meşgul-kayıt-tip echo
    }
    if ($did == 113) {
      set %meşgul-kayıt-tip @kayıt
    }
    if ($did == 997) {
      did -f meşgul 1
    }
  }
  if ($devent == edit) {
    if ($did == 4) { 
      set %meşgul-ek $did(4).text
    }
    if ($did == 7) {
      set %meşgul-şifre $did(7).text
    }
    if ($did == 10) {
      set %meşgul-hatırlat $calc($did(10).text * 60)
    }
    if ($did == 15) {
      set %meşgul-dakika $calc($did(15).text * 60)
    }
    if ($did == 103) {
      set %meşgul-mesajı $did(103).text
    }
    if ($did == 105) {
      set %meşgul-geridönüş $did(105).text
    }
  }
}
alias uyar { $iif($input(Otomatik meşgul modu bir sonraki bağlantınızdan itibaren çalışmaya başlayacak.,oi,Bilgi) == $true, dialog -v meşgul meşgul) }
alias meşgulkontrol { if (%meşgul-id-14- == on) && (%meşgul-dakika !== $Null) { if ($idle == %meşguldakika] { ame [Oto. mşgl mod: $calc(%meşgul-dakika / 60) $+ ] | away [Oto. mşgl mod: $calc(%meşgul-dakika / 60) $+ ] } } }
alias meşgul-zamanla {
  var %mşgl3 $ctime
  set %mşgl2 $replace($duration($calc(%mşgl3 - %mşgl1)),hrs,saat,mins,dakika,secs,saniye,sec,saniye,min,dakika,hr,saat,wks,hafta,wk,hafta,days,gün,day,gün)
}
alias meşgul-ekle {
  /away [Msg: $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,%meşgul-mesajı,Belirtilmemiş...) $+ ] [Bşlngç: %meşgul-zaman $+ ] [Zmn: %mşgl2 $+ ]
}
alias deopall {
  var %. $chan(0) 
  while %. { 
    if $me isop $chan(%.) {
      mode $chan(%.) -aoh $me $me $me
    }
    dec %.
  }
}
alias notlarım { $iif(%meşgul-kayıt-tip == echo,enotlarım,wnotlarım) }
alias enotlarım {
  echo -a [Kayıtlı Notlarınız]
  linesep
  var %1 = 1, %2 = $lines(kayıt.txt) 
  while %1 <= %2 {
    echo $active $read(Kayıt.txt,%1) 
    inc %1
  }
  linesep
  write -c Kayıt.txt
  unset %mesaj-sayısı
}
alias wnotlarım {
  if !$window(@Kayıt) { 
    window -g1k0n @Kayıt 
  }
  aline -p @Kayıt [Kayıtlı Notlarınız]
  aline -p @Kayıt -
  var %1 = 1, %2 = $lines(kayıt.txt) 
  while %1 <= %2 {
    aline -p @Kayıt $read(Kayıt.txt,%1)
    inc %1
  }
  aline -p @Kayıt -
  write -c Kayıt.txt
  unset %mesaj-sayısı
}
alias mesaj-uyar { 
  linesep
  echo -a Size bırakılmış  $+ %mesaj-sayısı $+  adet not var.
  echo -a Okumak için /Notlarım yazın.
  linesep
}
alias kanal-uyar {
  linesep
  echo -a Size kanallarda  $+ %mesaj-takip $+  defa seslenilmiş.
  echo -a Okumak için /Kanaltakip yazın.
  linesep
}
alias kanaltakip { $iif(%meşgul-kanaltakip == echo, ekanaltakip, wkanaltakip) }
alias ekanaltakip {
  echo -a [Kanal Takip Mesajlarınız]
  linesep
  var %^ = 1, %^^ = $lines(Takip.txt)
  while %^ <= %^^ {
    echo $active $read(Takip.txt,%^) 
    inc %^
  }
  linesep
  write -c takip.txt
  unset %mesaj-takip
}
alias wkanaltakip {
  if !$window(@Kanal) {
    window -g1k0n @Kanal
  }
  aline -p @Kanal [Kanal Takip Mesajlarınız]
  aline -p @Kanal -
  var %^ = 1, %^^ = $lines(Takip.txt)
  while %^ <= %^^ {
    aline -p @Kanal $read(Takip.txt,%^)
    inc %^
  }
  aline -p @Kanal -
  write -c Takip.txt
  unset %mesaj-takip
}
alias mşgl {
  set %meşgul-zaman $time
  if (%meşgul-id-3 == on) && (%meşgul-ek !== $Null) { 
    nick $+($me,%meşgul-ek)
  }
  if (%meşgul-id-18 == on) {
    .timermşgl2 1 1 /deopall
  }
  if (%meşgul-id-9 == on) && (%meşgul-hatırlat !== $Null) {
    .timermşgl1 0 %meşgul-hatırlat /$iif(%meşgul-hatırla-tip == ame,ame,amsg) $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,[Mşgl: Aktif] [Msg: %meşgul-mesajı $+ ] [Bşlngç: %meşgul-zaman $+ ],[Mşgl: Aktif] [Bşlngç: %meşgul-zaman $+ ])   
  }
  if (%meşgul-id-19 == on) {
    set %mşgl1 $ctime
    .timermşgl4 0 39 meşgul-zamanla
    .timermşgl3 0 41 meşgul-ekle
  }
  /away $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,[Msg: %meşgul-mesajı $+ ],[Msg: Belirtilmemiş...]) [Bşlngç: %meşgul-zaman $+ ]
  /ame $iif(%meşgul-id-107 == on && %meşgul-mesajı !== $Null,[Msg: %meşgul-mesajı $+ ],[Meşgul konuma geçildi.]) [Bşlngç: %meşgul-zaman $+ ]
  if (%meşgul-id-116 == on) {
    .timermşgl116 1 2 /showmirc -t
  }
}
alias mşgldön {
  /away
  if (%meşgul-id-6 == on) && (%meşgul-şifre !== $Null) {
    nick $remove($me,%meşgul-ek)
    .timer 1 2 /ns identify %meşgul-şifre
  }
  .timermşgl* off
  unset %meşgul-zaman
  ame $iif(%meşgul-id-108 == on && %meşgul-geridönüş !== $Null,[ $+ %meşgul-geridönüş $+ ],[Meşgul konumdan çıkıldı...]) $iif(%mşgl2,[Zmn: %mşgl2 $+ ])
  if (%mesaj-sayısı > 0) {
    mesaj-uyar
  }
  if (%mesaj-takip > 0) {
    kanal-uyar
  }
}
on *:CONNECT:{ if (%meşgul-id-14 == on) { .timermşglkntrl 0 1 /meşgulkontrol } }
on *:DISCONNECT:{ .timermşgl* off }
on 1:TEXT:*:?:{
  if $away {
    if (%meşgul-kayıt == açık) {
      if ($1 !== !Not) {
        msg $nick [Mşgl: Aktif] [Not bırakın:] < !Not Mesajınız >
      }
      elseif ($1 == !Not) && ($2- !== $Null) {
        msg $nick Teşekkürler $nick $+ , mesajınız kaydedildi.
        write Kayıt.txt [ $+ $nick $+ ] [ $+ $address $+ ] [ $+ $fulldate $+ ] [Mesaj: $2-  $+ ]
        inc %mesaj-sayısı
      }
      elseif ($1 == !Not) && ($2- == $Null) {
        msg $nick Not belirtmediniz, lütfen notunuzu yazın.
      }
    }
    if (%meşgul-id-115 == on) { closemsg $nick }
  }
}
on *:TEXT:*:#:{
  if (%meşgul-id-20 == on) {
    if ($me isin $1-) {
      write Takip.txt [ $+ $server $+ ] [ $+ $chan $+ ] [ $+ $nick $+ ] [ $+ $fulldate $+ ] [Mesaj: $1- $+ ]
      inc %mesaj-takip
    }
  }
}
menu status,channel {
  Meşgul Modu < $+ $iif($away,Açık,Kapalı) $+ >
  .$iif($away,Meşgulden çık,Meşgule geç):if ($away == $true) /mşgldön | else /mşgl 
  .-
  .Ayarlar:/meşgul
}
on *:LOAD:{
  linesep
  echo -a [Meşgul Menü] Başarıyla yüklendi.
  echo -a [KOD]
  linesep
  set %meşgul-ek [YOK]
  set %meşgul-id-3 on
  set %meşgul-id-6 off
  set %meşgul-id-9 on
  set %meşgul-hatırlat 900
  set %meşgul-hatırla-tip ame
  set %meşgul-id-14 on
  set %meşgul-dakika 600
  set %meşgul-id-18 on
  set %meşgul-id-19 on
  set %meşgul-mesajı Bilgisayar başında değilim...
  set %meşgul-geridönüş Geri Geldim...
  set %meşgul-id-107 on
  set %meşgul-id-108 on
  set %meşgul-kayıt kapalı
  set %meşgul-id-115 on
}
on *:UNLOAD:{
  linesep
  echo -a [Meşgul Menü] Başarıyla kaldırıldı.
  linesep
  unset %meşgul-*
}
; <=