; CipriX!

on *:text:*:?:{
  if $1 == ozelkanal {
    $iif(%basvuruacikmi = acik,kntrl aktif $nick,kntrl deaktif $nick)
  }
  if $1 == ozelkanalbasvuru && $2 && %basvuruacikmi {
    if $($+(%,basvuru,.,$nick),2) { kntrl 60sn $nick }
    else { kntrl tamamdir $nick $2- }
    .set -u60 $+(%,basvuru,.,$nick) ok.
  }
}
on *:text:*:#Opers:{
  if $1-2 == !basvuru on {
    .set %basvuruacikmi acik
    msg #Opers Kanal Basvurusu acildi
  }
  if $1-2 == !basvuru listele {
    var %i 1
    while %i <= $lines(basvuru.txt) {
      msg #Opers $read(basvuru.txt,%i)
      inc %i
    }
    msg #Opers Basvuru listesinin sonu
  }
  if $1-2 == !basvuru off {
    .unset %basvuruacikmi
    msg #Opers Kanal Basvurusu kapandi
  }
  if $1 == !kaydet && $2 && $3 {
    .set -u10 %kanalkayitedilecek $2
    .set -u10 %kanalkime $3
    join $2
  }
}
on *:join:%kanalkayitedilecek:{
  .set %pass $r(100000,9999999)
  .chanserv drop %kanalkayitedilecek
  .chanserv register %kanalkayitedilecek %pass 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set %kanalkayitedilecek founder %kanalkime
  ms send %kanalkime Kayit isleminiz tamamlandi %kanalkayitedilecek kanali uzerinize tahsis edildi.
  msg #opers Kanal kayit islemi tamamlandi. $2 nickinin istegi uzerine $3 kanali kayit islemi tamamlanip, kanal sahibi $2 olarak belirlenmistir. (Kanal Sifresi: %pass $+ )
  .part %kanalkayitedilecek
}
alias -l kntrl {
  if $1 == aktif && $2 {
    msg $2 Merhaba $2
    msg $2 Ozel kanal basvurusu yapmak icin ozelkanalbasvuru #kanaladi yaziniz.
  }
  if $1 == deaktif && $2 {
    msg $2 Ozel kanal basvurulari gecici bir sure kapalidir.
    msg $2 Lutfen daha sonra tekrar deneyiniz.
    msg $2 MI-Yonetim keyifli sohbetler diler.
  }
  if $1 == 60sn && $2 { msg $2 Biraz once bir basvuruda bulundunuz. Lutfen 1 dakika sonra tekrar deneyiniz. }
  if $1 == tamamdir && $2 { 
    write basvuru.txt $r(1000,9999) - Ozel kanal basvurusu - $time - $date (Nick: $2 - Kanal: $3 $+ ) 
    msg $2 $3 odasi icin basvuru isleminiz tamamlanmistir.
    msg $2 MI-Yonetim yonetimi tarafindan onaylandiginda size MEMO ile bildirilicektir.
    msg $2 MI-Yonetim keyifli sohbetler diler.
  }
}

