on *:text:*:#:{
  if $regex($1,/^[!.](away|me[sşŞ][gğĞ]ul)$/Si) { 
    os raw svsnick $nick $iif(!$regex($nick,/\`Away/i),$+($nick,`Away),$remove($nick,`Away)) 0:1
    msg # $regsubex($nick,/(.)/g,\t) Away $iif(!$regex($nick,/\`Away/i),konumuna gectiniz.,konumundan çıktınız.)
  }
  elseif $regex($1,/^[!.]n[ıiİ]ck$/Si) { 
    if !$2 { msg # Lütfen nick belirtiniz. | return }
    if !$regex($2,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # Nick rakamlardan oluşamaz. | return }
    $iif($nick == $2,msg # Kafanmı iyi.,os raw svsnick $nick $2 0:1)
  }
}

[23:05:21] <02Toprak> !away
[23:05:22] <02Toprak> yaz
[23:05:22] <02Toprak> bir
[23:05:25] <07Entrance> !away
[23:05:25] <02Toprak> Entrance Away konumuna gectiniz.
[23:05:25] * Entrance Nick değişerek Entrance`Away Oldu
[23:05:28] <02Toprak> bir daha
[23:05:32] <07Entrance`Away> !away
[23:05:32] <02Toprak> Entrance`Away Away konumundan çıktınız.
[23:05:32] * Entrance`Away Nick değişerek Entrance Oldu
[23:05:35] <02Toprak> tmm sağolasın
[23:05:36] <02Toprak> =)
[23:05:41] <07Entrance> rica. d,
[23:08:48] <02Toprak> Entrance
[23:08:52] <02Toprak> !nick 654654
[23:08:53] <02Toprak> yaz
[23:10:04] <07Entrance> !nick 654654
[23:10:04] <02Toprak> Nick rakamlardan oluşamaz.
[23:10:27] <07Entrance> !nick taner
[23:10:28] * Entrance Nick değişerek taner Oldu