on @*:JOIN:#Gevezeyiz:{

  notice $nick [Welcome Messages]: istanbul Kanalına Hosgeldiniz.

  if ($read(bot-registered.txt,s,$nick) { notice $nick Siz kayıtlı kullanıcımız #istanbul kanalında farkı ve sohbeti bizimle yaşayın. Lütfen !login olunuz. }

  else { notice $nick #istanbul kanalında farkı ve sohbeti bizimle yaşamak istiyorsanız; özelime !register şifre yazarak kendinizi kayıt ediniz. 

  }

}

on *:notice:*:?: {

  if $nick == Nickserv {

    if *Kayit zamani:* iswm $strip($1-) {

      $iif($remove($strip($8),[) => 10,write bot-registered.txt %nick yes,write bot-registered.txt %nick no)

      return

    }

    if %nick kayitli bir nick degil. isin $strip($1-) { write bot-registered.txt %nick unreg }

  }

}

alias checkreg {

  notice $1 Her $network Kullanıcımıza İstanbul kanalında operatör olabilme şansı. Bu uygulama sadece kayıtlı nickler icindir

  notice $1 Nasılmı? benim özelime kayıt olunuz

  notice $1 Kayıt olmak icin lutfen özelime !Register Şifre Yazınız.

  notice $1 Önemli Not; Kendi kayıtlı nickinizin sifresini yazmayın!

  notice $1 Örnektir. !register 12345

}

on *:text:*:?:{ 

  if ($1 = !register) { ns info $nick | set %nick $nick

    if $read(bot-registered.txt,s,$nick) { $iif(!$istok(unreg no yes,$v1,32),Notice $nick Bu nick zaten kayıtlı!,goto register) } 

    :register

  if $2 { write bot-registered.txt $nick $2 | notice $nick Sisteme kayıt oldunuz. Şifreniz: $2 } | elseif !$2 { notice $nick Şifre nerde? } } 

  halt

  if ($1 = !login) {

    if ($read(bot-registered.txt,s,$nick)) {

      $iif(!$istok(unreg no yes,$v1,32),goto login,checkreg $nick) 

      :login

      if !$2 { notice $nick Şifre nerde? } | elseif $2 { if ($read(bot-registered.txt,s,$nick) = $2) { notice $nick Login oldunuz! | mode #istanbul +v $nick } | elseif ($read(bot-registered.txt,s,$nick) != $2) { notice $nick Yanlış şifre! } }

      halt

    }

  }

}