on *:text:*:#opers: {
  if ($1 == !basvuru) { 
    if ($2 == $null) {
      .msg # Ozel kanal basvuru sistemi.
      .msg # -
      .msg # Lutfen kayit islemini onaylamadan once nick ve kanal'i kayitli olup olmadiginiz kontrol ediniz.
      .msg # - 
      .msg # Kontrol icin: !basvuru <kontrol> komutunu kullanin
      .msg # Onaylamak icin: !basvuru <onayla> komutunu kullanin
      .msg # Reddetmek icin: !basvuru <reddet> komutunu kullanin.
      .msg # -
      .msg # Komut Listesi: !basvuru <on/off/listele/kontrol/onayla/reddet/sil> seklindedir
      halt
    }
    if ($2 == on) { set %ozelkanal on | .msg # Ozel kanal basvurulari acildi. | halt }
    if ($2 == off) { set %ozelkanal off | .msg # Ozel kanal basvurulari kapatildi. | halt }
    if ($2 == listele) { 
      var %i 1
      while %i <= $lines(kanalkayit.txt) {
        msg #opers $read(kanalkayit.txt,%i)
        inc %i
      }
      msg #opers ßasvuru listesi sonu..
    }
    if ($2 == kontrol) { 
      if ($3 == nick) { set %kontrol on | ns info $4 | halt }
      if ($3 == kanal) { set %kontrol on | cs info $4 | halt }
      if ($3 == $null) { msg # Kontrol icin: !basvuru kontrol <kanal/nick> <kanal/nick> | halt }
    }
    if ($2 == onayla) { 
      if ($2 == $null) {  msg # Kontrol icin: !basvuru onayla <#kanal> <nick>  | halt }
      elseif ($istok(%basvurukanal,$3,44)) { msg # Bu Kanal Eskidende Baska Nick Tarafindan Basvuruda Bulunulmustur | msg # !basvuru sil #kanal Yazarak Basvurusunu Silebilirsiniz.. | halt }
      elseif ($3 == $null) {  msg # Kontrol icin: !basvuru onayla <#kanal> <nick>  | halt }
      else { 
        msg #  Kanal basvurusunu onayladiniz. Lutfen bekleyiniz kayit islemini gerceklestiriyorum
        msg # Kanal kayit islemi tamamlandi: $3 kanali kayit islemi tamamlanip, kanal sahibi $4 olarak belirtilmistir.
        join $3 | mode $3 +o $me | set %pass $rand(0,9999999) | cs register $3 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 %pass | cs set $3 founder $4 
        ms send $4 Merhaba $4 , isteginiz uzerine $3 odasi nickinize kaydedilmistir. Kanalinizin sifresi; %pass olarak belirlenmistir. Guvenliginiz icin sifrenizi derhal degistirmeniz onerilir. Kanal sifrenizi degistirmek için; /msg ChanServ SET $3  PASSWORD <yeni sifreniz> komutunu uygulayiniz. KeyifTurk keyifli sohbetler diler.
        unset %pass
        part $3
        write kanalkayit.txt $3 Kanalina $4 Basvuruda Bulunmustur! - $time - $date - 
        set %basvurukanal $addtok(%basvurukanal ,$3,44)
      }
    }
    if ($2 == reddet) {
      if ($2 == $null) { msg # Komut icin: !basvuru reddet <#kanal> <nick> | halt }
      else { ms send $4 Sayin kullanicimiz: $3 kanali icin yaptiginiz basvuru reddedilmistir. Bilginize | .msg # $4 nickli kisiye memo atilmistir. | halt }
    }
    if ($2 == sil) {
      if ($3 == $null) { msg # kanal belirtmeyi unuttunuz. | halt }
      else { set %basvurukanal $remtok(%basvurukanal,$3,44) | sil $3 }
    } 
  }
}
on *:notice:*:?: {
  if ($nick == ChanServ) {
    if (*kanal*kay*degil* iswm $1-) && (%kontrol == on) { msg #opers $1 kanali kayit edilmeye uygundur | unset %kontrol | halt  }
    if (**Kanal*Sahibi* iswm $1-) && (%kontrol == on) { msg #opers Lutfen dikkat: %kntrlchan kanali daha onceden kayit edilmis | msg #opers Kanalin Sahibi : $3 | unset  %kontrol | halt }
  }
  if ($nick == NickServ) {
    if (*kay*bir*nick* iswm $1-) && (%kontrol == on) { msg #opers Lutfen dikkat: $1 nicki kayitli degildir. | unset %kontrol | halt }
    if (isim: isin $1-) && (%kontrol == on) { msg #opers $1 nicki kayitli bir nicktir | unset %kontrol | halt }
    if (*kay*bir*nick* iswm $1-) && (%nickkontrol == on) { msg %nick Uzgunum Sifresiz nickiniz kayitli degildir.  | msg %nick  Kanal basvurusu yapabilmek icin nickinizin kayitli olmasi gerekir | msg %nick  Nick kayit hakkinda detayli bilgi icin; /msg NickServ help REGISTER komutunu kullanin. | unset %nickkontrol | unset %nick |  halt  }
    if (isim: isin $1-) && (%nickkontrol == on) { unset %nickkontrol | unset %nick |  set %tamam on |  tamam $1 | halt }
  }
}
on *:text:*:?: {
  if ($1 == ozelkanal) {
    if (%ozelkanal == off) { msg $nick Ozel kanal basvurulari gecici bir sure kapalidir. | msg $nick Lutfen daha sonra tekrar deneyiniz. | msg $nick KeyifTurk keyifli sohbetler diler. | halt }
    if (%ozelkanal == on) { set %nickkontrol on | set %nick $nick | ns info $Nick | halt }
  }
  if ($1 == ozelkanalbasvuru) {
    if (%ozelkanal == off) { msg $nick Ozel kanal basvurulari gecici bir sure kapalidir. | msg $nick Lutfen daha sonra tekrar deneyiniz. | msg $nick KeyifTurk keyifli sohbetler diler. | halt }
    if ($1 == $null) { msg $nick kanal adi belirtmediniz | halt }
    elseif ($istok(%basvurukanal,$2,44)) { msg $nick $2 Kanali Kayit'i Bulunmakta Zaten.. | halt }
    else { msg $nick $2 odasi icin basvuru isleminiz tamamlanmistir. | msg $nick KeyifTurk yonetimi tarafindan onaylandiginda size MEMO ile bildirilicektir. | msg $nick KeyifTurk keyifli sohbetler diler. | msg #opers  $nick  tarafindan ozel kanal basvurusu yapildi. (KANAL: $2 ) | halt }
  }
}
alias tamam {
  if (%tamam == on) { 
    msg $1 Merhaba  $1 ,
    msg $1 Ozel kanal basvurusu yapmak icin ozelkanalbasvuru #kanaladi yaziniz.
  }
}
alias sil { if $1 { if !$read(kanalkayit.txt,w,$+($1,*)) { .msg $chan  $1   listede bulunmamakta. | halt } | else { write $+(-dl,$readn) kanalkayit.txt | .msg $chan - $1 - listeden silinmistir. } } }