on *:text:*:#: {
  if $regex($1,/[!.]nick/Si) {
   if !$2 { msg $chan Lütfen nick belirtiniz $nick . | return }
   $iif($nick == $2,msg $chan Zaten $2 Nickindesiniz,os raw svsnick $nick $2 :0)
  }
  if $regex($1,/[!.]away/Si) {
   if !$2 {
    if *|away* iswm $nick { os raw svsnick $nick $gettok($nick,1,124) :0 | msg $chan $gettok($nick,1,124) away konumundan çıktınız. }
    else { os raw svsnick $nick $+($nick,|away) :0 | msg $chan $+($nick,|away) away nicki aldınız. }
   }
   else { msg $nick Lütfen Sadece !away veya .away şeklinde kullanınız. $nick }
  }
}

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

alias tarama { dialog -m identtara identtara }
dialog identtara {
  title "ident taraması"
  size -1 -1 133 71
  option dbu
  box "", 1, 2 1 129 60
  text "taranacak identi yazınız", 2, 2 9 128 8, center
  edit "", 3, 8 18 116 10, center
  button "TARA !", 4, 37 30 55 22
  link "YouMyCure", 5, 99 62 31 8
}
dialog identsonuc {
  title "ident taraması sonuç"
  size -1 -1 187 31
  option dbu
  box "", 1, 2 1 183 22
  link "YouMyCure", 5, 152 23 31 8
  edit "", 2, 5 6 177 14, read
}
on *:dialog:*:*:*: {
  if $dname == identtara {
    unset %&:_
    if $devent == sclick && $did == 4 {
      if !$did(3) { 
        set %&:_ Lütfen taranacak ident giriniz. 
        dialog -x $dname $dname 
        dialog -m identsonuc identsonuc
        return 
      }
      var %:_ymc = 1 
      while (%:_ymc <= $lines(identop.txt)) {
        if $did(3) == $read(identop.txt,%:_ymc) {
          set %&:_ $did(3) identi listede bulundu.... 
          dialog -x $dname $dname 
          dialog -m identsonuc identsonuc 
          return 
        }
        inc %:_ymc   
      } 
      set %&:_ $did(3) identi bulunamadı ve listeye eklendi.... 
      write identop.txt $did(3) 
      dialog -x $dname $dname 
      dialog -m identsonuc identsonuc
    }
  }
  if $dname == identsonuc && $devent == init {
    did -a identsonuc 2 %&:_
  }
}

/tarama

alias tarama { dialog -m identtara identtara }
dialog identtara {
  title "ident taraması"
  size -1 -1 133 71
  option dbu
  box "", 1, 2 1 129 60
  text "taranacak identi yazınız", 2, 2 9 128 8, center
  edit "", 3, 8 18 116 10, center
  button "TARA !", 4, 37 30 55 22
  link "YouMyCure", 5, 99 62 31 8
}
dialog identsonuc {
  title "ident taraması sonuç"
  size -1 -1 187 31
  option dbu
  box "", 1, 2 1 183 22
  link "YouMyCure", 5, 152 23 31 8
  edit "", 2, 5 6 177 14, read
}
on *:dialog:*:*:*: {
  if $dname == identtara {
    unset %&:_
    if $devent == sclick && $did == 4 {
      if !$did(3) { 
        set %&:_ Lütfen taranacak ident giriniz. 
        dialog -x $dname $dname 
        dialog -m identsonuc identsonuc
        return 
      }
      var %:_ymc = 1 
      while (%:_ymc <= $lines(identop.txt)) {
        if $did(3) == $gettok($read(identop.txt,%:_ymc),1,32) {
          set %&:_ $did(3) identi listede bulundu.... $gettok($read(identop.txt,%:_ymc),2,32) nickine ait....
          dialog -x $dname $dname 
          dialog -m identsonuc identsonuc 
          return 
        }
        inc %:_ymc   
      } 
      set %&:_ $did(3) identi bulunamadı ve listeye eklendi.... 
      write identop.txt $did(3) 
      dialog -x $dname $dname 
      dialog -m identsonuc identsonuc
    }
  }
  if $dname == identsonuc && $devent == init {
    did -a identsonuc 2 %&:_
  }
}

deneme YouMyCure
ident SuLh
ident3 Feragat