on *:text:*:#: {
  if $1 == !at {
    if !$2 { msg $chan Lutfen Nick Belirtiniz "!at Nick" | return } 
    if $2 == $me { msg $chan Benim için oylama başlatamazsiniz $nick | return }
    if $2 == $nick { msg $chan Kendiniz için oy kullanamazsınız $nick | return }
    if $nick == $read(cure/ $+ $2 $+ .txt,1) { msg $chan Oylamayı Zaten Siz Başlattınız $nick | return }
    if $read(cure/ $+ $2 $+ .txt,w,$nick) { msg $chan Bu Oylamaya Daha Önce Katılmışsınız $nick | return }
    if $2 ison $chan {
      mkdir cure
      write cure/ $+ $2 $+ .txt $nick
      if $lines(cure/ $+ $2 $+ .txt) == 5 { 
        msg $chan $2 Nicki Atmak İçin Oylama (  $lines(cure/ $+ $2 $+ .txt) / 5 ) ve Atılmıştır. 
        mode $chan +b $2 
        kick $chan $2 Oylama Sonucu Atıldı. 
        write -c cure/ $+ $2 $+ .txt 
        return
      }
      if $lines(cure/ $+ $2 $+ .txt) == 1 { 
        msg $chan $nick $chan Kanalından $2 Nickinin Atılması İçin Oylama Başlatmıştır. Katılmak İstiyorsanız !at $2 Yapınız. 
      }
      else msg $chan $2 Nicki Atmak İçin Oylama (  $lines(cure/ $+ $2 $+ .txt) / 5 )
    }
    else { msg $chan $2 Nickli Kisi Kanalda Yok $nick Oylama Durduruldu | write -c cure/ $+ $2 $+ .txt }
  }
}

on *:text:*:#: {
  if $1 == !at {
    if !$2 { msg $chan Lutfen Nick Belirtiniz "!at Nick" | return } 
    if $2 == $me { msg $chan Benim için oylama başlatamazsiniz $nick | return }
    if $2 == $nick { msg $chan Kendiniz için oy kullanamazsınız $nick | return }
    if $nick == $read(cure/ $+ $2 $+ .txt,1) { msg $chan Oylamayı Zaten Siz Başlattınız $nick | return }
    if $read(cure/ $+ $2 $+ .txt,w,$nick) { msg $chan Bu Oylamaya Daha Önce Katılmışsınız $nick | return }
    if $2 ison $chan {
      var %ymc 1
      while %ymc <= $hget($2,0).data {
        .timer 1 1 if $hget($2,%ymc).item == %:_atnick { msg $chan Bu ip üzerinden daha önce oylama yapılmış... }
        inc %ymc
      }
      mkdir cure
      $iif($hget($2) == $2,halt,.hmake $2)
      .userip $nick
      .timer 1 1 .hadd -s $2 %:_atnick
      write cure/ $+ $2 $+ .txt $nick
      if $lines(cure/ $+ $2 $+ .txt) == 5 { 
        msg $chan $2 Nicki Atmak İçin Oylama (  $lines(cure/ $+ $2 $+ .txt) / 5 ) ve Atılmıştır. 
        mode $chan +b $2 
        kick $chan $2 Oylama Sonucu Atıldı. 
        write -c cure/ $+ $2 $+ .txt 
        .hfree $2
        return
      }
      if $lines(cure/ $+ $2 $+ .txt) == 1 { 
        msg $chan $nick $chan Kanalından $2 Nickinin Atılması İçin Oylama Başlatmıştır. Katılmak İstiyorsanız !at $2 Yapınız. 
      }
      else msg $chan $2 Nicki Atmak İçin Oylama (  $lines(cure/ $+ $2 $+ .txt) / 5 )
    }
    else { msg $chan $2 Nickli Kisi Kanalda Yok $nick Oylama Durduruldu | write -c cure/ $+ $2 $+ .txt }
  }
}
raw 340:*: {
  set %:_atnick $gettok($1-,2,64)
  halt
}