[12:14:22] <~Forbidden> ...
[12:30:21] * Forbidden Nick değişerek Forbidden|Meşgul Oldu
[12:59:25] * Forbidden|Meşgul Nick değişerek Forbidden|Dışarıda Oldu
[13:01:44] <~Forbidden|Dışarıda> ...
[13:01:44] * Forbidden|Dışarıda Nick değişerek Forbidden Oldu

alias away_baslat {
  var %ana.nick = $gettok($me,1,124)
  set %orijinal.nick %ana.nick
  set %away.durum normal
  if (!$timer(kontrol)) { .timerkontrol 0 60 away_kontrol }
}

on *:connect:{
  set %son.aktif $ctime
  away_baslat
}

on *:input:*:{
  var %karakter = $left($1-,1)
  if (%karakter != /) && (%karakter != $null) {
    set %son.aktif $ctime
    if ((%away.durum != normal) && (%orijinal.nick != $null)) {
      nick %orijinal.nick
      set %away.durum normal
    }
  }
}

on *:nick:{
  if ($nick == $me) {
    if (%away.durum == normal) {
      set %orijinal.nick $newnick
    }
  }
}

alias away_kontrol {
  if (!%orijinal.nick) { set %orijinal.nick $gettok($me,1,124) }
  if (!%son.aktif) { set %son.aktif $ctime }
  var %gecen = $calc($ctime - %son.aktif)
  if (%gecen >= 2700) {
    if (%away.durum != disarida) {
      nick %orijinal.nick $+ |Dışarıda
      set %away.durum disarida
    }
  }
  elseif (%gecen >= 900) {
    if (%away.durum != mesgul) {
      nick %orijinal.nick $+ |Meşgul
      set %away.durum mesgul
    }
  }
}