alias awaymi {
;%_ lokal değişkenine aktif pencereye kırmızıyla /awaymi: yazacak komut atanıyor
 var %_ = echo 4 -at *** /awaymi:
;eğer /awaymi komutundan sonra bir şey yazılmamışsa bunun hatalı kullanım olduğu gösteriliyor.
 if !$1 { %_ Hatalı kullanım, /awaymi <nick> | return }
;eğer /awaymi komutunu kendi nickiniz &#252;zerinden deniyorsanız sizin durumunuzu who &#231;ekmeden g&#246;steriyor.
 if $1 == $me { %_ Siz $+([,$me,]) $iif($away,awaysiniz,away değilsiniz.) }
;eğer bunların hi&#231; biri değilse
 else {
;%nick değişkenine d değeri atanıyor
   set $+(%,$1) d
;nicke who &#231;ekiliyor
   who $1
;nickin durumuna bakıldığını aktif pencereye yansıtıyor
   %_ $1 nickinin away olup olmadığına bakılıyor.
  }
}
;serverdan gelen 352. rawa g&#246;re
raw 352:*:{
;eğer bu rawdaki nick %nick değişkeni d ye eşitse
 if $($+(%,$6),2) = d {
;eğer 7. kelimede yani modların bulunduğu kelimede G varsa nickin away olduğu, yoksa away olmadığı g&#246;steriliyor
   if G isincs $7 { echo 4 -at *** $6 away } | else { echo 4 -at *** $6 away değil. }
;who cevabının ekrana &#231;ıkmasını engelliyor
   halt
  }
}
;serverdan gelen 315. rawa g&#246;re yani end of /who list rawı
raw 315:*:{
;eğer bu rawdaki nick %nick değişkeni d ye eşitse o değişkeni kaldırıyo ve pencereye bu rawı g&#246;stermiyor
  if $($+(%,$2),2) = d { unset $($+(%,$2),1) | halt }
}

on @*:text:*http://*:#:{
if $away {
kick # $nick Ben awayken reklam yapma.
}
}

on *:INPUT:#:{
  if ($1 == /away) && $me ison #X {
    part #X
  }
  if $me !ison #X {
    join #X
  }
} 

on *:INPUT:#:{
  if ($1 == /away) {
    if $me ison #X {
      part #X
    }
    if $me !ison #X {
      join #X
    }
  } 
}