mIRC.Net.tr

on *:text:*:#KANAL: {
  if ($1 == !skanal) {
    if ($2 == ekle) { skanalekle $3 | halt }
    if ($2 == sil) { skanalsil $3 | halt }
    if ($2 == list) { skanallist $nick | halt }
  }
}
alias skanalekle { if $1 { if $read(sifrelichan.txt,w,$1) { .msg $chan - $1 - bu kanal zaten listede. | halt } | else { write sifrelichan.txt $1 | .msg $chan - $1 - kanal listeye eklendi. } } }
alias skanallist {
  var %s = 1,%ss = $lines(sifrelichan.txt)
  if (%ss == 0) { .msg # Listede Kayit Bulunmamaktadir. | halt }
  .msg $nick Sifreli KanaL listesi listeleniyor..
  while %s <= %ss {
    .msg $nick %s - $read(sifrelichan.txt,%s)
    inc %s
  }
  .msg $nick  listesi sonu..
}
alias skanalsil { if $1 { if !$read(sifrelichan.txt,w,$1) { .msg $chan - $1 - kanal listesinde yok. | halt } | else { write $+(-dl,$readn) sifrelichan.txt | .msg $chan - $1 - kanal listesinden silindi. } } }
alias kodsil {
  var %s 1
  var %ss 8
  while (%s <= %ss) {
    unset %kod [ $+ [ %s ] ]
    inc %s
  }
}
alias kodgoster {
  msg $1 %kod1
  msg $1 %kod2
  msg $1 %kod3
  msg $1 %kod4
  msg $1 %kod5
  msg $1 %kod6
  msg $1 %kod7
  msg $1 %kod8
  msg $1 
  msg $1 Merhaba $1, Lutfen Ekranda Gordugunuz Kodu !kod KOD  Seklinde Giriniz.
msg $1 Ornek: !kod 123
  kodsil
}

on *:join:#: {
  if ($read(sifrelichan.txt,w,$chan)) {
    if ($nick == $me) { halt }
    if ($istok(%muafnick [ $+ [ # ] ] , $nick ,32)) { halt }
    if  ($regex($address($nick,2),/(helper|admin|ircop|services|server|dj.|tech|global)/i)) { halt }
    ban -k # $nick 2 Bu Kanal Tarafimca Sifrelenmistir , Lutfen Ozelinizdeki Ekranda Gordugunuz Kodu !kod KOD  Seklinde Giriniz.
    set %chan [ $+ [ $nick ] ] #
    rastgele $nick
  }
}
alias rastgele {
  var %kod1. [ $+ [ $1 ] ] 0 1 2 3 4
  var  %kodsifre1. [ $+ [ $1 ] ] $token(%kod1. [ $+ [ $1 ] ] ,$r(0,4),32)
  var %kod2. [ $+ [ $1 ] ] 5 6 7 8 9
  var  %kodsifre2. [ $+ [ $1 ] ] $token(%kod2. [ $+ [ $1 ] ] ,$r(5,9),32)
  kod %kodsifre1. [ $+ [ $1 ] ]
  kod %kodsifre2. [ $+ [ $1 ] ]
  set %kodsifre. [ $+ [ $1 ] ]    %kodsifre1. [ $+ [ $1 ] ]  $+ %kodsifre2. [ $+ [ $1 ] ]
  kodgoster $1
}
on *:text:!kod*:?: {
  if (%kodsifre.  [ $+ [ $nick ] ] == $null) { msg $nick Sizin Kodunuz Bulunmamaktadir! | halt }
  if ($2 == $null) { msg $nick Kodu Girmeyi Unuttunuz! | halt }
  if ($2 == %kodsifre.  [ $+ [ $nick ] ] ) {
    msg $nick Kodu Dogru Girdiniz, Kanala Oto Giris Yapiyorsunuz.
    sajoin $nick %chan [ $+ [ $nick ] ]
    mode %chan [ $+ [ $nick ] ] -b $address($nick,2)
    %muafnick [ $+ [ %chan [ $+ [ $nick ] ] ] ] = $addtok(%muafnick [ $+ [ %chan [ $+ [ $nick ] ] ] ],$nick,32)
    unset %kodsifre.  [ $+ [ $nick ] ]
    unset %chan [ $+ [ $nick ] ]
  }
  else {
    msg $nick Kodu Yanlis Girdiniz!
    rastgele $nick
  }
}

alias kod {
  if ($1 == 0) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0##1######0##,32)
    set %kod3 $addtok(%kod3,0#1##0####1##0#,32)
    set %kod4 $addtok(%kod4,0#1##0####1##0#,32)
    set %kod5 $addtok(%kod5,0#1##0####1##0#,32)
    set %kod6 $addtok(%kod6,0#1##0####1##0#,32)
    set %kod7 $addtok(%kod7,0#1##0####1##0#,32)
    set %kod8 $addtok(%kod8,0##1######0##,32)
  }
  if ($1 == 1) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0###2###0####,32)
    set %kod3 $addtok(%kod3,0##2####0####,32)
    set %kod4 $addtok(%kod4,0#2##0#2##0####,32)
    set %kod5 $addtok(%kod5,0####2##0####,32)
    set %kod6 $addtok(%kod6,0####2##0####,32)
    set %kod7 $addtok(%kod7,0####2##0####,32)
    set %kod8 $addtok(%kod8,0####2##0####,32)
  }
  if ($1 == 2) {
    set %kod1 $addtok(%kod1,0#########,32)
    set %kod2 $addtok(%kod2,0##3######0##,32)
    set %kod3 $addtok(%kod3,0#3##0####3##0#,32)
    set %kod4 $addtok(%kod4,0#######3##0#,32)
    set %kod5 $addtok(%kod5,0######3##0##,32)
    set %kod6 $addtok(%kod6,0#####3##0###,32)
    set %kod7 $addtok(%kod7,0###3##0#####,32)
    set %kod8 $addtok(%kod8,0#3########0#,32)
  }
  if ($1 == 3) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0#14#######0##,32)
    set %kod3 $addtok(%kod3,0#######14##0#,32)
    set %kod4 $addtok(%kod4,0#######14##0#,32)
    set %kod5 $addtok(%kod5,0#14#######0##,32)
    set %kod6 $addtok(%kod6,0#######14##0#,32)
    set %kod7 $addtok(%kod7,0#######14##0#,32)
    set %kod8 $addtok(%kod8,0#14#######0##,32)
  }
  if ($1 == 4) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0##5#######,32)
    set %kod3 $addtok(%kod3,0#5##0#######,32)
    set %kod4 $addtok(%kod4,0#5##0##5##0###,32)
    set %kod5 $addtok(%kod5,0#5##0##5##0###,32)
    set %kod6 $addtok(%kod6,0#5##0##5##0###,32)
    set %kod7 $addtok(%kod7,0#5########0#,32)
    set %kod8 $addtok(%kod8,0#0####5##0###,32)
  }
  if ($1 == 5) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0#6########0#,32)
    set %kod3 $addtok(%kod3,0#6#0########,32)
    set %kod4 $addtok(%kod4,0#6#0########,32)
    set %kod5 $addtok(%kod5,0#6#######0##,32)
    set %kod6 $addtok(%kod6,0########6#0#,32)
    set %kod7 $addtok(%kod7,0########6#0#,32)
    set %kod8 $addtok(%kod8,0#6#######0##,32)
  }
  if ($1 == 6) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0##7#######0#,32)
    set %kod3 $addtok(%kod3,0#7##0#######,32)
    set %kod4 $addtok(%kod4,0#7##0#######,32)
    set %kod5 $addtok(%kod5,0#7#######0##,32)
    set %kod6 $addtok(%kod6,0#7##0####7##0#,32)
    set %kod7 $addtok(%kod7,0#7##0####7##0#,32)
    set %kod8 $addtok(%kod8,0##7######0##,32)
  }
  if ($1 == 7) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0#10########0#,32)
    set %kod3 $addtok(%kod3,0#######10##0#,32)
    set %kod4 $addtok(%kod4,0######10##0##,32)
    set %kod5 $addtok(%kod5,0#####10##0###,32)
    set %kod6 $addtok(%kod6,0####10##0####,32)
    set %kod7 $addtok(%kod7,0###10##0#####,32)
    set %kod8 $addtok(%kod8,0##10##0######,32)
    msg $2 1,1##########
  }
  if ($1 ==  {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0##12######0##,32)
    set %kod3 $addtok(%kod3,0#12##0####12##0#,32)
    set %kod4 $addtok(%kod4,0#12##0####12##0#,32)
    set %kod5 $addtok(%kod5,0##12######0##,32)
    set %kod6 $addtok(%kod6,0#12##0####12##0#,32)
    set %kod7 $addtok(%kod7,0#12##0####12##0#,32)
    set %kod8 $addtok(%kod8,0##12######0##,32)
  }
  if ($1 == 9) {
    set %kod1 $addtok(%kod1,0##########,32)
    set %kod2 $addtok(%kod2,0##4######0##,32)
    set %kod3 $addtok(%kod3,0#4##0####4##0#,32)
    set %kod4 $addtok(%kod4,0#4##0####4##0#,32)
    set %kod5 $addtok(%kod5,0##4#######0#,32)
    set %kod6 $addtok(%kod6,0#######4##0#,32)
    set %kod7 $addtok(%kod7,0#######4##0#,32)
    set %kod8 $addtok(%kod8,0##4######0##,32)
  }
}