#away on
alias _rsfile { return $readini($shortfn($mircdir $+ settings\set.ini),$1,$2) }
alias _wsfile { writeini $shortfn($mircdir $+ settings\set.ini) $1 $2 $3- }
alias _rawfile { return $readini($shortfn($mircdir $+ settings\away.ini),$1,$2) }
alias _wawfile { writeini $shortfn($mircdir $+ settings\away.ini) $1 $2 $left($3-,800) }
alias _gawfile { return $ini($shortfn($mircdir $+ settings\away.ini),$1) }
alias _cawfile { return $ini($shortfn($mircdir $+ settings\away.ini),$1,0) }
alias goaway {
  var %awaymsg $iif($1,$1-,$_rsfile(away,amsg))
  $_wawfile(away,atime,$time) | $_wawfile(away,btime,0)
  echo 12 -ta * artık away'siniz.. 4away mesajı: %awaymsg 4logger: $iif($_rsfile(away,logger) == on,açık,kapalı) 4agent: $iif($_rsfile(away,agent) == on,açık,kapalı)  4zaman: $time
  away %awaymsg
  var %x 1
  while ($gettok($_rsfile(away,aperform),%x,152)) {
    $ifmatch
    inc %x
  }
  tnick $me $+ $_rsfile(away,anick)
}
alias back {
  away
  $_wawfile(away,btime,$time)
  echo 12 -ta * artık away değilsiniz..logları okumak için 4/logoku yazın.. 4away zamanı: $_rawfile(away,atime) 4dönüş zamanı: $_rawfile(away,btime) 
  nick $remove($me,$_rsfile(away,anick))
  var %x 1
  while ($gettok($_rsfile(away,bperform),%x,152)) {
    $ifmatch
    inc %x
  }
}
alias -l nmodes {
  if ($1 isreg $2) return
  var %mode = $left($nick($2,$1).pnick,1)
  if (%mode = $chr(64)) return  $+ $_rsfile(mdclr,op) $+ @
  if (%mode = $chr(37)) return  $+ $_rsfile(mdclr,hop) $+ % $+ 
  if (%mode = +) return  $+ $_rsfile(mdclr,voice) $+ +
  if (%mode = $chr(46)) return  $+ $_rsfile(mdclr,founder) $+ . $+ 
}
on ^*:TEXT:*:*: {
  var %target = $iif($chan,$target,$query($nick))
  if ((!$chan) && ($away) && ($_rsfile(away,logger) == on)) {
    $_wawfile($nick,msg $+ $calc($_cawfile($nick) + 1),$1- $+ $chr(152) $+ $time $+ $chr(152) $+ ozel)
    $_wawfile(away,count,$calc($_rawfile(away,count) + 1))
  }
  if ($me isin $1-) {
    if (($chan) && ($away) && ($_rsfile(away,logger) == on)) {
      $_wawfile($nick,msg $+ $calc($_cawfile($nick) + 1),$1- $+ $chr(152) $+ $time $+ $chr(152) $+ $chan)
      $_wawfile(away,count,$calc($_rawfile(away,count) + 1))
    }
    if ($_rsfile(memsg,memsn) == on) {
      if $nick == HTSC { halt }
      if $nick == HTYS { halt }
      echo $colour(normal) -t %target $_rsfile(other,nsep1) $+ $iif($chan,$nmodes($nick,#)) $+ $nick $+ $_rsfile(other,nsep2) $iif($_rsfile(memsg,mecol) == on,$replace($1-,$me, $+ $_rsfile(memsg,mecolor) $+ $me $+ ),$1-)
      window -g2 %target 
      set % [ $+ target $+ . $+ [ %target ] ] 1
      $iif($_rsfile(memsg,meflash) == on,flash $target)
      if ($appactive) && (%target == $active) { halt }
      var %pass $iif($away,$iif($_rsfile(away,agent) == on,1,0),$iif($_rsfile(memsg,meagent) == on,1,-1))
      if (%pass == 1) {
        if (!$agent(notagent)) .gload -h notagent
        var %text $nick $iif($chan,$ifmatch kanalında,özelde) size sesleniyor: $1-
        .gopts -b notagent on nopace
        .gtalk -l notagent %text
      }
      elseif (%pass == -1) {
        echo $colour(info2) -ta * 4 $+ $iif($chan,$ifmatch,Özelde) $+ : $_clr(notify) $_rsfile(other,nsep1) $+ $nick $+ $_rsfile(other,nsep2) $_clr(notice,[) $+ $_clr(notify)  $+ $colour(normal) $+ $1- $_clr(notice,])
      }
      halt
    }
  }
  echo $colour(normal) -t %target $_rsfile(other,nsep1) $+ $iif($chan,$nmodes($nick,#)) $+ $nick $+ $_rsfile(other,nsep2) $1-
  halt
}
on *:ACTIVE:*: { unset % [ $+ target $+ . $+ [ $target ] ] }
on *:INPUT:*: {
  if ($target == Status Window) return
  if ($ctrlenter || $left($1,1) != /) {
    echo $colour(own) -t # $_rsfile(other,nsep1) $+ $iif($chan,$nmodes($me,#)) $+ $me $+ $_rsfile(other,nsep2) $1-
    .quote privmsg $target : $+ $1-
    halt
  }
}
alias _remall { 
  var %x 1,%total
  while ($_gawfile(%x)) {
    %total = $addtok(%total,$ifmatch,152)
    inc %x
  }
  %x = 1
  while ($gettok(%total,%x,152)) {
    remini $shortfn($mircdir $+ settings\away.ini) $ifmatch    
    inc %x
  }
}
alias logoku {
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) window -ek0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tahoma 12
  titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Away Log Okuma Penceresi
  clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  var %atime $iif($_rawfile(away,atime),$ifmatch,belirsiz),%btime $iif($iif($away,away,$_rawfile(away,btime)),$ifmatch,belirsiz),%atotal $iif($duration($iif($away,$awaytime,$iif($calc($duration(%btime) - $duration(%atime)),$ifmatch,belirsiz))),$ifmatch,belirsiz)
  echo 12 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $chr(91) $+ $time $+ $chr(93) Away Zamanı:4 %atime Dönüş Zamani:4 %btime Away Kalma Süresi:4 %atotal  Mesaj Sayisi:4 $iif($_rawfile(away,count),$ifmatch,0)
  var %x 1,%y,%match
  while ($_gawfile(%x)) {
    %y = 1 | %match = $ifmatch
    while ($_rawfile(%match,msg $+ %y)) { 
      echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $chr(91) $+ $gettok($ifmatch,2,152) $+ $chr(93) $chr(91) $+ $gettok($ifmatch,3,152) $+ $chr(93) < $+ %match $+ > $gettok($ifmatch,1,152) 
      inc %y
    } 
    inc %x
  }
}
menu channel,status {
  -
  » Away Menü
  .$iif(!$away,Away Ol):goaway
  .$iif(!$away,Away Sebep):goaway $$?="Away Mesaji"
  .$iif($away,Geri Dön):back
  .-
  .Logları oku:logoku
  .-
  .Away ayarlari:awayset
  -
}
alias awayset { if (!$dialog(_awaydiag)) dialog -m _awaydiag _awaydiag }
dialog _awaydiag {
  title "Script Ayarları"
  size -1 -1 170 120
  option dbu
  tab "Genel", 25, 2 2 142 113
  box "Genel Ayarlar", 26, 5 20 135 90, tab 25
  check " Bağlantıda  Lagmetre:", 27, 10 31 70 10, tab 25
  text "Ctcp Süresi:", 28, 80 32 30 8, tab 25
  edit "", 29, 112 30 17 10, tab 25
  text "Whois Gosterme Penceresi:", 30, 10 46 67 8, tab 25
  radio "Whois", 31, 80 45 26 10, tab 25
  radio "Aktif", 32, 112 45 22 10, tab 25
  text "Kullanılacak Nick Ayıracları:", 33, 10 59 67 8, tab 25
  edit "", 35, 80 57 13 10, tab 25
  text "Mode Renkleri:", 37, 10 72 37 8, tab 25
  text "+u", 38, 49 72 8 8, tab 25
  edit "", 39, 58 70 13 10, tab 25
  text "Toolbar Arka Plan Rengi:", 46, 10 85 59 8, tab 25
  edit "", 47, 80 83 58 10, tab 25
  text "nick", 48, 98 59 10 8, tab 25
  text "sn.", 49, 130 32 7 8, tab 25
  tab "Away", 1
  box "Away ayarlari", 2, 5 20 135 90, tab 1
  text away sebebi, 3, 10 35 50 10, tab 1
  combo 4, 50 32 85 90, tab 1 drop
  text away nick şekli, 5, 10 55 80 10, tab 1
  edit "", 6, 50 52 30 10, tab 1
  text "sebep", 7, 85 55 20 10, tab 1
  button "ekle", 8, 103 52 15 10, tab 1
  button "sil", 9, 120 52 15 10, tab 1
  check " logger açık", 10, 10 75 40 10, tab 1
  check " agent açık", 11, 10 90 40 10, tab 1
  button "away olunca yapılacaklar", 12, 50 75 85 10, tab 1
  button "away dönüşünde yapılacaklar", 13, 50 90 85 10, tab 1
  tab "Bildirici", 14
  box "Bildirici ayarlari", 15, 5 20 135 90, tab 14
  check " nickim geçtiğinde bana bildir", 16, 10 35 100 10, tab 14
  check " nickim geçtiğinde nickimi renkli goster", 17, 10 50 100 10, tab 14
  edit "", 18, 10 65 13 10, tab 14 autohs
  text "renk kodu 0-15 arası rakam girin", 19, 28 67 90 10, tab 14
  check " nickimin geçtiği pencere yanıp sönsün", 20, 10 80 100 10, tab 14
  radio " agent ile", 21, 10 95 33 10, group tab 14
  radio " text ile", 22, 45 95 30 10, tab 14
  text "bildirme şekli", 23, 80 96 40 10, tab 14
  button "Kaydet", 24, 145 15 23 20
  button "Çıkış", 34, 145 35 23 20, cancel
  edit "", 36, 112 57 13 10,tab25
  text "+o", 40, 72 72 8 8,tab25
  edit "", 41, 80 70 13 10,tab25
  text "+h", 42, 94 72 8 8,tab25
  edit "", 43, 102 70 13 10,tab25
  text "+v", 44, 116 72 8 8,tab25
  edit "", 45, 125 70 13 10,tab25
}
on *:dialog:_awaydiag:init:*: {
  did -a $dname 6 $_rsfile(away,anick)
  did $iif($_rsfile(away,logger) == on,-c,-u) $dname 10
  did $iif($_rsfile(away,agent) == on,-c,-u) $dname 11
  did $iif($_rsfile(memsg,memsn) == on,-c,-u) $dname 16
  did $iif($_rsfile(memsg,mecol) == on,-c,-u) $dname 17
  did -a $dname 18 $_rsfile(memsg,mecolor)
  did $iif($_rsfile(memsg,meflash) == on,-c,-u) $dname 20
  did -c $dname $iif($_rsfile(memsg,meagent) == on,21,22)
  _rcombo $dname 4
  did $iif($_rsfile(other,lagmeter) == on,-c,-u) $dname 27
  did -a $dname 29 $_rsfile(other,lagtime)
  did -a $dname 35 $_rsfile(other,nsep1)
  did -a $dname 36 $_rsfile(other,nsep2)
  did -a $dname 41 $_rsfile(mdclr,op)
  did -a $dname 43 $_rsfile(mdclr,hop)
  did -a $dname 45 $_rsfile(mdclr,voice)
  did -a $dname 39 $_rsfile(mdclr,founder)
  did -a $dname 47 $_rsfile(other,toolbg)
  did -c $dname $iif($_rsfile(other,whois) == whois,31,32)
}
on *:dialog:_awaydiag:sclick:24: {
  if ($did == 24) {
    $iif($did(6),$_wsfile(away,anick,$ifmatch))
    $iif($did(4),$_wsfile(away,amsg,$ifmatch))
    $_wsfile(away,logger,$iif($did(10).state,on,off))
    $_wsfile(away,agent,$iif($did(11).state,on,off))
    $_wsfile(memsg,memsn,$iif($did(16).state,on,off))
    $_wsfile(memsg,mecol,$iif($did(17).state,on,off))
    $_wsfile(memsg,meflash,$iif($did(20).state,on,off))
    $_wsfile(memsg,meagent,$iif($did(21).state,on,off))
    $iif($did(18) isnum 0-15,$_wsfile(memsg,mecolor,$ifmatch))
    $iif($did(29),$_wsfile(other,lagtime,$ifmatch))
    $iif($did(35),$_wsfile(other,nsep1,$ifmatch))
    $iif($did(36),$_wsfile(other,nsep2,$ifmatch))
    $iif($did(41) isnum 0-15,$_wsfile(mdclr,op,$ifmatch))
    $iif($did(43) isnum 0-15,$_wsfile(mdclr,hop,$ifmatch))
    $iif($did(45) isnum 0-15,$_wsfile(mdclr,voice,$ifmatch))
    $iif($did(39) isnum 0-15,$_wsfile(mdclr,founder,$ifmatch))
    $_wsfile(other,lagmeter,$iif($did(27).state,on,off))
    $_wsfile(other,whois,$iif($did(31).state,whois,active))
  }

}
on *:dialog:_awaydiag:sclick:8,9,12,13: {
  if ($did == 8) $_wsfile(away,msg,$addtok($_rsfile(away,msg),$$?="Eklenecek Away Mesajini Girin",152))
  if ($did == 9) $_wsfile(away,msg,$remtok($_rsfile(away,msg),$$did(4),152))
  if ($did == 12) _crdiagaw aperform
  if ($did == 13) _crdiagaw bperform
  _rcombo $dname 4
}
alias -l _rcombo {
  did -r $1 $2
  var %x 1
  while ($gettok($_rsfile(away,msg),%x,152)) {
    did -a $1 $2 $ifmatch
    inc %x
  }
  did -c $1 $2 $iif($findtok($_rsfile(away,msg),$_rsfile(away,amsg),152),$ifmatch,1)
}
alias -l _rawdiag {
  var %x 1
  did -r $1 $2
  while ($gettok($_rsfile(away,%diag3),%x,152)) {
    did -a $1 $2 $ifmatch
    inc %x
  }
}
alias _crdiagaw {
  if ($dialog(_awlist)) dialog -x _awlist
  set %diag3 $1
  dialog -m _awlist _awlist
}
dialog _awlist {
  title "Away Ayarları"
  size -1 -1 250 200
  text Yapılacak İşlemler Listesi,  1, 11 10 200 180
  list            2,  10  30 195 175,autohs
  button Ekle,    3, 210  30  35  35, 
  button Sil,   4, 210  64  35  35,
  button Çıkış,   5, 210  98  35  35,cancel   
}
on *:dialog:_awlist:init:*: { _rawdiag $dname 2 }
on *:dialog:_awlist:sclick:3,4: {
  if ($did == 3) $_wsfile(away,%diag3,$addtok($_rsfile(away,%diag3),$$?="Eklenecek İşlemi Girin",152))
  if (($did == 4) && ($did(2).seltext)) $iif($did(2).lines <= 1,$_wsfile(away,%diag3,|),$_wsfile(away,%diag3,$remtok($_rsfile(away,%diag3),$did(2).seltext,152)))
  _rawdiag $dname 2
}
on *:dialog:_awlist:close:*: { unset %diag3 }
on *:AGENT:{ if ($agentname == notagent) .gunload notagent }
on *:DISCONNECT:{ _remall }
raw 353:* { if (%names.x)  halt }
raw 366:* { 
  if (%names.x) {
    unset %names.x  
    halt
  }
}
alias refchan {
  set %names.x 1
  names #
}

#away end